Application Center - Maplesoft
  Submit your work
Application Center Applications 2.7.2 Three-dimensional plots Preview

App Preview:

2.7.2 Three-dimensional plots

You can switch back to the summary page by clicking here.

Learn about Maple
Download Application

 

272_three-dimensional_plots.mws

Essential Maple 7

Robert M. Corless
Department of Applied Mathematics
University of Western Ontario
London, Canada

Copyright

Copyright 2001 by Robert M. Corless
All rights reserved

Chapter 2: Useful one-word commands

Section 2.7: Plotting in Maple

Session 2.7.2: Three-dimensional plots

> restart;
with(plots):

Warning, the name changecoords has been redefined

> sp := [rho*cos(2*Pi*t), rho*sin(2*Pi*t), 0, radius=b]:

pc := n -> [ (rho-r*cos(2*Pi*t))*cos(2*Pi/(n+t)),
           (rho-r*cos(2*Pi*t))*sin(2*Pi/(n+t)),
           -r*sin(2*Pi*t)]:

rho, r, b := 3, 1.1, 1:

s := spacecurve( {seq(pc(k),  k=1..50)}, t=0..1, thickness=2,
colour=magenta, view=[-4.4..4.4, -4.4..4.4, -2.2..2.2]):

s2 := tubeplot( sp, t=0..1, tubepoints=150,  view=[-4.4..4.4, -4.4..4.4, -2.2..2.2], style=PATCHNOGRID, color=cyan):

display( {s,s2}, scaling=CONSTRAINED, orientation=[50,65], transparency=0.8, shading=ZHUE, lightmodel=light1);

[Plot]

> restart;

> plot3d( JacobiSN(x,y),x=-10..10, y=0..0.999999,grid=[30,30],
colour=black, style=HIDDEN );

[Plot]

> plot3d( JacobiSN(x,1-10^(-y)),x=-10..10, y=0..6,grid=[30,30],
colour=black, style=HIDDEN );

[Plot]

> restart;

> w := u+ I*v;

w := u+I*v

> z := sin( w );

z := sin(u+I*v)

> x := evalc( Re(z) );

x := sin(u)*cosh(v)

> y := evalc( Im(z) );

y := cos(u)*sinh(v)

> plot3d( [x,y,u], u=-6..6, v=-6..6, grid=[50,50], colour=v, style=PATCHNOGRID, axes=NONE, scaling=CONSTRAINED, orientation=[30,84], view=[-6..6,-6..6,-6..6] );

[Plot]

>

>