X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FMatchingEllipses.fs;h=f028e901d7009eb4ba62d66a966864bc0218603b;hp=bfa042b0239232583f77687a7ecaf3edb190616d;hb=9a025e7d947ffbe097eb844f3214fbc95e134f7c;hpb=bb642da712542095d8c5ead2d0d036470eb040b9 diff --git a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs index bfa042b..f028e90 100644 --- 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. -let matchingScoreThresholdPerRadiusUnit = 0.02f // For a radius of 1. +let matchingScoreThresholdPerRadiusUnit = 0.025f // For a radius of 1. let matchingScorePower = 20.f let windowSizeRadiusFactor = 1.f / 2.f -let minimumDistanceFromCenterRadiusFactor = 1.f / 3.f // 1.f / 3.f +let minimumDistanceFromCenterRadiusFactor = 1.f / 4.f type private EllipseScoreFlaggedKd (matchingScore: float32, e: Ellipse) = let mutable matchingScore = matchingScore