Surfaces' Plotting as Exercises 2

xxxxxxxxxx

 

1

var('u,v'); u_min,u_max=-3*pi,3*pi

2

v_min,v_max=.001,pi-.001 

3

a,b,c=1,1.5,1.2; h=a*(1+u^2*sin(v^2))

4

fx=(log(tan(v/c))/c+cos(v)/h)/b

5

fy=b*(sin(u)-u*cos(u))*sin(v)/h

6

fz=b*(cos(u)+u*sin(u))*sin(v)/h

7

sum([parametric_plot3d(

8

    [fx*i,fy,fz*j],(u_min,u_max),(v_min,v_max),plotpoints=50,

9

    color='silver',opacity=.3,mesh=True,frame=False) 

10

     for i in [-1,1] for j in [-1,1]])

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

---

Messages