polarplots2.mws

> with(plots):

Polar Plots

1. Plot the graph of r = sin(2theta) for theta in [0, 2Pi]

> polarplot(sin(2*theta), theta=0..4*Pi, title="r = sin(2 Theta)");

> 2. Plot the graph of r = theta for theta in [0, 2Pi]

> polarplot(theta, theta=0..2*Pi, title = "r = Theta, Spiral of Archimedes");

3. Plot the graph of r = exp(-2theta) for theta in [0, 2Pi]

> polarplot(exp(-2*Theta), Theta=0.. 5*Pi, title="r = exp(-2 Theta), asymptotic to zero");

4. Plot the graph of r = 1-2cos(sin(theta)) for theta in [0, 2Pi]

> polarplot(1-2*cos(sin(theta)), theta=0..2*Pi, title="Goofy eyes: r = 1 - 2cos(sin(theta))");

5. Plot the graph of r = 1-cos(sin(theta)) for theta in [0, 2Pi]

> polarplot(1-cos(sin(theta)), theta=0..2*Pi, title="Figure-eight: r = 1 - cos(sin(theta))");

6. Plot the graph of r = 1+cos(theta) for theta in [0, 2Pi]. This is a cardioid...

> polarplot(1+cos(x), x=0..24*Pi, title="r = 1+cos(theta)");

7. Plot the graph of r = 1+2cos(theta) for theta in [0, 2Pi]. This is a cardioid with an inner loop...

> polarplot(1+2*cos(x), x=0..2*Pi, title="r = 1+2cos(theta)");

8. Plot the graph of r = sin(3theta) for theta in [0, 2Pi]. This has three petals ...

> polarplot(sin(3*theta), theta=0..2*Pi, title="r = sin(3Theta)");

9. Plot the graph of r = cos(3theta) for theta in [0, 2Pi]. This has three petals, but rotated ...compare with the preceding polarplot(cos(3*theta), theta=0..2*Pi, title="r = cos(3Theta)");

> 10. Plot the graph of r = 1 + 2cos(theta) for theta in [0, 2Pi]. This has three petals, but rotated ...compare with the preceding

> polarplot(1+2*cos(x), x=0..2*Pi, title="r = 1+2cos(theta)");

> polarplot(sin(sqrt(2)*theta)+cos(theta), theta=0..3*Pi, title="r = sin (sqrt(2) theta) + cos(theta). A quasi-periodic plot");

>

>