member this.Perimeter =
Math.PI * (3.0 * (this.A + this.B) - sqrt ((3.0 * this.A + this.B) * (this.A + 3.0 * this.B)))
+ override this.ToString () =
+ sprintf "(cx: %A, cy: %A, a: %A, b: %A, alpha: %A)" this.Cx this.Cy this.A this.B this.Alpha
+
type CellClass = HealthyRBC | InfectedRBC | Peculiar
type Line (a: float, b: float) =
member this.A = a
member this.B = b
+ member this.Valid = not (Double.IsInfinity this.A)
[<Struct>]
type PointD (x: float, y: float) =