- member this.RBCMinRadius = this.RBCRadius + param.minRbcRadius * this.RBCRadius
- member this.RBCMaxRadius = this.RBCRadius + param.maxRbcRadius * this.RBCRadius
+ member this.LPFStandardDeviation =
+ let stdDeviation: float<px> = (μmToInch parameters.LPFStandardDeviation) * param.resolution
+ float stdDeviation
+
+ // Mean RBC radius.
+ member val RBCRadius : float32 = initialRBCRadius with get, set
+
+ member this.RBCRadiusμm : float<μm> =
+ 1.<px> * (float this.RBCRadius) / parameters.resolution |> inchToμm
+
+ member this.RBCMinRadius = this.RBCRadius + parameters.minRbcRadius * this.RBCRadius
+ member this.RBCMaxRadius = this.RBCRadius + parameters.maxRbcRadius * this.RBCRadius
+
+ member this.RBCArea = PI * this.RBCRadius ** 2.f
+ member this.RBCMinArea = parameters.minimumCellAreaFactor * this.RBCArea
+
+ member this.InfectionArea = parameters.infectionArea * this.RBCArea
+ member this.StainArea = parameters.stainArea * this.RBCArea
+
+ member this.FormattedRadius =
+ sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * this.RBCRadius) (2. * this.RBCRadiusμm)