Permalink
Browse files

Drift rate calculation.

  • Loading branch information...
1 parent 584342c commit 17e4d3cd439edd74440a26d858e224705a819dde @bjornbm committed Mar 1, 2012
Showing with 10 additions and 0 deletions.
  1. +10 −0 Astrodynamics.lhs
View
@@ -127,6 +127,16 @@ Calculate the mean angular motion of an orbit based on the semi-major axis.
> meanAngularMotion :: Floating a => Length a -> AngularVelocity a
> meanAngularMotion a = sqrt (mu / a ^ pos3)
+Drift rate
+----------
+
+Calculate drift rate of an orbit based on the orbital period.
+
+> periodToDriftRate :: Floating a => Time a -> AngularVelocity a
+> periodToDriftRate t = (1 *~ revolution) / t - phi
+
+> smaToDriftRate :: Floating a => Length a -> AngularVelocity a
+> smaToDriftRate a = meanAngularMotion a - phi
Utility functions
=================

0 comments on commit 17e4d3c

Please sign in to comment.