projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Little adjustments.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
Types.fs
diff --git
a/Parasitemia/Parasitemia/Types.fs
b/Parasitemia/Parasitemia/Types.fs
index
a551142
..
e27f7d0
100644
(file)
--- a/
Parasitemia/Parasitemia/Types.fs
+++ b/
Parasitemia/Parasitemia/Types.fs
@@
-37,6
+37,9
@@
type Ellipse (cx: float, cy: float, a: float, b: float, alpha: float) =
member this.Perimeter =
Math.PI * (3.0 * (this.A + this.B) - sqrt ((3.0 * this.A + this.B) * (this.A + 3.0 * this.B)))
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 CellClass = HealthyRBC | InfectedRBC | Peculiar
@@
-49,6
+52,7
@@
type Cell = {
type Line (a: float, b: float) =
member this.A = a
member this.B = b
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) =
[<Struct>]
type PointD (x: float, y: float) =