The Maple Program

Many of you were interested in seeing the code for the Maple program used in the demonstration. Here it is:


with(plots):
  animate( [x-2*0.1*t*x/sqrt(1+4*x^2), x^2 +0.1*t/sqrt(1+4*x^2),x=-1..1],
  t=0..10,frames=100, color=red);
 
with(plots):
  animate( [x-2*0.1*t*x/sqrt(1+4*x^2), x^2 +0.1*t/sqrt(1+4*x^2),x=0..1],
  t=0..10,frames=100,color=red);

with(plots):
  plot3d( [x-2*0.5*t*x/sqrt(1+4*x^2),2*t, x^2 +0.5*t/sqrt(1+4*x^2)],
  x=-10..10, t=0..15);

with(plots):
  animate( [x-0.12*t*cos(x)/sqrt(1+(cos(x))^2),
            sin(x) +0.12*t/sqrt(1+(cos(x))^2), x=-10..10],
  t=0..30,frames=100, color=red);

Navigation Panel:

Go backward to Solutions to the problems
Go up to Introduction and Contents
Go forward to References
Switch to graphical version (better pictures & formulas)
Access printed version in PostScript format (requires PostScript printer)
Go to SIMMER Home Page
Go to The Fields Institute Home Page
Go to University of Toronto Mathematics Network Home Page