
a=load('dim2.dat');
b=load('kiirendus.dat');
clf
subplot(1,2,1)
hold on
plot(a(:,1),b(:,1))
plot(a(:,1),b(:,2))
plot(a(:,1),b(:,4))
legend('atau','anorm','R')
grid on

tindex=1:300:length(a(:,1));
subplot(1,2,2)
hold on
plot (a(:,2),a(:,3),'black')
quiver(a(tindex,2),a(tindex,3),a(tindex,6),a(tindex,7),'off')
quiver(a(tindex,2),a(tindex,3),a(tindex,8),a(tindex,9),'off')
quiver(a(tindex,2),a(tindex,3),a(tindex,10),a(tindex,11),'off')
quiver(a(tindex,2),a(tindex,3),a(tindex,12),a(tindex,13),'off')
legend('tr','ag','at','aa','atot')
axis equal
grid on


