% Zeichnet eine 3D Funktion schrittweise, Wirkung einer Animation

figure

t=linspace(0,2*pi,1000);

x=cos(t).*sin(20*t);
y=sin(t).*sin(20*t);
z=cos(20*t);

comet3(x,y,z);              % zeichnet Kreise, die eine Kugeloberlaeche annaehern
                            % wenn man den Plot veraendert, verschwindet der 'Kometenschweif'
                            % und es bleibt nur der 'Kopf', da 'Erasemode none' verwendet wurde.