%-----------------------------------------------------------------------
%             -------------                           -------
%             function file                           ode11.m
%             -------------                           -------
%-----------------------------------------------------------------------
%                             ---------------
%                             Metodo de Euler
%                             ---------------
%
%	Problema de Valor Inicial:   Y'(t)  =  F(t,Y(t))  ,  t > 0
%       --------------------------
%                                     Y(0)  =  Yo .
%
%       ------------------------------
%	Chamada do Procedimento  ode11
%-------------------------------------
%       function [T,Y]  =  ode11(fname,Tinicial,Tfinal,Y0,h)
%
%
%	Variaveis de Entrada
%---------------------------
%	   fname : Nome da Function que contem a funcao  F(t,Y(t))
%
%	Tinicial : Tempo Inicial
%
%         Tfinal : Tempo Final
%
%             Y0 : Condicao Inicial
%
%              h : Passo no Tempo
%
%
%	Variavel de Saida
%------------------------
%	 Y : Vetor contendo a Solucao Aproximada
%
%	 T : Vetor contendo os Pontos de Integracao do Tempo
%
%
	function [T,Y]  =  ode11(fname,Tinicial,Tfinal,Y0,h)
%-----------------------------------------------------------
%
%
	     t  =  Tinicial;
	  Yold  =  Y0;
	     j  =  1;
         T(j,1) =  t;
	 Y(j,1) =  Yold;
%
%
	while( (t < Tfinal) )
%
%
%	Metodo de Euler
%----------------------
	[Ynew]  =  eulerpvi(fname,Yold,h,t);
%
	     j = j + 1;
	     t = t + h;
	T(j,1) = t;
	Y(j,1) = Ynew;
          Yold = Ynew;	
%
%
	end
%
%
%-----------------------------------------------------------------------
%-----------------------------------------------------------------------
%
%	Petronio Pulino
%	Departamento de Matemática Aplicada - D.M.A
%	IMECC - UNICAMP
%	e-mail: pulino@ime.unicamp.br
%	http://www.ime.unicamp.br/~pulino/MS211
%
%-----------------------------------------------------------------------
