23/03/15 11:50:52.13 x+Em05LvH.net
ネオシネジンは添付文書には推奨する投与速度の記載なし。
麻酔学会のガイドラインでは体重とは無関係に
(quote)
ネオシネジン1mg/1mL(フェニレフリン)
(1)低血圧時の昇圧: 40 ~ 100 mcg を単回静注する.10 ~ 20 mcg/min で開始し,その後持続静注で使用する.
2 ~ 5 mg を皮下注または筋注する方法もあるが,即効性,調節性に欠ける
(unquote)
の記載
グラフ化するとこうなるが、
URLリンク(i.imgur.com)
年齢・体格無関係というのは気持ちが悪いので
年齢・除脂肪体重・体表面積を使った補正係数を算出
例
> Adjusting_Coef(174,54,36,F)
Coef = 1.039 (BSA+age) 0.996 (LBM+age)
coef = 0.911 (BSA) 0.874 (LBM)
798:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 11:51:45.49 x+Em05LvH.net
>>796
備忘録として使用。
忘備録は無教養の人間=尿瓶チンパポンコツフェチの使う熟語。
799:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 12:01:34.72 x+Em05LvH.net
>>797
どのパラメータを使うかで1を挟んでばらつくときは、補正の必要なしと判断すればいいな。
800:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 12:07:40.03 x+Em05LvH.net
>>791
医師免許ないのは尿瓶チンパポンコツフェチだろ。
医師が羨ましければ再受験すればいいのに
俺の同期の2割は学卒。大半は東大卒や京大卒。歯学部には東大数学科卒もいた。
あんた東大合格してないの?
俺はウロとプシコが指定選択科目だった年の国試に現役合格。
どちらも疾患が少ない科目だったので楽勝だった。皮膚科だとうざかっただろうな。
801:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
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)
802:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 13:01:09.68 x+Em05LvH.net
添付文書での投与速度の幅が40倍もある、あの薬も体重入れたらグラフ作成するようにスクリプト化。
DOAやDOBのように0.3%溶液にすると計算が楽で( ・∀・)イイ!!
URLリンク(i.imgur.com)
803:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 14:11:43.89 x+Em05LvH.net
ミリスロールは添付文書の規定を数値換算するようにスクリプト化
添付文書
不安定狭心症
0.1?0.2μg/kg/分の投与量で投与を開始し、
発作の経過及び血圧をモニターしながら約5分ごとに0.1?0.2μg/kg/分ずつ増量し、
1?2μg/kg/分で維持する。
効果がみられない場合には20?40μg/kgの静注を1時間ごとに併用する。
なお、静注する場合は1?3分かけて緩徐に投与する。
体重65kgでは
> millisrol_angina(65)
不安定狭心症
(5mg/10mL=0.05%原液で投与)
0.78 ~ 1.56 mL/hの投与量で投与を開始し、
発作の経過及び血圧をモニターしながら約5分ごとに 0.78 ~ 1.56 mL/hずつ増量し、
7.8 ? 15.6 mL/hで維持する。
効果がみられない場合には, 2.6 ? 5.2 mLの静注を1時間ごとに併用する。
なお、静注する場合は1?3分かけて緩徐に投与する。
804:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/15 14:23:19.02 Mqjo8yZK0.net
string内の日本語は文字化けせずに出力できるようだ。
変数に使わなければ普通の動作するみたい。
∠は文字化けしたが。
805:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 17:43:03.50 x+Em05LvH.net
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
}
806:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 17:45:51.15 x+Em05LvH.net
""
イーケプラ 500mg/5mL
〈てんかん重積状態〉
通常、成人にはレベチラセタムとして1回1000~3000mgを静脈内投与
(投与速度は2~5mg/kg/分で静脈内投与)するが、1日最大投与量は3000mgとする。
本剤の1回投与量(500~1500mg)を100mLの生理食塩液、乳酸リンゲル液
又は5%ブドウ糖注射液で希釈すること。
"
levetiracetam=\(kg,mg=1000,mL=100){
mat=gamma2hourlyVol(mg,mL,kg,gamma=c(2000,5000))
cbind('mg/kg/min'=mat[,1]/1000,'mL/min'=mat[,2]/60)
}
levetiracetam(kg=50,mg=1000,mL=100)
> levetiracetam(kg=50,mg=1000,mL=100)
mg/kg/min mL/min
[1,] 2 10
[2,] 5 25
807:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.69.119])
23/03/15 22:01:22.49 fnb91X9Ba.net
>>798
尿瓶の独語以外の何なんだ?
さっさとお薬飲め
>>800
脳内医者だから他のスレで相手にされずにここで発狂してんだろ?
808:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/16 06:10:00.20 ZBpYUzA70.net
f=\(a,b,c) (a+b)%%c==1 & (b+c)%%a==1 & (c+a)%%b==1
n=100
re=NULL
for(c in 3:n){
for(b in 2:(c-1){
for(a in 1:(b-1){
if(f(a,b,c)) re=rbind(re,c(a,b,c))
}}}
809:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 09:15:52.91 s2OdkC//0.net
アネレムの添付文書のmgをmLに変換して表示するようにスクリプト化。
Rの正規表現のQ&A URLリンク(stackoverflow.com)が役立った。
remimazolam=\(kg,mg=50,mL=20){
str="6. 用法及び用量
〈導入〉
通常、成人には、レミマゾラムとして12 mg/kg/時の速度で、患者の全身状態を観察しながら、意識消失が得られるまで静脈内へ持続注入する。なお、患者の年齢、状態に応じて投与速度を適宜減速すること。
〈維持〉
通常、成人には、レミマゾラムとして1 mg/kg/時の速度で静脈内への持続注入を開始し、
適切な麻酔深度が維持できるよう患者の全身状態を観察しながら、
投与速度を適宜調節するが、上限は2 mg/kg/時とする。
なお、患者の年齢、状態に応じて投与開始速度を適宜減速すること。
覚醒徴候が認められた場合は、最大0.2 mg/kgを静脈内投与してもよい。"
pattern='(\\d+\\.*\\d*)\\s*mg/kg/時'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*mL/mg*kg)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
pattern='(\\d+\\.*\\d*)\\s*mg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*kg)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
str |> cat()
}
810:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 09:16:32.79 s2OdkC//0.net
体重55kgの場合
> remimazolam(55)
6. 用法及び用量
〈導入〉
通常、成人には、レミマゾラムとして264 mL/hの速度で、患者の全身状態を観察しながら、意識消失が得られるまで静脈内へ持続注入する。なお、患者の年齢、状態に応じて投与速度を適宜減速すること。
〈維持〉
通常、成人には、レミマゾラムとして22 mL/hの速度で静脈内への持続注入を開始し、
適切な麻酔深度が維持できるよう患者の全身状態を観察しながら、
投与速度を適宜調節するが、上限は44 mL/hとする。
なお、患者の年齢、状態に応じて投与開始速度を適宜減速すること。
覚醒徴候が認められた場合は、最大11 mL/hを静脈内投与してもよい。
811:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 09:57:48.23 s2OdkC//0.net
維持
通常、成人にはミダゾラム0.03~0.06mg/kg/hより持続静脈内投与を開始し、患者の鎮静状態をみながら適宜増減する。(0.03~0.18mg/kg/hの範囲が推奨される)
~を挟んで表示されても変換できるようにプログラムする必要があるなぁ。
正規表現を使って抽出
> cat(str)
通常、成人にはミダゾラム0.03~0.06mg/kg/hより持続静脈内投与を開始し、患者の鎮静状態をみながら適宜増減する。(0.03~0.18mg/kg/hの範囲が推奨される)
> pattern='(\\d+\\.*\\d*)\\s*([~~])\\s*(\\d+\\.*\\d*)\\s*mg/kg'
> regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
> m
[,1] [,2]
[1,] "0.03~0.06mg/kg" "0.03~0.18mg/kg"
[2,] "0.03" "0.03"
[3,] "~" "~"
[4,] "0.06" "0.18"
812:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 10:57:41.54 s2OdkC//0.net
>>811
体重65kgの麻酔補助で原液で使用
> midazolam_anesthesia(kg=65,mg=10,mL=2)
〈麻酔前投薬〉
通常、成人にはミダゾラム1.04~1.3mLを手術前30分~1時間に筋肉内に注射する。
通常、修正在胎45週以上(在胎週数+出生後週数)の小児にはミダゾラム1.04~1.95mLを手術前30分~1時間に筋肉内に注射する。
〈全身麻酔の導入及び維持〉
通常、成人にはミダゾラム1.95~3.9mLを静脈内に注射し、必要に応じて初回量の半量ないし同量を追加投与する。
静脈内に注射する場合には、なるべく太い静脈を選んで、できるだけ緩徐に(1分間以上の時間をかけて)注射する。
813:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 10:59:19.78 s2OdkC//0.net
体重45kgのsedation 0.1%に希釈して使用
> midazolam_sedation(kg=45,mg=50,mL=50)
〈集中治療における人工呼吸中の鎮静〉
導入
通常、成人には、初回投与はミダゾラム1.35 mLを少なくとも1分以上かけて静脈内に注射する。より確実な鎮静導入が必要とされる場合の初回投与量は2.7 mLまでとする。必要に応じて、1.35 mLを少なくとも5分以上の間隔を空けて追加投与する。但し、初回投与及び追加投与の総量は13.5 mLまでとする。
通常、修正在胎45週以上(在胎週数+出生後週数)の小児には、初回投与はミダゾラム2.25~9mLを少なくとも2~3分以上かけて静脈内に注射する。必要に応じて、初回量と同量を少なくとも5分以上の間隔を空けて追加投与する。
維持
通常、成人にはミダゾラム1.35~2.7mL/hより持続静脈内投与を開始し、患者の鎮静状態をみながら適宜増減する。(1.35~8.1mL/hの範囲が推奨される)
814:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 13:21:23.15 s2OdkC//0.net
mcg_per_hour2mL_per_hour=\(str,kg,mcg,mL){ # μg/kg/h -> mL/h
pattern='(\\d+\\.*\\d*)\\s*([~~])\\s*(\\d+\\.*\\d*)\\s*μg/kg/[h時]'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*kg/mcg*mL)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
str |> cat()
}
str="用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを6μg/kg/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として0.2~0.7μg/kg/時の範囲で持続注入する(維持投与)。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2~1.0μg/kg/時の範囲で持続注入する。
通常、修正在胎(在胎週数+出生後週数)45週以上6歳未満の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2~1.4μg/kg/時の範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。"
815:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 13:25:13.23 s2OdkC//0.net
35kgの場合
> mcg_per_hour2mL_per_hour(str,kg=35,mcg=200,mL=50)
用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを52.5 mL/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として1.75~6.125mL/hの範囲で持続注入する(維持投与)。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを1.75 mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、1.75~8.75mL/hの範囲で持続注入する。
通常、修正在胎(在胎週数+出生後週数)45週以上6歳未満の小児には、デクスメデトミジンを1.75 mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、1.75~12.25mL/hの範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。
816:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 14:33:49.80 s2OdkC//0.net
これに気がつくまでバグがとれなかった。
"~"=="?"
charToRaw("~")
charToRaw("?")
817:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 15:01:50.35 s2OdkC//0.net
URLリンク(www.natade.net)
818:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 15:02:34.84 s2OdkC//0.net
ようやく完成
mcg_per_min2mL_per_hour=\(str,kg,mg,mL){ # μg/kg/h -> mL/h
mcg=1000*mg
pattern='(\\d+\\.*\\d*)\\s*([~?~])\\s*(\\d+\\.*\\d*)\\s*μg/kg/分'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg*60) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg*60) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg/分'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg*60)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL/h')))
for(j in 1:nrow(M)){
str=sub(M[j,1],M[j,2],str)
}
}
819:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 15:02:40.04 s2OdkC//0.net
pattern='(\\d+\\.*\\d*)\\s*([~?~])\\s*(\\d+\\.*\\d*)\\s*μg/kg'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL')))
for(k in 1:nrow(M)){
str=sub(M[k,1],M[k,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL')))
for(l in 1:nrow(M)){
str=sub(M[l,1],M[l,2],str)
}
str |> cat()
820:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 15:06:42.92 s2OdkC//0.net
アルチバ2mg/20mLの溶液で体重45kgの場合で添付文書をコンバート
> mcg_per_min2mL_per_hour(str,kg=45,mg=2,mL=20)
麻酔導入
通常、レミフェンタニルとして13.5 mL/hの速さで持続静脈内投与する。なお、ダブルルーメンチューブの使用、挿管困難等、気管挿管時に強い刺激が予想される場合には、27 mL/hとすること。また、必要に応じて、持続静脈内投与開始前にレミフェンタニルとして0.45 mLを30?60秒かけて単回静脈内投与することができる。ただし、気管挿管を本剤の投与開始から10分以上経過した後に行う場合には単回静脈内投与の必要はない。
麻酔維持
通常、レミフェンタニルとして6.75 mL/hの速さで持続静脈内投与する。なお、投与速度については、患者の全身状態を観察しながら、2?5分間隔で25?100%の範囲で加速又は25?50%の範囲で減速できるが、最大でも54 mL/hを超えないこと。浅麻酔時には、レミフェンタニルとして0.225?0.45mLを2?5分間隔で追加単回静脈内投与することができる。
821:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 18:53:33.78 s2OdkC//0.net
μg mg と /min /hが混在していて厄介だったが、
添付文書をmL/h表示させるプログラム完成。
μgとmg表示が混在しているオノアクトの添付文書で走らせてみる。
変換前
6. 用法及び用量
〈手術時の頻脈性不整脈に対する緊急処置〉
ランジオロール塩酸塩として、1分間0.125mg/kg/minの速度で静脈内持続投与した後、0.04mg/kg/minの速度で静脈内持続投与する。投与中は心拍数、血圧を測定し0.01~0.04mg/kg/minの用量で適宜調節する。
〈手術後の循環動態監視下における頻脈性不整脈に対する緊急処置〉
ランジオロール塩酸塩として、1分間0.06mg/kg/minの速度で静脈内持続投与した後、0.02mg/kg/minの速度で静脈内持続投与を開始する。5~10分を目安に目標とする徐拍作用が得られない場合は、1分間0.125mg/kg/minの速度で静脈内持続投与した後、0.04mg/kg/minの速度で静脈内持続投与する。投与中は心拍数、血圧を測定し0.01~0.04mg/kg/minの用量で適宜調節する。
〈成人及び小児の心機能低下例における頻脈性不整脈〉
ランジオロール塩酸塩として、1μg/kg/minの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し1~10μg/kg/minの用量で適宜調節する。
〈生命に危険のある不整脈で難治性かつ緊急を要する場合〉
ランジオロール塩酸塩として、1μg/kg/minの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し1~10μg/kg/minの用量で適宜調節する。なお、心室細動又は血行動態不安定な心室頻拍が再発し本剤投与が必要な場合には、心拍数、血圧を測定し最大40μg/kg/minまで増量できる。
〈敗血症に伴う頻脈性不整脈〉
ランジオロール塩酸塩として、1μg/kg/minの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し、維持量は適宜増減する。ただし、最大用量は20μg/kg/minを超えないこと。
822:卵の名無しさん (ワッチョイ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 18:55:08.67 s2OdkC//0.net
オノアクト50mgを20mLで希釈して体重60kgの患者に投与する場合
> To_mL(str,kg=60,mg=50,mL=20)
> To_mL(str,kg=60,mg=50,mL=20)
6. 用法及び用量
〈手術時の頻脈性不整脈に対する緊急処置〉
ランジオロール塩酸塩として、1分間180 mL/hの速度で静脈内持続投与した後、57.6 mL/hの速度で静脈内持続投与する。投与中は心拍数、血圧を測定し14.4~57.6mL/hの用量で適宜調節する。
〈手術後の循環動態監視下における頻脈性不整脈に対する緊急処置〉
ランジオロール塩酸塩として、1分間86.4 mL/hの速度で静脈内持続投与した後、28.8 mL/hの速度で静脈内持続投与を開始する。5~10分を目安に目標とする徐拍作用が得られない場合は、1分間180 mL/hの速度で静脈内持続投与した後、57.6 mL/hの速度で静脈内持続投与する。投与中は心拍数、血圧を測定し14.4~57.6mL/hの用量で適宜調節する。
〈成人及び小児の心機能低下例における頻脈性不整脈〉
ランジオロール塩酸塩として、1.44mL/hの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し1.44~14.4mL/hの用量で適宜調節する。
〈生命に危険のある不整脈で難治性かつ緊急を要する場合〉
ランジオロール塩酸塩として、1.44mL/hの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し1.44~14.4mL/hの用量で適宜調節する。なお、心室細動又は血行動態不安定な心室頻拍が再発し本剤投与が必要な場合には、心拍数、血圧を測定し最大57.6mL/hまで増量できる。
〈敗血症に伴う頻脈性不整脈〉
ランジオロール塩酸塩として、1.44mL/hの速度で静脈内持続投与を開始する。投与中は心拍数、血圧を測定し、維持量は適宜増減する。ただし、最大用量は28.8mL/hを超えないこと。
823:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.170])
23/03/16 19:43:11.06 3/FwA/RZa.net
なんだまた医者からの質問はダンマリで独語か
824:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.170])
23/03/16 22:44:06.17 3/FwA/RZa.net
脳内医者だから他のスレで相手にされずにここで発狂してんだろ?が図星みたいで大発狂w
825:卵の名無しさん (アウアウウー Sa2b-Zcu+ [106.131.198.11])
23/03/17 00:53:39.98 InU4/qsEa.net
(クズサンデープログラマーのクズ作品完成www
いつの時代の話しとんじゃこの能無しwwww
826:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:15:53.66 01RvBIogH.net
bolus と infusionを区別するための正規表現
str="bolus iv 1.0μg/kg followed by 0.25μg/kg/min infusion"
# infusion
pattern='(\\d+\\.*\\d*)\\s*μg/kg/min'
regmatches(str,gregexec(pattern, str))[[1]]
# bolus & infusion
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
regmatches(str,gregexec(pattern, str))[[1]]
# bolus
pattern='((\\d+\\.*\\d*)\\s*μg/kg)[^/]'
regmatches(str,gregexec(pattern, str))[[1]]
827:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:20:43.43 01RvBIogH.net
> str="bolus iv 1.0μg/kg followed by 0.25μg/kg/min infusion"
>
> # infusion
> pattern='(\\d+\\.*\\d*)\\s*μg/kg/min'
> regmatches(str,gregexec(pattern, str))[[1]]
[,1]
[1,] "0.25μg/kg/min"
[2,] "0.25"
>
> # bolus & infusion
> pattern='(\\d+\\.*\\d*)\\s*μg/kg'
> regmatches(str,gregexec(pattern, str))[[1]]
[,1] [,2]
[1,] "1.0μg/kg" "0.25μg/kg"
[2,] "1.0" "0.25"
>
> # bolus
> pattern='((\\d+\\.*\\d*)\\s*μg/kg)[^/]'
> regmatches(str,gregexec(pattern, str))[[1]]
[,1]
[1,] "1.0μg/kg "
[2,] "1.0μg/kg"
[3,] "1.0"
>
あとは最終列の文字列を数値変換して換算すれば( ・∀・)イイ!!
828:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:22:40.88 01RvBIogH.net
>>825
だったらあんたが修正して投稿してみたら、Rを使えないんじゃね?
829:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:29:04.47 01RvBIogH.net
>>822
mL/h表示だとシリンジポンプが設定しやすくて楽。
830:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/17 14:23:59.21 g2adxdRIH.net
> Anesthesia(158.6,55.2,68,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 21.94
Ideal Body Weight(kg) = 55.34
Body Weight @ BMI25(kg) = 62.88
Lean Body Mass(kg) = 45.21
Predicted Body Weight(kg) = 55.64
Coef = 0.819 (BSA+Age) 0.863 (LBM+Age)
coef = 0.999 (BSA) 1.052 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.78
bolus(mL) = 0.45
CE(ng/mL)@(1mL/h) = 0.92
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.28 - 16.56
Rocuronium (no adjust)
bolus(mL) = 3.31 - 4.97
continuous(mL/h) = 0.99 - 1.32
Sevoflurane(adjusted by age)
MAC(%) 1.77
maintenance(%) 0.95 - 1.18
Incisor to Tracheal MidPoint = 20.9 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 445 Respiratory Rate = 14
831:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/17 14:25:29.87 g2adxdRIH.net
55.2kgの体重を入力してアルチバの添付文書変換
> mcg_per_min2mL_per_hour(str,kg=55.2,mg=2,mL=20)
麻酔導入
通常、レミフェンタニルとして16.56 mL/hの速さで持続静脈内投与する。なお、ダブルルーメンチューブの使用、挿管困難等、気管挿管時に強い刺激が予想される場合には、33.12 mL/hとすること。また、必要に応じて、持続静脈内投与開始前にレミフェンタニルとして0.552 mLを30?60秒かけて単回静脈内投与することができる。ただし、気管挿管を本剤の投与開始から10分以上経過した後に行う場合には単回静脈内投与の必要はない。
麻酔維持
通常、レミフェンタニルとして8.28 mL/hの速さで持続静脈内投与する。なお、投与速度については、患者の全身状態を観察しながら、2?5分間隔で25?100%の範囲で加速又は25?50%の範囲で減速できるが、最大でも66.24 mL/hを超えないこと。浅麻酔時には、レミフェンタニルとして0.276?0.552mLを2?5分間隔で追加単回静脈内投与することができる。
832:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.170])
23/03/17 15:12:32.25 6dhTrJIWa.net
尿瓶の独語は止まらない
833:卵の名無しさん (ワッチョイ 8730-Zcu+ [160.86.105.70])
23/03/17 16:47:39.63 JN23C4FF0.net
文章自分で打ち込む、コピペして変換wwwwww
アホ~wwwwwwwwww
834:卵の名無しさん (ワッチョイ 2758-itcf [14.13.16.0 [上級国民]])
23/03/17 18:17:42.17 FcUr8EAW0.net
年齢、除脂質体重や体表面積して算出した値と
体重だけでを用いて添付文書で計算した値が対比できて便利だな。
まあ、on labelの上限を越えての投与になっていないのも確認できて( ・∀・)イイ!!
835:卵の名無しさん (ガックシ 06ab-QyoF [202.223.252.37])
23/03/17 19:29:06.28 npRuS0/K6.net
尿瓶他の先生方に噛み付く元気ももうないみたいだねw
836:卵の名無しさん (ガックシ 06ab-QyoF [202.223.252.37])
23/03/17 21:06:36.60 npRuS0/K6.net
442 132人目の素数さん[sage] 2023/03/17(金) 10:42:45.96 ID:K96QQZee
>>367
外来をやっていると医師の卒業大学を気にする患者に遭遇する。
教員に多かったな。
エビデンスレベルV(個人の考え)
脳内医者はエビデンスも脳内ww
837:卵の名無しさん (ブーイモ MM4e-qZ0m [133.159.153.191])
23/03/18 12:34:11.92 AMW0Cw0dM.net
添付文書も表記が統一されていないので取りこぼしが出やすい。
1 μg /kg/ h
2 mg /kg/ h
3 μg /kg/ min
4 mg /kg/ min
5 μg /kg/ 時
6 mg /kg/ 時
7 μg /kg/ 分
8 mg /kg/ 分
838:卵の名無しさん (ブーイモ MM4e-qZ0m [133.159.153.191])
23/03/18 12:49:22.87 AMW0Cw0dM.net
pattern=' (\\d+\.?\\d*)\\s*(ng|μg|mg)/kg/(min|h|分|時)"
839:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/18 13:24:07.68 uuh0wdOL0.net
>>836
ガイドラインのエビデンスレベルすら理解できていないのが
尿瓶チンパポンコツフェチだな。
840:卵の名無しさん (ワッチョイ 2b58-mRrS [106.73.2.65])
23/03/18 13:38:38.91 yLGrwx8A0.net
>>839
どこらへんが理解出来てないの?あってるじゃん。Ⅳが専門家の意見だから
Ⅴとか医者じゃない素人の意見ってことだろwww自虐ネタか?w
841:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/18 18:01:45.10 uuh0wdOL0.net
プロスタサイクリン製剤だとng/kg/minという単位がでてくるのでそれにも対応させた。
正規表現のトレーニングになった。
str4="静注用フローラン0.5mg
用量設定(投与開始時)
本剤は専用溶解液を用いて溶解し、通常、成人にはエポプロステノールとして1分間当り2ng/kgの投与速度で精密持続点滴装置(シリンジポンプ又は輸液ポンプ)により、持続静脈内投与を開始する。患者の状態(症状、血圧、心拍数、血行動態等)を十分観察しながら15分以上の間隔をおいて1?2ng/kg/分ずつ増量し、10ng/kg/分までの範囲で最適投与速度を決定する。
最適投与速度の決定にあたっては、増量時における潮紅(軽微なものを除く)、頭痛、嘔気等の副作用の発現が重要な指標となる。このような症状が軽度でも認められた場合にはその後の増量を中止し、それらの症状が消失しない場合には15分以上の間隔をおいて2ng/kg/分ずつ減量すること。
継続投与
その後は最適投与速度で維持し、定期的に患者を観察し症状に応じて投与速度を適宜調節するが、その場合も患者の状態(症状、血圧、心拍数、血行動態等)を観察しながら15分以上の間隔をおいて1?2ng/kg/分ずつ増減する。"
842:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/18 18:01:51.52 uuh0wdOL0.net
大谷選手の体重は95kgというのでそれで計算
g2mL(kg=95,mg=0.5,mL=100,str4)
> g2mL(kg=95,mg=0.5,mL=100,str4)
静注用フローラン0.5mg
用量設定(投与開始時)
本剤は専用溶解液を用いて溶解し、通常、成人にはエポプロステノールとして1分間当り0.038mLの投与速度で精密持続点滴装置(シリンジポンプ又は輸液ポンプ)により、持続静脈内投与を開始する。患者の状態(症状、血圧、心拍数、血行動態等)を十分観察しながら15分以上の間隔をおいて1.14?2.28mL/時ずつ増量し、11.4mL/時までの範囲で最適投与速度を決定する。
最適投与速度の決定にあたっては、増量時における潮紅(軽微なものを除く)、頭痛、嘔気等の副作用の発現が重要な指標となる。このような症状が軽度でも認められた場合にはその後の増量を中止し、それらの症状が消失しない場合には15分以上の間隔をおいて2.28mL/時ずつ減量すること。
継続投与
その後は最適投与速度で維持し、定期的に患者を観察し症状に応じて投与速度を適宜調節するが、その場合も患者の状態(症状、血圧、心拍数、血行動態等)を観察しながら15分以上の間隔をおいて1.14?2.28mL/時ずつ増減する。
843:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/18 18:03:21.37 uuh0wdOL0.net
>>840
Vは記述研究やケーススタディ
844:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/18 18:05:35.46 uuh0wdOL0.net
0.01~0.04mg/kg/minの ~ の扱いが厄介だった。
845:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/18 18:07:36.38 uuh0wdOL0.net
急性期病棟がクラスター化したので入院不可と言われた。
堂々と救急車をお琴割できる。インセンティブの小金につられて地雷を踏むのはまっぴらだし。
846:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.68.8])
23/03/19 00:32:42.55 uBu/fnrka.net
>>839
個人の考えがエビデンスレベルVってどこの脳内医療だよw
847:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 11:38:11.65 bczs8UVv0.net
URLリンク(www.kegg.jp) から添付文書をプログラムにダウンロードさせて、用量用法の項目を取りだして
体重、薬剤量、薬液量でmL/hに変換できるように改訂。
但し、書式が統一されていないので開始と終了の文字列がデフォルトと異なる場合はコピペが必要。
src=drug2text(アネレム)
drug2infusion=\(kg=50,mg=50,mL=20,src,
start='(6. 用法及び用量',
end='.+)7. 用法及び用量に関連する注意'){
pattern=paste0(start,end,collapse='')
re=regmatches(src,gregexec(pattern,src))[[1]][2]
str=gsub('<','\n\n<',re)
g2mL(kg,mg,mL,str)
}
drug2infusion(kg=50,mg=50,mL=20,src)
> drug2infusion(kg=50,mg=50,mL=20,src)
6. 用法及び用量
<導入>通常、成人には、レミマゾラムとして240mL/時の速度で、患者の全身状態を観察しながら、意識消失が得られるまで静脈内へ持続注入する。なお、患者の年齢、状態に応じて投与速度を適宜減速すること。
<維持>通常、成人には、レミマゾラムとして20mL/時の速度で静脈内への持続注入を開始し、適切な麻酔深度が維持できるよう患者の全身状態を観察しながら、投与速度を適宜調節するが、上限は40mL/時とする。なお、患者の年齢、状態に応じて投与開始速度を適宜減速すること。覚醒徴候が認められた場合は、最大4mLを静脈内投与してもよい
848:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 11:40:10.07 bczs8UVv0.net
src=drug2text(プレセデックス)
drug2infusion=\(kg,mg,mL,src,
start='(6. 用法及び用量',
end='.+)7. 用法及び用量に関連する注意'){
pattern=paste0(start,end,collapse='')
re=regmatches(src,gregexec(pattern,src))[[1]][2]
str=gsub('<','\n\n<',re)
g2mL(kg,mg,mL,str)
}
drug2infusion(kg=50,mg=0.200,mL=50,src)
6. 用法及び用量
<集中治療における人工呼吸中及び離脱後の鎮静>通常、成人には、デクスメデトミジンを75mL/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として2.5?8.75mL/時の範囲で持続注入する(維持投与)。また、維持投与から開始することもできる。通常、6歳以上の小児には、デクスメデトミジンを2.5mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、2.5?12.5mL/時の範囲で持続注入する。通常、修正在胎(在胎週数+出生後週数)45週以上6歳未満の小児には、デクスメデトミジンを2.5mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、2.5?17.5mL/時の範囲で持続注入する。なお、患者の状態に合わせて、投与速度を適宜減速すること。
<局所麻酔下における非挿管での手術及び処置時の鎮静>通常、成人には、デクスメデトミジンを75mL/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として2.5?8.75mL/時の範囲で持続注入する(維持投与)。なお、患者の状態に合わせて、投与速度を適宜減速すること。
849:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 11:47:54.84 bczs8UVv0.net
drug2text=\(x,browse=FALSE,firefox=TRUE){
library(rvest)
drug=deparse(substitute(x))
url=paste0("URLリンク(www.kegg.jp))
url |> read_html() |> html_nodes('a') |> html_attr('href') -> links
URL=paste0("URLリンク(www.kegg.jp)("japic_code",links)[1]])
if(browse) browseURL(URL,browser=ifelse(firefox,"C:\\Program Files\\Mozilla Firefox\\firefox.exe",getOption("browser")))
download.file(URL,'temp.txt')
scan('temp.txt', what = character(), sep = "\n", blank.lines.skip = TRUE) |> as.vector() -> v
v=paste0(gsub('<[^<>]+>','',v),collapse='')
invisible(v)
}
Rがパイプにデフォルトで対応しているから()対応でのミスが減った。
850:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 12:23:31.87 bczs8UVv0.net
ファイルをダウンロートしてからscanして文字置換するのでon lineのRだとサーバー上にファイル作成することになるので動作しないかと思ったら
download.file(URL,'temp.txt')
scan('temp.txt', what = character(), sep = "\n", blank.lines.skip = TRUE)
は想定通りに動作してくれた。
出先でも使えて( ・∀・)イイ!! まあ、使いそうな薬剤の用量はローカルの保存してあるけど。
851:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 12:42:40.89 bczs8UVv0.net
URLリンク(www.kegg.jp)
6の次が8になっている
drug2infusion=\(kg,mg,mL,src,
start='(6. 用法及び用量',
end='.+)(7. 用法及び用量に関連する注意|8. 重要な基本的注意)'){
pattern=paste0(start,end,collapse='')
re=regmatches(src,gregexec(pattern,src))[[1]][2]
str=gsub('<','\n\n<',re)
g2mL(kg,mg,mL,str)
}
で対応できるけど、まだまだ変化球がありそう。
852:卵の名無しさん (スッップ Sd42-Rc1T [49.96.47.102])
23/03/19 12:42:53.48 ZzBCz3/Cd.net
金沢医大が金沢大を国試合格率で勝ったよ
853:卵の名無しさん (ブーイモ MM4e-qZ0m [133.159.153.205])
23/03/19 13:15:36.82 bmwelPDFM.net
>>852
分母を入学者数で計算したら大差がつくと思う。
854:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.73.80])
23/03/19 14:16:49.00 A+lqC+R4a.net
さっさとデータ出せよタコ
855:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 14:51:00.14 bczs8UVv0.net
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計が素数でなかった場合、操作を終了する。
操作を終了するまでにサイコロを振る回数をNとするとき、Nの期待値を求めよ。
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計が素数でなかった場合、操作を終了する。
終了したときの非素数を当てる賭けをする。
(1)いくつに賭けるのがもっとも有利か?
(2)その数でのおよその勝利確率をもとめよ。
library(numbers)
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
s=s+sample(6,1)
flg=isPrime(s)
}
c(i,s)
}
k=1e6
y=replicate(k,sim())
N=y[1,]
s=y[2,]
BEST::plotPost(N,breaks='scott',col='red')
BEST::plotPost(s,breaks='scott',col='blue')
hist(N,breaks='scott',,col=2,freq=F,ylab='',xlab='N',axes=F) ; axis(1)
hist(s,breaks='scott',,col=4,freq=F,ylab='',xlab='N',axes=F) ; axis(1)
table(s)
mean(s)
mean(s==6)
856:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 15:51:36.69 bczs8UVv0.net
/min /分でなくて毎分で表現されても変換できるようにしたい。毎時というのもあるかもしれんなぁ。
6. 用法及び用量
通常、1アンプル(5mL)を5%ブドウ糖注射液または10%マルトース注射液500mLに希釈し、リトドリン塩酸塩として毎分50μgから点滴静注を開始し、子宮収縮抑制状況および母体心拍数などを観察しながら適宜増減する。子宮収縮の抑制後は症状を観察しながら漸次減量し、毎分50μg以下の速度を維持して収縮の再発が見られないことが確認された場合には投与を中止すること。
通常、有効用量は毎分50?150μgである。なお、注入薬量は毎分200μgを越えないようにすること。
857:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 16:34:25.88 bczs8UVv0.net
サブルーチン
# 毎分|毎時 ng|μg|mg -> 毎分|毎時 mL
pattern='(毎分|毎時)(\\s*\\d+\\.?\\d*)\\s*(ng|μg|mg)'
m=regmatches(str,gregexec(pattern,str))[[1]]
if(length(m)!=0){
m5=numeric()
m5[m[4,]=='ng']=ng
m5[m[4,]=='μg']=mcg
m5[m[4,]=='mg']=mg
M=t(rbind(m[1,],paste0(m[2,], as.numeric(m[3,])*mL/m5,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
858:卵の名無しさん (ワッチョイ 2b58-mRrS [106.73.2.65])
23/03/19 17:58:42.16 uzxc1DJC0.net
ルシファーまた落ちたな
【速報】東大医学部卒・国試5浪ルシファーさん(38)、医師国家試験不合格!6浪目決定! [808139444]
スレリンク(poverty板)
尿瓶ジジイご意見は?
859:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.198.177])
23/03/19 19:44:12.27 DVTyXUJia.net
ocrの誤動作で数値が変わってしまったらどんな危険な事か起こるかも想像できないクズ
こんなもん実用に使えるはずなどない事がわからん能無し
860:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 20:16:18.78 bczs8UVv0.net
OCR?
テキストファイルから読み込んでいるんだがアホですか?
861:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:23:21.74 bczs8UVv0.net
レミフェンタニル、デクスメデトミジンは添付文書よりは少なめ、ロクロニウムは多めで使っているなぁ。まあ、年齢・体格(体表面積もしくは除脂肪体重)で補正しているが、指数計算がでてくるのでプログラムで算出。
今週は、これ。
> Anesthesia(158.6,55.2,68,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 21.94
Ideal Body Weight(kg) = 55.34
Body Weight @ BMI25(kg) = 62.88
Lean Body Mass(kg) = 45.21
Predicted Body Weight(kg) = 55.64
Coef = 0.819 (BSA+Age) 0.863 (LBM+Age)
coef = 0.999 (BSA) 1.052 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.78
bolus(mL) = 0.45
CE(ng/mL)@(1mL/h) = 0.92
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.28 - 16.56
Rocuronium (no adjust)
bolus(mL) = 3.31 - 4.97
continuous(mL/h) = 0.99 - 1.32
Sevoflurane(adjusted by age)
MAC(%) 1.77
maintenance(%) 0.95 - 1.18
Incisor to Tracheal MidPoint = 20.9 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 445 Respiratory Rate = 14
一応、添付文書の範囲内に数値があることを確認。
862:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:27:26.61 bczs8UVv0.net
まぁ、添付文書のデータをダウンロードサイトの仕様が変わったらダウンロードできなくなるので、使いそうな薬はローカルに保存したテキストで変換している。
863:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:29:30.99 bczs8UVv0.net
スクレイピングと正規表現の勉強になって( ・∀・)イイ!!
864:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:37:26.94 bczs8UVv0.net
こんな感じで作っておけば、体重に応じた添付文書が出力できる。
dexmedetomidine_on_label=\(kg,mcg=200,mL=50){
str="用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを6μg/kg/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として0.2~0.7μg/kg/時の範囲で持続注入する(維持投与)。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2~1.0μg/kg/時の範囲で持続注入する。
通常、修正在胎(在胎週数+出生後週数)45週以上6歳未満の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2~1.4μg/kg/時の範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。"
pattern='(\\d+\\.*\\d*)\\s*([~?~])\\s*(\\d+\\.*\\d*)\\s*μg/kg/[h時]'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*kg/mcg*mL)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
str |> cat()
}
dexmedetomidine_on_label(70)
865:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:45:46.15 bczs8UVv0.net
プレセデックスは添付文書が μg/kg/時 表示でカテコラミンでいういわゆるガンマ計算のμg/kg/分ではないんだよなぁ。
実際、シリツ医がこういう事故を起こしている。
URLリンク(www.nikkei.com)
866:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:51:29.52 bczs8UVv0.net
濵田 尚里の体重78kgだと
> dexmedetomidine_on_label(78)
用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを117 mL/時の投与速度で10分間静脈内へ持続注入し(初期負荷投与)、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として3.9~13.65mL/hの範囲で持続注入する(維持投与)。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを3.9 mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、3.9~19.5mL/hの範囲で持続注入する。
...
この方が実用的である。
こういう表示があればシリツ医でも事故を回避できだんじゃないかな。
867:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 21:04:28.37 bczs8UVv0.net
低温調理の加熱時間もRでスクリプトを組んだ。
厚さ3cmの豚肉の場合
> Pork(30,60)
[1] NA
> Pork(30,63)
Heat 30 mm thick Pork at 63 ℃ for 2:00
868:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:48.17 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう?screenshotで画像に落としてOCRで再度文字にするのか?
n=1の統計よりも不思議だなぁ。
869:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:55.42 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう?screenshotで画像に落としてOCRで再度文字にするのか?
n=1の統計よりも不思議だなぁ。
870:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:20:03.67 mRM65Rfga.net
まともな人間なら自分が専門に学んだわけでもないアホみたいな自作ソフトに患者の健康と生命に関わる計算をゆだねだりするか能無し
何やつてもあかんなぁお前
871:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:22:04.86 mRM65Rfga.net
>>888-889
すまんすまん、もうサンデープログラマーですらもう紙ドキュメントから文字読み込んで処理する時代なんよ
お前みたいな30年前くらいの技術でジタバタしてるカスがそんな事できるわけないわな
ごめんクズ
お前の能力見誤ったわwwww
872:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:23:46.03 mRM65Rfga.net
こんな感じな
URLリンク(youtu.be)
873:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.73.80])
23/03/19 22:17:59.88 A+lqC+R4a.net
尿瓶はもうお医者様に噛み付く元気はなく独語のみとなってしまいましたww
874:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/20 03:51:19.88 Y6d3J0y40.net
ホームページの文字データをOCRで読み取るってどうやるんだ?
875:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:41.62 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。
URLリンク(www.nikkei.com)
876:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:49.14 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。
URLリンク(www.nikkei.com)
877:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/20 04:33:41.36 Y6d3J0y40.net
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計をMとする。
Mが素数でなかった場合、操作を終了する。Mの最小値は1である。
Mの最大値を求めよ。
p=Primes(100)
p[diff(p)>6]+6
878:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/20 04:43:26.28 Y6d3J0y40.net
>>859
プログラムのミス、例えば正規表現で\が一つ少ないとか の方がよほど可能性があるね。
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
(問) OCRを使うと思ったのは何故だろう?
(答) アホだからです。
879:卵の名無しさん
23/03/20 06:55:51.24 Y6d3J0y40.net
>849にどうやって該当ファイルをダウンロードしているか記載したのでOCRが不要なのは明らかなのだが、やっぱりアホじゃね?
Rが使えない時点でアホとわかるけど。
880:卵の名無しさん
23/03/20 07:37:38.91 Y6d3J0y40.net
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
d=sample(6,1)
s=s+d
flg=numbers::isPrime(s)
cat(d,' ')
}
cat('(',s,')\n')
invisible(c(N=i,M=s))
}
sim() |> print()
for(i in 1:20) sim()
881:卵の名無しさん
23/03/20 08:37:19.85 CCnNzzRwa.net
尿瓶ジジイは脳内医療だから当然事故なんか起きないねw
882:卵の名無しさん
23/03/20 09:47:47.06 pfziN8SIa.net
>>878
そう、お前は素人ポンコツプログラマーが作ったプログラムで医療行為ができると思ってる能無しチンパンジー
70年も生きてきてその程度のこともわからんクズ
883:卵の名無しさん
23/03/20 09:48:37.42 pfziN8SIa.net
>>880
またゴミコードwwwwww
恥ずかしないんか?能無しwwwwwwww
884:卵の名無しさん
23/03/20 11:07:43.78 wMbwG/cnM.net
library('numbers')
x=c(2,1)
f=function(x){
re=NULL
if(isPrime(sum(x)+2)) re=rbind(re,c(x,2))
if(isPrime(sum(x)+4)) re=rbind(re,c(x,4))
if(isPrime(sum(x)+6)) re=rbind(re,c(x,6))
re
}
re=f(x)
re
ans=NULL
f(re[1,])
for(i in 1:nrow(re)) ans=rbind(ans,f(re[i,])
885:卵の名無しさん
23/03/20 11:08:20.87 wMbwG/cnM.net
>>883
R使えないアホだろ?
886:卵の名無しさん
23/03/20 11:11:46.03 wMbwG/cnM.net
>>882
年齢体型補正した値で麻酔をかけているけど
いまのところ順調。
添付文書通りやると血圧変動や徐脈、筋硬直に悩まされる。
今日は内視鏡3件。実働30分で4万は(゚д゚)ウマー
4月から勤務日を増やしてくれと頼まれた。
887:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:20:48.68 xJtbgJUcH.net
>>883
では、ゴミコードでないのを投稿してみ!
888:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:27:53.27 xJtbgJUcH.net
>>859
ホームページの文字データをOCRで読み取るってどうやるんだ?
889:卵の名無しさん (ワッチョイ 523d-BsRZ [5.8.70.102 [上級国民]])
23/03/20 20:20:58.40 98Q0YPFa0.net
>>868
URLリンク(i.imgur.com)
プレデックスの用法用量を表示する画面を画像に落としてグーグルドライブにアップロードして
Googleドキュメントとして開いてOCR機能で読み取り。
まあ、文字データとしてホームページにアップロードされているのを画像として取り込むのは
アホ以外の何者でもないよなぁ。
890:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.198.97])
23/03/20 23:02:25.89 egWzikOQa.net
>>837
お前みたいなクソにプロのコードの違いがわかるはずないやろ能無し
お前は何をやっても三流のクズ
891:卵の名無しさん (ガックシ 063b-VLiP [202.223.252.37])
23/03/21 00:17:05.93 qhTjGu6I6.net
スレリンク(math板)
尿瓶ジジイ高校数学スレで煽られて顔真っ赤w
892:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.74.87])
23/03/21 17:05:01.79 d2AtO5C5a.net
尿瓶ジジイ高校生のおもちゃw
893:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.73.57])
23/03/22 01:51:54.90 5e+tBjSfa.net
尿瓶ジジイ脳内医療ネタ()はことごとく先生方に論破されてダンマリを決め込むしかないからひたすら統計もどきに走るしかなくなったみたいだねw
数学板ではまだ医者で通じると思ってるみたいだが発言がアホ丸出しだから結局誰も信じていないw
894:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/22 15:07:03.77 vdH7ya/b0.net
俺の業界ネタには業界人のレスが返ってくるよ。
スレリンク(hosp板:988番)
尿瓶チンパポンコツフェチは業界ネタが皆無。
895:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/22 15:08:49.88 vdH7ya/b0.net
内視鏡ネタの私見にも賛同のレスがついた。
スレリンク(hosp板:24番)
尿瓶チンパポンコツフェチって医師でもないのにスレあらししているクズ人間。
896:卵の名無しさん (スッププ Sd42-mRrS [49.105.69.70])
23/03/22 19:56:14.53 TcTWtckNd.net
>>895
お前も医者じゃないだろ
医者のフリするな
897:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/22 20:25:02.70 vdH7ya/b0.net
>>896
スレリンク(hosp板:40番)-41
今週も1件全麻を依頼されている。
んで、あんたは無職なのか?
898:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.73.65])
23/03/22 20:33:19.94 EZWUq+6Wa.net
>>897
脳内麻酔で自分に酔いまくってるのか
でもこれじゃ他人には通用しないなwある意味幸せだけど酷く哀れだ
899:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/22 23:02:27.09 7+RHgMcVH.net
PMDAの予算内訳
URLリンク(youtu.be)
900:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.196.14])
23/03/22 23:24:54.60 al7Jsznra.net
数学板でも医者と思ってる人間なんかもう1人もいないし、本人もその事わかってるやろ
にも関わらず医者医者言ってるのは「誰も俺が医者を騙ってるのを止められない、俺ってすごい」という普通の人間には想像もつかんような狂った価値観に精神が支配されてるんだよ
完全に人間性が壊れてしまってる
ポンコツ
901:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/23 06:41:43.29 kQ+cQy/gH.net
>>900
いや、医師が羨ましいけど再受験で合格する学力のないのがニセ医者扱いしたがっているだけだよ。
緊急オペで麻酔が夜までになると「居眠りしないようにエントロピーモニターを自分の顔につけた方がいいかなぁ」というジョークをオペナースに言っているな。
その昔、挿管時に於ける麻酔医のバイタル変動というペーパーがあるという話をオーベンがしてくれた。
902:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/23 06:43:42.33 kQ+cQy/gH.net
ホームページの文字データをOCRで読み取るって何のためにやるんだ?
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
(問) OCRを使うと思ったのは何故だろう?
(答) アホだからです。
903:卵の名無しさん (ワッチョイ 2b58-mRrS [106.73.2.65])
23/03/23 07:05:51.68 o6J+7Zu10.net
>>901
数学板の奴等はどう考えても羨ましがってないだろ
お前のこと空気読めない糞ジジイで邪魔だと思ってるよ
お前に肯定的なレス一つもないじゃんwww
高校生の数学の質問も全く答えれてないし
そもそも、サブスク医療とか言うやつを誰が羨ましがるんだ?やっぱお前アホだなwww
904:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.199.83])
23/03/23 10:13:49.01 ouHbx6gea.net
まぁ医者と比べれば身入りは少ないけど、それなりに食える、公務員だった時は地方公務員上級だからな
何より好きな数学やってんだから
905:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 06:44:12.87 yfbSTWoR0.net
>>904
公立病院でのバイトは楽だったなぁ。
重症救急患者を断ると感謝されていた。
906:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 06:45:24.98 yfbSTWoR0.net
>>903
quote unquoteが分からんアホかよ。
引用したら肯定したことになるという謎理論もあったなぁ。
907:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 06:46:23.91 yfbSTWoR0.net
>>903
詐欺師にはなりたくないから、他人をニセ詐欺師と呼ぶことはないなぁ。
ニセ医者あつかいしたがるのはどういうことかなぁ?
¬P⇒¬Q
から
Q⇒Pがいえるから
詐欺師になりたくない ⇒ 他者をニセ詐欺師とは呼ばない。
他者をニセ詐欺師と呼ぶ ⇒ 詐欺師になりたい
詐欺師を医師に置き換えても成立する。
Q.E.D
908:卵の名無しさん (ワッチョイ 2b58-mRrS [106.73.2.65])
23/03/24 07:04:37.20 joqfaalv0.net
>>906
quoteとか、わかるに決まってんだろwww
誰かと勘違いしてるのかな?
お前が偽医者なのは間違いないだろ
今までの知識の無さから確定だよ
お前みたいな医者はいない。少なくともサブスク医療とか言ってる奴は医者とは言えないクズ野郎だよ
909:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:23:09.80 yfbSTWoR0.net
>>908
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
910:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:24:40.16 yfbSTWoR0.net
業界ネタには同業者からレスがつく。
スレリンク(hosp板:22番)
911:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:17.18 yfbSTWoR0.net
これも俺の投稿へのレス
スレリンク(hosp板:988番)
912:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:55.79 yfbSTWoR0.net
医師でもないのが医師板のスレで発狂していて気の毒。
913:卵の名無しさん (スッププ Sd42-mRrS [49.105.68.74])
23/03/24 07:34:30.84 PPt6oSRgd.net
>>909
お前と違って医者なのに羨ましいわけないだろwww
むしろ、そこまで医者のフリをするメンタルに驚愕覚えるわ
医者として尊敬してもらいたいなら、急性期病院の医者のフリでもすればいいのに
まあ、療養病院の事務員の想像レベルじゃそれが限界なんだろうなwww
914:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:45:11.87 yfbSTWoR0.net
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
915:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:47:08.82 yfbSTWoR0.net
>>7
俺は還暦を超えてから病棟を持たない勤務に変えた。
救急外来+内視鏡+麻酔でくっている。
こういうのにも同業者からレスがつく。
916:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:49:00.93 yfbSTWoR0.net
本日の麻酔計算
> Anesthesia(158.6,55.2,68,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 21.94
Ideal Body Weight(kg) = 55.34
Body Weight @ BMI25(kg) = 62.88
Lean Body Mass(kg) = 45.21
Predicted Body Weight(kg) = 55.64
Coef = 0.819 (BSA+Age) 0.863 (LBM+Age)
coef = 0.999 (BSA) 1.052 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.78
bolus(mL) = 0.45
CE(ng/mL)@(1mL/h) = 0.92
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.28 - 16.56
Rocuronium (no adjust)
bolus(mL) = 3.31 - 4.97
continuous(mL/h) = 0.99 - 1.32
Sevoflurane(adjusted by age)
MAC(%) 1.77
maintenance(%) 0.95 - 1.18
Incisor to Tracheal MidPoint = 20.9 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 445 Respiratory Rate = 14
917:卵の名無しさん (ワッチョイ 2f58-ujRt [14.13.16.0])
23/03/24 07:49:47.14 yfbSTWoR0.net
1時間程度だからロクロの持続はなしだな。
918:卵の名無しさん
23/03/24 15:25:54.90 sCq5Ou+HH.net
麻酔のバイト終了。予定通りの投与で導入も覚醒も良好。
移動含めて2時間の拘束で8諭吉は( ・∀・)イイ!!
来週も1件依頼されたのでスペックを送ってもらったらRで計算。
919:卵の名無しさん
23/03/24 15:33:48.87 sCq5Ou+HH.net
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
(問) OCRを使うと思ったのは何故だろう?
(答) アホだからです。
920:卵の名無しさん
23/03/24 15:55:12.52 sCq5Ou+HH.net
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)イイ!!
報酬も良かったしw
921:卵の名無しさん
23/03/24 15:59:12.42 sCq5Ou+HH.net
円満退職した職場からは仕事の依頼がきて( ・∀・)イイ!!
922:卵の名無しさん
23/03/24 16:10:58.83 sCq5Ou+HH.net
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Control Panel\Personalization\Desktop Slideshow]
"LastTickLow"=dword:00000000
"LastTickHigh"=dword:00000000
"Interval"=dword:00003a98
"Shuffle"=dword:00000001
923:卵の名無しさん
23/03/24 16:20:11.52 sCq5Ou+HH.net
> Anesthesia(153.5,69.1,49,F,Sevo=TRUE, propofol=FALSE)
BMI = 29.33
Ideal Body Weight(kg) = 51.84
Body Weight @ BMI25(kg) = 58.91
Lean Body Mass(kg) = 41.72
Predicted Body Weight(kg) = 46.5
Coef = 1.147 (BSA+Age) 1.056 (LBM+Age)
coef = 1.136 (BSA) 1.046 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 11.89
bolus(mL) = 0.79
CE(ng/mL)@(1mL/h) = 1
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.84 - 17.67
Rocuronium (no adjust)
bolus(mL) = 4.15 - 6.22
continuous(mL/h) = 1.24 - 1.66
Sevoflurane(adjusted by age)
MAC(%) 1.99
maintenance(%) 1.17 - 1.32
Incisor to Tracheal MidPoint = 20.4 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 372 Respiratory Rate = 12
924:卵の名無しさん
23/03/24 22:51:25.01 6DggZULia.net
>>915
どこからレスつくんだよタコw
925:卵の名無しさん
23/03/25 20:48:44.86 Iri8Drjea.net
尿瓶ジジイ高校生にバカにされて顔真っ赤w
926:卵の名無しさん
23/03/25 23:29:55.94 GtfTsl56a.net
721 132人目の素数さん[sage] 2023/03/25(土) 21:02:11.33 ID:K6/5fMOE
>>718
これが、臨床実地問題とか笑えるわ
やっぱお前医者じゃないだろ?
当然の感想w
927:卵の名無しさん (ワッチョイ df3d-JF89 [5.8.70.102])
23/03/26 07:23:34.10 59OPwUx30.net
>>926
答が出せない椰子の典型的なレスだな。
928:卵の名無しさん (アウアウウー Sa0f-uZf+ [106.180.1.41])
23/03/26 12:29:20.99 ehKBvke7a.net
>>927
全く相手にされてないだけなのに、自分のチンパン難題()に答えられるやつはいないって悦に浸ってるなんてさすが尿瓶ジジイだねww
5chでバカにされてるだけで幸せだろ?どうせアンタみたいなやつリアルじゃ誰も相手にしてくれないんだしさw
929:卵の名無しさん (アウアウウー Sa0f-uZf+ [106.128.73.55])
23/03/26 12:36:53.80 z4elRGvba.net
>>920
大体septick shockって何だよw
septic shockだろ
医者だったら書き込む前にすぐおかしいって気づくわw違和感半端ないもんw
尿瓶ジジイは相変わらず英語苦手みたいだねw
nurseすら間違えるしマジで中学生以下だな
スペルミスとかそういう次元じゃないww
930:卵の名無しさん
23/03/26 18:22:31.27 vO//PZyba.net
医師じゃなくてもわかりそうやな
語尾がckで終わる形容詞なんぞそうそうないやろ
このクソ学力wwww
931:卵の名無しさん (JP 0H8f-cOoj [146.70.31.52 [上級国民]])
23/03/27 11:06:40.34 VVveAWkpH.net
年度末は検診も少なくて今日は30分で終了。午後の麻酔まで休憩。
932:卵の名無しさん (アウアウウー Sa0f-uZf+ [106.180.0.248])
23/03/27 12:18:05.90 rUopmo96a.net
その前にスペルチェックしてこい
中学生以下だぞ
933:卵の名無しさん (ワッチョイ eb58-vSlr [14.13.16.0])
23/03/28 08:38:18.06 bWoNfgCM0.net
>>931
バイト代で税込み12万だが最終的に税金で4割持っていかれる。
934:卵の名無しさん (アウアウウー Sa0f-uZf+ [106.128.75.212])
23/03/28 13:51:26.32 rXTShojUa.net
本人だけだから本気で医者だと思ってるのw
数学板でも脳内医者が見抜かれてゴミ扱いw
935:卵の名無しさん (アウアウキー Sacf-uZf+ [182.251.34.189])
23/03/28 14:34:44.57 M07F1lbza.net
尿瓶ジジイ高校数学スレで頑張ってるけどことごとくバカにされてて草
936:卵の名無しさん (アウアウキー Sacf-uZf+ [182.251.34.189])
23/03/28 23:21:08.23 M07F1lbza.net
おい尿瓶ジジイ
さっさとなんか言えよ
septick shockにでもなったか?w
937:卵の名無しさん (ワッチョイ 4558-3PNc [14.13.16.0])
23/04/01 06:29:46.57 T1JldYqx0.net
balls=rep(c('黒','赤','白'),c(3,4,5))
explode=\(x) any(diff(which(x=="黒"))==1) || any(diff(which(x=="赤"))==1) || any(diff(which(x=="白"))==1)
calc=\(k=1e6) replicate(k,sample(balls) |> explode()) |> mean()
calc()
938:卵の名無しさん (ワッチョイ 4558-3PNc [14.13.16.0])
23/04/02 06:29:58.95 y9RbVGG40.net
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
n=1
a=NULL
b=rep(1:3,3:5)
tmp=pick(b)
b=tmp$rest
a[n]=tmp$picked
flg=TRUE
while(flg){
tmp=pick(b)
b=tmp$rest
flg <- a[n]!=tmp$picked & length(tmp$rest)!=0
n=n+1
a[n]=tmp$picked
}
n
939:卵の名無しさん (ワッチョイ 15c7-w0Fq [124.47.76.122])
23/04/02 14:47:34.78 ZiqZRUGD0.net
x=sample(rep(1:3,3:5))
x
y=x[1:2]
i=2
flg <- length(unique(y))<3
while(flg){
i=i+1
y=c(y,x[i])
flg <- length(unique(y))<3
}
i
940:卵の名無しさん (ワッチョイ 15c7-w0Fq [124.47.76.122])
23/04/02 14:58:26.24 ZiqZRUGD0.net
f=\(x){
y=x[1:2]
i=2
flg <- length(unique(y))<3
while(flg){
i=i+1
y=c(y,x[i])
flg <- length(unique(y))<3
}
i
}
sim=\() f(sample(rep(1:3,3:5)))
replicate(1000,sim()) |> table()
941:卵の名無しさん (アウアウウー Sa99-IZbk [106.128.70.190])
23/04/02 16:59:20.28 1dmOWK4Ja.net
もう噛み付く元気もないのか尿瓶w