module Chapter07 where

import Chapter02 (yRock30)
import Chapter06 (yRock)
import Graphics.Gnuplot.Simple (plotFunc)

type R = Double

plot1 :: IO ()
plot1 :: IO ()
plot1 = forall a. (C a, C a) => [Attribute] -> [a] -> (a -> a) -> IO ()
plotFunc [] ([-R
10, -R
9.99 .. R
10] :: [R]) forall a. Floating a => a -> a
sin

plot2 :: IO ()
plot2 :: IO ()
plot2 = forall a. (C a, C a) => [Attribute] -> [a] -> (a -> a) -> IO ()
plotFunc [] [R
0, R
0.01 .. R
6] R -> R
yRock30

plot3 :: IO ()
plot3 :: IO ()
plot3 = forall a. (C a, C a) => [Attribute] -> [a] -> (a -> a) -> IO ()
plotFunc [] [R
0, R
0.01 .. R
4] (R -> R -> R
yRock R
20)