23/03/15 12:30:30.47 x+Em05LvH.net
ミルリーラは添付文書通りに投与すると血圧が下って厄介なので、それを斟酌してグラフ作成。そんなケースにはあたりたくないなぁ。
ミルリーラはマイルーラに響きがにていると思う。まあHoman鈎ほどの類音ではないけど。
URLﾘﾝｸ(i.imgur.com)
gamma2hourlyVol=function(mg,mL,kg,gamma){ # mcg/kg/min -> mL/h
# mg/1000mcg * kg/body * 60min/h * mL/mg * gammma
coef=60/1000*mL/mg*kg
velocity=coef*gamma
mat=cbind(gamma,velocity)
colnames(mat)=c('mcg/kg/min','mL/h')
L=ifelse(length(gamma)==1,0,min(gamma))
U=ifelse(length(gamma)==1,5*gamma,max(gamma))
main=paste('concenteration =',mg,'mg /',mL,'mL\nweight =',kg,'kg')
curve(coef*x,L,U,bty='l',xlab='mcg/kg/min',ylab='mL/h',main=main)
n=21
X=seq(L,U,length=n)
Y=coef*X
for(i in 1:n){
for(j in 1:n){
segments(X[i],Y[1],X[i],Y[n],col=c(8,2)[i%%2+1],lty=3)
segments(X[1],Y[j],X[n],Y[j],col=c(8,2)[j%%2+1],lty=3)
}
}
text(mat[1,1],mat[1,2], as.character(mat[1,2]))
text(mat[2,1],mat[2,2], as.character(mat[2,2]))
mat
}
milrinone10=\(kg,mg=10,mL=100,gamma=c(0.125,0.25)){
gamma2hourlyVol(mg,mL,kg,gamma)
}
milrinone10(50)