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