texto: metodos numericos para ecuaciones diferenciales ordinarias
texto: metodos numericos para ecuaciones diferenciales ordinarias
texto: metodos numericos para ecuaciones diferenciales ordinarias
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