open Printf
module Pendulum = Pendulum

let x0 = float_of_string Sys.argv.(1)
let theta0 = float_of_string Sys.argv.(2)
let t = float_of_string Sys.argv.(3)

let ms = 0.5
let mt = 0.2
let v = 0.1
let l = 0.3
let i = 0.006
let f t _ _ _ _ = 0.3 *. sin t

let () =
    printf "%.14g\n%.14g\n" ((Pendulum.solve ms mt v l i f) t x0 theta0).{1}
                            ((Pendulum.solve ms mt v l i f) t x0 theta0).{2}