x <- seq(-pi, pi, 0.1)
plot(x, cos(x))