ghc/tests/programs/barton-mangler-bug/Main.hs

   1 module Main where
   2 import Physical
   3 import Basic
   4 import TypesettingTricks
   5 import PlotExample
   6 sinExample:: SignalRep Time Voltage
   7 sinExample = sine (V 2.0) (Hz 10) 0.0
   8 sinPlot = plotExample "sine" sinExample 0.0 1.0
   9 pieceExample = toSig Pulse_dc
  10   { start_delay=(Sec 1.0),
  11     rise_time=(Sec 0.2),
  12     pulse_width=(Sec 3.0),
  13     fall_time=(Sec 0.3),
  14     dc_offset=(V (- 1.0)),
  15     period=(Sec 10.0),
  16     amplitude=(V 5.0),
  17     over=Overshoot{ringing=(V 0.2),
  18                    pulse_width=(Sec 3.0),
  19                    oscillation=(Hz 2.0),
  20                    damp_fac=1.0},
  21     under=Overshoot{ringing=(V (- 0.25)),
  22                     pulse_width=(Sec 3.0),
  23                     oscillation=(Hz 2.10),
  24                     damp_fac=1.10} }
  25 piecePlot = plotExample "piece" pieceExample 0.0 20.0
  26 main = sinPlot >>
  27        piecePlot