SHARE
TWEET

Untitled

a guest Jun 16th, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {-# LANGUAGE ExplicitForAll    #-}
  2. {-# LANGUAGE FlexibleInstances #-}
  3. {-# LANGUAGE PatternSynonyms   #-}
  4.  
  5. module Main where
  6.  
  7. import           Text.Printf
  8.  
  9. import           Calibration.CalUnits
  10.  
  11. spec = newCalSpec 7.481
  12.   ManualWater    ManualReader
  13.   -- VoltageCmd_0_10 X866VoltsIn
  14.   CurrentCmd_4_20 NewX866MillisIn
  15.   -- KhsNlCurrentCmd2_4_20 X866MillisIn
  16.  
  17. main :: IO ()
  18. main = do
  19.       printf "make DEFINES='-D ZeroFlowCurrent=%.0f -D DeadbandUlps=%.0f -D MaxUlps=%.0f -D ADC_VOLTAGE=%d -D TEST=1' && ./test | tee /tmp/test.xyz\n\n"
  20.         (calCmdZeroUlps spec)
  21.         (calCmdUlpSpan spec * 0.03)
  22.         (calCmdUlpMax spec)
  23.         (compileSensorNumber $ calCmd spec)
  24.       -- print (splineParams khsNlData)
  25.       -- writeF "/tmp/spline.xyz" id
  26.       --   [spline khsNlData] [(0,0),(1,1)]
  27.       putStr "plot \"cal.xyz\" with lines, \"pts.xyz\", \"test.xyz\" with lines\n\n"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top