Commit 58de9151 authored by Yann Duplouy's avatar Yann Duplouy

Correction d'une typo dans RK-Fehlberg/ODE45

parent f66c211d
Pipeline #958 passed with stages
in 34 minutes
......@@ -722,7 +722,7 @@ lB lL);
begin match step with
| 0 -> Printf.fprintf skCpp "t0.getDouble() + step/4.;";
| 1 -> Printf.fprintf skCpp "t0.getDouble() + step*3/8.;";
| 2 -> Printf.fprintf skCpp "t0.getDouble() + step*12/3.;";
| 2 -> Printf.fprintf skCpp "t0.getDouble() + step*12/13.;";
| 3 -> Printf.fprintf skCpp "t0.getDouble() + step;";
| 4 -> Printf.fprintf skCpp "t0.getDouble() + step*1/2.;";
| _ -> ()
......@@ -1030,6 +1030,8 @@ let generateCode lS (lB,lL) =
Printf.fprintf skCpp "\tint idxtampon = Marking.P->lastEntry+2;\n"; (* ÉTAIT +1 *)
Printf.fprintf skCpp "\tSKTime t0 = Marking.P->_TIME[previdx];\n";
Printf.fprintf skCpp "\tMarking.P->_TIME[idxtampon+0] = Marking.P->_TIME[previdx];\n";
Printf.fprintf skCpp "\tMarking.P->countDown = Marking.P->lastEntry;\n";
Printf.fprintf skCpp "\tMarking.P->currentLookup = t0;\n";
let diffMethods = !skUseRK4 + !skUseEuler + !skUseODE45 in
if diffMethods > 1 then Printf.eprintf "[WARNING:] Specified multiple solvers for Integrators.\n";
if diffMethods = 0 then begin
......
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