X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FConfig.fs;h=e7deb61b1ca982895fc8f4beb8957c3821e563e7;hb=81d1b86719a1ebaf649c1de4c1364603155a53e1;hp=09164085e8c4b4a85c6424cd900c8889acbdba02;hpb=05be8164d308447b916544ae3ce4211500dfd8da;p=master-thesis.git diff --git a/Parasitemia/Parasitemia/Config.fs b/Parasitemia/Parasitemia/Config.fs index 0916408..e7deb61 100644 --- a/Parasitemia/Parasitemia/Config.fs +++ b/Parasitemia/Parasitemia/Config.fs @@ -42,7 +42,7 @@ type Parameters = { let defaultParameters = { rbcDiameter = 8.<μm> - resolution = 200.e3 // Correspond to 50X. + resolution = 220.e3 // Correspond to 50X. ratioAreaPaleCenter = 1.f / 3.f // The ratio between an RBC area and the area of the its pale center. @@ -85,7 +85,6 @@ type RBCRadius (radius: float32, parameters: Parameters) = override this.ToString() = sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * radius) (2. * this.μm) - type Config (param: Parameters) = let RBCadiusInPixels (rbcDiameter: float<μm>) (resolution: float) : float32 = let rbcRadiusInch: float = (μmToInch rbcDiameter) / 2.