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

feat (notes): reorganise and update (and some formatting)

Browse source
This commit is contained in:
Henri Saudubray 2025-05-01 12:05:09 +02:00
parent 3b5e01b163
commit dd6152833f
Signed by: hms
GPG key ID: 7065F57ED8856128
6 changed files with 211 additions and 209 deletions
Download patch file Download diff file Expand all files Collapse all files

4
exm/vdp.ml
View file

@ -23,11 +23,11 @@ let fzer _ _ _ = zout
let fout _ _ y = of_array [| y.{0}; y.{1} |]
let step { i; lx } _ =
let lx = if i then of_array [| x0; y0 |] else lx in
of_array [| lx.{0}; lx.{1} |], { lx; i = false }
of_array [| lx.{0}; lx.{1} |], { lx; i=false }
let cget s = s.lx
let cset s lx = { s with lx }
let zset s _ = s
let state = { lx = of_array [| x0; y0 |]; i = true }
let state = { lx=of_array [| x0; y0 |]; i=true }
let reset _ _ = state
let jump _ = true
let horizon _ = max_float