Runge-Kutta-4th-order solution of 3 ODEs

61 次查看（过去 30 天）
Turgut Ataseven
Turgut Ataseven 2023-6-5
评论： Turgut Ataseven 2023-6-5
Ran in:
Hi. Lorenz equations are as follows:
Parameter values: sigma = 10, b = 8/3, and r = 28. Employ initial conditions of x = y = z = 5 and integrate from t = 0 to 20. For this case, we will use the fourth-order RK method to obtain solutions with a constant time step of h = 0.03125.
Graph we need to obtain after plotting x, which is y(1), versus t is as follows:
However obtained numerical values converge to zero, so that yl(end,1) = -6.49e-48. The graph we get instead is:
Codes are given below. LorenzPlot.m is run to obtain the graph.Can you please provide the corrections for the code? Thanks.
LorenzPlot.m
h = 0.03125; % Stepsize
tspan = [0 20]; % Time interval
y0 = [5 5 5]; % Initial conditions
a = 10;
b = 8/3;
r = 28;
[tl, yl] = ode45(@(t,y)lorenz(t,y,a,b,r),tspan,y0);
%[tl, yl] = rk4sys(@lorenz,tspan,y0,h,a,b,r); % RK4 solution
% Time-series plot using RK4 method
figure(1)
plot(tl,yl(1:end,1))
legend('x = y = z = 5')
title('RK4 time plot')
xlabel("Time")
ylabel("Quantity")
rk4sys.m
function [tp,yp] = rk4sys(dydt,tspan,y0,h,varargin)
% Reference: Chapra, S. C. (2018). Applied Numerical Methods
% with MATLAB® for Engineers and Scientists Fourth Edition, pp.602-603
% rk4sys: fourth-order Runge-Kutta for a system of ODEs
% [t,y] = rk4sys(dydt,tspan,y0,h,p1,p2,...): integrates
% a system of ODEs with fourth-order RK method
% input:
% dydt = name of the M-file that evaluates the ODEs
% tspan = [ti, tf]; initial and final times with output
% generated at interval of h, or
% = [t0 t1 ... tf]; specific times where solution output
% y0 = initial values of dependent variables
% h = step size
% p1,p2,... = additional parameters used by dydt
% output:
% tp = vector of independent variable
% yp = vector of solution for dependent variables
if nargin < 4,error('at least 4 input arguments required'), end
if any(diff(tspan)<= 0),error('tspan not ascending order'), end
n = length(tspan);
ti = tspan(1);tf = tspan(n);
if n == 2
t = (ti:h:tf)'; n = length(t);
if t(n)<tf
t(n + 1) = tf;
n = n + 1;
end
else
t = tspan;
end
tt = ti; y(1,:) = y0;
np = 1; tp(np) = tt; yp(np,:) = y(1,:);
i = 1;
while(1)
tend = t(np + 1);
hh = t(np + 1) - t(np);
if hh > h,hh = h;end
while(1)
if tt+hh > tend,hh = tend-tt;end
k1 = dydt(tt,y(i,:),varargin{:})';
ymid = y(i,:) + k1*hh/2;
k2 = dydt(tt + hh/2,ymid,varargin{:})';
ymid = y(i,:) + k2*hh/2;
k3 = dydt(tt + hh/2,ymid,varargin{:})';
yend = y(i,:) + k3*hh;
k4 = dydt(tt + hh,yend,varargin{:})';
phi = (k1 + 2*(k2 + k3) + k4)/6;
y(i + 1,:) = y(i,:) + phi*hh;
tt = tt + hh;
i = i + 1;
if tt >= tend,break,end
end
np = np + 1; tp(np) = tt; yp(np,:) = y(i,:);
if tt >= tf,break,end
end
end
lorenz.m
function yl = lorenz(t,y,a,b,r)
yl = [-a*y(1)-a*y(2);
r*y(1)-y(2)-y(1)*y(3);
-b*y(3)+y(1)*y(2)];
end

请先登录，再回答此问题。

采纳的回答

Sam Chak
Sam Chak 2023-6-5
Ran in:
Hi @Turgut Ataseven
Fix the code as indicated below:
tspan = [0 20]; % Time interval
y0 = [5 5 5]; % Initial conditions
[tl, yl] = ode45(@lorenz, tspan, y0); % RK4 solution
% Time-series plot using RK4 method
figure(1)
% plot(tl,yl(1:end,1))
plot(tl, yl)
legend('x = y = z = 5')
title('RK4 time plot')
xlabel("Time")
ylabel("Quantity")
function yl = lorenz(t, y)
a = 10;
b = 8/3;
r = 28;
yl = [- a*y(1) + a*y(2); % <-- fix this line
r*y(1)-y(2) - y(1)*y(3);
- b*y(3) + y(1)*y(2)];
end
  1 个评论
Turgut Ataseven
Turgut Ataseven 2023-6-5
Thanks for the answer. It turned out that equation provided to us was wrong. Fixing that line was sufficient by itself alone:
yl = [- a*y(1) + a*y(2); % <-- fix this line

请先登录，再进行评论。

更多回答（1 个）

Torsten
Torsten 2023-6-5
编辑：Torsten 2023-6-5
As you can see above, you get the same plot with a "professional" MATLAB solver (ODE45). So I guess there is something wrong with your equations. According to Wikipedia, the first equation must read differently.
https://en.wikipedia.org/wiki/Lorenz_system

类别

在 Help Center 和 File Exchange 中查找有关 Ordinary Differential Equations 的更多信息

标签

产品


版本

R2021a

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by