
a=load('dim2.dat');
b=load('kiirendus.dat');
hold on
tindex=1:10:length(a(:,1));
clf
max(a(:,3))

subplot(1,2,1)

hold on
plot (a(:,2),a(:,3),'Color','blue')
quiver(a(tindex,2),a(tindex,3),a(tindex,6),a(tindex,7),0.5)
quiver(a(tindex,2),a(tindex,3),a(tindex,8),a(tindex,9),0.5)
quiver(a(tindex,2),a(tindex,3),a(tindex,10),a(tindex,11),0.5)
quiver(a(tindex,2),a(tindex,3),a(tindex,12),a(tindex,13),0.5)
legend('tr','ag','at','aa','atot')
axis equal
grid on

subplot(1,2,2)
hold on
plot (tindex,b(tindex,1))
plot (tindex,b(tindex,2))
plot (tindex,b(tindex,3))
plot (tindex,b(tindex,4))
legend('at','an','atot','r')
grid on

min(b(:,4))