Use tau.

bjornbm · Oct 21, 2014 · 0caf91b · 0caf91b
1 parent 23f380d
commit 0caf91b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Astro/Orbit/Interpolate.hs b/Astro/Orbit/Interpolate.hs
@@ -106,6 +106,6 @@ linearPolateMEOEm_OLD (m0`At`t0) (m1`At`t1) t = ( vec2meoe
   where
     l0 = long $ longitude m0
     l1 = long $ longitude m1
-    l1' = adjustCyclicT (l0`At`t0) (l1`At`t1) period (_2 * pi)
+    l1' = adjustCyclicT (l0`At`t0) (l1`At`t1) period tau
     period = (meoeOrbitalPeriod m0 + meoeOrbitalPeriod m1) / _2
 -- -}
diff --git a/Astro/Orbit/MEOE.hs b/Astro/Orbit/MEOE.hs
@@ -37,7 +37,7 @@ vec2meoe v = vIterate meoe v
 
 -- TODO move orbitalPeriod somewhere more generic?
 orbitalPeriod :: Floating a => GravitationalParameter a -> SemiMajorAxis a -> Time a
-orbitalPeriod mu (SMA a) = _2 * pi * sqrt (a ^ pos3 / mu)
+orbitalPeriod mu (SMA a) = tau * sqrt (a ^ pos3 / mu)
 
 -- | Compute the orbital eccentricity.
 eccentricity :: Floating a => MEOE t a -> Dimensionless a