10.05.2013 Views

texto: metodos numericos para ecuaciones diferenciales ordinarias

texto: metodos numericos para ecuaciones diferenciales ordinarias

texto: metodos numericos para ecuaciones diferenciales ordinarias

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

end<br />

end<br />

w=w+(25/216)*k1+(1408/2565)*k3+(2197/4104)*k4-(1/5)*k5;<br />

fprintf(’%12.7f’,x);<br />

fprintf(’%12.7f’,sol(x));<br />

fprintf(’%12.7f’,w);<br />

fprintf(’%12.7f’,h)<br />

fprintf(’ %12.7e’,abs(sol(x)-w));<br />

fprintf(’%12.7f’,wi);<br />

fprintf(’ %12.7e\n’,abs(sol(x)-wi));<br />

delt=0.84*(tol/R)^(1/4);<br />

if delt=4<br />

h=4*h;<br />

else h=delt*h;<br />

end<br />

if h>hmax<br />

end<br />

if x>=b<br />

h=hmax;<br />

band=0;<br />

elseif (x+h)>b<br />

h=b-x;<br />

elseif h

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!