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

subplot(1,2,1)

hold on
plot (a(:,2),a(:,3))
quiver(a(tindex,2),a(tindex,3),b(tindex,1),b(tindex,2),0.)
quiver(a(tindex,2),a(tindex,3),b(tindex,3),b(tindex,4),0.)
quiver(a(tindex,2),a(tindex,3),b(tindex,5),b(tindex,6),0.)
quiver(a(tindex,2),a(tindex,3),a(tindex,6),a(tindex,7),0.)
legend('tr','ag','at','aa','atot')
axis equal
grid on

subplot(1,2,2)
hold on
plot (a(:,1),a(:,8))
plot (a(:,1),a(:,9))
plot (a(:,1),a(:,10))
legend('kin','pot','tot')
grid on
