幾つかの消化管吸収性評価モデル
設問1
logM-logM0 = -ka*tより ka = (logM0 - logM)/t = (log(100)-log(20*3.25))/15
> (log(100)-log(20*3.25))/15
[1] 0.02871886
Peff = ka*V/(2*pi*r*L)
ここで r = sqrt(0.1/pi)
> ka*1/(2*pi*0.178*12.5)/60
[1] 3.423782e-05 # cm/sec
設問2
単回灌流試験。水の吸収、分泌補正の項を 入れて、定常状態の幾つかの平均を取る。
設問3
plotしてみて直線になっているポイントを選択。
> time <- c(0,15,30,45,60)
> conc <- c(0,0.12,0.28,0.52,0.75)
> plot(time,conc)
> mylist = list(time=time[3:5],conc=conc[3:5])
> data <- data.frame(mylist)
> mylist = list(time=time[3:5],conc=conc[3:5]*2.6)
> data <- data.frame(mylist)
> res<-lm(conc ~ time,data)
> res
Call:
lm(formula = conc ~ time, data = data)
Coefficients:
(Intercept) time
-0.48967 0.04073
Peff = 0.04073/4.2/100 = 9.69762e-05
設問4
省略