Math 252 HW#08 sec. 4.8 #6 Maple Work

We start by loading the "plots" package:

> with(plots):

Let us plot the cylindrical part of the surface which encloses the volume under consideration:

> plot3d([1,theta,z],theta=0..2*Pi,z=0..exp(-1),
coords=cylindrical,labels=['x','y','z'],
axes='FRAMED',scaling='CONSTRAINED',grid=[30,5],
orientation=[45,75]);

[Maple Plot]

Now let's plot the top of the surface:

> plot3d([rho,theta,exp(-rho^2)],rho=0..1,theta=0..2*Pi,
coords=cylindrical,labels=['x','y','z'],
axes='FRAMED',scaling='CONSTRAINED',grid=[8,30],
orientation=[45,75]);

[Maple Plot]

Putting the two pieces together in one picture, we obtain:

> plot1:=plot3d([1,theta,z],theta=0..2*Pi,z=0..exp(-1),
coords=cylindrical,labels=['x','y','z'],
axes='FRAMED',scaling='CONSTRAINED',grid=[30,5],
orientation=[45,75]):

> plot2:=plot3d([rho,theta,exp(-rho^2)],rho=0..1,theta=0..2*Pi,
coords=cylindrical,labels=['x','y','z'],
axes='FRAMED',scaling='CONSTRAINED',grid=[8,30],
orientation=[45,75]):

> display({plot1,plot2});

[Maple Plot]

SFU / Math & Stats / ~hebron / math252 / assignments / sol08 / maple / 4.8.6.html

Revised 24 March 1999 by John Hebron.