projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Remove ellipses with a too high standard variation.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
MatchingEllipses.fs
diff --git
a/Parasitemia/Parasitemia/MatchingEllipses.fs
b/Parasitemia/Parasitemia/MatchingEllipses.fs
index
99e3cb5
..
7a4c51b
100644
(file)
--- a/
Parasitemia/Parasitemia/MatchingEllipses.fs
+++ b/
Parasitemia/Parasitemia/MatchingEllipses.fs
@@
-12,20
+12,18
@@
open Utils
// Do not take in account matching score below this when two ellipses are matched.
let matchingScoreThreshold1 = 0.6
// Do not take in account matching score below this when two ellipses are matched.
let matchingScoreThreshold1 = 0.6
-// All ellipse
e with a score below this is
removed.
-let matchingScoreThreshold2 =
1. / 100
.
+// All ellipse
s with a score below this are
removed.
+let matchingScoreThreshold2 =
2
.
type private EllipseScoreFlaggedKd (matchingScore: float, e: Ellipse) =
let mutable matchingScore = matchingScore
type private EllipseScoreFlaggedKd (matchingScore: float, e: Ellipse) =
let mutable matchingScore = matchingScore
- let perimeter = e.Perimeter
member this.Ellipse = e
member this.MatchingScore = matchingScore
member this.Ellipse = e
member this.MatchingScore = matchingScore
- // The score is proportional to the perimeter because large ellipse will receive more votes.
member this.AddMatchingScore(score: float) =
member this.AddMatchingScore(score: float) =
- matchingScore <- matchingScore + score
/ perimeter
+ matchingScore <- matchingScore + score
member val Processed = false with get, set
member val Removed = false with get, set
member val Processed = false with get, set
member val Removed = false with get, set