anchor.diff:          let normalizeByProbSum minProb (pols: Polynomial list) = 
               let sum = 
                   pols
  -                |> List.filter (fun x -> x > minProb)
  +                |> List.filter (fun x -> x.Probability > minProb)
                   |> List.sumBy (fun x -> x.Probability)
               pols 
               |> List.map (fun x -> {x with Probability = x.Probability/sum})
  
positive.code: 
          // Implementation according to BRAIN - algortihm
          /// Generates the distribution of the isotopic abundancy
          let ofFormula (limit:int) (fml:Formula) =
              let calcP0 (fml:Formula) = 
                  fml 
  
negative.code:             |> mergeFinePolynomial (mergeResolution)
              |> (normF minProb)
              |> powerToMw charge
  
  