% moebidef.m  Zeichnen eines Moebius-Bandes mit plot3()
t = (0:3:720)*pi/180;
dr = t/2;
xm = 10*cos(t);
ym = 10*sin(t);
zm = zeros(1,length(t));
ML  = [xm ; ym ; zm];
plot3(xm,ym,zm,'r')
     axis([-12.5 12.5 -12.5 12.5 -12.5 12.5])
axis square
hold on
DL = [];
%
for j=1:6
wamp = j*0.4;
DL = [];
for k=0:240
DL = [DL dvmoeb(t(k+1),t(k+1)/2,wamp)];
end
LL = ML+DL;
if j==6 
for k=1:10:120
plot3([LL(1,k) LL(1,k+120) ], [LL(2,k) LL(2,k+120) ], ...
      [ LL(3,k) LL(3,k+120)]  ,'r')
end
plot3(LL(1,:),LL(2,:), LL(3,:),'r')
     else
plot3(LL(1,:),LL(2,:), LL(3,:),'k')
end
end
hold off
