| Author |
Comment/Response |
Hamideh
|
 11/12/12 08:11am
Hi Guys,
I am trying to solve the coupled differential equation. I am kinda of stuck with the entering the equations to mathematica. I don't know whether this is a right way to enter. I have attached the notebook file with all parameters. I hope someone could help me out with the same. Any advice with of great help. Thanks
NDSolve[{
u'[t] - {{{{-a + Sqrt[a*a + 4*kdm*z[t]]}/
2} - {{-b +
Sqrt[b*b + 4 (1 + nsb)*kdc*u[t]]}/(2*(1 + nsb))}}*(clf/
v) - kcellno*u[t]} == 0,
z'[t] - {{{{-a + Sqrt[a*a + 4*kdm*z[t]]}/
2} - {{-b +
Sqrt[b*b + 4 (1 + nsb)*kdc*u[t]]}/(2*(1 + nsb))}}*(clf*
icn*Exp[kcellno*t]/vm)} == 0,
u[0] == 1, z[0] == 10, u'[0] == 1, z'[0] == -1}, {u[t],
z[t]}, {t, 1}]
Thanks,
Attachment: pharmokinetics_differential.nb, URL: , |
|
