Octave - Método de Euler-Melhorado para solução de EDO [Outros]

Octave - Método de Euler-Melhorado para solução de EDO

Publicado por Daniel Moreira dos Santos (última atualização em 13/07/2010)

[ Hits: 9.864 ]

Homepage: http://www.danielmoreira.wordpress.com

Download Euler_Melhorado.m

0 0

Denuncie Favoritos Indicar

Resolver o PVI pelo método de Euler Melhorado usando o Octave.

Esconder código-fonte

function [vetx,vety] = Euler_Melhorado(funcao,a,b,m,y0);


%parametros de entrada: funcao,a,b,m,y0 -> funcao,limites inferior, superior, num. de

%intervalos e valor inicial

%parametros de saida: vetx, vety -> abcissas e solucao do PVI



h = (b-a)/m;

x=a;

y = y0;

Fxy = eval(funcao);

vetx(1) = x;

vety(1) = y;

disp('     i      x     y     Fxy  ');

for i=1:m

    xa = x;

    ya = y;

    x = x+h;

    y = y+h*Fxy;

    ter = eval(funcao);

    y = ya + (h/2)*(Fxy+ter);

    x= a+i*h;

    Fxy = eval(funcao);    

    disp([i  x    y    Fxy]);

    vetx(i+1) = x;

    vety(i+1) = y;

end 

end

Scripts recomendados

Octave - Calcular raiz pelo método da Secante

Cálculo da raiz de uma função pelo Método da Bisseção - Octave

Função Fatorial Recursiva em Fortran 95

Octave - Calcular raiz pelo método de Newton

Octave - Sistemas lineares por Gauss-Seidel

Comentários

Nenhum comentário foi encontrado.