theta <- seq(from = 0, to = 360, length = 1000)
Cos <- function(x) cos(x * pi / 180)
plot(theta, Cos(theta), type = "l")

plot(theta, Cos(theta)^2, type = "l")