底辺私立医大を卒業した医者って頭悪いよね? Part27at HOSP
底辺私立医大を卒業した医者って頭悪いよね? Part27 - 暇つぶし2ch701:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.242])
23/03/11 07:25:26.30 +uwWLgVta.net
小中学生にバカにされるのが忘備録?w

スレリンク(math板)

702:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 07:25:41.95 qdEMO2/i0.net
>>699
これを知っていたから術中はソルアセト全開で滴下

703:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 07:27:08.99 qdEMO2/i0.net
>>701
忘備録って小学生に笑われるぞ!

704:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 07:36:11.81 qdEMO2/i0.net
オペナースに麻酔計画を送るときにRでの出力を添付するんだが、
 以下は私の美貌BS,BS備忘録です
と書いている。
そういえば昨日も2例目は開脚位だったなぁ。

705:卵の名無しさん (スッププ Sdff-fnc/ [49.105.100.144])
23/03/11 07:40:40.58 2pzrCwI2d.net
>>703
忘備録は確かに厳密には間違いだが、普通に使うぞ。こっちの方が和製漢語としてはわかりやすいしな(目的語+動詞)
胆汁ドレナージよりは使用率高いwww

706:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:53:13.65 6nupuhL1H.net
>>705
使わない。
少なくとも東大合格者なら使わない。

707:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:54:06.01 6nupuhL1H.net
>>705
厳密でなくても間違いだよ。試験に書いたら0点。
そういう学力では東大に合格できないはずww

708:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:58:27.01 6nupuhL1H.net
>>705
胆汁ドレナージは小児外科医が普通に使っていると同業者が投稿していたよ。
昨日は懇意なオペナースから、次の患者さんはマーチューが入ってますよと言われた。
マッチュー持針器のはずがないと思って訪ねたら何の略か教えてくれた。
所変われば品変わるみたいに呼称もさまざまだなぁ。
熊本でボボ・ブラジル、新潟で辺野古空軍基地というのは避けた方がいいらしい。

709:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:59:18.48 6nupuhL1H.net
>>705
防腐剤を腐防剤と呼ぶ人はいないよなぁ。
東大合格者ならわかるはずw

710:卵の名無しさん (JP 0Hab-fnc/ [202.253.111.210])
23/03/11 08:01:58.35 KXvcaaKGH.net
>>708
胆汁ドレナージはOKで忘備録は駄目なのか?
普通の医者の感覚なら少なくとも胆汁ドレナージはアウトだけどな~www
まあ、医者じゃないからそこらへんの感覚が無いんだろうな
他人の間違いは意気揚々と指摘するくせに自分の間違いは認めない老害の典型だなお前は

711:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.70.191])
23/03/11 09:59:23.98 IK7wPuU1a.net
>>708
使わねーよ脳内医者じゃなきゃ

712:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:07:34.01 6nupuhL1H.net
>>710
胆汁ドレナージは小児外科医が普通に使っていると同業者が投稿していたよ。

肝臓切離断端からのリークの腹腔ドレナージは胆汁ドレナージで胆管ドレナージではないからね。

713:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:08:17.41 6nupuhL1H.net
>>711
マーチューも使うのが可愛いオペナースw

714:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:08:51.30 6nupuhL1H.net
アストラップもアストと略していたけど、俺はすぐにわかったな。

715:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:09:56.85 6nupuhL1H.net
>>705
んで、あんたは防腐剤じゃなくて腐防剤と呼ぶのかよwwww

716:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.70.191])
23/03/11 10:12:39.19 IK7wPuU1a.net
>>715
ふぼうざいをわざわざ変換して書き込んでる尿瓶想像すると笑えるw

717:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 10:53:46.81 qdEMO2/i0.net
gamma2hourlyVol=\(mg,mL,kg,gamma){ # mcg/kg/min -> mL/h
# mg/1000mcg * kg/body * 60min/h * mL/mg * gammma
60/1000*mL/mg*kg*gamma
}
gamma2hourlyVol(150,50,50,1)
gamma2hourlyVol(1,20,50,0.05)

718:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 10:59:27.82 qdEMO2/i0.net
gamma2hourlyVol=\(mg,mL,kg,gamma){ # mcg/kg/min -> mL/h
# mg/1000mcg * kg/body * 60min/h * mL/mg * gammma
60/1000*mL/mg*kg*gamma
}
# 0.3% DOB 1gamma
gamma2hourlyVol(150,50,50,1)

# Noradrenaline 1mg/20mL 0.05gamma-0.3gamma
gamma2hourlyVol(1,20,50,0.05)

719:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.14])
23/03/11 11:01:36.15 CsTMrTNNa.net
胆汁ドレナージジイ例によってダンマリw

720:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 11:13:45.74 qdEMO2/i0.net
敗血症性ショック時の昇圧剤としての、第一
選択薬はノルアドレナリン
• ノルアドレナリンの必要量が増加し
15μg/min(50kgで0.3γ)程度の投与量に
なった時点で、バソプレシンの併用を考慮す

• 投与速度は0.03U/minで開始、基本的に増量
はしない

721:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 11:15:43.53 qdEMO2/i0.net
>>719
昨日は麻酔2件で20諭吉ゲットで(・∀・)イイ!!
まあ今日は休みなので2例目を受けたが帰宅は9時過ぎた。

722:卵の名無しさん (スッププ Sdff-fnc/ [49.105.101.74])
23/03/11 11:35:40.75 euOgx9add.net
>>721
今日は何時になく発狂してるなw
数学板でも、数学とは全く関係ないスレ違いのレスを連投しみんなドン引き
私立医にまた虐められたのか?医療事務のおっさん

723:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.69.67])
23/03/11 12:05:47.40 HkmlxkYpa.net
>>721
小中高の学生にバカにされるのがよっぽど好きみたいだね
元医療事務のジジイはここだけお医者さんになれるw

724:卵の名無しさん (ワッチョイ 5fd2-Zcu+ [133.175.196.107])
23/03/11 13:29:24.88 2ohEnh4H0.net
>>721
毎日毎日朝から晩まで5ちゃん漬けやんwwwwww

725:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.68.204])
23/03/11 15:33:33.54 5H6Y9ik/a.net
そもそも胆汁ドレナージなんてどっから出てくるんだよタコ
少なくとも医者にはない発想だぞ

726:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 20:38:07.02 qdEMO2/i0.net
norad=\(kg,gamma=0.05, mg=1,mL=20){
cat('Noradrenaline : Dilute',mg,'A (1A=1mg) with',mL-mg, 'mL saline. \n')
L=60/1000*mL/mg*kg*gamma # 0.05mcg/kg/min
U=6*L # 0.30mcg/kg/min
cat('Begin at',L,'mL/h up to',U,'mL/h.\n\n')
}
norad(kg=50)
norad(kg=65,gamma=0.05,mg=1,mL=50)

vasopr=\(){ # 0.03U/min/body no increase
cat('Vasopressin : Dilute 1A (20U) with 99mL saline for 20U/100mL solution.\n')
# 0.03U/min * 60min/h * 100mL/20U = 0.03*60*100/20 = 9
cat('constant infusion at 9 mL/h for 0.03U/min, no increase.\n')
}
vasopr()

727:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 20:40:50.97 qdEMO2/i0.net
>>724
昨日は午後から2件の麻酔だった。
今日はseptisのガイドラインを読んだついでに
ノルアドレナリンとピトレシンンのスクリプトを作っておいた。
quickSOFAの評価が下がったからバイタルに呼吸数を記載するのをやめるかな。

728:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.68.118])
23/03/11 20:42:46.65 8UqunsUba.net
>>727
尿瓶クソジジイ朝から晩まで5chしておきながら図星をつかれるとダンマリを決め込んで算数もどきでキーキー喚き出すw
そんなゴミみたいな人生の末死にたいか?

729:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/11 20:47:42.04 qdEMO2/i0.net
APROCCHSS試験では、MAP 65mmHg以上を維持するために、0.25μg/kg/min以上のノルアドレナリン、または1mg/時以上のアドレナリン、またはその他の血管作動薬を少なくとも6時間投与した患者が対象となり、死亡率の低下や、昇圧薬の必要性を下げることを示しました(Annane D, et al. Hydrocortisone plus Fludrocortisone for Adults with Septic Shock. N Engl J Med . 2018;378:809-18.)。

730:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.70.88])
23/03/11 23:20:12.20 X5teERkMa.net
尿瓶は今日も朝から晩まで誰にも相手にされずエセ医学とエセ数学と糞尿を垂れ流す

731:卵の名無しさん (ワッチョイ 67c7-2b5Q [124.47.76.122])
23/03/12 10:39:37.10 gQl6nq1M0.net
セボでの麻酔中はノルアドレナリンは使いにくいんだよなぁ
添付文書で禁忌になっているから。
ネオシネジンの間欠投与で血圧維持した。

732:卵の名無しさん (ブーイモ MMab-2b5Q [202.214.230.120])
23/03/12 10:41:30.60 vd6Yb3juM.net
備忘録に相手されても探しにくくなるから迷惑なだけ。
麻酔薬の出力が統計にみえる椰子がいるらしい。

733:卵の名無しさん (ブーイモ MMab-2b5Q [202.214.230.120])
23/03/12 10:44:38.45 vd6Yb3juM.net
Surviving Sepsis Campaign Guidelines 2021
にはリコモデュリンへの言及なしという。
日本のガイドライン2020も読んでおくかな。

734:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 12:59:59.18 gQl6nq1M0.net
ガンマ計算を対話形式でできるように改造
μg/kg/min -> mL/h


mcg_per_kg_per_min=\(){ # μg/kg/min -> mL/h
input=\() readline() |> str2lang() |> eval()

cat('Dose (mg) ?\n')
mg=input()

cat('Solution (mL) ?\n')
mL=as.numeric(readline())

cat('Weight (kg) ?\n')
kg=input()

cat('μg/kg/min ?\n')
gamma=input()

mL_H=60/1000*mL/mg*kg*gamma
cat(mL_H, 'mL/h\n')
}

735:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 13:00:05.27 gQl6nq1M0.net
体重45kgの患者にノルアドレナリンを0.05μg/kg/minで投与

> mcg_per_kg_per_min()

Dose (mg) ?
1

Solution (mL) ?
20

Weight (kg) ?
45

μg/kg/min ?
0.05

2.7 mL/h

736:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.71.35])
23/03/12 13:04:09.17 jDVt2Pqxa.net
尿瓶ジジイここじゃ数学板みたいに発狂する元気はもう残ってないw

737:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 13:05:31.83 gQl6nq1M0.net
1時間設定でのガンマ計算を対話形式でできるように改造(分数対応)
mg/kg/h -> mL/h

mg_per_kg_per_hour=\(){ # μg/kg/min -> mL/h
input=\() readline() |> str2lang() |> eval()

cat('\nDose (mg) ?\n')
mg=input()

cat('\nSolution (mL) ?\n')
mL=input()

cat('\nWeight (kg) ?\n')
kg=input()

cat('\nmg/kg/h ?\n')
Gamma=input()

mL_H=mL/mg*kg*Gamma
cat('\n',mL_H, 'mL/h\n')
}

738:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 13:05:51.28 gQl6nq1M0.net
体重45kgの患者のプレセデックスのローディング6μg/kg/h
6μgは0.006mgより6/1000mgと入力した方が間違いにくい

> mg_per_kg_per_hour()

Dose (mg) ?
200/1000

Solution (mL) ?
50

Weight (kg) ?
45

mg/kg/h ?
6/1000

67.5 mL/h

739:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 13:09:04.16 gQl6nq1M0.net
波を防ぐのは防波堤、波防堤ではない。
(quote)
>>694
忘備録なんかチラ裏にでも書いとけよボケジジイ
こんなんじゃ認知症の予防どころか悪化する一方だぞ
(unquote)
スレリンク(hosp板:696番)

尿瓶チンパポンコツフェチは波防堤というのかなぁ

740:卵の名無しさん (ワッチョイ 8758-fnc/ [106.73.2.65])
23/03/12 15:29:13.81 3idQabQB0.net
>>739
胆汁ドレナージの方が忘備録よりよっぽど酷いけどなwww忘備録とか一般人は普通に使うじゃん
胆汁ドレナージって使うのはお前だけ
尿瓶ジジイは脳室ドレナージを脳汁ドレナージとか言うのかな?www

741:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.69.148])
23/03/12 15:41:16.30 LIOblPmoa.net
認知症と言われたのがよほど気に障ったのかな?ごめんごめんww

742:卵の名無しさん (ワッチョイ 67c7-2b5Q [124.47.76.122])
23/03/12 17:44:25.10 gQl6nq1M0.net
声を発するのは発声、声発ではない。

743:卵の名無しさん (ブーイモ MMab-2b5Q [202.214.167.40])
23/03/12 17:44:55.74 PHssLlssM.net
声を発するのは発声、声発ではない。

744:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 19:40:57.44 gQl6nq1M0.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('μg/kg/min','mL/h')

L=ifelse(length(gamma)==1,0,min(gamma))
U=ifelse(length(gamma)==1,5*gamma,max(gamma))
curve(coef*x,L,U,bty='l',xlab='μg/kg/min',ylab='mL/h')
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)
}
}
points(mat,pch=16)
mat
}

# ノルアドレナリン1mgを全量20mLに希釈して体重65kgで0.05~0.30μg/kg/minで投与するときの速度とグラフを出力
> gamma2hourlyVol(mg=1,mL=20,kg=65,gamma=c(0.05,0.30))
μg/kg/min mL/h
[1,] 0.05 3.9
[2,] 0.30 23.4
URLリンク(i.imgur.com)

745:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 19:51:39.92 gQl6nq1M0.net
μg/kg/h表示のプレセデックス版

hourly_gamma2hourlyVol=function(mcg,mL,kg,gamma){ # μg/kg/h -> mL/h
coef=mL/mcg*kg
velocity=coef*gamma
mat=cbind(gamma,velocity)
colnames(mat)=c('μg/kg/h','mL/h')

L=ifelse(length(gamma)==1,0,min(gamma))
U=ifelse(length(gamma)==1,5*gamma,max(gamma))
curve(coef*x,L,U,bty='l',xlab='μg/kg/h',ylab='mL/h')
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,4)[i%%2+1],lty=3)
segments(X[1],Y[j],X[n],Y[j],col=c(8,4)[j%%2+1],lty=3)
}
}
points(mat,pch=16)
mat
}
"添付文書通り、プレセデックス200μg/50mLを6μg/kg/hで初期投与(10分)"
# Precedex loading 200mcg/50mL at 6mcg/kg/h on label
hourly_gamma2hourlyVol(mcg=200,mL=50,kg=50,gamma=6)

"添付文書通りプレセデックス200μg/50mLを0.2-0.7μg/kg/hで維持"
# Precedex maintenance 200mcg/50mL at 0.2-0.7 mcg/kg/h on label
hourly_gamma2hourlyVol(200,50,50,c(0.2,0.7))

746:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 20:07:58.45 gQl6nq1M0.net
> hourly_gamma2hourlyVol(200,50,50,c(0.2,0.7))
μg/kg/h mL/h
[1,] 0.2 2.50
[2,] 0.7 8.75

URLリンク(i.imgur.com)

あとは、
URLリンク(www.merckmanuals.com)
のような計算サイトでの結果と照合して確認

747:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 20:12:07.86 gQl6nq1M0.net
mL/hからμg/kg/h変換のスクリプトを作ろうかとも思ったが、グラフを読めば概算値はわかるのでやめた。

748:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 20:22:04.07 gQl6nq1M0.net
タイトルをつけて濃度・体重を表示させた方が混乱しにくいので、グラフの出力を改訂。

URLリンク(i.imgur.com)

749:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.70.39])
23/03/12 21:43:50.79 jXTJddJea.net
>>743
胆道ドレナージは胆汁ドレナージとは言わない、というか胆汁ドレナージなんて医者からは出てこない発想

750:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 22:36:04.42 gQl6nq1M0.net
"術後疼痛に用いる場合は、フェンタニル注射液(1A=100μg/2mL)として0.02?0.04mL/kg(フェンタニルとして1?2μg/kg)を緩徐に静注後、
フェンタニル注射液として0.02?0.04mL/kg/h(フェンタニルとして1?2μg/kg/h)の速さで点滴静注する。
"
# =================== gamma per kg by hour ======================================= #
# Intra Venous
hourly_gamma2hourlyVol=function(mcg,mL,kg,gamma){ # mcg/kg/h -> mL/h
coef=mL/mcg*kg
velocity=coef*gamma
mat=cbind(gamma,velocity)
colnames(mat)=c('mcg/kg/h','mL/h')

L=ifelse(length(gamma)==1,0,min(gamma))
U=ifelse(length(gamma)==1,5*gamma,max(gamma))
main=paste('concenteration =',mcg,'mcg /',mL,'mL\nweight =',kg,'kg')
curve(coef*x,L,U,bty='l',xlab='mcg/kg/h',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,4)[i%%2+1],lty=3)
segments(X[1],Y[j],X[n],Y[j],col=c(8,4)[j%%2+1],lty=3)
}
}
points(mat,pch=16)
mat
}

# フェンタニル 1A = 100μg/2mL 20A/300mL
hourly_gamma2hourlyVol(mcg=100*20,mL=300,kg=50,gamma=c(1,2))

751:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 22:39:16.03 gQl6nq1M0.net
>>749
いうよ。肝臓切離断端においた腹腔ドレーンは胆汁ドレナージを目的とする。
昔、整形外科医を助手にresectional debridementをやったなぁ。
肝破裂の夜間の緊急オペだったのでガーゼパッキングのダメコンオペにしようと始めたのだがバイタルが意外に安定していたのでresectional debridementで済んでsecond lookは必要なかった。
まあ、血気胸も合併していたから術後は大変だった。

752:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 22:40:54.32 gQl6nq1M0.net
酒を飲むのは飲酒であって酒飲とは言わない。

753:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/12 22:45:15.41 gQl6nq1M0.net
登山とは山に登ることである、山登とは言わない。

これは恥ずかしいよなぁ。

(quote)
>>694
忘備録なんかチラ裏にでも書いとけよボケジジイ
こんなんじゃ認知症の予防どころか悪化する一方だぞ
(unquote)
スレリンク(hosp板:696番)

754:卵の名無しさん (ワッチョイ 8758-fnc/ [106.73.2.65])
23/03/12 23:19:58.26 3idQabQB0.net
>>753
胆汁ドレナージの方が恥ずかしいぞ
他の奴を叩いて自分擁護か?
現実から目をそらすなジジイ

755:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 05:24:11.44 WCSfXxyl0.net
0.2*V=1*a
6*(n*100)/V=15

20*n=15a
V=6*n*100/15 =40*n < 300
n < 300/40 = 7.5

n=7
V=280
a=0.2*V/1=56
V-a-n*2=280-56-2*7=210

756:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 05:25:01.18 WCSfXxyl0.net
認知症予防の問題(東大合格者でないと答が出せないかもしれんなぁ。)

容量300mLの硬膜外持続注入バルーンを注入速度6mL/hで使用する。
1%アナペイン(10mg/mL)とフェンタニル(1アンプル : 100μg/2mL)と生食を混ぜて0.2%アナペイン相当に希釈する。
6mL/hの注入速度でフェンタニルが15μg/hになるようにしたい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
容量300mL以下でなるべく大量に薬剤を充填したい。
以上の条件をみたす、1%アナペインの量(mL)、フェンタニルのアンプル数、生理塩水の量(mL)を求めよ

757:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 05:43:01.14 WCSfXxyl0.net
BaloonJecter=\(x6=6,y15=15,z300=300){
# x6:injection speed(mL/h), y15: Fentanyl infection rate(mcg/h) ,z300:volume of injecter
n=floor(z300*y15/x6/100)
V=x6*n*100/y15
a=0.2*V
s=V-a-n*2
c('1% Anapeine(mL)'=a,'Fentanyl(A)'=n,'saline(mL)'=s,'total(mL)'=V)
}
BaloonJecter()

758:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.70.39])
23/03/13 07:15:37.06 cac6gmaXa.net
>>751
言わねーよタコw
いい加減脳内医者であることを認めろよw
医者にない発想だからw

759:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 08:06:24.00 WCSfXxyl0.net
内視鏡スレに業界ネタを書いたら業界人から賛同のレスがついたなぁ。

760:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 08:07:08.43 WCSfXxyl0.net
>>756
数値を変えても計算できるようにスクリプト化して保存しておくと便利だな。

761:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 08:07:50.85 WCSfXxyl0.net
肝臓切離断端においた腹腔ドレーンは胆汁ドレナージを目的とする。

762:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 08:09:25.19 WCSfXxyl0.net
脱字があったので修正

認知症予防の問題(東大合格者でないと答が出せないかもしれんなぁ。)

容量300mLの硬膜外持続注入バルーンを注入速度6mL/hで使用する。
1%アナペイン(10mg/mL)とフェンタニル(1アンプル : 100μg/2mL)と生理的食塩水を混ぜて0.2%アナペイン相当に希釈する。
6mL/hの注入速度でフェンタニルが15μg/hになるようにしたい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
容量300mL以下でなるべく大量に薬剤を充填したい。
以上の条件をみたす、1%アナペインの量(mL)、フェンタニルのアンプル数、生理的食塩水の量(mL)を求めよ

763:卵の名無しさん (ワッチョイ 67c7-JIpj [124.47.76.122])
23/03/13 08:22:33.35 WCSfXxyl0.net
こういう問題でもいいな。他に応用が効くから1回の計算で終わらせるのは勿体ない。


容量 z mLの硬膜外持続注入バルーンを注入速度 x mL/hで使用する。
1%アナペイン(10mg/mL)とフェンタニル(1アンプル : 100μg/2mL)と生理的食塩水を混ぜて0.2%アナペイン相当に希釈する。
x mL/hの注入速度でフェンタニルが y μg/hになるようにしたい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
容量z mL以下でなるべく大量に薬剤を充填したい。
1%アナペインの量a(mL)、フェンタニルのアンプル数n、生理的食塩水の量s(mL)として
a, n, sをx,y,zで表せ。 ガウス記号[] ([m]はmを超えない最大の整数) を用いてよい。

764:卵の名無しさん (JP 0Hab-fnc/ [202.253.111.210])
23/03/13 11:06:00.90 Y4CWOtU1H.net
>>761
アホかお前、肝損傷の腹腔ドレーンは
胆汁のドレナージだけじゃないだろ
出血とかも見るのに胆汁ドレナージっておかしいだろ
正確には腹腔ドレーンによる胆汁瘻のドレナージな胆汁ドレナージなんて言葉はどの学会誌にも書いていません、他の医者に馬鹿にされるからな
学会発表とかしてる普通の医者なら常識

765:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/13 15:55:19.08 1VFYM45n0.net
>>764
ENBDは胆汁ドレナージのひとつ
別におかしくはない。

766:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/13 15:57:24.80 1VFYM45n0.net
>700で正しく備忘録と書いているのに
忘備録とか言い出すアホが尿瓶チンパポンコツフェチ

767:卵の名無しさん (ワッチョイ 2758-qK9Q [14.13.16.0])
23/03/13 16:02:30.42 1VFYM45n0.net
切離断端から後出血するようなら術者失格。
可能な場合には生食と空気を混ぜて胆嚢管からリークテストをするのがお勧め。

768:卵の名無しさん (アウアウキー Sabb-QyoF [182.251.29.11])
23/03/13 16:18:53.74 M+KJxbP1a.net
>>765
病院で医者適当に捕まえて胆汁ドレナージって言ってみろ、笑われるぞw

769:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 16:59:51.10 G3xv/LvTH.net
# プロタノールL注0.2mgを全量20mLに希釈して体重50kgで0.02~0.20μg/kg/minで投与するときの速度とグラフを出力

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)
}
}
points(mat,pch=16)
mat
}

# isoproterenol 0.2mg/20mL at 0.02-0.20mcg/kg/min
gamma2hourlyVol(mg=0.2,mL=20,kg=50,gamma=c(0.02,0.20))

770:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:01:07.69 G3xv/LvTH.net
>>768
同僚の小児外科医が使っているというレスがあったなぁ。
あんた肝切除したことあんの?
断端のリークテストはどうやってる?

771:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:07:03.57 G3xv/LvTH.net
>>768
別に笑われずに理解するぞ。
ENBD、PTCD、腹腔ドレーンを含めたことを指していると理解される。
備忘録を忘備録という方がよっぽど恥ずかしいね。
備忘録と書いているのにわざわざ忘備録という誤用の表現にするのは備忘録という熟語を知らなかったと推測される。

772:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:23:46.56 G3xv/LvTH.net
>>763
時間をかければ誰でも計算できる(シリツ医は除く)が暗算で即答するのは難しいから予め計算しておくとよい。
プログラムを作っておくと( ・∀・)イイ!!エクセルでもFLOOR関数を使えば簡単。

773:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:58:23.06 G3xv/LvTH.net
> BaloonJecter(6,15)

Epidural Injection at 6 mL/h for 15 mcg/h of Fentanyl.
1% Anapeine(mL) Fentanyl(A) saline(mL) total(mL)
56 7 210 280

を検証

1%アナペイン56mLは560mg
全量が280mLなので560/280=2 mg/mL これはw/v % で0.2%アナペインに相当。
フェンタニル7A=700μg
700μg/280mL*6mL/h=15μg/h

で 御明算で( ・∀・)イイ!!

774:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 18:01:53.69 G3xv/LvTH.net
今日は麻酔がないのでフランスパンを焼いたり、鶏骨付きもも肉でコンフィを作る。
温度管理は器械任せにできるのが( ・∀・)イイ!!

775:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 18:09:10.73 G3xv/LvTH.net
リスドールがきれたので今日はカメリアでフランスパンを焼成。

776:卵の名無しさん (アウアウキー Sabb-QyoF [182.251.29.11])
23/03/13 19:33:26.37 M+KJxbP1a.net
>>771
そりゃ脳内医療は笑うやつなんかいないだろうよ
現実みろw

777:卵の名無しさん (アウアウキー Sabb-QyoF [182.251.29.11])
23/03/13 19:39:43.29 M+KJxbP1a.net
忘備録忘備録と嬉しそうにほざいても賛同が得られるどころか逆にバカにされまくる尿瓶w

778:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 07:54:25.46 i15xFVQRH.net
アナペインは0.1%以上の濃度であればいいようなので最終濃度を0.2%にする必要はなさそう。

ディスポーザブルポンプを用いた,0.2% ロピバカインとフェンタニルによる術後硬膜外疼痛管理
1014 日臨麻会誌 Vol. 30 No.7/Nov. 2010
を参考にスクリプトを改訂

BaloonJecter=\(x=4,y=15,z=300,c=0.125,c0=0.2){
# x:injection speed(mL/h),
# y: Fentanyl injection rate(mcg/h)
# z:volume of injecter
# c: concentration of diluted ropivacaine
# c0 : concentration of original ropivacaine (1 or 0.2)
n=floor(z*y/x/100)
V=x*n*100/y
a=c*V/c0
s=V-a-n*2
if(s<0) return(NA)
cat('\nEpidural Injection at', x,'mL/h','for', y, 'μg/h of Fentanyl with',
c,'% Anapeine\n')
re=c(round(a),n,round(s),round(V))
names(re)=c(paste0(c0,'% Anapeine(mL)'),'Fentanyl(A)','saline(mL)','total(mL)')
re
}
BaloonJecter(4,15,300,0.2,1.0)
BaloonJecter(4,15,300,0.1,0.2)

779:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 07:55:28.20 i15xFVQRH.net
>>776
んで、あんた肝切除したことあんの?
中央2区域切除後のfollow up CTを見るのは楽しいぞ。

780:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 07:57:07.31 i15xFVQRH.net
内視鏡スレにCSPの後出血への私見を投稿したら賛同のレスがついたなぁ。

781:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 08:00:31.66 i15xFVQRH.net
整数表示にした方が実用的で( ・∀・)イイ!!

> BaloonJecter(4,15,300,0.2,1.0)

Epidural Injection at 4 mL/h for 15 μg/h of Fentanyl with 0.2 % Anapeine
1% Anapeine(mL) Fentanyl(A) saline(mL) total(mL)
59 11 213 293

> BaloonJecter(4,15,300,0.1,0.2)

Epidural Injection at 4 mL/h for 15 μg/h of Fentanyl with 0.1 % Anapeine
0.2% Anapeine(mL) Fentanyl(A) saline(mL) total(mL)
147 11 125 293
>

782:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 08:03:28.86 i15xFVQRH.net
一般化するとこういう問題だな。

容量 z mLの硬膜外持続注入バルーンを注入速度 x mL/hで使用する。
c0%アナペインとフェンタニル(1アンプル : 100μg/2mL)と生理的食塩水を混ぜてc%アナペイン相当に希釈する。
x mL/hの注入速度でフェンタニルが y μg/hになるようにしたい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
容量z mL以下でなるべく大量に薬剤を充填したい。
c0%アナペインの量a(mL)、フェンタニルのアンプル数n、生理的食塩水の量s(mL)として
a, n, sをc,c0,x,y,zで表せ。 ガウス記号[] ([m]はmを超えない最大の整数) を用いてよい。

783:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 08:06:56.84 i15xFVQRH.net
麻酔科医って公式に認められていない薬剤投与を平気でするよなぁ。
規定以上のロクロニウム、プロポフォールに各種薬剤を混入、ドロペリドールを硬膜外投与とか。

俺なんぞは吸入麻酔中はノルアドレナリンはさけてフェニレフリンで代用している。
喘息患者にフェンタニルも避けている。

784:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 08:13:32.77 i15xFVQRH.net
容量 z mLの硬膜外持続注入バルーンを注入速度 x mL/hで使用する。
c0%アナペインとフェンタニル(1アンプル : 100μg/2mL)と生理的食塩水s mLを混ぜてc%アナペイン相当に希釈する。
x mL/hの注入速度でフェンタニルが y μg/hになるようにしたい。

フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
容量z mL以下でなるべく大量に薬剤を充填したい。

c0%アナペインの量a(mL)、フェンタニルのアンプル数n、生理的食塩水の量s(mL)として
a, n, sをc,c0,x,y,zで表せ。 ガウス記号[] ([m]はmを超えない最大の整数) を用いてよい。

785:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 11:38:31.96 i15xFVQRH.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='mHcg/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)
}
}
points(mat,pch=16)
mat
}
# ==== For Hyper tension =====
Herbesser10=\(kg,mg=10,mL=20,gamma=c(5,15)){ # 1 Vial = 10mg powder 5 - 15 mcg/kg/min
gamma2hourlyVol(mg,mL,kg,gamma)
}
Herbesser10(50)

Perdipine2=\(kg,mg=2,mL=100,gamma=c(0.5,6)){ # 2mg/2mL 0.5 - 6 mcg/kg/min
gamma2hourlyVol(mg,mL,kg,gamma)
}
Perdipine2(50)

786:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 12:48:16.03 i15xFVQRH.net
持続投与の速度については Turner らは
0.2 %ロピバカインの 6 ~ 14ml/h の硬膜外投与が有用であると報告している.
しかし,日本人においては 0.2 %ロピバカインの投与量が 8ml/h 以上では血
圧が低下する可能性があり,6ml/h 以下の硬膜外投与が安全に施行可能であると報告されている
今回の研究では 0.2 %ロピバカインの持続投与量を
身長155cm 以上の症例では 6ml/h,身長 155cm 未満の症例では 4ml/h とした.
....
0.2 %ロピバカインに併用するフェンタニル投与量は身長 155cm 以上の場合,
10 μg/h ではVAS が他の群に比較して有意に高く,
15 μg/h では良好な鎮痛効果を示したことから,15 μg/h が適切であることが考えられた.
しかし,身長 155cm 未満の場合はフェンタニル投与量が 10 μg/h と 15 μg/hで VAS に有意差を認めず,
両群において良好な鎮痛効果を示したことより,10 μg/h で十分であると考えられた.

URLリンク(www.jstage.jst.go.jp)

上記を参考に投与法を計算する。

問題

身長175cmの患者に容量50mLのシリンジを用いて6mL/hで硬膜外腔に0.75%ロピバカイン、フェンタニル(1A 100μg/2mL)の生理食塩水希釈液を持続投与したい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。総容量50mL以下でなるべく大量に薬剤を充填したい。
上記をみたす希釈法を述べよ。数値はmL単位でよい。

787:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 12:49:01.30 i15xFVQRH.net
Epidural=\(cm,z=300,c=0.125,c0=0.2){
x=ifelse(cm<155,4,6)
y=ifelse(cm<155,10,15)
# x:injection speed(mL/h),
# y: Fentanyl injection rate(mcg/h)
# z:volume of injecter
# c: concentration of diluted ropivacaine
# c0 : concentration of original ropivacaine (1 or 0.2)
n=floor(z*y/x/100)
V=x*n*100/y
a=c*V/c0
s=V-a-n*2
if(s<0) return(NA)
cat('Heigth =',cm,'cm')
cat('\nEpidural Injection at', x,'mL/h','for', y, 'μg/h of Fentanyl with',
c,'% Anapeine\n')
re=c(round(a),n,round(s),round(V))
names(re)=c(paste0(c0,'% Anapeine(mL)'),'Fentanyl(A)','saline(mL)','total(mL)')
re
}

Epidural(cm=175,z=50,c=0.2,c0=0.75)

788:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 13:30:07.58 i15xFVQRH.net
容量50mLのシリンジを用いて6mL/hで硬膜外腔に0.75%ロピバカイン、フェンタニル(1A 100μg/2mL)の生理食塩水希釈液を持続投与したい。
フェンタニル投与速度は10 μg/h、注入薬のロピバカイン濃度は0.2%にしたい。
フェンタニルは麻薬なので残量がでないようにアンプル単位で使用する。
総容量50mL以下でなるべく大量に薬剤を充填したい。
上記をみたす調剤法を述べよ。数値はmL単位でよい。

789:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 20:37:43.33 i15xFVQRH.net
# ===================================================
# mg/kg/h
mg_per_kg_per_hour2hourlyVol=function(mg,mL,kg,gamma){ # mg/kg/h -> mL/h
coef=mL/mg*kg
velocity=coef*gamma
mat=cbind(gamma,velocity)
colnames(mat)=c('mg/kg/h','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='mg/kg/h',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,4)[i%%2+1],lty=3)
segments(X[1],Y[j],X[n],Y[j],col=c(8,4)[j%%2+1],lty=3)
}
}
points(mat,pch=16)
mat
}
"ドプラム 400mg/20mL 1-3 mg/kg/h"
mg_per_kg_per_hour2hourlyVol(mg=400,mL=20,kg=50, gamma=c(1,3))

790:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 20:42:48.89 i15xFVQRH.net
TXI(Texture and Color Enhancement Imaging)、RDI(Red Dichromatic Imaging)、EDOF(Extended Depth of Field)

791:卵の名無しさん (ガックシ 06ab-QyoF [202.223.252.37])
23/03/14 22:58:14.45 WuoDUdxH6.net
>>779
尿瓶がやったら犯罪だぞ
脳内医師免許なんだから

792:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 08:01:46.91 x+Em05LvH.net
異なる5個の自然数があり。
これらの中には
2で割ると1が余る数が1個、
3で割ると2が余る数が2個
5で割ると3が余る数が3個
このときこの5個の自然数の和として考えられる最小値を求めよ。


# a,b,c : 除数
# ra,rb,rc : 剰余
# na,nb,nc : 個数
# 5個の自然数の最大値をnとしてn=5から増やしていき条件を満たせば終了。
calc=\(a,b,c,ra,rb,rc,na,nb,nc){
f=\(x) sum(x%%a==ra)==na & sum(x%%b==rb)==nb & sum(x%%c==rc)==nc
g=\(n){
cm=t(combn(n,5))
idx=apply(cm,1,f)
ans=cm[idx,]
if(sum(idx)==1) return(ans)
s=rowSums(ans)
re=ans[order(s),]
if(nrow(re)) re[1,] else 0
}
n=5
while(!sum(g(n))){
n=n+1
}
list(g(n),sum(g(n)))
}

calc(2,3,5,1,2,3,1,2,3)

793:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 09:31:22.09 x+Em05LvH.net
先週麻酔したseptic shockの患者、抜管できてカテコラミンも中止できたと連絡があった。くたびれたが夜まで麻酔していた甲斐があった。
敗血症ガイドラインを学び直す契機になったし、次に備えて希釈と投与速度のスクリプト作成もできた。

794:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 10:11:44.92 x+Em05LvH.net
これは参考になる
希釈・投与速度に注意する救急薬剤
URLリンク(kyoudou-hp.com)
希釈表のとおりに一度に複数アンプルを使う気にならんのもあるが、ノルアドレナリンを末梢とCVで濃度を変えているのは( ・∀・)イイ!!
ノルアドレナリン投与の自作スクリプトを改訂しておこう。

795:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 11:10:53.20 x+Em05LvH.net
>>794
末梢用ノルアドレナリン

URLリンク(i.imgur.com)

796:卵の名無しさん (アウアウウー Sa2b-QyoF [106.128.69.92])
23/03/15 11:30:20.08 R3JEYsola.net
尿瓶の独語が止まらないw

797:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
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


次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch