plot2 :: IO ()
plot2 = plotList [Title "Damped Harmonic Oscillator"
                 ,XLabel "Time (s)"
                 ,YLabel "Voltage (V)"
                 ,Key Nothing
                 ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)
plot2 :: IO ()
plot2 = plotList [Title "Damped Harmonic Oscillator"
                 ,XLabel "Time (s)"
                 ,YLabel "Voltage (V)"
                 ,Key Nothing
                 ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)
plot2 = plotList [Title "Damped Harmonic Oscillator"
                 ,XLabel "Time (s)"
                 ,YLabel "Voltage (V)"
                 ,Key Nothing
                 ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)