Differentialgleichungssystem mit Randbedingungen

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

Slaxx

Forum-Newbie


	Beiträge: 2

	Anmeldedatum: 20.12.12

	Wohnort: ---

	Version: ---

Verfasst am: 17.03.2014, 16:54 Titel: Differentialgleichungssystem mit Randbedingungen

Hallo zusammen
Ich habe ein Modell eines Kopfes und will davon die Temperatur berechnen. Dazu ist für verschiedene Abschnitt jeweils eine Differentialgleichung gegeben. Insgesamt sind das 5 verschiedene.

Ich habe nun die Funktion bvp4c verwendet und dafür zwei Funktionen geschrieben. Die eine mit den Diffgl. die andere mit den Randbedingungen.
Wenn ich das Zeugs allerdings ausführe, habe ich immer eine Fehlermeldung:

Zitat:

Error using deriv
Too many input arguments.

Error in bvparguments (line 106)
testODE = ode(x1,y1,odeExtras{:});

Error in bvp4c (line 130)
[n,npar,nregions,atol,rtol,Nmax,xyVectorized,printstats] = ...

Error in spheric_numerical_matlab (line Cool

sol = bvp4c(@deriv,@bcs,solinit);

Mein Code lautet folgendermassen:

Code:

run('parameters.m')

solinit = bvpinit([r_0,r_1,r_2,r_3,r_4,r_5],[37,37,37,37,37,37]);
sol = bvp4c(@deriv,@bcs,solinit);
plot(sol.x,sol.y(1,:),'b-x');

function dTdr = deriv(r,T)

%Thermodynamical constants head
k_br = 0.503; %[W/(m*°C)] thermal conductivity brain tissue
k_sc = 0.34; %[W/(m*°C)] thermal conductivity scalp
c_bl = 3800; %[J/(kg*°C)] specific heat of blood
rho_br = 1030; %[kg/m^3] density of brain tissue
rho_bl = 1050; %[kg/m^3] density of blood
rho_sc = 1030; %[kg/m^3] density of scalp
q_br = 10437; %[W/m^3] metabolic heat production rate brain tissue
q_sc = 363.4; %[W/m^3] metabolic heat production rate scalp

%anatomical data
F_br_m = 52; %[ml/(100g*min)] cerebral blood flow brain
F_br =F_br_m*10/60*1e-6; %[m^3/(kg*s)]
F_sc_m = 10; %[ml/(100g*min)] cerebral blood flow scalp
F_sc =F_sc_m*10/60*1e-6; %[m^3/(kg*s)]
T_a = 37; %[°C] aterial temperature

dTdr(1) = T(2);
dTdr(2) = -2/r*T(2)+rho_br*rho_bl*c_bl*F_br/k_br*T(1)-(q_br+rho_br*rho_bl*r*c_bl*F_br*T_a)/k_br;

dTdr(3) = T(4);
dTdr(4) = -2/r*T(4);

dTdr(5) = T(6);
dTdr(6) = -2/r*T(6);

dTdr(7) = T(8);
dTdr(8) = -2/r*T(8)+rho_sc*rho_bl*c_bl*F_sc/k_sc*T(7)-(q_sc+rho_sc*rho_bl*r*c_bl*F_sc*T_a)/k_sc;

dTdr(9) = T(10);
dTdr(10) = -2/r*T(10);
end

% boundary conditions
function res = bcs(Tr0,Tr1,Tr2,Tr3,Tr4,Tr5)

%Thermodynamical constants head
k_br = 0.503; %[W/(m*°C)] thermal conductivity brain tissue
k_csf = 0.582; %[W/(m*°C)] thermal conductivity csf
k_sk = 1.16; %[W/(m*°C)] thermal conductivity skull
k_sc = 0.34; %[W/(m*°C)] thermal conductivity scalp
k_h = 0.026;%0.026; %[W/(m*°C)] thermal conductivity hair

%ambient conditions
T_e = 10; %[°C] ambient temperature
h_air = 8; %[W/(m^2*°C)] heat transfer coefficient to air

res = [Tr0(2)
k_br*Tr1(2) - k_csf*Tr1(4)
Tr1(1) - Tr1(3)
k_csf*Tr2(4) - k_sk*Tr2(6)
Tr2(3) - Tr2(5)
k_sk*Tr3(6) - k_sc*Tr3(8)
Tr3(5) - Tr3(7)
k_sc*Tr4(8) - k_h*Tr4(10)
Tr4(7) - Tr4(9)
k_h*Tr4(10) + h_air*(Tr5(9)-T_e)
];
end

Funktion ohne Link?

Habe ich irgendwo einen Denkfehler gemacht? Oder einfach Syntax falsch?

Vielen Dank für eure Hilfe


Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:	Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen

Impressum | Nutzungsbedingungen | Datenschutz | FAQ |

RSS

Hosted by:

Copyright © 2007 - 2025 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.