Dear R-help,

How can I replicate the beautiful math plot found in the right-hand side of http://www.r-project.org/screenshots/desktop.jpg? I tried the following code but didn't obtain something as beautiful.

r <- seq(-10, 10, len=100)
y <- cos(r^2)*exp(-r/6)
par(pty="s")
plot(r,y,type="l")

Thanks in advance!
Yung-jui Yang
	[[alternative HTML version deleted]]