Application Center - Maplesoft
  Submit your work
Application Center Applications 3-D Tennis Ball Preview

App Preview:

3-D Tennis Ball

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

Learn about Maple
Download Application

 

tennis.mws

> restart;a:=0.2;b:=0.25;

a := .2

b := .25

> h:=(t*2*Pi +a*sin(8*t*Pi))/(2*Pi);

h := 1/2*(2*t*Pi+.2*sin(8*t*Pi))/Pi

> i:=0.5 + b*cos(4*t*Pi);

i := .5+.25*cos(4*t*Pi)

> plot( [ h, i, t = 0 .. 1],x=0..1,y=0..1 );

>

[Plot]

> with(plots):;display(spacecurve([cos(2*Pi*h)*sin(Pi*i),sin(2*Pi*h)*sin(Pi*i), cos(Pi*i)], t=0..1,color=white,thickness=10),implicitplot3d(x^2+y^2+z^2=0.99,x=-1..1,y=-1..1,z=-1..1,style=PATCHNOGRID, lightmodel=light4, color=yellow));

Warning, the name changecoords has been redefined

[Plot]

>

>

> xx:=cos(2*Pi*h)*sin(Pi*i);

xx := cos(2*t*Pi+.2000000000*sin(8*t*Pi))*sin(Pi*(.5+.25*cos(4*t*Pi)))

> yy:=sin(2*Pi*h)*sin(Pi*i);

yy := sin(2*t*Pi+.2000000000*sin(8*t*Pi))*sin(Pi*(.5+.25*cos(4*t*Pi)))

> zz:=cos(Pi*i);

zz := cos(Pi*(.5+.25*cos(4*t*Pi)))

>

>

>

>