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

feat (exm): sincos example

Browse source
This commit is contained in:
Henri Saudubray 2025-04-29 15:33:57 +02:00
parent 9a0d22e880
commit d398989ece
Signed by: hms
GPG key ID: 7065F57ED8856128
6 changed files with 87 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

4
exm/ball.ml
View file

@ -52,3 +52,7 @@ let bouncing_ball () =
horizon = (fun _ -> max_float);
cset; cget; zset; reset; jump; zsize }
let errmsg = "Too many arguments for the model (needed: 0)"
let bouncing_ball = function
| [] -> bouncing_ball ()
| _ -> raise (Invalid_argument errmsg)