Solving differential equation using ode45

3 Ansichten (letzte 30 Tage)
Greg Zozuls
Greg Zozuls am 8 Mai 2023
Verschoben: Torsten am 9 Mai 2023
looking to solve this problem using the function ode45
  6 Kommentare
Torsten
Torsten am 8 Mai 2023
And what are the x-coordinates of the left and right end of the rod ?
Greg Zozuls
Greg Zozuls am 8 Mai 2023
0<x<1

Melden Sie sich an, um zu kommentieren.

Antworten (1)

Torsten
Torsten am 9 Mai 2023
Verschoben: Torsten am 9 Mai 2023
Here is the solution of your problem for reference:
x = linspace(0,1,25);
t = linspace(0,2.5,25);
m = 0;
sol = pdepe(m,@heatcyl,@heatic,@heatbc,x,t);
u = sol(:,:,1);
plot(x,[u(5,:);u(10,:);u(20,:);u(25,:)])
function [c,f,s] = heatcyl(x,t,u,dudx)
u = @(t) 1;
h = @(x) 0.1*(x >=0.4 & x <= 0.6);
c = 1;
f = dudx;
s = h(x)*u(t);
end
%----------------------------------------------
function u0 = heatic(x)
u0 = 0;
end
%----------------------------------------------
function [pl,ql,pr,qr] = heatbc(xl,ul,xr,ur,t)
pl = ul; %ignored by solver since m=1
ql = 0; %ignored by solver since m=1
pr = 0;
qr = 1;
end
%----------------------------------------------

Kategorien

Mehr zu Mathematics finden Sie in Help Center und File Exchange

Community Treasure Hunt

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

Start Hunting!

Translated by