Skip to content
Browse files

Added functions for converting drift rate.

  • Loading branch information...
1 parent eb588bd commit 27eb58b2c5332d4e59741ca3ce5accbb0501cedb @bjornbm committed Dec 1, 2013
Showing with 7 additions and 0 deletions.
  1. +7 −0 Astrodynamics.lhs
View
7 Astrodynamics.lhs
@@ -142,9 +142,16 @@ Calculate drift rate of an orbit based on the orbital period.
> periodToDriftRate :: Floating a => Time a -> AngularVelocity a
> periodToDriftRate t = (1 *~ revolution) / t - phi
+> driftRateToPeriod :: Floating a => AngularVelocity a -> Time a
+> driftRateToPeriod d = tau / (d + phi)
+
> smaToDriftRate :: Floating a => Length a -> AngularVelocity a
> smaToDriftRate a = meanAngularMotion a - phi
+> driftRateToSMA :: Floating a => AngularVelocity a -> Length a
+> driftRateToSMA d = semiMajorAxis (phi + d)
+
+
Utility functions
=================

0 comments on commit 27eb58b

Please sign in to comment.
Something went wrong with that request. Please try again.