feat: a LOT of stuff (final report, examples, simulation of a single assert, move from node instances to node definitions, etc.)
This commit is contained in:
parent
ba5db5bd99
commit
f2c545ce2c
49 changed files with 12377 additions and 1898 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue