hms/hsim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: lift runtime into language, start of zelus 2024 compatibility

Browse source
This commit is contained in:
Henri Saudubray 2025-07-11 11:21:07 +02:00
parent dc8d941b84
commit ffc583985a
Signed by: hms
GPG key ID: 7065F57ED8856128
37 changed files with 1154 additions and 143 deletions
Download patch file Download diff file Expand all files Collapse all files

12
exm/builtins/main.ml
View file

@ -73,21 +73,21 @@ let output =
let sim =
if !sundials then
let open StatefulSundials in
let c = if !inplace then InPlace.csolve else Functional.csolve in
let c = if !inplace then InPlace.csolve () else Functional.csolve () in
let open StatefulZ in
let z = if !inplace then InPlace.zsolve else Functional.zsolve in
let z = if !inplace then InPlace.zsolve () else Functional.zsolve () in
let s = Solver.solver c (d_of_dc z) in
let open Sim.Sim(val st) in
run_until_n (output !sample (run m s))
Hsim.Utils.run_until_n (output !sample (run m s))
else
let open StatefulRK45 in
let c = if !inplace then InPlace.csolve else Functional.csolve in
let c = if !inplace then InPlace.csolve () else Functional.csolve () in
let open StatefulZ in
let z = if !inplace then InPlace.zsolve else Functional.zsolve in
let z = if !inplace then InPlace.zsolve () else Functional.zsolve () in
let s = Solver.solver_c c z in
let open Sim.Sim(val st) in
let n = if !accel then accelerate m s else run m (d_of_dc s) in
run_until_n (output !sample n)
Hsim.Utils.run_until_n (output !sample n)
let () = sim !stop !steps ignore