23/03/19 12:23:31.87 bczs8UVv0.net
ファイルをダウンロートしてからscanして文字置換するのでon lineのRだとサーバー上にファイル作成することになるので動作しないかと思ったら
download.file(URL,'temp.txt')
scan('temp.txt', what = character(), sep = "\n", blank.lines.skip = TRUE)
は想定通りに動作してくれた。
出先でも使えて( ・∀・)ｲｲ!! まあ、使いそうな薬剤の用量はローカルの保存してあるけど。
851:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 12:42:40.89 bczs8UVv0.net
URLﾘﾝｸ(www.kegg.jp)
６の次が８になっている
drug2infusion=\(kg,mg,mL,src,
start='(6. 用法及び用量',
end='.+)(7. 用法及び用量に関連する注意|8. 重要な基本的注意)'){
pattern=paste0(start,end,collapse='')
re=regmatches(src,gregexec(pattern,src))[[1]][2]
str=gsub('＜','\n\n＜',re)
g2mL(kg,mg,mL,str)
}
で対応できるけど、まだまだ変化球がありそう。
852:卵の名無しさん (ｽｯｯﾌﾟ Sd42-Rc1T [49.96.47.102])
23/03/19 12:42:53.48 ZzBCz3/Cd.net
金沢医大が金沢大を国試合格率で勝ったよ
853:卵の名無しさん (ﾌﾞｰｲﾓ MM4e-qZ0m [133.159.153.205])
23/03/19 13:15:36.82 bmwelPDFM.net
>>852
分母を入学者数で計算したら大差がつくと思う。
854:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.80])
23/03/19 14:16:49.00 A+lqC+R4a.net
さっさとデータ出せよタコ
855:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 14:51:00.14 bczs8UVv0.net
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計が素数でなかった場合、操作を終了する。
操作を終了するまでにサイコロを振る回数をNとするとき、Nの期待値を求めよ。
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計が素数でなかった場合、操作を終了する。
終了したときの非素数を当てる賭けをする。
(1)いくつに賭けるのがもっとも有利か？
(2)その数でのおよその勝利確率をもとめよ。
library(numbers)
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
s=s+sample(6,1)
flg=isPrime(s)
}
c(i,s)
}
k=1e6
y=replicate(k,sim())
N=y[1,]
s=y[2,]
BEST::plotPost(N,breaks='scott',col='red')
BEST::plotPost(s,breaks='scott',col='blue')
hist(N,breaks='scott',,col=2,freq=F,ylab='',xlab='N',axes=F) ; axis(1)
hist(s,breaks='scott',,col=4,freq=F,ylab='',xlab='N',axes=F) ; axis(1)
table(s)
mean(s)
mean(s==6)
856:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 15:51:36.69 bczs8UVv0.net
/min /分でなくて毎分で表現されても変換できるようにしたい。毎時というのもあるかもしれんなぁ。
6. 用法及び用量
通常、1アンプル（5mL）を5％ブドウ糖注射液または10％マルトース注射液500mLに希釈し、リトドリン塩酸塩として毎分50μgから点滴静注を開始し、子宮収縮抑制状況および母体心拍数などを観察しながら適宜増減する。子宮収縮の抑制後は症状を観察しながら漸次減量し、毎分50μg以下の速度を維持して収縮の再発が見られないことが確認された場合には投与を中止すること。
通常、有効用量は毎分50?150μgである。なお、注入薬量は毎分200μgを越えないようにすること。
857:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 16:34:25.88 bczs8UVv0.net
サブルーチン
# 毎分|毎時 ng|μg|mg -> 毎分|毎時 mL
pattern='(毎分|毎時)(\\s*\\d+\\.?\\d*)\\s*(ng|μg|mg)'
m=regmatches(str,gregexec(pattern,str))[[1]]
if(length(m)!=0){
m5=numeric()
m5[m[4,]=='ng']=ng
m5[m[4,]=='μg']=mcg
m5[m[4,]=='mg']=mg
M=t(rbind(m[1,],paste0(m[2,], as.numeric(m[3,])*mL/m5,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
858:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/19 17:58:42.16 uzxc1DJC0.net
ルシファーまた落ちたな
【速報】東大医学部卒・国試5浪ルシファーさん(38)、医師国家試験不合格！6浪目決定！ [808139444]
ｽﾚﾘﾝｸ(poverty板)
尿瓶ジジイご意見は？
859:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.198.177])
23/03/19 19:44:12.27 DVTyXUJia.net
ocrの誤動作で数値が変わってしまったらどんな危険な事か起こるかも想像できないクズ
こんなもん実用に使えるはずなどない事がわからん能無し
860:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/19 20:16:18.78 bczs8UVv0.net
OCR?
テキストファイルから読み込んでいるんだがアホですか？
861:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:23:21.74 bczs8UVv0.net
レミフェンタニル、デクスメデトミジンは添付文書よりは少なめ、ロクロニウムは多めで使っているなぁ。まあ、年齢・体格（体表面積もしくは除脂肪体重）で補正しているが、指数計算がでてくるのでプログラムで算出。
今週は、これ。
> Anesthesia(158.6,55.2,68,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 21.94
Ideal Body Weight(kg) = 55.34
Body Weight @ BMI25(kg) = 62.88
Lean Body Mass(kg) = 45.21
Predicted Body Weight(kg) = 55.64
Coef = 0.819 (BSA+Age) 0.863 (LBM+Age)
coef = 0.999 (BSA) 1.052 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.78
bolus(mL) = 0.45
CE(ng/mL)@(1mL/h) = 0.92
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.28 - 16.56
Rocuronium (no adjust)
bolus(mL) = 3.31 - 4.97
continuous(mL/h) = 0.99 - 1.32
Sevoflurane(adjusted by age)
MAC(%) 1.77
maintenance(%) 0.95 - 1.18
Incisor to Tracheal MidPoint = 20.9 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 445 Respiratory Rate = 14
一応、添付文書の範囲内に数値があることを確認。
862:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:27:26.61 bczs8UVv0.net
まぁ、添付文書のデータをダウンロードサイトの仕様が変わったらダウンロードできなくなるので、使いそうな薬はローカルに保存したテキストで変換している。
863:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:29:30.99 bczs8UVv0.net
スクレイピングと正規表現の勉強になって( ・∀・)ｲｲ!!
864:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:37:26.94 bczs8UVv0.net
こんな感じで作っておけば、体重に応じた添付文書が出力できる。
dexmedetomidine_on_label=\(kg,mcg=200,mL=50){
str="用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを6μg/kg/時の投与速度で10分間静脈内へ持続注入し（初期負荷投与）、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として0.2～0.7μg/kg/時の範囲で持続注入する（維持投与）。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2～1.0μg/kg/時の範囲で持続注入する。
通常、修正在胎（在胎週数＋出生後週数）45週以上6歳未満の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2～1.4μg/kg/時の範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。"
pattern='(\\d+\\.*\\d*)\\s*([～?~])\\s*(\\d+\\.*\\d*)\\s*μg/kg/[h時]'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*kg/mcg*mL)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
str |> cat()
}
dexmedetomidine_on_label(70)
865:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:45:46.15 bczs8UVv0.net
プレセデックスは添付文書が μg/kg/時 表示でカテコラミンでいういわゆるガンマ計算のμg/kg/分ではないんだよなぁ。
実際、シリツ医がこういう事故を起こしている。
URLﾘﾝｸ(www.nikkei.com)
866:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 20:51:29.52 bczs8UVv0.net
濵田 尚里の体重78kgだと
> dexmedetomidine_on_label(78)
用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを117 mL/時の投与速度で10分間静脈内へ持続注入し（初期負荷投与）、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として3.9～13.65mL/hの範囲で持続注入する（維持投与）。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを3.9 mL/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、3.9～19.5mL/hの範囲で持続注入する。
...
この方が実用的である。
こういう表示があればシリツ医でも事故を回避できだんじゃないかな。
867:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/19 21:04:28.37 bczs8UVv0.net
低温調理の加熱時間もRでスクリプトを組んだ。
厚さ3cmの豚肉の場合
> Pork(30,60)
[1] NA
> Pork(30,63)
Heat 30 mm thick Pork at 63 ℃ for 2:00
868:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:48.17 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう？screenshotで画像に落としてOCRで再度文字にするのか？
n=1の統計よりも不思議だなぁ。
869:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/19 21:19:55.42 bczs8UVv0.net
ホームページの文字データをOCRで読み取るってどうやるんだろう？screenshotで画像に落としてOCRで再度文字にするのか？
n=1の統計よりも不思議だなぁ。
870:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.197.90])
23/03/19 21:20:03.67 mRM65Rfga.net
まともな人間なら自分が専門に学んだわけでもないアホみたいな自作ソフトに患者の健康と生命に関わる計算をゆだねだりするか能無し
何やつてもあかんなぁお前
871:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.197.90])
23/03/19 21:22:04.86 mRM65Rfga.net
>>888-889
すまんすまん、もうサンデープログラマーですらもう紙ドキュメントから文字読み込んで処理する時代なんよ
お前みたいな30年前くらいの技術でジタバタしてるカスがそんな事できるわけないわな
ごめんクズ
お前の能力見誤ったわwwww
872:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.197.90])
23/03/19 21:23:46.03 mRM65Rfga.net
こんな感じな
URLﾘﾝｸ(youtu.be)
873:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.80])
23/03/19 22:17:59.88 A+lqC+R4a.net
尿瓶はもうお医者様に噛み付く元気はなく独語のみとなってしまいましたww
874:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/20 03:51:19.88 Y6d3J0y40.net
ホームページの文字データをOCRで読み取るってどうやるんだ？
875:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:41.62 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。
URLﾘﾝｸ(www.nikkei.com)
876:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:49.14 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。
URLﾘﾝｸ(www.nikkei.com)
877:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/20 04:33:41.36 Y6d3J0y40.net
サイコロを繰り返し振り、出た目の数を足していく操作を行う。その合計をMとする。
Mが素数でなかった場合、操作を終了する。Mの最小値は１である。
Mの最大値を求めよ。
p=Primes(100)
p[diff(p)>6]+6
878:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/20 04:43:26.28 Y6d3J0y40.net
>>859
プログラムのミス、例えば正規表現で\が一つ少ないとか の方がよほど可能性があるね。
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
（問） OCRを使うと思ったのは何故だろう？
（答） アホだからです。
879:卵の名無しさん
23/03/20 06:55:51.24 Y6d3J0y40.net
>849にどうやって該当ファイルをダウンロードしているか記載したのでOCRが不要なのは明らかなのだが、やっぱりアホじゃね？
Rが使えない時点でアホとわかるけど。
880:卵の名無しさん
23/03/20 07:37:38.91 Y6d3J0y40.net
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
d=sample(6,1)
s=s+d
flg=numbers::isPrime(s)
cat(d,' ')
}
cat('(',s,')\n')
invisible(c(N=i,M=s))
}
sim() |> print()
for(i in 1:20) sim()
881:卵の名無しさん
23/03/20 08:37:19.85 CCnNzzRwa.net
尿瓶ジジイは脳内医療だから当然事故なんか起きないねw
882:卵の名無しさん
23/03/20 09:47:47.06 pfziN8SIa.net
>>878
そう、お前は素人ポンコツプログラマーが作ったプログラムで医療行為ができると思ってる能無しチンパンジー
70年も生きてきてその程度のこともわからんクズ
883:卵の名無しさん
23/03/20 09:48:37.42 pfziN8SIa.net
>>880
またゴミコードwwwwww
恥ずかしないんか？能無しwwwwwwww
884:卵の名無しさん
23/03/20 11:07:43.78 wMbwG/cnM.net
library('numbers')
x=c(2,1)
f=function(x){
re=NULL
if(isPrime(sum(x)+2)) re=rbind(re,c(x,2))
if(isPrime(sum(x)+4)) re=rbind(re,c(x,4))
if(isPrime(sum(x)+6)) re=rbind(re,c(x,6))
re
}
re=f(x)
re
ans=NULL
f(re[1,])
for(i in 1:nrow(re)) ans=rbind(ans,f(re[i,])
885:卵の名無しさん
23/03/20 11:08:20.87 wMbwG/cnM.net
>>883
R使えないアホだろ？
886:卵の名無しさん
23/03/20 11:11:46.03 wMbwG/cnM.net
>>882
年齢体型補正した値で麻酔をかけているけど
いまのところ順調。
添付文書通りやると血圧変動や徐脈、筋硬直に悩まされる。
今日は内視鏡３件。実働３０分で４万は(ﾟдﾟ)ｳﾏｰ
４月から勤務日を増やしてくれと頼まれた。
887:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:20:48.68 xJtbgJUcH.net
>>883
では、ゴミコードでないのを投稿してみ！
888:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:27:53.27 xJtbgJUcH.net
>>859
ホームページの文字データをOCRで読み取るってどうやるんだ？
889:卵の名無しさん (ﾜｯﾁｮｲ 523d-BsRZ [5.8.70.102 [上級国民]])
23/03/20 20:20:58.40 98Q0YPFa0.net
>>868
URLﾘﾝｸ(i.imgur.com)
プレデックスの用法用量を表示する画面を画像に落としてグーグルドライブにアップロードして
Googleドキュメントとして開いてOCR機能で読み取り。
まあ、文字データとしてホームページにアップロードされているのを画像として取り込むのは
アホ以外の何者でもないよなぁ。
890:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.198.97])
23/03/20 23:02:25.89 egWzikOQa.net
>>837
お前みたいなクソにプロのコードの違いがわかるはずないやろ能無し
お前は何をやっても三流のクズ
891:卵の名無しさん (ｶﾞｯｸｼ 063b-VLiP [202.223.252.37])
23/03/21 00:17:05.93 qhTjGu6I6.net
ｽﾚﾘﾝｸ(math板)
尿瓶ジジイ高校数学スレで煽られて顔真っ赤w
892:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.74.87])
23/03/21 17:05:01.79 d2AtO5C5a.net
尿瓶ジジイ高校生のおもちゃw
893:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.57])
23/03/22 01:51:54.90 5e+tBjSfa.net
尿瓶ジジイ脳内医療ネタ()はことごとく先生方に論破されてダンマリを決め込むしかないからひたすら統計もどきに走るしかなくなったみたいだねw
数学板ではまだ医者で通じると思ってるみたいだが発言がアホ丸出しだから結局誰も信じていないw
894:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 15:07:03.77 vdH7ya/b0.net
俺の業界ネタには業界人のレスが返ってくるよ。
ｽﾚﾘﾝｸ(hosp板:988番)
尿瓶チンパポンコツフェチは業界ネタが皆無。
895:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 15:08:49.88 vdH7ya/b0.net
内視鏡ネタの私見にも賛同のレスがついた。
ｽﾚﾘﾝｸ(hosp板:24番)
尿瓶チンパポンコツフェチって医師でもないのにスレあらししているクズ人間。
896:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd42-mRrS [49.105.69.70])
23/03/22 19:56:14.53 TcTWtckNd.net
>>895
お前も医者じゃないだろ
医者のフリするな
897:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 20:25:02.70 vdH7ya/b0.net
>>896
ｽﾚﾘﾝｸ(hosp板:40番)-41
今週も1件全麻を依頼されている。
んで、あんたは無職なのか？
898:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.65])
23/03/22 20:33:19.94 EZWUq+6Wa.net
>>897
脳内麻酔で自分に酔いまくってるのか
でもこれじゃ他人には通用しないなwある意味幸せだけど酷く哀れだ
899:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/22 23:02:27.09 7+RHgMcVH.net
PMDAの予算内訳
URLﾘﾝｸ(youtu.be)
900:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.196.14])
23/03/22 23:24:54.60 al7Jsznra.net
数学板でも医者と思ってる人間なんかもう1人もいないし、本人もその事わかってるやろ
にも関わらず医者医者言ってるのは「誰も俺が医者を騙ってるのを止められない、俺ってすごい」という普通の人間には想像もつかんような狂った価値観に精神が支配されてるんだよ
完全に人間性が壊れてしまってる
ポンコツ
901:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/23 06:41:43.29 kQ+cQy/gH.net
>>900
いや、医師が羨ましいけど再受験で合格する学力のないのがニセ医者扱いしたがっているだけだよ。
緊急オペで麻酔が夜までになると「居眠りしないようにエントロピーモニターを自分の顔につけた方がいいかなぁ」というジョークをオペナースに言っているな。
その昔、挿管時に於ける麻酔医のバイタル変動というペーパーがあるという話をオーベンがしてくれた。
902:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/23 06:43:42.33 kQ+cQy/gH.net
ホームページの文字データをOCRで読み取るって何のためにやるんだ？
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
（問） OCRを使うと思ったのは何故だろう？
（答） アホだからです。
903:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/23 07:05:51.68 o6J+7Zu10.net
>>901
数学板の奴等はどう考えても羨ましがってないだろ
お前のこと空気読めない糞ジジイで邪魔だと思ってるよ
お前に肯定的なレス一つもないじゃんwww
高校生の数学の質問も全く答えれてないし
そもそも、サブスク医療とか言うやつを誰が羨ましがるんだ？やっぱお前アホだなwww
904:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.199.83])
23/03/23 10:13:49.01 ouHbx6gea.net
まぁ医者と比べれば身入りは少ないけど、それなりに食える、公務員だった時は地方公務員上級だからな
何より好きな数学やってんだから
905:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:44:12.87 yfbSTWoR0.net
>>904
公立病院でのバイトは楽だったなぁ。
重症救急患者を断ると感謝されていた。
906:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:45:24.98 yfbSTWoR0.net
>>903
quote unquoteが分からんアホかよ。
引用したら肯定したことになるという謎理論もあったなぁ。
907:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:46:23.91 yfbSTWoR0.net
>>903
詐欺師にはなりたくないから、他人をニセ詐欺師と呼ぶことはないなぁ。
ニセ医者あつかいしたがるのはどういうことかなぁ？
￢P⇒￢Q
から
Q⇒Pがいえるから
詐欺師になりたくない ⇒ 他者をニセ詐欺師とは呼ばない。
他者をニセ詐欺師と呼ぶ ⇒ 詐欺師になりたい
詐欺師を医師に置き換えても成立する。
Q.E.D
908:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/24 07:04:37.20 joqfaalv0.net
>>906
quoteとか、わかるに決まってんだろwww
誰かと勘違いしてるのかな？
お前が偽医者なのは間違いないだろ
今までの知識の無さから確定だよ
お前みたいな医者はいない。少なくともサブスク医療とか言ってる奴は医者とは言えないクズ野郎だよ
909:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:23:09.80 yfbSTWoR0.net
>>908
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
910:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:24:40.16 yfbSTWoR0.net
業界ネタには同業者からレスがつく。
ｽﾚﾘﾝｸ(hosp板:22番)
911:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:17.18 yfbSTWoR0.net
これも俺の投稿へのレス
ｽﾚﾘﾝｸ(hosp板:988番)
912:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:55.79 yfbSTWoR0.net
医師でもないのが医師板のスレで発狂していて気の毒。
913:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd42-mRrS [49.105.68.74])
23/03/24 07:34:30.84 PPt6oSRgd.net
>>909
お前と違って医者なのに羨ましいわけないだろwww
むしろ、そこまで医者のフリをするメンタルに驚愕覚えるわ
医者として尊敬してもらいたいなら、急性期病院の医者のフリでもすればいいのに
まあ、療養病院の事務員の想像レベルじゃそれが限界なんだろうなwww
914:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:45:11.87 yfbSTWoR0.net
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
915:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:47:08.82 yfbSTWoR0.net
>>7
俺は還暦を超えてから病棟を持たない勤務に変えた。
救急外来＋内視鏡＋麻酔でくっている。
こういうのにも同業者からレスがつく。
916:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:49:00.93 yfbSTWoR0.net
本日の麻酔計算
> Anesthesia(158.6,55.2,68,male=TRUE,Sevo=TRUE, propofol=FALSE)
BMI = 21.94
Ideal Body Weight(kg) = 55.34
Body Weight @ BMI25(kg) = 62.88
Lean Body Mass(kg) = 45.21
Predicted Body Weight(kg) = 55.64
Coef = 0.819 (BSA+Age) 0.863 (LBM+Age)
coef = 0.999 (BSA) 1.052 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 6.78
bolus(mL) = 0.45
CE(ng/mL)@(1mL/h) = 0.92
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.28 - 16.56
Rocuronium (no adjust)
bolus(mL) = 3.31 - 4.97
continuous(mL/h) = 0.99 - 1.32
Sevoflurane(adjusted by age)
MAC(%) 1.77
maintenance(%) 0.95 - 1.18
Incisor to Tracheal MidPoint = 20.9 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 445 Respiratory Rate = 14
917:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:49:47.14 yfbSTWoR0.net
１時間程度だからロクロの持続はなしだな。
918:卵の名無しさん
23/03/24 15:25:54.90 sCq5Ou+HH.net
麻酔のバイト終了。予定通りの投与で導入も覚醒も良好。
移動含めて2時間の拘束で8諭吉は( ・∀・)ｲｲ!!
来週も1件依頼されたのでスペックを送ってもらったらRで計算。
919:卵の名無しさん
23/03/24 15:33:48.87 sCq5Ou+HH.net
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
（問） OCRを使うと思ったのは何故だろう？
（答） アホだからです。
920:卵の名無しさん
23/03/24 15:55:12.52 sCq5Ou+HH.net
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったしｗ
921:卵の名無しさん
23/03/24 15:59:12.42 sCq5Ou+HH.net
円満退職した職場からは仕事の依頼がきて( ・∀・)ｲｲ!!
922:卵の名無しさん
23/03/24 16:10:58.83 sCq5Ou+HH.net
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Control Panel\Personalization\Desktop Slideshow]
"LastTickLow"=dword:00000000
"LastTickHigh"=dword:00000000
"Interval"=dword:00003a98
"Shuffle"=dword:00000001
923:卵の名無しさん
23/03/24 16:20:11.52 sCq5Ou+HH.net
> Anesthesia(153.5,69.1,49,F,Sevo=TRUE, propofol=FALSE)
BMI = 29.33
Ideal Body Weight(kg) = 51.84
Body Weight @ BMI25(kg) = 58.91
Lean Body Mass(kg) = 41.72
Predicted Body Weight(kg) = 46.5
Coef = 1.147 (BSA+Age) 1.056 (LBM+Age)
coef = 1.136 (BSA) 1.046 (LBM)
Remifentanyl (adjusted for 0.25μg/kg/min, 1μg/kg by Coef, for CE by LBM)
continuous(mL/h) = 11.89
bolus(mL) = 0.79
CE(ng/mL)@(1mL/h) = 1
cf. Ultiva(adjusted when BMI>25 and/or age>70) (mL/h) 8.84 - 17.67
Rocuronium (no adjust)
bolus(mL) = 4.15 - 6.22
continuous(mL/h) = 1.24 - 1.66
Sevoflurane(adjusted by age)
MAC(%) 1.99
maintenance(%) 1.17 - 1.32
Incisor to Tracheal MidPoint = 20.4 cm
Ventilator Setting by ARDS Guideline
Tidal Volume(mL) = 372 Respiratory Rate = 12
924:卵の名無しさん
23/03/24 22:51:25.01 6DggZULia.net
>>915
どこからレスつくんだよタコw
925:卵の名無しさん
23/03/25 20:48:44.86 Iri8Drjea.net
尿瓶ジジイ高校生にバカにされて顔真っ赤w
926:卵の名無しさん
23/03/25 23:29:55.94 GtfTsl56a.net
721 １３２人目の素数さん[sage] 2023/03/25(土) 21:02:11.33 ID:K6/5fMOE
>>718
これが、臨床実地問題とか笑えるわ
やっぱお前医者じゃないだろ？
当然の感想w
927:卵の名無しさん (ﾜｯﾁｮｲ df3d-JF89 [5.8.70.102])
23/03/26 07:23:34.10 59OPwUx30.net
>>926
答が出せない椰子の典型的なレスだな。
928:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.180.1.41])
23/03/26 12:29:20.99 ehKBvke7a.net
>>927
全く相手にされてないだけなのに、自分のチンパン難題()に答えられるやつはいないって悦に浸ってるなんてさすが尿瓶ジジイだねww
5chでバカにされてるだけで幸せだろ？どうせアンタみたいなやつリアルじゃ誰も相手にしてくれないんだしさw
929:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.128.73.55])
23/03/26 12:36:53.80 z4elRGvba.net
>>920
大体septick shockって何だよw
septic shockだろ
医者だったら書き込む前にすぐおかしいって気づくわw違和感半端ないもんw
尿瓶ジジイは相変わらず英語苦手みたいだねw
nurseすら間違えるしマジで中学生以下だな
スペルミスとかそういう次元じゃないww
930:卵の名無しさん
23/03/26 18:22:31.27 vO//PZyba.net
医師じゃなくてもわかりそうやな
語尾がckで終わる形容詞なんぞそうそうないやろ
このクソ学力wwww
931:卵の名無しさん (JP 0H8f-cOoj [146.70.31.52 [上級国民]])
23/03/27 11:06:40.34 VVveAWkpH.net
年度末は検診も少なくて今日は30分で終了。午後の麻酔まで休憩。
932:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.180.0.248])
23/03/27 12:18:05.90 rUopmo96a.net
その前にスペルチェックしてこい
中学生以下だぞ
933:卵の名無しさん (ﾜｯﾁｮｲ eb58-vSlr [14.13.16.0])
23/03/28 08:38:18.06 bWoNfgCM0.net
>>931
バイト代で税込み１２万だが最終的に税金で4割持っていかれる。
934:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.128.75.212])
23/03/28 13:51:26.32 rXTShojUa.net
本人だけだから本気で医者だと思ってるのw
数学板でも脳内医者が見抜かれてゴミ扱いw
935:卵の名無しさん (ｱｳｱｳｷｰ Sacf-uZf+ [182.251.34.189])
23/03/28 14:34:44.57 M07F1lbza.net
尿瓶ジジイ高校数学スレで頑張ってるけどことごとくバカにされてて草
936:卵の名無しさん (ｱｳｱｳｷｰ Sacf-uZf+ [182.251.34.189])
23/03/28 23:21:08.23 M07F1lbza.net
おい尿瓶ジジイ
さっさとなんか言えよ
septick shockにでもなったか？w
937:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/01 06:29:46.57 T1JldYqx0.net
balls=rep(c('黒','赤','白'),c(3,4,5))
explode=\(x) any(diff(which(x=="黒"))==1) || any(diff(which(x=="赤"))==1) || any(diff(which(x=="白"))==1)
calc=\(k=1e6) replicate(k,sample(balls) |> explode()) |> mean()
calc()
938:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/02 06:29:58.95 y9RbVGG40.net
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
n=1
a=NULL
b=rep(1:3,3:5)
tmp=pick(b)
b=tmp$rest
a[n]=tmp$picked
flg=TRUE
while(flg){
tmp=pick(b)
b=tmp$rest
flg <- a[n]!=tmp$picked & length(tmp$rest)!=0
n=n+1
a[n]=tmp$picked
}
n
939:卵の名無しさん (ﾜｯﾁｮｲ 15c7-w0Fq [124.47.76.122])
23/04/02 14:47:34.78 ZiqZRUGD0.net
x=sample(rep(1:3,3:5))
x
y=x[1:2]
i=2
flg <- length(unique(y))<3
while(flg){
i=i+1
y=c(y,x[i])
flg <- length(unique(y))<3
}
i
940:卵の名無しさん (ﾜｯﾁｮｲ 15c7-w0Fq [124.47.76.122])
23/04/02 14:58:26.24 ZiqZRUGD0.net
f=\(x){
y=x[1:2]
i=2
flg <- length(unique(y))<3
while(flg){
i=i+1
y=c(y,x[i])
flg <- length(unique(y))<3
}
i
}
sim=\() f(sample(rep(1:3,3:5)))
replicate(1000,sim()) |> table()
941:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.70.190])
23/04/02 16:59:20.28 1dmOWK4Ja.net
もう噛み付く元気もないのか尿瓶w