設問1はクリアランスのパラメータを求める
設問2,3はi.v., p.o.それぞれの状況でパラメータを変えた場合どう変化するかを推定する
設問1
> data <- read.csv("/Users/kzfm/PK/pk31.csv")
> data
CLtot Vd fe fb Ka
A 0.2 0.1 1.00 0.1 1.5
B 0.2 10.0 1.00 0.1 1.5
C 1.3 0.1 0.02 0.1 1.5
D 1.3 10.0 0.02 0.1 1.5
> Qh <- 1.4
> Qr <- 1.1
> GFR <- 0.17
> Vb <- 0.077
> CLh <- (1-fe)*CLtot
> CLh
[1] 0.000 0.000 1.274 1.274
> CLr <- fe*CLtot
> CLr
[1] 0.200 0.200 0.026 0.026
> CLh_uint <- Qh*CLh/(fb*(Qh-CLh))
> CLh_uint
[1] 0.0000 0.0000 141.5556 141.5556
> CLr_uint <- Qr*(CLr -fb*GFR)/((Qr-CLr+fb*GFR)*fb)
> CLr_uint
[1] 2.19520174 2.19520174 0.09074244 0.09074244
設問2
AUCiv = D/CLtot
- fbの変動によって影響を受けるパラメータはVd,CLtot
- Qhの変動により影響を受けるパラメータはCLh
- CLh = Qh*fb*CLh_uint/(Qh + fb*CLh_uint)なので分母の項の大小で律速が決まる
- CLr_uintの変動により影響をうけるのはCLr
- CLh_uintの変動により影響をうけるのはCLh
設問3
flip-flopを考える