Random Polar Plots as Exercises

xxxxxxxxxx

 

1

var('t,i,a,b,c,d'); tmin,tmax,n=-pi,pi,4

2

f1(t,i,a,b,c,d)=(a+.9*cos(b*t+pi*i/n))*(1+.1*cos(c*t+pi*i/n))

3

f2(t,i,a,b,c,d)=(1+.05*cos(d*t+pi*i/n))*(1+sin(t+pi*i/n))

4

[a,b,c,d]=[randint(8,11),randint(12,24),

5

           randint(25,81),randint(216,256)]

6

sum([polar_plot(f1(t,i,a,b,c,d)*f2(t,i,a,b,c,d),(tmin,tmax),

7

                thickness=.3,axes=False,color=hue(i/(3*n))) 

8

     for i in [1..6*n]])

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages