小中学校範囲の算数・数学の問題のスレ　Part 58

小中学校範囲の算数・数学の問題のスレ　Part 58at MATH

小中学校範囲の算数・数学の問題のスレ　Part 58 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

1029:１３２人目の素数さん
 22/05/23 18:38:45.47 875qOPrP.net
麻酔の初期設定はプログラムを組んでおくとBMIや年齢補正を計算してくれていい。 
rm(list=ls()) 
Anesthesia <- function(cm,kg,age){ 
Ultiva<-function(cm,kg,age,coef=25,lwr=0.25,upr=0.50,conc=2000/20,bmi=25,aged=70){ 
BMI=kg/(cm/100)^2 
LBM=ifelse(BMI>25,bmi*(cm/100)^2,kg) # lean body mass 
L=lwr*LBM*60/conc 
U=upr*LBM*60/conc 
Lower=ifelse(age

1030:<aged,L,L/2) # mL/h  Upper=ifelse(age<aged,U,U/2)  CE=lwr*coef/L # CE(ng/mL) @ 1mL/h  re=round(c(BMI=BMI,LBM=LBM,'L(mL/h)'=Lower,'U(mL/h)'=Upper,'CE(ng/mL)@(1mL/h)'=CE),2)  print(re)  }   Eslax<-function(kg,sevo=TRUE,lwr=0.6,upr=0.9,conc=50e3/5,precura=FALSE){ # 50mg/5mL  precurarization=kg*0.03*1e3/conc  l=lwr*1e3*kg/conc # mL bolus  u=upr*1e3*kg/conc  L=ifelse(sevo,3*kg*60/conc,7*kg*60/conc) # on label  U=ifelse(sevo,4*kg*60/conc,7.5*kg*60/conc) # off label  if(precura) cat('precurarization(mL) =',round(precurarization,2),'\n')  cat('bolus(mL) =',round(l,2),'-',round(u,2),'\n')  cat('continuous(mL/h) =',round(L,2),'-',round(U,2),'\n')  }  sevo=function(age,MAC40=2.10){  MACage=MAC40*10^(-0.00269*(age-40))  MACawake=MACage/3  MACawake2=0.870-0.00581*age  cat('MAC',round(MACage,2),'\n')  cat('maintenance',round(MACawake2*2,2),'-',round(MACawake*2,2),'\n')   }  cat('Ultiva\n')  Ultiva(cm,kg,age)  cat('\nEslax\n')  Eslax(kg)  cat('\nSevoflurane\n')  sevo(age)  }   Anesthesia(158,46.8,38)

次ページ