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

15
exm/zelus/sincos/sincosz.zls
View file

@ -1,4 +1,17 @@
let hybrid f () = (sin, cos) where
let hybrid g () = (sin, cos) where
rec der sin = cos init 0.0
and der cos = -. sin init 1.0
let hybrid f () =
let der t = 1.0 init 0.0 in
let sin, cos = g () in
let z = period (0.01) in
present z -> (
print_float t;
print_string "\t";
print_float sin;
print_string "\t";
print_float cos;
print_newline ()
); ()