Solving differential equation using ode45

3 visualizaciones (últimos 30 días)
Greg Zozuls
Greg Zozuls el 8 de Mayo de 2023
Movida: Torsten el 9 de Mayo de 2023
looking to solve this problem using the function ode45
  6 comentarios
Torsten
Torsten el 8 de Mayo de 2023
And what are the x-coordinates of the left and right end of the rod ?
Greg Zozuls
Greg Zozuls el 8 de Mayo de 2023
0<x<1

Iniciar sesión para comentar.

Respuestas (1)

Torsten
Torsten el 9 de Mayo de 2023
Movida: Torsten el 9 de Mayo de 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
%----------------------------------------------

Categorías

Más información sobre Mathematics en Help Center y File Exchange.

Etiquetas

Community Treasure Hunt

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

Start Hunting!

Translated by