X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FConfig.fs;h=1110096ea4d826ec40277263f4a5cd59fcec8d52;hb=3b645f8ff5259f88a33ffbd9a63b10a8640c439f;hp=93fa2ce59dc42ecd7f8862da1a0e197ab6553e78;hpb=cedd2809bf9f802e9c12102d30f63cf29f64442c;p=master-thesis.git diff --git a/Parasitemia/ParasitemiaCore/Config.fs b/Parasitemia/ParasitemiaCore/Config.fs index 93fa2ce..1110096 100644 --- a/Parasitemia/ParasitemiaCore/Config.fs +++ b/Parasitemia/ParasitemiaCore/Config.fs @@ -13,6 +13,9 @@ type Parameters = { rbcDiameter: float<μm> resolution: float + colorContribution_BG_RBC: float * float * float // (R, G, B). + colorContribution_RBC_parasite: float * float * float // (R, G, B). + ratioAreaPaleCenter: float32 // The area of the second opening is 'ratioSecondAreaOpen' * mean RBC area. It's applied only if greater than 'initialAreaOpen'. granulometryRange: float32 // The radius will be seeked from radius - granulometryRange * radius to radius + granulometryRange * radius. @@ -20,7 +23,9 @@ type Parameters = { minRbcRadius: float32 // Factor of the mean RBC radius. maxRbcRadius: float32 // Factor of the mean RBC radius. - LPFStandardDeviation: float<μm> // Sigma parameter of the gaussian to remove the high frequency noise. + LPFStandardDeviationParasite: float<μm> // Sigma parameter of the gaussian to remove the high frequency noise. + LPFStandardDeviationStain: float<μm> + LPFStandardDeviationRBC: float<μm> // Ellipse. factorNbPick: float // The number of computed ellipse per edge pixel. @@ -29,11 +34,12 @@ type Parameters = { darkStainLevel: float // Lower -> more sensitive. Careful about illumination on the borders. maxDarkStainRatio: float // When a cell must own less than this ratio to be a RBC. - stainArea: float32 // Factor of a RBC area. 0.5 means the half of RBC area. - stainSensitivity: float // between 0 (the least sensitive) and 1 (the most sensitive). - maxStainRatio: float // A cell must own less than this ratio to be a RBC. + parasiteRadiusRatio: float32 // The ratio of the parasite radius of the RBC radius. + + minimumParasiteAreaRatio: float32 // Factor of a RBC area. 0.5 means the half of RBC area. + cytoplasmSensitivity: float // between 0 (the least sensitive) and 1 (the most sensitive). - infectionArea: float32 // Factor of a RBC area. 0.5 means the half of RBC area. + nucleusAreaRatio: float32 // Factor of a RBC area. 0.5 means the half of RBC area. infectionSensitivity: float // between 0 (the least sensitive) and 1 (the most sensitive). standardDeviationMaxRatio: float // The standard deviation of the pixel values of a cell can't be greater than standardDeviationMaxRatio * global standard deviation @@ -42,28 +48,34 @@ type Parameters = { let defaultParameters = { rbcDiameter = 8.<μm> - resolution = 220.e3 // Correspond to 50X. + resolution = 220.e3 // 220.e3 Correspond to 50X. + + colorContribution_BG_RBC = (* 0., 1., 0. *) 0.16, 0.44, 0.4 + colorContribution_RBC_parasite = (* 1., 0., 0. *) 0.54, 0.41, 0.05 - ratioAreaPaleCenter = 1.f / 3.f // The ratio between an RBC area and the area of the its pale center. + ratioAreaPaleCenter = 2.f / 5.f // The ratio between an RBC area and the area of the its pale center. granulometryRange = 0.5f minRbcRadius = -0.3f maxRbcRadius = 0.3f - LPFStandardDeviation = 0.2<μm> // 8.5e-6. + LPFStandardDeviationParasite = 0.15<μm> + LPFStandardDeviationStain = 0.15<μm> // 0.12 + LPFStandardDeviationRBC = 0.2<μm> // 8.5e-6. // 0.2<μm> factorNbPick = 1.0 darkStainLevel = 0.25 // 0.3 maxDarkStainRatio = 0.1 // 10 % - infectionArea = 0.012f // 1.2 % - infectionSensitivity = 0.9 + parasiteRadiusRatio = 0.5f // 40 % - stainArea = 0.08f // 8 % - stainSensitivity = 0.9 - maxStainRatio = 0.12 // 12 % + minimumParasiteAreaRatio = 0.02f // 2 % + cytoplasmSensitivity = 0.96 // 1) 0.91, 2) 0.92 + + nucleusAreaRatio = 0.01f // 1.0 % + infectionSensitivity = 0.9 // 1) 0.93, 2) 0.94 standardDeviationMaxRatio = 0.5 // 0.5 minimumCellAreaFactor = 0.4f } @@ -79,8 +91,10 @@ type RBCRadius (radius: float32, parameters: Parameters) = member this.Area = PI * radius ** 2.f member this.MinArea = parameters.minimumCellAreaFactor * this.Area - member this.InfectionArea = parameters.infectionArea * this.Area - member this.StainArea = parameters.stainArea * this.Area + member this.ParasiteRadius = parameters.parasiteRadiusRatio * radius + + member this.NucleusArea = parameters.nucleusAreaRatio * this.Area + member this.MinimumParasiteArea = parameters.minimumParasiteAreaRatio * this.Area override this.ToString() = sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * radius) (2. * this.μm) @@ -106,8 +120,16 @@ type Config (param: Parameters) = member val Debug = DebugOff with get, set - member this.LPFStandardDeviation = - let stdDeviation: float = (μmToInch parameters.LPFStandardDeviation) * parameters.resolution + member this.LPFStandardDeviationParasite = + let stdDeviation: float = (μmToInch parameters.LPFStandardDeviationParasite) * parameters.resolution + float stdDeviation + + member this.LPFStandardDeviationStain = + let stdDeviation: float = (μmToInch parameters.LPFStandardDeviationStain) * parameters.resolution + float stdDeviation + + member this.LPFStandardDeviationRBC = + let stdDeviation: float = (μmToInch parameters.LPFStandardDeviationRBC) * parameters.resolution float stdDeviation member this.RBCRadiusByResolution = rbcRadiusByResolution