X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FProgram.fs;h=2dcd2ffe217f9d07a9bd058799344575d45c7706;hp=2aa3ee4f77c929454e2ef67ba1f0655d78d8545f;hb=ee562c3b613791fd89a5c322546229e9d364cafb;hpb=4147bfad3c85dcf4fe7d291abf7d356379d88b4f diff --git a/Parasitemia/Parasitemia/Program.fs b/Parasitemia/Parasitemia/Program.fs index 2aa3ee4..2dcd2ff 100644 --- a/Parasitemia/Parasitemia/Program.fs +++ b/Parasitemia/Parasitemia/Program.fs @@ -63,13 +63,13 @@ let main args = use resultFile = new StreamWriter(new FileStream(Path.Combine(output, "results.txt"), FileMode.Append, FileAccess.Write)) //try - let images = [ for file in files -> Path.GetFileNameWithoutExtension(FileInfo(file).Name), new Image(file) ] + let images = [ for file in files -> Path.GetFileNameWithoutExtension(FileInfo(file).Name), config.Copy(), new Image(file) ] Utils.logTime "Whole analyze" (fun () -> - let results = ImageAnalysis.doMultipleAnalysis images config None + let results = ImageAnalysis.doMultipleAnalysis images None - for id, _, cells in results do + for id, cells in results do let total, infected = Utils.countCells cells fprintf resultFile "File: %s %d %d %.2f\n" id total infected (100. * (float infected) / (float total)))