+
+
+let doMultipleAnalysis (imgs: (string * Image<Bgr, byte>) list) (config : Config) : (string * Cell list) list =
+ let nbConcurrentTaskLimit = 4
+ let n = Environment.ProcessorCount
+
+ imgs
+ |> PSeq.map (fun (id, img) -> id, doAnalysis img id (config.Copy()))
+ |> PSeq.withDegreeOfParallelism (if n > nbConcurrentTaskLimit then nbConcurrentTaskLimit else n)
+ |> PSeq.toList
\ No newline at end of file