hsim/exm/zelus/sincos/main.ml

10 lines
322 B
Standard ML

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,%.10e,%.10e\n" now sin cos
let () = Runtime.go_discrete input Sincosz.sincos output