Relatorio Calculo Numerico

...

8}

Ao fazer uso de tais pontos, pode-se notar:

-fazendo-se uso de 0.5, a convergência foi alcançada na iteração 309

-fazendo-se uso de 0.6, a convergência foi alcançada na iteração 310

-fazendo-se uso de 0.7, a convergência foi alcançada na iteração 201

Conclui-se que qualquer variação no ponto inicial do método pode acarretar grandes diferenças no quesito de processamento, portanto, é interessante que se fique atento a tal ponto.

\section{Listagem dos programas}

\subsection{Código do Método da Bissecção}

\begin{verbatim}

function c=bissecção(a,b);

erro=0.01;

cont=0;

while abs(b-a)> erro

c=(a+b)/2;

cont=cont+1;

if f(a)*f(b)<0

a=c;

else

b=c;

end

end

disp(cont)

end

function y=f(x)

e=2.7182818284;

y=e^(0.15*x)-(1+5/2)*x^2 +x-(4+1);

end

\end{verbatim}

\subsection{Código do Método da Secante}

\begin{verbatin}

function y = secant(f,a,b,erro)

c = (a*f(b) - b*f(a))/(f(b) - f(a));

e=2.7182818284;

flag=0;

while abs(f(c)) > erro

a = b;

b = c;

c = (a*f(b) - b*f(a))/(f(b) - f(a));

flag = flag + 1;

if(flag == 100)

break;

end

end

y = c;

\end{verbatin}

\subsection{Código do Método de Newton}

\begin{verbatim}

function [x,cont]=newton(x0,f,df)

N = 100000; erro = 0.00000001; % Maximo No de interaçoes e erro!

valor_max = 1000000000.0; % Valor para divergencia

x=x0;

cont=0;

while (N>0)

xn = x-f(x)/df(x);%Funçao de Newton

if abs(f(xn))<erro

x=xn;cont=100-N;

return;

end;

if abs(f(x))>valor_max

disp([’# No de interacoes feitas = ’,num2str(cont)])

error(’A solucao diverge’);

break;

end;

N = N - 1;

x = xn;

end;

error(’Nao converge’);

return;

\end{verbatim}

\end{document}