X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FMainAnalysis.fs;h=926aeac5523dcf734cab8660809337e8eb8a6b32;hp=1d2ced33366e5f0f3fb197f3a857b23836f53126;hb=e588f9c954a54cb259b2c1f6f9e8d9dbd4639269;hpb=3f8b0d281b3058faf23dbd0363de440bd04c6574

diff --git a/Parasitemia/ParasitemiaCore/MainAnalysis.fs b/Parasitemia/ParasitemiaCore/MainAnalysis.fs
index 1d2ced3..926aeac 100644
--- a/Parasitemia/ParasitemiaCore/MainAnalysis.fs
+++ b/Parasitemia/ParasitemiaCore/MainAnalysis.fs
@@ -59,7 +59,7 @@ let doAnalysis (img: Image<Bgr, byte>) (name: string) (config: Config) (reportPr
         use img_parasites = img_float.[2] // mergeChannelsWithProjection img_float config.Parameters.averageColor_Parasite config.Parameters.averageColor_RBC 255.
         use img_parasites_filtered = gaussianFilter img_parasites config.LPFStandardDeviationParasite
 
-        logWithName (sprintf "Nominal erytrocyte diameter: %A" config.RBCRadiusByResolution)
+        logWithName (sprintf "Nominal erythrocyte diameter: %A" config.RBCRadiusByResolution)
 
         let initialAreaOpening = int <| config.RBCRadiusByResolution.Area * config.Parameters.ratioAreaPaleCenter * 1.1f // We do an area opening a little larger to avoid to do a second one in the case the radius found is near the initial one.
         do! logTimeWithName "First area opening" (fun () -> areaOpenF img_RBC_filtered initialAreaOpening; report 10)
@@ -70,7 +70,7 @@ let doAnalysis (img: Image<Bgr, byte>) (name: string) (config: Config) (reportPr
         let! radius = logTimeWithName "Granulometry (area)" (fun() -> reportWithVal 10 (Granulometry.findRadiusByAreaClosing img_RBC_filtered range |> float32))
         config.SetRBCRadius <| radius
 
-        logWithName (sprintf "Found erytrocyte diameter: %A" config.RBCRadius)
+        logWithName (sprintf "Found erythrocyte diameter: %A" config.RBCRadius)
 
         do! report 20