Commit 7547777a authored by Benoît Barbot's avatar Benoît Barbot
Browse files

progress

parent 1dd4904e
Pipeline #1663 failed with stages
in 33 seconds
......@@ -129,7 +129,8 @@ let _ =
Some v,Some dv,Some ddv -> -. dv /. v -.target , -.ddv /. v +. dv*.dv /. (v*.v)
| _ -> failwith "fail to evaluate" in
let x = Common.newton_raphson_iterate ~max_iter:100 compv 1.0 in
if !verbose>0 then printf "%g [%.2fs]@." x (check_time ());
let v,_ = compv x in
if !verbose>0 then printf "%g achieved %g [%.2fs]@." x (v+.target) (check_time ());
Some x
in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment