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

feat: support for model-requested horizons

Browse source
This commit is contained in:
Henri Saudubray 2025-06-25 10:41:37 +02:00
parent 685de96eec
commit ac4e066bf8
Signed by: hms
GPG key ID: 7065F57ED8856128
24 changed files with 170 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

8
exm/sqrt.ml
View file

@ -66,10 +66,10 @@ let sqrt () =
let reset _ _ = s_init in
let jump _ = true in
HNode { state = s_init;
fder = (fun s _ y -> fder s y yd; yd);
fzer = (fun s _ y -> fzero s y zout; zout);
fout = (fun s _ y -> fout s y);
step = (fun s a -> fstep s a);
fder = (fun s _ _ y -> fder s y yd; yd);
fzer = (fun s _ _ y -> fzero s y zout; zout);
fout = (fun s _ _ y -> fout s y);
step = (fun s _ a -> fstep s a);
horizon = (fun s -> if s.s_encore then 0.0 else max_float);
cset; cget; zset; zsize; csize; reset; jump }