x <- seq(1, 1001, 0.01) plot(x, pi*cos(pi/x))
To embed this project on your website, copy the following code and paste it into your website's HTML: