23/03/06 15:22:11.08 7P/oyKRnH.net
>>642
ｽﾚﾘﾝｸ(math板:577番)
664:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/06 16:30:28.95 7P/oyKRnH.net
用量設定の臨床試験は男女比１：１を想定して補正係数を計算
rm(list=ls())
par(bty='l')
Adjusting_Coef=\(cm,kg,age, male=TRUE,japanese=TRUE,bmi22=22){
LeanBodyMass=\(cm,kg,Male){
Boer=\(H,W,male){ # Heigth(cm),Weight(kg)
ifelse(male,0.407*W+0.267*H-19.2,0.252*W+0.473*H-48.3)
}
James=\(H,W,male){
ifelse(male,1.1*W-128*(W/H)^2,1.07*W-148*(W/H)^2)
}
Humer=\(H,W,male){
ifelse(male,0.35810*W+0.33929*H-29.5336,0.29569*W+0.41813*H-43.2933)
}
sort(c(Boer(cm,kg,Male),James(cm,kg,Male),Humer(cm,kg,Male)))[2]
}
knight=\(cm,kg,age,Japanese=japanese){
N_coef=(150-age)/100 # Knight's age-correction coeeficient
lbm=LeanBodyMass(cm,kg,male) # actual Lean Body Mass
IBW=bmi22*(cm/100)^2 # Ideal Body Weight @ BMI=22
ILBM=LeanBodyMass(cm,IBW,male)/2+LeanBodyMass(cm,IBW,!male)/2
# Ideal Lean Body Mass @ BMI=22
LBM_coef=lbm/ILBM # coef by LBM
665:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/06 16:30:34.01 7P/oyKRnH.net
bsa= cm^0.725 * kg^0.425 * 0.007184 # DuBois BSA formula
IBSA=cm^0.725 * IBW^0.425 * 0.007184
if(Japanese){
bsa= cm^0.663 * kg^0.444 * 0.008883 # Fujimoto BSA formula
IBSA=cm^0.663 * IBW^0.444 * 0.008883}
BSA_coef=bsa/IBSA # coef by BSA
c(BSA_coef,LBM_coef)*N_coef
}
Knights=knight(cm,kg,age,Japanese=japanese)
Knight50=knight(cm,kg,50,Japanese=japanese)
cat('Coef =',round(Knights[1],3),'(BSA+age)',round(Knights[2],3),'(LBM+age)\n\n')
cat('coef =',round(Knight50[1],3),'(BSA)',round(Knight50[2],3),'(LBM)\n\n')
invisible(Knights)
}
666:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 04:27:39.80 TWcCP8GNH.net
5mm 10mm 15mm 20mm 25mm 30mm 35mm 40mm 45mm 50mm 55mm
55℃ 225 240 255 270 295 310 340 370 400 430 460
56℃ 155 170 185 200 225 240 270 300 330 360 390
57℃ 110 125 140 155 180 195 225 255 285 315 345
58℃ 75 85 105 120 145 160 190 220 250 280 310
59℃ 50 65 80 95 120 135 165 195 225 255 285
60℃ 35 50 65 80 105 120 150 180 210 240 270
61℃ 30 45 60 75 100 115 145 175 205 235 265
62℃ 20 35 50 65 90 105 135 165 195 225 255
63℃ 20 30 50 65 90 105 135 165 195 225 255
64℃ 15 30 45 60 85 100 130 160 190 220 250
65℃ 10 25 40 55 80 95 125 155 185 215 245
667:卵の名無しさん (ｱｳｱｳｷｰ Sab7-raVH [182.251.26.185])
23/03/07 05:29:00.13 z7ScV1Gca.net
尿瓶ジジイは素数の逆数和が収束するとかほざいて数学板で手厳しくツッコミを受けてますw
668:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 05:46:05.67 TWcCP8GNH.net
低温調理 加熱時間基準表
URLﾘﾝｸ(boniq.jp)
を参考に関数化
33mmの牛肉を59℃で低音調理するときの時間：分を表示
> Beef(33,59)
[1] 2:45
鶏肉
> Chicken(33,59)
[1] 3:15
豚肉
> Pork(33,59)
[1] NA
61℃未満ではNot Available を返す
こういう小道具を作っておくと役に立つ。
道具が増えても、
スクリプトはテキストファイルなのでgrepを使えばどこにあるかも検索できるのが( ・∀・)ｲｲ!!
669:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 05:49:03.06 TWcCP8GNH.net
>>650
ここは医師板のスレなんだが、
尿瓶チンパポンコツフェチって医師が羨ましいんだなぁ。
東京大学卒とか京都大学卒なら医科歯科卒を妬む必要もないだろうに。
俺は、収束すると断定してないぞ。
Rで1000個計算サせただけ。
発散するという証明が提示されれば説得力があるんだが、出題者はそれもできないからなぁ。
670:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 05:54:51.24 TWcCP8GNH.net
昨日は低温調理でローストポークを作った。
前は八角を隠し味にしていたが、最近は五香粉を使用。
料理好きの懇意なナースとの会話
俺：「八角を隠し味に使うのは良くないって知ってる？」
ナース：「身体に悪いんですか？」
俺：「隠し味なのに、はっかく（発覚）するから」
671:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 06:08:52.89 TWcCP8GNH.net
出力の形式を改良
> Beef(35,60)
Heat 35 mm thick Beef at 60 ℃ for 2:30
672:卵の名無しさん (JP 0Hb2-KH6y [217.138.252.98 [上級国民]])
23/03/07 06:10:06.10 TWcCP8GNH.net
>>650
尿瓶チンパポンコツフェチが発散する証明を出せば数学板でも賞賛されるんだろうが、シリツ卒だから無理そうだな。
673:卵の名無しさん (ﾜｯﾁｮｲ bb58-OXBy [106.73.2.65])
23/03/07 06:58:44.97 cdIfqGtf0.net
>>654
尿瓶もう、医療ネタ全く出さなくなったなwww算数ごっこ楽しい？
674:卵の名無しさん (ﾜｯﾁｮｲ bb58-OXBy [106.73.2.65])
23/03/07 07:10:05.61 cdIfqGtf0.net
尿瓶ジジイ、数学板で全然別人にキレて突っかかって笑えるwww
やっぱこいつ統合失調症だろwww
675:卵の名無しさん (ｱｳｱｳｷｰ Sab7-raVH [182.251.26.185])
23/03/07 07:20:20.39 z7ScV1Gca.net
朝っぱらから大発狂w
>>652
いや、収束するってほざいてたぞ
しかも計算機でキーキー喚いてドヤ顔とかw
676:卵の名無しさん (ﾜｯﾁｮｲ 1b3b-wTep [160.86.236.19])
23/03/07 10:37:16.87 1kJ9kKhm0.net
まぁ一日中だよな
その事を恥ずかしいとも思えない
677:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/07 18:44:21.03 ji45FmbDH.net
> Anesthesia(171.2,70.3,64,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 23.99
Ideal Body Weight(kg) = 64.48
Body Weight @ BMI25(kg) = 73.27
Lean Body Mass(kg) = 55.12
Predicted Body Weight(kg) = 67.11
Coef = 0.894 (BSA+Age) 0.941 (LBM+Age)
coef = 1.039 (BSA) 1.094 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 9.42
bolus(mL) = 0.63
CE(ng/mL)@(1mL/h) = 0.76
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 10.54 - 21.09
Rocuronium (no adjust)
bolus(mL) = 4.22 - 6.33
continuous(mL/h) = 1.27 - 1.69
Sevoflurane(adjusted by age)
MAC(%) 1.81
maintenance(%) 1 - 1.21
Incisor to Tracheal MidPoint = 22.1 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 537 Respiratory Rate = 14
678:卵の名無しさん (ｱｳｱｳｷｰ Sab7-raVH [182.251.26.185])
23/03/07 23:14:55.64 z7ScV1Gca.net
尿瓶ジジイダンマリで相変わらず算数もどき()
679:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/08 06:37:34.77 VxaGa9sO0.net
>>660
どの補正値を使うかは個別症例で判断だな。
若者だと大きめ、高齢者は小さめを選択。
680:卵の名無しさん (ｱｳｱｳｷｰ Sab7-raVH [182.251.26.185])
23/03/08 07:58:16.85 FvZpS2bDa.net
>>662
で、いつになったら脳内卒業証書出せんだよ？
681:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/08 09:41:53.29 gkHcAhtWH.net
Chat GPTにロクロニウムの投与計算に用いる体重の値は何がいいか聞いてみた。
ロクロニウムは筋肉弛緩薬であり、投与量は患者の体重に基づいて計算されます。一般的には、投与量は患者の実際の体重に基づいて計算されます。つまり、体脂肪率に関係なく、全体的な体重が使用されます。
ただし、いくつかの臨床状況では、除脂肪体重に基づいて投与量を計算することが推奨される場合があります。これには、肥満患者、筋肉量が多い患者、または高齢者などが含まれます。これらの患者では、実際の体重ではなく、除脂肪体重に基づいて投与量を調整することが、より適切な投与量を得るために必要になる場合があります。
したがって、ロクロニウムの投与量を計算する際には、患者の状態や臨床的状況を考慮し、実際の体重または除脂肪体重のどちらを使用するかを決定する必要があります。投与量の計算に関する具体的な指示は、医師や看護師から提供される場合が多いため、専門家に相談することをお勧めします。
682:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/08 09:48:34.55 gkHcAhtWH.net
BMI低値の症例でTOFモニターが偽陰性（TOF=0なのに自発呼吸あり）を経験した。
TOF偽陰性とBMIの関係をChatGPTに聞いてみた。
TOF（トレイン・オブ・フォー）検査は、筋肉弛緩薬の投与効果を評価するための検査です。TOF検査によって、神経-筋接合部におけるアセチルコリンの効果が評価されます。通常、四肢の末梢神経を刺激して筋収縮の反応を測定します。
一般的に、TOF偽陰性は、筋肉弛緩薬の効果が不十分であるために生じます。TOF偽陰性の原因は様々ですが、肥満患者においては、筋肉量が多いために筋肉弛緩薬の効果が低下することが報告されています。これは、肥満患者のBMI（体重（kg）/身長（m）^2）が高く、筋肉量が多いためです。
一方、TOF偽陰性は、低体重や筋肉量が少ない患者でも発生する可能性があります。例えば、高齢者や慢性疾患を有する患者は、筋肉量が少なく、筋肉弛緩薬の効果が低下する可能性があります。
総じて、TOF偽陰性とBMIの関係は複雑であり、患者の個別の状態によって異なります。したがって、筋肉弛緩薬の投与前に、患者の個別の状態を考慮して、TOF検査の解釈を行う必要があります。
683:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/08 09:53:21.47 gkHcAhtWH.net
導入時は添付文書での規定の上限、維持はTOFをみて調整と思っていたんだな、TOF偽陰性を経験してからどうしたものかと思案中。
深めにしておいてスガマデックスで拮抗でもいいんだが、鼠径ヘルニア手術だと丸めなので使用する薬剤は最小限にとどめたい。
684:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/08 10:21:04.19 gkHcAhtWH.net
ChatGPTからこんなレスが
申し訳ありません、先程の回答に誤りがありました。正しいロクロニウムの至適血中濃度は以下の通りです。
開始時：0.6-1.2 mcg/mL
メンテナンス時：0.4-0.6 mcg/mL
単位が誤っていたため、混乱を招いてしまいました。お詫び申し上げます。
俺の認識では 0.15μg/mLなんだが。
結論：現時点ではChatGPTは信頼できない。
685:卵の名無しさん (JP 0Hb2-KH6y [217.138.212.122 [上級国民]])
23/03/08 10:22:10.12 gkHcAhtWH.net
>>663
医科歯科卒を羨むとはどこの底辺シリツ卒なんだよ？
東大や京大卒なら羨む必要もないはず。
686:卵の名無しさん (JP 0H0b-OXBy [202.253.111.210])
23/03/08 13:27:50.24 aOrAYtwFH.net
>>668
どこをどう読んだらお前が羨ましいってことになるんだよwww
学歴詐称すんなって言ってんの
どう考えても、医科歯科卒の頭してないよ
お前は
687:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:10:59.24 skbReqchH.net
>>669
んで、あんたどこの医学部卒？
688:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:11:56.98 skbReqchH.net
ドル高トレンドになってきたなぁ。
# 証拠金維持率(Margin Level)の算出
ML=\(
Balance, # 残高
Bid, # Bid(介入後はBidの底値)
Ask, # c(エントリー価格)
Lot, # c(購入ロット数)
Swap, # c(スワップ)
Credit, # クレジット
Leverage=1000, # レバレッジ
Dollars_per_Lot=1e5, # 1ロット通貨数
verbose=FALSE){
Dollars=Dollars_per_Lot*Lot # 購入＄
Margin=sum(Ask*Dollars/Leverage) # 必要証拠金
Profit=sum((Bid-Ask)*Dollars)+sum(Swap) # 損益
Equity=Balance+Credit+Profit # 有効証拠金
FreeMargin=Equity-Margin # 余剰証拠金
MarginLevel=Equity/Margin*100 # 証拠金維持率
if(verbose)print(c('証拠金'=Margin,'損益'=Profit,'有効証拠金'=Equity,
'余剰証拠金'=FreeMargin,'証拠金維持率'=MarginLevel))
return(MarginLevel)
}
ML(Balance,Bid,Ask,Lot,Swap,Credit,verbose=TRUE)
689:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:12:02.26 skbReqchH.net
# Bid底値から必要な残高を算出
bid2balance=\(
bid, # Bidの底値
ask, # c(取得買値)
lot, # c(取得ロット)
swap, # スワップ
credit, # クレジット
loss_cut){ # 強制ロスカットの証拠金維持率(%) Loss Cut Margin Level
f=\(x) ML(Balance=x,Bid=bid,Ask=ask,Lot=lot,Swap=swap,Credit=credit) - loss_cut
uniroot(f,c(0,1e7))$root
}
bid2balance(bid=Bid,ask=Ask,lot=Lot,swap=Swap,credit=Credit,loss_cut=20)
690:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:12:15.97 skbReqchH.net
# 残高の値から１ドル何円のBid底値まで耐えうるかを算出
balance2bid=\(
balance, # 残高
ask, # c(取得買値)
lot, # c(取得ロット)
swap, # c(スワップ)
credit, # クレジット
loss_cut=20){# 強制ロスカットの証拠金維持率(%)
g=\(x) ML(Balance=balance,Bid=x,Ask=ask,Lot=lot,Swap=swap,Credit=credit) - loss_cut
uniroot(g,c(50,360))$root
}
balance2bid(balance=Balance,ask=Ask,lot=Lot,credit=Credit,swap=Swap,loss_cut=20)
691:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:26:02.49 skbReqchH.net
(quote)
R言語とはオークランド大学で開発された、OSSの統計解析向けプログラミング言語です。
柔軟な言語構成であり、複雑な計算処理を行える高速な組み込み関数群が常備されグラフ機能による視覚化もできるため、計算結果をすぐに視覚化することが出来ます。
最近では統計学にとどまらず、金融工学や機械学習、データマイニングなど幅広い分野で利用されています。
(unquote)
数学スレでの問題を解くのに、不定長整数が扱えるのでPythonも齧ったけど、作図が便利なRに戻ることになったなぁ。
692:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/09 06:39:07.32 skbReqchH.net
>>669
俺でも理１や医科歯科合格できたのに、あんたどこの医学部卒なの？
693:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sda2-OXBy [49.105.69.100])
23/03/09 07:39:45.94 kmXybJ3Bd.net
>>675
東大
694:卵の名無しさん (ｱｳｱｳｳｰ Sa6b-raVH [106.128.70.203])
23/03/09 07:57:00.13 nldYnthja.net
>>668
卒業証書なんか当然出せずに尿瓶大発狂w
695:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/09 08:32:55.22 textV/ul0.net
東大卒でRが使えないってポンコツじゃね？
696:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sda2-OXBy [49.105.93.45])
23/03/09 09:47:16.86 3l1++A5Ud.net
>>678
統計ソフトがRだけだと思ってんのか？
視野が狭いなお前
後、使ってないだけで使えるよ
お前と違って臨床研究論文書くために統計ソフトは使ってるんだよ
ニートは算数ごっこでもずっとやってろ
697:卵の名無しさん (ﾜｯﾁｮｲ bb58-OXBy [106.73.2.65])
23/03/09 20:02:53.84 MPWIVQsi0.net
尿瓶ジジイぐうの音も出ず数学板で発狂w
マジで糞雑魚過ぎる
698:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/09 21:01:22.12 textV/ul0.net
こういうのがRでできるのよね。
URLﾘﾝｸ(i.imgur.com)
699:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/09 21:04:12.56 textV/ul0.net
これもRで作った。
URLﾘﾝｸ(i.imgur.com)
700:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/09 21:10:28.70 textV/ul0.net
統計とは無関係なプログラミング言語として使えて(・∀・)ｲｲ!!
701:卵の名無しさん (ﾜｯﾁｮｲ bb58-OXBy [106.73.2.65])
23/03/09 21:54:12.90 MPWIVQsi0.net
>>683
それ、医者がやる必要の無いことだよね？
702:卵の名無しさん (ﾜｯﾁｮｲ 7f58-tavC [14.13.16.0 [上級国民]])
23/03/09 22:03:22.98 textV/ul0.net
Rはプログラム電卓としてこういう計算にも使えるから便利。
> Anesthesia(171.2,70.3,64,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 23.99
Ideal Body Weight(kg) = 64.48
Body Weight @ BMI25(kg) = 73.27
Lean Body Mass(kg) = 55.12
Predicted Body Weight(kg) = 67.11
Coef = 0.894 (BSA+Age) 0.941 (LBM+Age)
coef = 1.039 (BSA) 1.094 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 9.42
bolus(mL) = 0.63
CE(ng/mL)@(1mL/h) = 0.76
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 10.54 - 21.09
Rocuronium (no adjust)
bolus(mL) = 4.22 - 6.33
continuous(mL/h) = 1.27 - 1.69
Sevoflurane(adjusted by age)
MAC(%) 1.81
maintenance(%) 1 - 1.21
Incisor to Tracheal MidPoint = 22.1 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 537 Respiratory Rate = 14
703:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/10 05:22:55.79 cl5BHavw0.net
こういうのもRで数値解が出せて( ・∀・)ｲｲ!!
A(1,0) B(4,4) C(-1,8) D(-2,0)を頂点とする四角形ABCDの形のチョコがある。
URLﾘﾝｸ(i.imgur.com)
このチョコを１本の直線で切離して等面積の２個のチョコに分割したい。
チョコの切離線の長さが最小になるときの直線の方程式と分割線の長さを求めよ。
答は小数桁２桁の表示でよい。
704:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/10 11:15:49.35 y4BpEticH.net
import random
def simulate(x):
uboat = x
russian = 100
while uboat > 0 and russian > 0:
if random.random() < 0.1:
russian -= 1
if random.random() < 0.01:
uboat -= 1
return uboat == 0
wins = 0
trials = 100000
for i in range(trials):
if simulate(15):
wins += 1
print(wins / trials)
705:卵の名無しさん (JP 0H03-KH6y [146.70.31.52 [上級国民]])
23/03/10 11:23:07.36 y4BpEticH.net
やっぱり、Pythonのコードはインデントが失われてしまうなぁ。
706:卵の名無しさん (ｱｳｱｳｳｰ Sa6b-wTep [106.131.197.162])
23/03/10 11:30:20.93 CrzAE0wTa.net
アホに計算機使わせてもアホコードしか書けない
自分がアホコード書いてる認識ができないから自分の恥を自分で晒すピエロ
707:卵の名無しさん (ﾌﾞｰｲﾓ MM9e-7ZNo [163.49.212.86])
23/03/10 14:03:44.98 0oCAfaiEM.net
BMI = 19.15
Ideal Body Weight(kg) = 61.36
Body Weight @ BMI25(kg) = 69.72
Lean Body Mass(kg) = 46.25
Predicted Body Weight(kg) = 63.29
Coef = 0.762 (BSA+Age) 0.781 (LBM+Age)
coef = 0.94 (BSA) 0.965 (LBM)
Propofol(mL) in bolus = 4.07 / 8.13 - 10.17
injection speed = 0.2 mL/sec
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.1
bolus(mL) = 0.41
CE(ng/mL)@(1mL/h) = 0.9
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.01 - 16.02
Rocuronium (no adjust)
bolus(mL) = 3.2 - 4.81
continuous(mL/h) = 0.96 - 1.28
Sevoflurane(adjusted by age)
MAC(%) 1.75
maintenance(%) 0.94 - 1.17
Incisor to Tracheal MidPoint = 21.7 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 506 Respiratory Rate = 14
708:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sda2-OXBy [49.105.102.219])
23/03/10 16:27:43.15 GDX+g+Idd.net
>>690
そんなこと、ここに書いてどうするの？
ここはお前のメモ帳じゃないんだけど
それとも、R使えるよって自慢したいってこと？それ全く自慢にならないよ
709:卵の名無しさん (ｱｳｱｳｳｰ Sa6b-wTep [106.131.199.252])
23/03/10 18:53:33.83 b46NVRzwa.net
英文混じりの出力出してなんとなく“高度な事やってる”気分になる低脳
710:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/10 21:21:01.23 cl5BHavw0.net
急遽もう1件麻酔を頼まれたが
Rのスクリプトで速攻で計算できた。
超勤手当を含めて２０万は美味しい。
抜管せずに退室したが執刀医が術後はみるので
病院から電話が来ることもないのも( ・∀・)ｲｲ!!
711:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/10 21:22:11.43 cl5BHavw0.net
>>691
いや俺の備忘録だよ
712:卵の名無しさん (ﾜｯﾁｮｲ 7f58-xFtl [14.13.16.0])
23/03/10 21:24:57.01 cl5BHavw0.net
２バイト文字を使うとアプリによっては文字化けするからね。
変数名だけでなくpathにも日本語を入れないのはバグ回避の常識。
明日は休みなので今日は稼げて気分が( ・∀・)ｲｲ!!
713:卵の名無しさん (ｱｳｱｳｳｰ Sa6b-raVH [106.128.71.244])
23/03/10 21:57:35.80 +360n2q0a.net
>>694
忘備録なんかチラ裏にでも書いとけよボケジジイ
こんなんじゃ認知症の予防どころか悪化する一方だぞ
714:卵の名無しさん (ｻｻｸｯﾃﾛﾗ Sp4f-obng [126.158.25.173])
23/03/10 22:28:07.19 hceEMWHnp.net
底辺医学部出た奴はこんな感じだよ
youtu.be/uIbdbL-ECKM
こいつアホなんか？○○っスってなんだよ
しかも患者に逆ギレしてきた
715:卵の名無しさん (ｻｻｸｯﾃﾛﾗ Sp4f-obng [126.158.25.173])
23/03/10 22:28:07.74 hceEMWHnp.net
底辺医学部出た奴はこんな感じだよ
youtu.be/uIbdbL-ECKM
こいつアホなんか？○○っスってなんだよ
しかも患者に逆ギレしてきた
716:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 07:21:22.90 qdEMO2/i0.net
15.1.1 海外臨床試験において、重症敗血症患者（感染が確認され、かつ全身性炎症反応症候群（SIRS）基準を有し、少なくとも1つの臓器不全（＝SOFAスコア3以上）を呈した患者）にHES製剤を使用した場合、酢酸リンゲル液を使用した場合と比較して投与後90日時点での死亡のリスクが増加し腎代替療法を要した患者の割合が高かったとの報告がある2)。
また、敗血症患者を含むICUの入院患者にHES製剤を使用した場合、生理食塩液を使用した場合と比較して投与後90日までの死亡のリスクは増加しなかったが、腎代替療法を要した患者の割合が高かったとの報告がある3)。［1.、2.7、9.1.4参照］
15.1.2 海外臨床試験において、成人の人工心肺を使用した心臓手術時の輸液管理にHES製剤を使用した場合、アルブミンを使用した場合と比較して輸血が必要となる術後出血及び出血による再手術のリスクが高かったとの報告がある4)。
717:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 07:23:05.37 qdEMO2/i0.net
以前から備忘録だよ
例
ｽﾚﾘﾝｸ(hosp板)
718:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.242])
23/03/11 07:25:26.30 +uwWLgVta.net
小中学生にバカにされるのが忘備録？w
ｽﾚﾘﾝｸ(math板)
719:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 07:25:41.95 qdEMO2/i0.net
>>699
これを知っていたから術中はソルアセト全開で滴下
720:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 07:27:08.99 qdEMO2/i0.net
>>701
忘備録って小学生に笑われるぞ！
721:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 07:36:11.81 qdEMO2/i0.net
オペナースに麻酔計画を送るときにRでの出力を添付するんだが、
以下は私の美貌BS,BS備忘録です
と書いている。
そういえば昨日も２例目は開脚位だったなぁ。
722:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sdff-fnc/ [49.105.100.144])
23/03/11 07:40:40.58 2pzrCwI2d.net
>>703
忘備録は確かに厳密には間違いだが、普通に使うぞ。こっちの方が和製漢語としてはわかりやすいしな（目的語＋動詞）
胆汁ドレナージよりは使用率高いwww
723:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:53:13.65 6nupuhL1H.net
>>705
使わない。
少なくとも東大合格者なら使わない。
724:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:54:06.01 6nupuhL1H.net
>>705
厳密でなくても間違いだよ。試験に書いたら０点。
そういう学力では東大に合格できないはずｗｗ
725:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:58:27.01 6nupuhL1H.net
>>705
胆汁ドレナージは小児外科医が普通に使っていると同業者が投稿していたよ。
昨日は懇意なオペナースから、次の患者さんはマーチューが入ってますよと言われた。
マッチュー持針器のはずがないと思って訪ねたら何の略か教えてくれた。
所変われば品変わるみたいに呼称もさまざまだなぁ。
熊本でボボ・ブラジル、新潟で辺野古空軍基地というのは避けた方がいいらしい。
726:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 07:59:18.48 6nupuhL1H.net
>>705
防腐剤を腐防剤と呼ぶ人はいないよなぁ。
東大合格者ならわかるはずｗ
727:卵の名無しさん (JP 0Hab-fnc/ [202.253.111.210])
23/03/11 08:01:58.35 KXvcaaKGH.net
>>708
胆汁ドレナージはOKで忘備録は駄目なのか？
普通の医者の感覚なら少なくとも胆汁ドレナージはアウトだけどな～www
まあ、医者じゃないからそこらへんの感覚が無いんだろうな
他人の間違いは意気揚々と指摘するくせに自分の間違いは認めない老害の典型だなお前は
728:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.70.191])
23/03/11 09:59:23.98 IK7wPuU1a.net
>>708
使わねーよ脳内医者じゃなきゃ
729:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:07:34.01 6nupuhL1H.net
>>710
胆汁ドレナージは小児外科医が普通に使っていると同業者が投稿していたよ。
肝臓切離断端からのリークの腹腔ドレナージは胆汁ドレナージで胆管ドレナージではないからね。
730:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:08:17.41 6nupuhL1H.net
>>711
マーチューも使うのが可愛いオペナースｗ
731:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:08:51.30 6nupuhL1H.net
アストラップもアストと略していたけど、俺はすぐにわかったな。
732:卵の名無しさん (JP 0H4b-NZR3 [146.70.31.52 [上級国民]])
23/03/11 10:09:56.85 6nupuhL1H.net
>>705
んで、あんたは防腐剤じゃなくて腐防剤と呼ぶのかよｗｗｗｗ
733:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.70.191])
23/03/11 10:12:39.19 IK7wPuU1a.net
>>715
ふぼうざいをわざわざ変換して書き込んでる尿瓶想像すると笑えるw
734:卵の名無しさん (ﾜｯﾁｮｲ 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)
735:卵の名無しさん (ﾜｯﾁｮｲ 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)
736:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.14])
23/03/11 11:01:36.15 CsTMrTNNa.net
胆汁ドレナージジイ例によってダンマリw
737:卵の名無しさん (ﾜｯﾁｮｲ 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で開始、基本的に増量
はしない
738:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 11:15:43.53 qdEMO2/i0.net
>>719
昨日は麻酔２件で２０諭吉ゲットで(・∀・)ｲｲ!!
まあ今日は休みなので２例目を受けたが
739:帰宅は９時過ぎた。
740:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sdff-fnc/ [49.105.101.74])
23/03/11 11:35:40.75 euOgx9add.net
>>721
今日は何時になく発狂してるなw
数学板でも、数学とは全く関係ないスレ違いのレスを連投しみんなドン引き
私立医にまた虐められたのか？医療事務のおっさん
741:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.69.67])
23/03/11 12:05:47.40 HkmlxkYpa.net
>>721
小中高の学生にバカにされるのがよっぽど好きみたいだね
元医療事務のジジイはここだけお医者さんになれるw
742:卵の名無しさん (ﾜｯﾁｮｲ 5fd2-Zcu+ [133.175.196.107])
23/03/11 13:29:24.88 2ohEnh4H0.net
>>721
毎日毎日朝から晩まで5ちゃん漬けやんwwwwww
743:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.68.204])
23/03/11 15:33:33.54 5H6Y9ik/a.net
そもそも胆汁ドレナージなんてどっから出てくるんだよタコ
少なくとも医者にはない発想だぞ
744:卵の名無しさん (ﾜｯﾁｮｲ 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()
745:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/11 20:40:50.97 qdEMO2/i0.net
>>724
昨日は午後から2件の麻酔だった。
今日はseptisのガイドラインを読んだついでに
ノルアドレナリンとピトレシンンのスクリプトを作っておいた。
quickSOFAの評価が下がったからバイタルに呼吸数を記載するのをやめるかな。
746:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.68.118])
23/03/11 20:42:46.65 8UqunsUba.net
>>727
尿瓶クソジジイ朝から晩まで5chしておきながら図星をつかれるとダンマリを決め込んで算数もどきでキーキー喚き出すw
そんなゴミみたいな人生の末死にたいか？
747:卵の名無しさん (ﾜｯﾁｮｲ 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.）。
748:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.70.88])
23/03/11 23:20:12.20 X5teERkMa.net
尿瓶は今日も朝から晩まで誰にも相手にされずエセ医学とエセ数学と糞尿を垂れ流す
749:卵の名無しさん (ﾜｯﾁｮｲ 67c7-2b5Q [124.47.76.122])
23/03/12 10:39:37.10 gQl6nq1M0.net
セボでの麻酔中はノルアドレナリンは使いにくいんだよなぁ
添付文書で禁忌になっているから。
ネオシネジンの間欠投与で血圧維持した。
750:卵の名無しさん (ﾌﾞｰｲﾓ MMab-2b5Q [202.214.230.120])
23/03/12 10:41:30.60 vd6Yb3juM.net
備忘録に相手されても探しにくくなるから迷惑なだけ。
麻酔薬の出力が統計にみえる椰子がいるらしい。
751:卵の名無しさん (ﾌﾞｰｲﾓ MMab-2b5Q [202.214.230.120])
23/03/12 10:44:38.45 vd6Yb3juM.net
Surviving Sepsis Campaign Guidelines 2021
にはリコモデュリンへの言及なしという。
日本のガイドライン2020も読んでおくかな。
752:卵の名無しさん (ﾜｯﾁｮｲ 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')
}
753:卵の名無しさん (ﾜｯﾁｮｲ 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
754:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.35])
23/03/12 13:04:09.17 jDVt2Pqxa.net
尿瓶ジジイここじゃ数学板みたいに発狂する元気はもう残ってないw
755:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 13:05:31.83 gQl6nq1M0.net
１時間設定でのガンマ計算を対話形式でできるように改造（分数対応）
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')
}
756:卵の名無しさん (ﾜｯﾁｮｲ 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
757:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 13:09:04.16 gQl6nq1M0.net
波を防ぐのは防波堤、波防堤ではない。
(quote)
>>694
忘備録なんかチラ裏にでも書いとけよボケジジイ
こんなんじゃ認知症の予防どころか悪化する一方だぞ
(unquote)
ｽﾚﾘﾝｸ(hosp板:696番)
尿瓶チンパポンコツフェチは波防堤というのかなぁ
758:卵の名無しさん (ﾜｯﾁｮｲ 8758-fnc/ [106.73.2.65])
23/03/12 15:29:13.81 3idQabQB0.net
>>739
胆汁ドレナージの方が忘備録よりよっぽど酷いけどなwww忘備録とか一般人は普通に使うじゃん
胆汁ドレナージって使うのはお前だけ
尿瓶ジジイは脳室ドレナージを脳汁ドレナージとか言うのかな？www
759:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.69.148])
23/03/12 15:41:16.30 LIOblPmoa.net
認知症と言われたのがよほど気に障ったのかな？ごめんごめんww
760:卵の名無しさん (ﾜｯﾁｮｲ 67c7-2b5Q [124.47.76.122])
23/03/12 17:44:25.10 gQl6nq1M0.net
声を発するのは発声、声発ではない。
761:卵の名無しさん (ﾌﾞｰｲﾓ MMab-2b5Q [202.214.167.40])
23/03/12 17:44:55.74 PHssLlssM.net
声を発するのは発声、声発ではない。
762:卵の名無しさん (ﾜｯﾁｮｲ 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)
763:卵の名無しさん (ﾜｯﾁｮｲ 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))
764:卵の名無しさん (ﾜｯﾁｮｲ 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)
のような計算サイトでの結果と照合して確認
765:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 20:12:07.86 gQl6nq1M0.net
mL/hからμg/kg/h変換のスクリプトを作ろうかとも思ったが、グラフを読めば概算値はわかるのでやめた。
766:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 20:22:04.07 gQl6nq1M0.net
タイトルをつけて濃度・体重を表示させた方が混乱しにくいので、グラフの出力を改訂。
URLﾘﾝｸ(i.imgur.com)
767:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.70.39])
23/03/12 21:43:50.79 jXTJddJea.net
>>743
胆道ドレナージは胆汁ドレナージとは言わない、というか胆汁ドレナージなんて医者からは出てこない発想
768:卵の名無しさん (ﾜｯﾁｮｲ 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))
769:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 22:39:16.03 gQl6nq1M0.net
>>749
いうよ。肝臓切離断端においた腹腔ドレーンは胆汁ドレナージを目的とする。
昔、整形外科医を助手にresectional debridementをやったなぁ。
肝破裂の夜間の緊急オペだったのでガーゼパッキングのダメコンオペにしようと始めたのだがバイタルが意外に安定していたのでresectional debridementで済んでsecond lookは必要なかった。
まあ、血気胸も合併していたから術後は大変だった。
770:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 22:40:54.32 gQl6nq1M0.net
酒を飲むのは飲酒であって酒飲とは言わない。
771:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/12 22:45:15.41 gQl6nq1M0.net
登山とは山に登ることである、山登とは言わない。
これは恥ずかしいよなぁ。
(quote)
>>694
忘備録なんかチラ裏にでも書いとけよボケジジイ
こんなんじゃ認知症の予防どころか悪化する一方だぞ
(unquote)
ｽﾚﾘﾝｸ(hosp板:696番)
772:卵の名無しさん (ﾜｯﾁｮｲ 8758-fnc/ [106.73.2.65])
23/03/12 23:19:58.26 3idQabQB0.net
>>753
胆汁ドレナージの方が恥ずかしいぞ
他の奴を叩いて自分擁護か？
現実から目をそらすなジジイ
773:卵の名無しさん (ﾜｯﾁｮｲ 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
774:卵の名無しさん (ﾜｯﾁｮｲ 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)を求めよ
775:卵の名無しさん (ﾜｯﾁｮｲ 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()
776:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.70.39])
23/03/13 07:15:37.06 cac6gmaXa.net
>>751
言わねーよタコw
いい加減脳内医者であることを認めろよw
医者にない発想だからw
777:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/13 08:06:24.00 WCSfXxyl0.net
内視鏡スレに業界ネタを書いたら業界人から賛同のレスがついたなぁ。
778:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/13 08:07:08.43 WCSfXxyl0.net
>>756
数値を変えても計算できるようにスクリプト化して保存しておくと便利だな。
779:卵の名無しさん (ﾜｯﾁｮｲ 67c7-JIpj [124.47.76.122])
23/03/13 08:07:50.85 WCSfXxyl0.net
肝臓切離断端においた腹腔ドレーンは胆汁ドレナージを目的とする。
780:卵の名無しさん (ﾜｯﾁｮｲ 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)を求めよ
781:卵の名無しさん (ﾜｯﾁｮｲ 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を超えない最大の整数) を用いてよい。
782:卵の名無しさん (JP 0Hab-fnc/ [202.253.111.210])
23/03/13 11:06:00.90 Y4CWOtU1H.net
>>761
アホかお前、肝損傷の腹腔ドレーンは
胆汁のドレナージだけじゃないだろ
出血とかも見るのに胆汁ドレナージっておかしいだろ
正確には腹腔ドレーンによる胆汁瘻のドレナージな胆汁ドレナージなんて言葉はどの学会誌にも書いていません、他の医者に馬鹿にされるからな
学会発表とかしてる普通の医者なら常識
783:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/13 15:55:19.08 1VFYM45n0.net
>>764
ENBDは胆汁ドレナージのひとつ
別におかしくはない。
784:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/13 15:57:24.80 1VFYM45n0.net
>700で正しく備忘録と書いているのに
忘備録とか言い出すアホが尿瓶チンパポンコツフェチ
785:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/13 16:02:30.42 1VFYM45n0.net
切離断端から後出血するようなら術者失格。
可能な場合には生食と空気を混ぜて胆嚢管からリークテストをするのがお勧め。
786:卵の名無しさん (ｱｳｱｳｷｰ Sabb-QyoF [182.251.29.11])
23/03/13 16:18:53.74 M+KJxbP1a.net
>>765
病院で医者適当に捕まえて胆汁ドレナージって言ってみろ、笑われるぞw
787:卵の名無しさん (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))
788:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:01:07.69 G3xv/LvTH.net
>>768
同僚の小児外科医が使っているというレスがあったなぁ。
あんた肝切除したことあんの？
断端のリークテストはどうやってる？
789:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:07:03.57 G3xv/LvTH.net
>>768
別に笑われずに理解するぞ。
ENBD、PTCD、腹腔ドレｰﾝを含めたことを指していると理解される。
備忘録を忘備録という方がよっぽど恥ずかしいね。
備忘録と書いているのにわざわざ忘備録という誤用の表現にするのは備忘録という熟語を知らなかったと推測される。
790:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 17:23:46.56 G3xv/LvTH.net
>>763
時間をかければ誰でも計算できる（シリツ医は除く）が暗算で即答するのは難しいから予め計算しておくとよい。
プログラムを作っておくと( ・∀・)ｲｲ!!エクセルでもFLOOR関数を使えば簡単。
791:卵の名無しさん (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
で 御明算で( ・∀・)ｲｲ!!
792:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 18:01:53.69 G3xv/LvTH.net
今日は麻酔がないのでフランスパンを焼いたり、鶏骨付きもも肉でコンフィを作る。
温度管理は器械任せにできるのが( ・∀・)ｲｲ!!
793:卵の名無しさん (JP 0H4f-NZR3 [91.193.7.154 [上級国民]])
23/03/13 18:09:10.73 G3xv/LvTH.net
リスドールがきれたので今日はカメリアでフランスパンを焼成。
794:卵の名無しさん (ｱｳｱｳｷｰ Sabb-QyoF [182.251.29.11])
23/03/13 19:33:26.37 M+KJxbP1a.net
>>771
そりゃ脳内医療は笑うやつなんかいないだろうよ
現実みろw
795:卵の名無しさん (ｱｳｱｳｷｰ Sabb-QyoF [182.251.29.11])
23/03/13 19:39:43.29 M+KJxbP1a.net
忘備録忘備録と嬉しそうにほざいても賛同が得られるどころか逆にバカにされまくる尿瓶w
796:卵の名無しさん (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)
797:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 07:55:28.20 i15xFVQRH.net
>>776
んで、あんた肝切除したことあんの？
中央２区域切除後のfollow up CTを見るのは楽しいぞ。
798:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 07:57:07.31 i15xFVQRH.net
内視鏡スレにCSPの後出血への私見を投稿したら賛同のレスがついたなぁ。
799:卵の名無しさん (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
>
800:卵の名無しさん (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以下でなるべく大量に薬剤を充填したい。
ｃ0%アナペインの量a(mL)、フェンタニルのアンプル数n、生理的食塩水の量s(mL)として
a, n, sをc,c0,x,y,zで表せ。 ガウス記号[] （[m]はmを超えない最大の整数) を用いてよい。
801:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/14 08:06:56.84 i15xFVQRH.net
麻酔科医って公式に認められていない薬剤投与を平気でするよなぁ。
規定以上のロクロニウム、プロポフォールに各種薬剤を混入、ドロペリドールを硬膜外投与とか。
俺なんぞは吸入麻酔中はノルアドレナリンはさけてフェニレフリンで代用している。
喘息患者にフェンタニルも避けている。
802:卵の名無しさん (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以下でなるべく大量に薬剤を充填したい。
ｃ0%アナペインの量a(mL)、フェンタニルのアンプル数n、生理的食塩水の量s(mL)として
a, n, sをc,c0,x,y,zで表せ。 ガウス記号[] （[m]はmを超えない最大の整数) を用いてよい。
803:卵の名無しさん (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)
804:卵の名無しさん (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単位でよい。
805:卵の名無しさん (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)
806:卵の名無しさん (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単位でよい。
807:卵の名無しさん (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))
808:卵の名無しさん (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)
809:卵の名無しさん (ｶﾞｯｸｼ 06ab-QyoF [202.223.252.37])
23/03/14 22:58:14.45 WuoDUdxH6.net
>>779
尿瓶がやったら犯罪だぞ
脳内医師免許なんだから
810:卵の名無しさん (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)
811:==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)
812:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 09:31:22.09 x+Em05LvH.net
先週麻酔したseptic shockの患者、抜管できてカテコラミンも中止できたと連絡があった。くたびれたが夜まで麻酔していた甲斐があった。
敗血症ガイドラインを学び直す契機になったし、次に備えて希釈と投与速度のスクリプト作成もできた。
813:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 10:11:44.92 x+Em05LvH.net
これは参考になる
希釈・投与速度に注意する救急薬剤
URLﾘﾝｸ(kyoudou-hp.com)
希釈表のとおりに一度に複数アンプルを使う気にならんのもあるが、ノルアドレナリンを末梢とCVで濃度を変えているのは( ・∀・)ｲｲ!!
ノルアドレナリン投与の自作スクリプトを改訂しておこう。
814:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 11:10:53.20 x+Em05LvH.net
>>794
末梢用ノルアドレナリン
URLﾘﾝｸ(i.imgur.com)
815:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.69.92])
23/03/15 11:30:20.08 R3JEYsola.net
尿瓶の独語が止まらないw
816:卵の名無しさん (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)
817:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 11:51:45.49 x+Em05LvH.net
>>796
備忘録として使用。
忘備録は無教養の人間＝尿瓶チンパポンコツフェチの使う熟語。
818:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 12:01:34.72 x+Em05LvH.net
>>797
どのパラメータを使うかで１を挟んでばらつくときは、補正の必要なしと判断すればいいな。
819:卵の名無しさん (JP 0Hbf-NZR3 [217.138.252.98 [上級国民]])
23/03/15 12:07:40.03 x+Em05LvH.net
>>791
医師免許ないのは尿瓶チンパポンコツフェチだろ。
医師が羨ましければ再受験すればいいのに
俺の同期の2割は学卒。大半は東大卒や京大卒。歯学部には東大数学科卒もいた。
あんた東大合格してないの？
俺はウロとプシコが指定選択科目だった年の国試に現役合格。
どちらも疾患が少ない科目だったので楽勝だった。皮膚科だとうざかっただろうな。
820:卵の名無しさん (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)
821:卵の名無しさん (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)
822:卵の名無しさん (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分かけて緩徐に投与する。
体重65ｋｇでは
> 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分かけて緩徐に投与する。
823:卵の名無しさん (ﾜｯﾁｮｲ 2758-qK9Q [14.13.16.0])
23/03/15 14:23:19.02 Mqjo8yZK0.net
string内の日本語は文字化けせずに出力できるようだ。
変数に使わなければ普通の動作するみたい。
∠は文字化けしたが。
824:卵の名無しさん (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
}
825:卵の名無しさん (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
826:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.69.119])
23/03/15 22:01:22.49 fnb91X9Ba.net
>>798
尿瓶の独語以外の何なんだ？
さっさとお薬飲め
>>800
脳内医者だから他のスレで相手にされずにここで発狂してんだろ？
827:卵の名無しさん (ﾜｯﾁｮｲ 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))
}}}
828:卵の名無しさん (ﾜｯﾁｮｲ 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()
}
829:卵の名無しさん (ﾜｯﾁｮｲ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 09:16:32.79 s2OdkC//0.net
体重55ｋｇの場合
> remimazolam(55)
6. 用法及び用量
〈導入〉
通常、成人には、レミマゾラムとして264 mL/hの速度で、患者の全身状態を観察しながら、意識消失が得られるまで静脈内へ持続注入する。なお、患者の年齢、状態に応じて投与速度を適宜減速すること。
〈維持〉
通常、成人には、レミマゾラムとして22 mL/hの速度で静脈内への持続注入を開始し、
適切な麻酔深度が維持できるよう患者の全身状態を観察しながら、
投与速度を適宜調節するが、上限は44 mL/hとする。
なお、患者の年齢、状態に応じて投与開始速度を適宜減速すること。
覚醒徴候が認められた場合は、最大11 mL/hを静脈内投与してもよい。
830:卵の名無しさん (ﾜｯﾁｮｲ 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"
831:卵の名無しさん (ﾜｯﾁｮｲ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 10:57:41.54 s2OdkC//0.net
>>811
体重65ｋｇの麻酔補助で原液で使用
> 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分間以上の時間をかけて）注射する。
832:卵の名無しさん (ﾜｯﾁｮｲ 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の範囲が推奨される）
833:卵の名無しさん (ﾜｯﾁｮｲ 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/時の範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。"
834:卵の名無しさん (ﾜｯﾁｮｲ 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=20
835:0,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の範囲で持続注入する。 なお、患者の状態に合わせて、投与速度を適宜減速すること。
836:卵の名無しさん (ﾜｯﾁｮｲ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 14:33:49.80 s2OdkC//0.net
これに気がつくまでバグがとれなかった。
"～"=="?"
charToRaw("～")
charToRaw("?")
837:卵の名無しさん (ﾜｯﾁｮｲ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 15:01:50.35 s2OdkC//0.net
URLﾘﾝｸ(www.natade.net)
838:卵の名無しさん (ﾜｯﾁｮｲ 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)
}
}
839:卵の名無しさん (ﾜｯﾁｮｲ 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()
840:卵の名無しさん (ﾜｯﾁｮｲ 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分間隔で追加単回静脈内投与することができる。
841:卵の名無しさん (ﾜｯﾁｮｲ 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を超えないこと。
842:卵の名無しさん (ﾜｯﾁｮｲ 5f3d-NZR3 [5.8.70.102 [上級国民]])
23/03/16 18:55:08.67 s2OdkC//0.net
オノアクト50mgを20mLで希釈して体重60ｋｇの患者に投与する場合
> 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を超えないこと。
843:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.170])
23/03/16 19:43:11.06 3/FwA/RZa.net
なんだまた医者からの質問はダンマリで独語か
844:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.170])
23/03/16 22:44:06.17 3/FwA/RZa.net
脳内医者だから他のスレで相手にされずにここで発狂してんだろ？が図星みたいで大発狂w
845:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-Zcu+ [106.131.198.11])
23/03/17 00:53:39.98 InU4/qsEa.net
(クズサンデープログラマーのクズ作品完成www
いつの時代の話しとんじゃこの能無しwwww
846:卵の名無しさん (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]]
847:卵の名無しさん (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"
>
あとは最終列の文字列を数値変換して換算すれば( ・∀・)ｲｲ!!
848:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:22:40.88 01RvBIogH.net
>>825
だったらあんたが修正して投稿してみたら、Rを使えないんじゃね？
849:卵の名無しさん (JP 0Hbf-NZR3 [217.138.212.98 [上級国民]])
23/03/17 10:29:04.47 01RvBIogH.net
>>822
mL/h表示だとシリンジポンプが設定しやすくて楽。
850:卵の名無しさん (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
851:卵の名無しさん (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分間隔で追加単回静脈内投与することができる。
852:卵の名無しさん (ｱｳｱｳｳｰ Sa2b-QyoF [106.128.71.170])
23/03/17 15:12:32.25 6dhTrJIWa.net
尿瓶の独語は止まらない
853:卵の名無しさん (ﾜｯﾁｮｲ 8730-Zcu+ [160.86.105.70])
23/03/17 16:47:39.63 JN23C4FF0.net
文章自分で打ち込む、コピペして変換wwwwww
アホ～wwwwwwwwww
854:卵の名無しさん (ﾜｯﾁｮｲ 2758-itcf [14.13.16.0 [上級国民]])
23/03/17 18:17:42.17 FcUr8EAW0.net
年齢、除脂質体重や体表面積して算出した値と
体重だけでを用いて添付文書で計算した値が対比できて便利だな。
まあ、on labelの上限を越えての投与になっていないのも確認できて( ・∀・)ｲｲ!!
855:卵の名無しさん (ｶﾞｯｸｼ 06ab-QyoF [202.223.252.37])
23/03/17 19:29:06.28 npRuS0/K6.net
尿瓶他の先生方に噛み付く元気ももうないみたいだねw
856:卵の名無しさん (ｶﾞｯｸｼ 06ab-QyoF [202.223.252.37])
23/03/17 21:06:36.60 npRuS0/K6.net
442 １３２人目の素数さん[sage] 2023/03/17(金) 10:42:45.96 ID:K96QQZee
>>367
外来をやっていると医師の卒業大学を気にする患者に遭遇する。
教員に多かったな。
エビデンスレベルV（個人の考え）
脳内医者はエビデンスも脳内ww
857:卵の名無しさん (ﾌﾞｰｲﾓ 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/ 分
858:卵の名無しさん (ﾌﾞｰｲﾓ 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|分|時)"
859:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/18 13:24:07.68 uuh0wdOL0.net
>>836
ガイドラインのエビデンスレベルすら理解できていないのが
尿瓶チンパポンコツフェチだな。
860:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/18 13:38:38.91 yLGrwx8A0.net
>>839
どこらへんが理解出来てないの？あってるじゃん。Ⅳが専門家の意見だから
Ⅴとか医者じゃない素人の意見ってことだろwww自虐ネタか？w
861:卵の名無しさん (ﾜｯﾁｮｲ 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/分ずつ増減する。"
862:卵の名無しさん (ﾜｯﾁｮｲ 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/時ずつ増減する。
863:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/18 18:03:21.37 uuh0wdOL0.net
>>840
Vは記述研究やケーススタディ
864:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/18 18:05:35.46 uuh0wdOL0.net
0.01～0.04mg/kg/minの ～ の扱いが厄介だった。
865:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/18 18:07:36.38 uuh0wdOL0.net
急性期病棟がクラスター化したので入院不可と言われた。
堂々と救急車をお琴割できる。インセンティブの小金につられて地雷を踏むのはまっぴらだし。
866:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.68.8])
23/03/19 00:32:42.55 uBu/fnrka.net
>>839
個人の考えがエビデンスレベルVってどこの脳内医療だよw
867:卵の名無しさん (ﾜｯﾁｮｲ 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を静脈内投与してもよい
868:卵の名無しさん (ﾜｯﾁｮｲ 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/時の範囲で持続注入する（維持投与）。なお、患者の状態に合わせて、投与速度を適宜減速すること。
869:卵の名無しさん (ﾜｯﾁｮｲ 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がパイプにデフォルトで対応しているから（）対応でのミスが減った。
870:卵の名無しさん (ﾜｯﾁｮｲ 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)
は想定通りに動作してくれた。
出先でも使えて( ・∀・)ｲｲ!! まあ、使いそうな薬剤の用量はローカルの保存してあるけど。
871:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 12:42:40.89 bczs8UVv0.net
URLﾘﾝｸ(www.kegg.jp)
６の次が８になっている
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)
}
で対応できるけど、まだまだ変化球がありそう。
872:卵の名無しさん (ｽｯｯﾌﾟ Sd42-Rc1T [49.96.47.102])
23/03/19 12:42:53.48 ZzBCz3/Cd.net
金沢医大が金沢大を国試合格率で勝ったよ
873:卵の名無しさん (ﾌﾞｰｲﾓ MM4e-qZ0m [133.159.153.205])
23/03/19 13:15:36.82 bmwelPDFM.net
>>852
分母を入学者数で計算したら大差がつくと思う。
874:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.80])
23/03/19 14:16:49.00 A+lqC+R4a.net
さっさとデータ出せよタコ
875:卵の名無しさん (ﾜｯﾁｮｲ 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)