Solving differential equation using ode45

3 vues (au cours des 30 derniers jours)
Greg Zozuls
Greg Zozuls le 8 Mai 2023
Déplacé(e) : Torsten le 9 Mai 2023
looking to solve this problem using the function ode45
  6 commentaires
Torsten
Torsten le 8 Mai 2023
And what are the x-coordinates of the left and right end of the rod ?
Greg Zozuls
Greg Zozuls le 8 Mai 2023
0<x<1

Connectez-vous pour commenter.

Réponses (1)

Torsten
Torsten le 9 Mai 2023
Déplacé(e) : Torsten le 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
%----------------------------------------------

Catégories

En savoir plus sur Mathematics dans Help Center et File Exchange

Community Treasure Hunt

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

Start Hunting!

Translated by