How to determine steady state of X given code

4 visualizzazioni (ultimi 30 giorni)
Justin Lee
Justin Lee il 12 Ago 2021
Commentato: Justin Lee il 16 Ago 2021
I have the code below, but I need to determine the Steady state of total SA reached, and need a graph
Question:
  1. The total SA concentration is approximated by adding SA1 and SA2, and division by 140 dL (for a normal person). When is a steady state of total SA reached? Support by a graph (extend the time if needed).
STARTTIME = 0;
STOPTIME = 24;
% initial values
SA1 = 0;
SA2 = 0;
ASA1 = 0;
ASA2 = 0;
y0 = [SA1; SA2; ASA1; ASA2];
% solve ode
[t,y] = ode45(@odefun,[STARTTIME STOPTIME],y0);
% Plot results
yyaxis left
plot(t,y(:,[1,3]))
ylabel("SA1,ASA1")
yyaxis right
plot(t,y(:,[2,4]))
ylabel("SA2,ASA2")
legend(["SA1","ASA1","SA2","ASA2"])
function ddt = odefun(t,y)
SA1 = y(1);
SA2 = y(2);
ASA1 = y(3);
ASA2 = y(4);
% Constants
Vnf = 1;
Cnf = SA1/Vnf;
Qnf = 1;
Vf = 1;
Cf = SA2/Vf;
Qf = 1;
Vb = 1;
Cb = ASA1/Vb;
Pf = 20;
Cfv = Cf/Pf;
Vl = 1;
Cl = ASA2/Vl;
Ql = 1;
vmax = 1;
Km = 1;
Pl = 2;
Clv = Cl/Pl;
Pb = 18;
% Benzene conc in inhaled air
Ci = 0.32;
% alveolar ventilation rate
Qp = 5.74;
% Flows
Jnf = Qnf*(Cb-Cnf);
Jf = Qf*(Cb-Cfv);
Jl = Ql*(Cb - Clv);
Jmetab = vmax*Cl/(Km + Cl);
% Replace squarepulse with " IF t>6h Jresp=0 "
if t<=6
Jresp = Qp*(Ci - (Cb/Pb));
else
Jresp = 0;
end
% Reservoirs Blood, Fat, NonFat and Liver
ddt(1,1) = Jnf;
ddt(2,1) = Jf;
ddt(3,1) = -Jnf - Jf - Jl + Jresp;
ddt(4,1) = Jl - Jmetab;
end
  2 Commenti
darova
darova il 15 Ago 2021
The code is too long, can't handle
You didn't attach original formulas
Justin Lee
Justin Lee il 16 Ago 2021
This is the original forumla. Berkeley Madonna Code converted to Matlab

Accedi per commentare.

Risposte (0)

Community Treasure Hunt

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

Start Hunting!

Translated by