figure; hold on;

x = -5+10*rand(2,5)

quiver(zeros(1,5),zeros(1,5),x(1,:),x(2,:))

r =@(t) [cos(t) -sin(t); sin(t) cos(t)]

u = x;

for i=1:20
u = r(pi/10)*u

fill(u(1,:),u(2,:),'r');
%quiver(zeros(1,5),zeros(1,5),u(1,:),u(2,:),'r')

pause;
end;