x <- seq(-4*pi, 4*pi, 0.001) plot(x, (((x)/2 + sin((x))/2 + cos((x))/2)/2 + sin(((x)/2 + sin((x))/2 + cos((x))/2))/2 + cos(((x)/2 + sin((x))/2 + cos((x))/2))/2))
To embed this project on your website, copy the following code and paste it into your website's HTML: