Polar Plots as Art Objects

xxxxxxxxxx

 

1

var('t'); n=10

2

f1=exp(cos(t)^2+sin(t))-3*cos(4*t)

3

f2=-floor(4*t)*abs(sin(4*t))/2

4

s1=sum([polar_plot(i*f1/n,(t,0,2*pi),

5

                   color=Color([i/n,0,1-i/n])) 

6

        for i in [1..n]])

7

s2=sum([polar_plot(i*f2/n,(t,0,2*pi),

8

                   color=Color([1-i/n,i/n,0])) 

9

        for i in [1..n]])

10

(s2+s1).show(axes=false)

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

---

Messages