In order to get better acquainted with the plotting facilities of Maple I thought I would try to plot the Möbius strip. In the proces I generalized the task so that I would be able to plot a ribbon twisted an arbitrary number of times. From these efforts the following code resulted:

radiusVector := (phi) -> Vector([cos(phi),sin(phi),0]):
ribbonVector := (phi) -> Vector([-sin(phi)*cos(phi),-sin(phi)*sin(phi),cos(phi)]):
p := (twist,theTitle,theOrientation) -> plot3d(
   radiusVector(phi) + t*ribbonVector(twist*phi),phi=0..2*Pi,t=-0.3..0.3,

Below follow two examples: 1. Ribbon with 1/2 twist: The Möbius strip:

display(p(1/2,"Ribbon with 1/2 twist: The Möbius strip",[200,70]));


2. Ribbon with 1/1 twist:

display(p(1/1,"Ribbon with 1/1 twist",[40,60]));

Please Wait...