fun () ->
match ParasitemiaCore.Analysis.doMultipleAnalysis images None with
| Some results ->
- for id, cells in results do
+ for id, result in results do
let config, img = images |> List.pick (fun (id', config', img') -> if id' = id then Some (config', img') else None)
img.Dispose ()
- let total, infected = countCells cells
+ let total, infected = countCells result.Cells
fprintf resultFile "File: %s %d %d %.2f (diameter: %O)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius
| None ->
fprintf resultFile "Analysis aborted"