底辺私立医大を卒業した医者って頭悪いよね? Part27at HOSP
底辺私立医大を卒業した医者って頭悪いよね? Part27 - 暇つぶし2ch683:卵の名無しさん (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
# 残高の値から1ドル何円の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
俺でも理1や医科歯科合格できたのに、あんたどこの医学部卒なの?

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)
このチョコを1本の直線で切離して等面積の2個のチョコに分割したい。
チョコの切離線の長さが最小になるときの直線の方程式と分割線の長さを求めよ。
答は小数桁2桁の表示でよい。

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のスクリプトで速攻で計算できた。
超勤手当を含めて20万は美味しい。
抜管せずに退室したが執刀医が術後はみるので
病院から電話が来ることもないのも( ・∀・)イイ!!

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
2バイト文字を使うとアプリによっては文字化けするからね。
変数名だけでなく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備忘録です
と書いている。
そういえば昨日も2例目は開脚位だったなぁ。

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
厳密でなくても間違いだよ。試験に書いたら0点。
そういう学力では東大に合格できないはずww

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
防腐剤を腐防剤と呼ぶ人はいないよなぁ。
東大合格者ならわかるはずw

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
マーチューも使うのが可愛いオペナースw

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
んで、あんたは防腐剤じゃなくて腐防剤と呼ぶのかよwwww

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
昨日は麻酔2件で20諭吉ゲットで(・∀・)イイ!!
まあ今日は休みなので2例目を受けたが


739:帰宅は9時過ぎた。



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
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')
}

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
んで、あんた肝切除したことあんの?
中央2区域切除後の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以下でなるべく大量に薬剤を充填したい。
c0%アナペインの量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以下でなるべく大量に薬剤を充填したい。

c0%アナペインの量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
どのパラメータを使うかで1を挟んでばらつくときは、補正の必要なしと判断すればいいな。

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分かけて緩徐に投与する。


体重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分かけて緩徐に投与する。

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
体重55kgの場合

> 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
体重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分間以上の時間をかけて)注射する。

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で希釈して体重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を超えないこと。

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 132人目の素数さん[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)

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)
}
で対応できるけど、まだまだ変化球がありそう。

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)

876:卵の名無しさん (ワッチョイ 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を越えないようにすること。

877:卵の名無しさん (ワッチョイ 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)
}
}

878:卵の名無しさん (ワッチョイ 2b58-mRrS [106.73.2.65])
23/03/19 17:58:42.16 uzxc1DJC0.net
ルシファーまた落ちたな
【速報】東大医学部卒・国試5浪ルシファーさん(38)、医師国家試験不合格!6浪目決定! [808139444]
スレリンク(poverty板)

尿瓶ジジイご意見は?

879:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.198.177])
23/03/19 19:44:12.27 DVTyXUJia.net
ocrの誤動作で数値が変わってしまったらどんな危険な事か起こるかも想像できないクズ
こんなもん実用に使えるはずなどない事がわからん能無し

880:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 20:16:18.78 bczs8UVv0.net
OCR?
テキストファイルから読み込んでいるんだがアホですか?

881:卵の名無しさん (ワッチョイ 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
一応、添付文書の範囲内に数値があることを確認。

882:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:27:26.61 bczs8UVv0.net
まぁ、添付文書のデータをダウンロードサイトの仕様が変わったらダウンロードできなくなるので、使いそうな薬はローカルに保存したテキストで変換している。

883:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:29:30.99 bczs8UVv0.net
スクレイピングと正規表現の勉強になって( ・∀・)イイ!!

884:卵の名無しさん (ワッチョイ 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)

885:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122])
23/03/19 20:45:46.15 bczs8UVv0.net
プレセデックスは添付文書が μg/kg/時 表示でカテコラミンでいういわゆるガンマ計算のμg/kg/分ではないんだよなぁ。

実際、シリツ医がこういう事故を起こしている。

URLリンク(www.nikkei.com)

886:卵の名無しさん (ワッチョイ 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の範囲で持続注入する。
...

この方が実用的である。
こういう表示があればシリツ医でも事故を回避できだんじゃないかな。

887:卵の名無しさん (ワッチョイ 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

888:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:48.17 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう?screenshotで画像に落としてOCRで再度文字にするのか?
n=1の統計よりも不思議だなぁ。

889:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:55.42 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう?screenshotで画像に落としてOCRで再度文字にするのか?
n=1の統計よりも不思議だなぁ。

890:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:20:03.67 mRM65Rfga.net
まともな人間なら自分が専門に学んだわけでもないアホみたいな自作ソフトに患者の健康と生命に関わる計算をゆだねだりするか能無し
何やつてもあかんなぁお前

891:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:22:04.86 mRM65Rfga.net
>>888-889
すまんすまん、もうサンデープログラマーです


892:らもう紙ドキュメントから文字読み込んで処理する時代なんよ お前みたいな30年前くらいの技術でジタバタしてるカスがそんな事できるわけないわな ごめんクズ お前の能力見誤ったわwwww



893:卵の名無しさん (アウアウウー Sa9b-Zj3q [106.131.197.90])
23/03/19 21:23:46.03 mRM65Rfga.net
こんな感じな
URLリンク(youtu.be)

894:卵の名無しさん (アウアウウー Sa9b-VLiP [106.128.73.80])
23/03/19 22:17:59.88 A+lqC+R4a.net
尿瓶はもうお医者様に噛み付く元気はなく独語のみとなってしまいましたww

895:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/20 03:51:19.88 Y6d3J0y40.net
ホームページの文字データをOCRで読み取るってどうやるんだ?

896:卵の名無しさん (ワッチョイ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:41.62 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。

URLリンク(www.nikkei.com)


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