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

feat: a LOT of stuff (final report, examples, simulation of a single assert, move from node instances to node definitions, etc.)

Browse source
This commit is contained in:
Henri Saudubray 2025-08-20 18:20:46 +02:00
parent ba5db5bd99
commit f2c545ce2c
Signed by: hms
GPG key ID: 7065F57ED8856128
49 changed files with 12377 additions and 1898 deletions
Download patch file Download diff file Expand all files Collapse all files

8
exm/zelus/sincos/main.ml
View file

@ -1,6 +1,10 @@
open Std
(* let input _ = () *)
(* let output (now, (sin, cos)) = Format.printf "%.10e\t%.10e\t%.10e\n" now sin cos *)
(* let () = Runtime.go input Sincosz.g output *)
let input _ = ()
let output (now, (sin, cos)) = Format.printf "%.10e\t%.10e\t%.10e\n" now sin cos
let () = Runtime.go input Sincosz.g output
let output (now, sin, cos) = Format.printf "%.10e,%.10e,%.10e\n" now sin cos
let () = Runtime.go_discrete input Sincosz.sincos output

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

@ -1,4 +1,4 @@
(*
let hybrid g () = (sin, cos) where
rec der sin = cos init 0.0
and der cos = -. sin init 1.0
@ -15,3 +15,13 @@ let hybrid f () =
print_float cos;
print_newline ()
); ()
*)
let h = 0.01
let node integr(x0, x') = (x) where
rec x = x0 -> pre(x +. x' *. h)
let node sincos() = (now, sin, cos) where
rec sin = integr(0.0, cos)
and cos = integr(1.0, -. sin)
and now = integr(0.0, 1.0)