projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Increase a bit the number of built ellipses.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
MatchingEllipses.fs
diff --git
a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
index
3ed8ad6
..
f028e90
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
+++ b/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
@@
-10,10
+10,10
@@
open Types
open Utils
// All ellipses with a score below this are removed.
open Utils
// All ellipses with a score below this are removed.
-let matchingScoreThreshold
= 0.4f
+let matchingScoreThreshold
PerRadiusUnit = 0.025f // For a radius of 1.
let matchingScorePower = 20.f
let windowSizeRadiusFactor = 1.f / 2.f
let matchingScorePower = 20.f
let windowSizeRadiusFactor = 1.f / 2.f
-let minimumDistanceFromCenterRadiusFactor = 1.f /
3
.f
+let minimumDistanceFromCenterRadiusFactor = 1.f /
4
.f
type private EllipseScoreFlaggedKd (matchingScore: float32, e: Ellipse) =
let mutable matchingScore = matchingScore
type private EllipseScoreFlaggedKd (matchingScore: float32, e: Ellipse) =
let mutable matchingScore = matchingScore
@@
-72,6
+72,7
@@
type MatchingEllipses (radius: float32) =
| _ -> ()
// 3) Remove ellipses whose center is near the center of another ellipse with a better score.
| _ -> ()
// 3) Remove ellipses whose center is near the center of another ellipse with a better score.
+ let matchingScoreThreshold = matchingScoreThresholdPerRadiusUnit * radius
for e in ellipses do
if e.MatchingScore < matchingScoreThreshold
then
for e in ellipses do
if e.MatchingScore < matchingScoreThreshold
then