anchor.diff:  
       let wind = getWind predictorsT S_0 V_k P_w V_b
       
  -    let a = Table.Map ["t";"velocity"] (fun (t:float) (v:float) -> (t,v)) observationsT |> Array.ofSeq
  +    let data = Table.Map ["t";"velocity"] (fun (t:float) (v:float) -> (t,v)) observationsT
   
       let current_lglk p =
           let t,v = p
  
positive.code:         let predAtEarth = avgVelocity D
          let mu = V_b + predAtEarth //base level plus pulses        
          if System.Double.IsNaN mu then
              improbable
          else
              let distribution = Statistics.Normal(mu,Sigma)
              let lglk = log_pdf distribution (v * 60.0 * 60.0)
              lglk
              
      let res = Array.Parallel.map current_lglk a |> Seq.sum         
      printf "."
      res
          
  
  
negative.code:         else
              let intercept = - V_k*S_0
              let A = intercept + V_k*area
              let velocity = (V_b+A)*60.0*60.0
              assert(A >= 0.0)
              let pulse = {
                  Power=1.0;
  