ADATOK (Ezek közül egyszerre egy olvasható be.)
sz1    (henger palást ) 
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=5:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s1:= BLUE: s2:= RED: # perem színei 
>  k:=0:  # Csavarás mértéke (Henger palást)
>  p:=1:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz1.wrl`:
> 
sz2     (henger palást egymás felett átívelő részekkel )
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=8:        # kerület
>  emel:=1.5*sin(2*t):     # kiemelkedés az xy síkból
>  s2:= BLUE: s1:= RED: # perem színei 
>  k:=0:  # Csavarás mértéke (Henger palást)
>  p:=3:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz2.wrl`:
> 
sz3    (önátmetsző henger palást )
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=8:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s2:= BLUE: s1:= RED: # perem színei 
>  k:=0:  # Csavarás mértéke (Henger palást)
>  p:=3:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz3.wrl`:
> 
sz4    ( kétszer csvart  henger palást) 
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=5:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s1:= BLUE: s2:= RED: # perem színei 
>  k:=2:  # Csavarás mértéke (Henger palást)
>  p:=1:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz4.wrl`:
> 
sz5    (Még össze nem ragasztott Möbius szalag)
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=4*Pi/5: # hosszúság
>  r:=5:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s1:= RED: s2:=BLUE: # perem színei 
>  k:=5/4:  # Csavarás mértéke (Möbius szalag)
>  p:=1:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz5.wrl`:
> 
 sz6   (Möbius szalag)
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=5:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s1:= BLACK: s2:= BLACK: # perem színei 
>  k:=1:  # Csavarás mértéke (Möbius szalag)
>  p:=1:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz6.wrl`:
> 
sz7    (Kétszer körbefutó kétszer csavart szalag - mint egy hosszában elvágott Möbius szalag)
> restart: with(plots):with(plottools):
>  a:=.15: b:=1: # szélesség
>  c:=0: d:=2*Pi: # hosszúság
>  r:=3:        # kerület
>  emel:=0.25*cos(t):     # kiemelkedés az xy síkból
>  s2:= BLUE: s1:= RED: # perem színei 
>  k:=1:  # Csavarás mértéke (Henger palást)
>  p:=1:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz7.wrl`:
> 
sz8   (Kétszer csavart, 8-as alakú,egymás felett elfutó  henger palást)
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=8:        # kerület
>  emel:=1.5*sin(2*t):     # kiemelkedés az xy síkból
>  s2:= BLUE: s1:= RED: # perem színei 
>  k:=0:  # Csavarás mértéke (Henger palást)
>  p:=2:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz8.wrl`:
> 
sz9   (Kétszer csavart , 8-as akakú  önátmetsző  henger palást)
> restart: with(plots):with(plottools):
>  a:=-1: b:=1: # szélesség
>  c:=0: d:=Pi: # hosszúság
>  r:=8:        # kerület
>  emel:=0:     # kiemelkedés az xy síkból
>  s2:= BLUE: s1:= RED: # perem színei 
>  k:=0:  # Csavarás mértéke (Henger palást)
>  p:=2:  # Hullámzás mértéke (Henger palást)
>  nev:=`sz9.wrl`:
> 
> 
Számolás
> racs:=round(36*(d-c)/Pi)+1: vonal:=(b-a)/15:
> u:=r*cos(2*t):
> v:=r*sin(2*p*t)/p:
> w:=emel:
> x:= u + f*sin(k*t)*cos(2*t): 
> y:= v + f*sin(k*t)*sin(2*t): 
> z:= w + f*cos(k*t): 
> xb:= u + a*sin(k*t)*cos(2*t): 
> yb:= v + a*sin(k*t)*sin(2*t):
> zb:= w + a*cos(k*t): 
> xj:= u + b*sin(k*t)*cos(2*t): 
> yj:= v + b*sin(k*t)*sin(2*t):
> zj:= w + b*cos(k*t): 
> szalag:=plot3d([x,y,z],f=a..b,t=c..d,
> grid=[5,racs],scaling=CONSTRAINED): vonal1:=tubeplot({[xb,yb,zb]},t=c..d,radius=vonal,grid=[racs,5],scaling=CONSTRAINED, color=s1,  style=PATCHNOGRID):
> vonal2:=tubeplot({[xj,yj,zj]},t=c..d,radius=vonal,grid=[racs,5],scaling=CONSTRAINED, color=s2,  style=PATCHNOGRID):
Megjelenítés
> display3d(szalag,vonal1,vonal2,style=PATCH, orientation=[-120,60]);
VRML fájl készítése
> vrml(display3d(szalag,vonal1,vonal2,color=COLOR(RGB,0.6,0.5,0),style=PATCHNOGRID),nev, background_color=COLOR(RGB,0,1,1), shininess=0.3, specular_color=COLOR(RGB,1,1,1)):
>