Surface drawing by parametric plots

xxxxxxxxxx

 

1

var('u,v'); a,b,c=.5,2,1.5

2

u_min,u_max=0,4*pi; v_min,v_max=0,1

3

f_x=v*cos(u)-a*v^4*cos(b*u)

4

f_y=v*sin(u)+a*v^4*sin(b*u)

5

f_z=exp(c*log(v))*cos(c*u)

6

sum([parametric_plot3d([f_x*i,f_y,f_z],

7

     (u_min,u_max),(v_min,v_max),plotpoints=100,color='cyan',

8

     opacity=.3,mesh=(5,50),frame=False) for i in [-1,1]])

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

---

Messages