- percentageOfFgValidCell = 0.4
-
- MaxDarkStainRatio = 0.1
-
- minimumCellArea = 600. * scale ** 2. |> int
- maxOffcenter = 0.5 }
+ standardDeviationMaxRatio = 0.55
+ minimumCellArea = 0.5 })
Directory.CreateDirectory output |> ignore
use logFile = new StreamWriter(new FileStream(Path.Combine(output, "log.txt"), FileMode.Append, FileAccess.Write))
Utils.log <- (fun m -> logFile.WriteLine(m))
Directory.CreateDirectory output |> ignore
use logFile = new StreamWriter(new FileStream(Path.Combine(output, "log.txt"), FileMode.Append, FileAccess.Write))
Utils.log <- (fun m -> logFile.WriteLine(m))
try
use img = new Image<Bgr, byte>(file)
Utils.log (sprintf "== File: %A" file)
try
use img = new Image<Bgr, byte>(file)
Utils.log (sprintf "== File: %A" file)
let total, infected = Utils.countCells cells
fprintf resultFile "File: %s %d %d %.2f\n" file total infected (100. * (float infected) / (float total))
with
let total, infected = Utils.countCells cells
fprintf resultFile "File: %s %d %d %.2f\n" file total infected (100. * (float infected) / (float total))
with