% Vektor der Kurvenparameter

t_vec = 0:pi/200:4*pi;

% Vektoren der x- und y-Koordinaten
x_vec = cos(t_vec) + t_vec.* sin(t_vec);
y_vec = sin(t_vec) - t_vec.* cos(t_vec);


% Kurve Zeichnen

figure(1)

clf

axis equal
axis([-8 8 -8 8])

hold on

p = line(x_vec(1),y_vec(1),'Color','blue','Erasemode','xor','LineStyle','none','Marker','+');
plot([-8 8],[0 0],'k')
plot([0 0],[ -8 8],'k')
q = line([cos(t_vec(1)),x_vec(1)],[sin(t_vec(1)),y_vec(1)],'Color','black','Erasemode','xor')

phi_vec = 0:pi/80:2*pi;
plot(cos(phi_vec),sin(phi_vec),'r')

for k = 2:length(t_vec)
    
    set(p,'Xdata',x_vec(k),'Ydata',y_vec(k));
    set(q,'Xdata',[cos(t_vec(k)),x_vec(k)],'Ydata',[sin(t_vec(k)),y_vec(k)])

    
    drawnow

    plot([x_vec(k-1),x_vec(k)],[y_vec(k-1),y_vec(k)],'Color','blue','Erasemode','none','Linewidth',2);
    
end