Matlab numerical analysis ordinary differential equation initial boundary value problem numerical solution standard Runge Kuta fourth-order four-stage formula Euler method
1. Standard Runge Kuta fourth-order four-stage formula
function y=rk4(fun,a,b,y0,n)
h=(b-a)/n;
y(1)=y0;
for k=1:n
x=a+(k-1)*h;
k1=h*feval(fun,x,y(k));
k2=h*feval(fun,x+h/2,y(k)+k1/2);
k3=h*feval(fun,x+h/2,y(k)+k2/2);
k4=h*feval(fun,x+h,y(k)+k3);
y(k+1)=y(k)+(k1+2*k2+2*k3+k4)/6;
end
Function file
function u=frk4(x,y)
u=y-2*x/y;
Calling program
y=rk4(@frk4,0,1,1,10)
2 Euler method
function y=euler(f,a,b,y0,h)
n=(b-a)/h;
y(1)=y0;
for i=1:n
x(i)=a+(i-1)*h;
y(i+1)=h*feval(f,x(i),y(i));
end
Function file
function u=feuler(x,y)
u=x^3-y/x;
Calling program
y=euler(@feuler,1,2,0.4,0.2)