% OCW Universidad de Cantabria
% Cálculo Simbólico y Numérico en Ecuaciones Diferenciales
% © Cursos 2001-2014,  M. Eugenia Pérez, UC
%
% inicializar con h_vector=[]; err_vector=[]; h=0.1
t=0:0.05:3;
x=-1-t+2*exp(t);
h_vector=[h_vector,h];
figure(1);
[s,y]=eul('miflineal',[0,3],1,h);
plot(t,x,s,y,'o'); xlabel('variable independiente');ylabel('solucion y(t)');
title('solucion exacta --, numerica o')
z=-1-s+2*exp(s);
maxerror=max(abs(z-y));
err_vector=[err_vector,maxerror];
h_vector 
err_vector 
h=h/2; 
