in haskell

Draws a planet in an elliptical orbit based on Kepler's equation.

drawOrbit' :: Float -- semi-major axis

-> Float -- eccentricity

-> Float -- period

-> Float -- time

-> Picture

drawOrbit' _ _ _ _ = blank

meanMotion :: Floating a

=> a -- period

-> a -- mean motion

meanMotion p = undefined

meanAnomaly :: Floating a

=> a -- mean motion

-> a -- time

-> a -- mean anomaly

meanAnomaly n t = undefined

eccentricAnomaly :: (Floating a, Ord a)

=> a -- eccentricity

-> a -- mean anomaly

-> a -- eccentric anomaly

eccentricAnomaly ecc ma = undefined

trueAnomaly :: (Floating a, Ord a)

=> a -- eccentricity

-> a -- eccentric anomaly

-> a -- true anomaly

trueAnomaly ecc ea = undefined

heliocentricDist :: Floating a

=> a -- semi-major axis

-> a -- eccentricity

-> a -- eccentric anomaly

-> a -- heliocentric distance

heliocentricDist a ecc ea = undefined