10-3.mws

> restart;

> x:=2*cos(t);

x := 2*cos(t)

> y:=r*sin(t);

y := r*sin(t)

> z:=4-y^2;

z := 4-r^2*sin(t)^2

> a:=plot3d([x,y,z],t=0..2*Pi,r=0..1,scaling=constrained,color=gold):

> z:=x^2+3*y^2;

z := 4*cos(t)^2+3*r^2*sin(t)^2

> b:=plot3d([x,y,z],t=0..2*Pi,r=0..1,scaling=constrained,color=red):

> with(plots): 

Warning, the name changecoords has been redefined

> c:=display(a,b):

> display(c);

[Maple Plot]

> with(plottools):

> vrml(c,"c:/My Documents/mei/10.html/10-3.wrl",background_color=white):

>