%figure
%clc;, clg;
%c = 0;   
%d = 1.75;
%plot(T,Y,'-g');...
%axis([a b c d]);...
hold on;...
%plot([a b],[0 0],'b',[0 0],[c d],'b');...
%if m<=30,
%  plot(T,Y,'or');
%end;...
xlabel('t');...
ylabel('y');...
title('Euler`s solution to y` = f(t,y)');...
grid;... 
axis;...
hold on;...
%shg; %pause  % Press any key to continue.

%pause %  Press ... nyt voit muuttaa jakov{lien lukum{{r{{ ...
      %    vaikkapa seuraavaan tapaan :

[T,Y] = meuler('f',a,b,ya,m);points = [T;Y];plot(T,Y);


%pause  % Press any key to see the list of solution points.


plot(T,Y,'-r');...
if m<=30,
  plot(T,Y,'ow');
end;...
hold off;...
%shg; pause  % Press any key to continue.

Mx1 = 'Euler`s solution to y` = f(t,y).';
Mx2 = '     t(k)               y(k)';
m
%clc,
echo off,diary output,...
disp(''),disp(Mx1),...
disp(''),disp(Mx2),disp(points'),disp(m),diary off,echo on
%grid
%kuvano=kuvano+1;

m  = 2*m
