type elements = {a : float;e : float;inclination : float;mean_longitude : float;perihelion : float;node : float;
}val period : float -> floatval eccentric_anomaly : e:float -> float -> floatval position : elements -> days:float -> float * float * float