Solving differential equation using ode45

3 visualizzazioni (ultimi 30 giorni)
Greg Zozuls
Greg Zozuls il 8 Mag 2023
Spostato: Torsten il 9 Mag 2023
looking to solve this problem using the function ode45
  6 Commenti
Torsten
Torsten il 8 Mag 2023
And what are the x-coordinates of the left and right end of the rod ?

Accedi per commentare.

Risposte (1)

Torsten
Torsten il 9 Mag 2023
Spostato: Torsten il 9 Mag 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
%----------------------------------------------

Categorie

Scopri di più su Mathematics in Help Center e File Exchange

Community Treasure Hunt

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

Start Hunting!

Translated by