anchor.diff:      let dimMins, dimRanges, dimMaxs = getMinsRangesAndMaxsOfDimensions vectors
       let randomCentroids = getRandomCentroids classCount dimMins dimMaxs
   
  +    // Imperious
       let mutable keepGoing = true
       let mutable centroids = randomCentroids
       let mutable count = 0
  
positive.code:         let centroids = [| for i in 1..count ->  getCentroid() |]
          centroids
  
      let getVeryDifferentCentroids centroids mins maxs=
          centroids |> Array.map (fun centroid ->
              (centroid, mins, maxs) |||> Array.map3 (fun value min max ->
                  if value - min > max - value then min else max ))
  
      let classCount = 
          samples 
  
negative.code:             |> Array.map (fun x -> x / float samples.Length)
  
      let doneThreshold = 0.001;
      let checkDone (centroids : float [][]) (newCentroids : float[][]) dimensionRanges =
          (centroids, newCentroids)
          ||> Seq.map2 (Seq.map2 (-))
          |> Seq.map (Seq.map2 (fun range delta -> abs (delta / range)) dimensionRanges)
          |> Seq.collect (id)
          |> Seq.forall (fun delta -> delta < doneThreshold)
         
  
      let displayCluster cluster =
  