gnss-converters 0.1.7 → 0.1.8
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.7+version: 0.1.8 synopsis: GNSS Converters. description: Haskell bindings for GNSS converters. homepage: http://github.com/swift-nav/gnss-converters
src/Data/RTCM3/SBP.hs view
@@ -43,7 +43,7 @@ toP :: GpsL1Observation -> GpsL1ExtObservation -> Word32 toP l1 l1e = round $ p * 100 where p = (0.02 :: Double) * fromIntegral (l1 ^. gpsL1Observation_pseudorange) +- 299792.458 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity)+ 299792.458 * 0.5 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity) toL :: GpsL1Observation -> GpsL1ExtObservation -> CarrierPhase toL l1 l1e = CarrierPhase@@ -51,10 +51,10 @@ , _carrierPhase_f = fromIntegral lf } where p = 0.02 * fromIntegral (l1 ^. gpsL1Observation_pseudorange) +- 299792.458 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity)+ 299792.458 * 0.5 * fromIntegral (l1e ^. gpsL1ExtObservation_ambiguity) lm :: Double lm = p + 0.0005 * fromIntegral (l1 ^. gpsL1Observation_carrierMinusCode)- l = -lm / (299792458.0 / 1.57542e9)+ l = lm / (299792458.0 / 1.57542e9) li :: Int32 li = floor (l) lf :: Word8