% suuntakratk.m
%  20.9.01 HA
% Ratkaisukäyriä:
% Edellyttää skriptin suuntakdata suorittamista
%   suuntakdata.m määrittelee muuttujat:
%      a,b, sekä funktion f
%
display('Valitse hiirellä alkupisteitä, lopuksi ENTER grafiikkaikkunassa')
[tt,xx]=ginput;
for i=1:length(tt)
  [TT,XX]=ode45(f,[tt(i),b+0.5],xx(i));
  plot(TT,XX,'r')
  [TT,XX]=ode45(f,[tt(i),a-0.5],xx(i));
  plot(TT,XX,'r')
end;  
shg

