Polar Plots as Art Objects 2

xxxxxxxxxx

 

1

var('u,v'); n=10;

2

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

3

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

4

s1=sum([spherical_plot3d(i*f1/n,(u,0,2*pi),(v,1,1.01),

5

       color=(i/n,0,1-i/n)) for i in [1..n]])

6

s2=sum([spherical_plot3d(i*f2/n,(u,0,2*pi),(v,1,1.01),

7

       color=(1-i/n,i/n,0)) for i in [1..n]])

8

(s1+s2).show(frame=False)

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

---

Messages