gnss-converters 0.1.8 → 0.1.9
raw patch · 2 files changed
+4/−4 lines, 2 files
Files
- gnss-converters.cabal +1/−1
- src/Data/RTCM3/SBP.hs +3/−3
gnss-converters.cabal view
@@ -1,5 +1,5 @@ name: gnss-converters-version: 0.1.8+version: 0.1.9 synopsis: GNSS Converters. description: Haskell bindings for GNSS converters. homepage: http://github.com/swift-nav/gnss-converters
src/Data/RTCM3/SBP.hs view
@@ -41,9 +41,9 @@ } toP :: GpsL1Observation -> GpsL1ExtObservation -> Word32-toP l1 l1e = round $ p * 100 where+toP l1 l1e = round $ p * 50 where p = (0.02 :: Double) * fromIntegral (l1 ^. gpsL1Observation_pseudorange) +- 299792.458 * 0.5 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity)+ 299792.458 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity) toL :: GpsL1Observation -> GpsL1ExtObservation -> CarrierPhase toL l1 l1e = CarrierPhase@@ -51,7 +51,7 @@ , _carrierPhase_f = fromIntegral lf } where p = 0.02 * fromIntegral (l1 ^. gpsL1Observation_pseudorange) +- 299792.458 * 0.5 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity)+ 299792.458 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity) lm :: Double lm = p + 0.0005 * fromIntegral (l1 ^. gpsL1Observation_carrierMinusCode) l = lm / (299792458.0 / 1.57542e9)