Displaying 1 result from an estimated 1 matches for "hgo0".
Did you mean:
hgo
2004 Jun 14
1
olesolve: stepsize
...325.29, 267.65,
222.35, 115.29, 98.31, 89.81, 85.57, 81.32, 81.32, 81.32)
abs <- approxfun(absx, absy, method = "linear")
s <- approxfun(sx, sy, method = "linear")
Rtb <- 81.32
ib <- ((1-p["f"])*Rtb*p["kg"]*(p["hgo0"]/p["vg"])/(p["k21"] + p["k01"]
+ p["kl"] - p["k21"]*p["k12"]/(p["k12"] + p["k02"]))/(p["ki"]*p["vi"]))
# G1(t)-y(1); G2(t)-y(2);I(t)-y(3); X(t)-y(4)
yd1 <- (abs(t) + p["hgo0...