member this.NucleusArea = parameters.nucleusAreaRatio * this.Area
member this.MinimumParasiteArea = parameters.minimumParasiteAreaRatio * this.Area
- override this.ToString() =
+ override this.ToString () =
sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * radius) (2. * this.μm)
type Config (param : Parameters) =
float32 rbcRadiusPx
let mutable parameters : Parameters = param
- let mutable rbcRadiusByResolution = RBCRadius(RBCadiusInPixels parameters.rbcDiameter parameters.resolution, parameters)
- let mutable rbcRadius = RBCRadius(0.f, parameters)
+ let mutable rbcRadiusByResolution = RBCRadius (RBCadiusInPixels parameters.rbcDiameter parameters.resolution, parameters)
+ let mutable rbcRadius = RBCRadius (0.f, parameters)
- new () = Config(defaultParameters)
+ new () = Config defaultParameters
member this.Parameters
- with get() = parameters
- and set(param) =
+ with get () = parameters
+ and set param =
parameters <- param
- rbcRadiusByResolution <- RBCRadius(RBCadiusInPixels parameters.rbcDiameter parameters.resolution, param)
- rbcRadius <- RBCRadius(rbcRadius.Pixel, param)
+ rbcRadiusByResolution <- RBCRadius (RBCadiusInPixels parameters.rbcDiameter parameters.resolution, param)
+ rbcRadius <- RBCRadius (rbcRadius.Pixel, param)
member val Debug = DebugOff with get, set
member this.RBCRadius = rbcRadius
member this.SetRBCRadius (radiusPixel : float32) =
- rbcRadius <- RBCRadius(radiusPixel, parameters)
+ rbcRadius <- RBCRadius (radiusPixel, parameters)
member this.Copy () =
- this.MemberwiseClone() :?> Config
-
+ this.MemberwiseClone () :?> Config
+
+ override this.ToString () =
+ $"{{{nameof Config}: " +
+ $"{nameof this.LPFStandardDeviationParasite} = {this.LPFStandardDeviationParasite}, " +
+ $"{nameof this.LPFStandardDeviationRBC} = {this.LPFStandardDeviationRBC}, " +
+ $"{nameof this.RBCRadiusByResolution} = {this.RBCRadiusByResolution}, " +
+ $"{nameof this.RBCRadius} = {this.RBCRadius}, " +
+ $"{nameof this.Parameters} = {this.Parameters}}}"