anchor.diff:              v
   
   
  -        let xv = Array.init 10 (fun _ -> rnd.NextDouble())
  +        let xv = Array.init ops.vectorSize (fun _ -> rnd.NextDouble())
           let xvD = DV xv
   
  -        let vv = Array.init 10 (fun _ -> rnd.NextDouble())
  +        let vv = Array.init ops.vectorSize (fun _ -> rnd.NextDouble())
           let vvD = DV vv
   
           let zv = Array.init 3 (fun _ -> rnd.NextDouble())
  
positive.code:                 else
                      parseArgsRec xss {optionsSoFar with repetitions = reps; changed = true}
              else
                  eprintfn "Option -r was followed by an invalid input."
                  parseArgsRec xs optionsSoFar
          | _ ->
              eprintfn "Option -r needs to be followed by a number."
              parseArgsRec xs optionsSoFar
      | x::xs ->
          eprintfn "Option \"%s\" is unrecognized." x
          parseArgsRec xs optionsSoFar
  
negative.code:         let fvs (x:float[]) =
              x |> Array.sumBy (fun v -> v * log (v / 2.))
          let fvsD (x:DV) =
              x * (log (x / 2.))
  
          let fvv (x:float[]) =
              [|x |> Array.sumBy (fun v -> v * log (v / 2.))
                x |> Array.sumBy (fun v -> exp (sin v))
                x |> Array.sumBy (fun v -> exp (cos v))|]
          let fvvD (x:DV) =
              toDV [x * log (x / 2.); exp (sin x) |> DV.sum; exp (cos x) |> DV.sum]
  
          printb 1 29 "original functions"
          let res_fss,      dur_fss =      duration noriginal (fun () -> fss x)
  