X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FClassifier.fs;h=a2d9e4f446b08ac1dde5a18bd549d7f6ad2f1be8;hp=9b247f43db4599e702ce0b469659d5e881773765;hb=d247f3a07ca3c7b192d8c2381ea85ba731fcc359;hpb=3d59272b3e4cd5a5c51d56f94f2bcf72be8b8bb9

diff --git a/Parasitemia/ParasitemiaCore/Classifier.fs b/Parasitemia/ParasitemiaCore/Classifier.fs
index 9b247f4..a2d9e4f 100644
--- a/Parasitemia/ParasitemiaCore/Classifier.fs
+++ b/Parasitemia/ParasitemiaCore/Classifier.fs
@@ -70,16 +70,16 @@ let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
 
                             // Yield 'false' when the point is owned by another ellipse.
                             if case1 then
-                                yield sign delta <> sign delta' || Utils.squaredDistanceTwoPoints c p' > Utils.squaredDistanceTwoPoints c p
+                                sign delta <> sign delta' || Utils.squaredDistanceTwoPoints c p' > Utils.squaredDistanceTwoPoints c p
                             else
-                                yield sign delta = sign delta' && Utils.squaredDistanceTwoPoints c p' < Utils.squaredDistanceTwoPoints c p
+                                sign delta = sign delta' && Utils.squaredDistanceTwoPoints c p' < Utils.squaredDistanceTwoPoints c p
                         else
-                            yield case1
+                            case1
 
                     elif e.State = CellState.Peculiar then // A peculiar always win against a RBC.
-                        yield true
+                        true
                     else
-                        yield not <| e'.Contains p.X p.Y
+                        not <| e'.Contains p.X p.Y
 
             } |> Seq.forall id
 
@@ -121,7 +121,7 @@ let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
         let globalStdDeviation = MathNet.Numerics.Statistics.Statistics.PopulationStandardDeviation (seq {
             for y in 0 .. h - 1 do
                 for x in 0 .. w - 1 do
-                    yield float imgData.[y, x, 0] })
+                    float imgData.[y, x, 0] })
 
         for e in ellipses do
             if not e.Removed then
@@ -132,7 +132,7 @@ let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
                     for y in (if minY < 0 then 0 else minY) .. (if maxY >= h then h - 1 else maxY) do
                         for x in (if minX < 0 then 0 else minX) .. (if maxX >= w then w - 1 else maxX) do
                             if shrinkedE.Contains (float32 x) (float32 y) then
-                                yield float imgData.[y, x, 0] })
+                                float imgData.[y, x, 0] })
 
                 if stdDeviation > globalStdDeviation * config.Parameters.standardDeviationMaxRatio then
                     e.Removed <- true *)
@@ -218,7 +218,7 @@ let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
                             seq {
                                 for parasitePixel in parasitePixels do
                                     if nucleusPixels.Exists (fun p -> pown (p.X - parasitePixel.X) 2 + pown (p.Y - parasitePixel.Y) 2 <= diameterParasiteSquared) then
-                                        yield 1
+                                        1
                             } |> Seq.sum
                         else
                             0