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)
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)
897:卵の名無しさん (ﾜｯﾁｮｲ f7c7-qZ0m [124.47.76.122])
23/03/20 03:52:49.14 Y6d3J0y40.net
>>870
手計算したであろうシリツ医がこういう事故を起こしている。
URLﾘﾝｸ(www.nikkei.com)
898:卵の名無しさん (ﾜｯﾁｮｲ 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
899:卵の名無しさん (ﾜｯﾁｮｲ f7c7-F0re [124.47.76.122])
23/03/20 04:43:26.28 Y6d3J0y40.net
>>859
プログラムのミス、例えば正規表現で\が一つ少ないとか の方がよほど可能性があるね。
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
（問） OCRを使うと思ったのは何故だろう？
（答） アホだからです。
900:卵の名無しさん
23/03/20 06:55:51.24 Y6d3J0y40.net
>849にどうやって該当ファイルをダウンロードしているか記載したのでOCRが不要なのは明らかなのだが、やっぱりアホじゃね？
Rが使えない時点でアホとわかるけど。
901:卵の名無しさん
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()
902:卵の名無しさん
23/03/20 08:37:19.85 CCnNzzRwa.net
尿瓶ジジイは脳内医療だから当然事故なんか起きないねw
903:卵の名無しさん
23/03/20 09:47:47.06 pfziN8SIa.net
>>878
そう、お前は素人ポンコツプログラマーが作ったプログラムで医療行為ができると思ってる能無しチンパンジー
70年も生きてきてその程度のこともわからんクズ
904:卵の名無しさん
23/03/20 09:48:37.42 pfziN8SIa.net
>>880
またゴミコードwwwwww
恥ずかしないんか？能無しwwwwwwww
905:卵の名無しさん
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,])
906:卵の名無しさん
23/03/20 11:08:20.87 wMbwG/cnM.net
>>883
R使えないアホだろ？
907:卵の名無しさん
23/03/20 11:11:46.03 wMbwG/cnM.net
>>882
年齢体型補正した値で麻酔をかけているけど
いまのところ順調。
添付文書通りやると血圧変動や徐脈、筋硬直に悩まされる。
今日は内視鏡３件。実働３０分で４万は(ﾟдﾟ)ｳﾏｰ
４月から勤務日を増やしてくれと頼まれた。
908:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:20:48.68 xJtbgJUcH.net
>>883
では、ゴミコードでないのを投稿してみ！
909:卵の名無しさん (JP 0Hb3-BsRZ [146.70.31.52 [上級国民]])
23/03/20 17:27:53.27 xJtbgJUcH.net
>>859
ホームページの文字データをOCRで読み取るってどうやるんだ？
910:卵の名無しさん (ﾜｯﾁｮｲ 523d-BsRZ [5.8.70.102 [上級国民]])
23/03/20 20:20:58.40 98Q0YPFa0.net
>>868
URLﾘﾝｸ(i.imgur.com)
プレデックスの用法用量を表示する画面を画像に落としてグーグルドライブにアップロードして
Googleドキュメントとして開いてOCR機能で読み取り。
まあ、文字データとしてホームページにアップロードされているのを画像として取り込むのは
アホ以外の何者でもないよなぁ。
911:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.198.97])
23/03/20 23:02:25.89 egWzikOQa.net
>>837
お前みたいなクソにプロのコードの違いがわかるはずないやろ能無し
お前は何をやっても三流のクズ
912:卵の名無しさん (ｶﾞｯｸｼ 063b-VLiP [202.223.252.37])
23/03/21 00:17:05.93 qhTjGu6I6.net
ｽﾚﾘﾝｸ(math板)
尿瓶ジジイ高校数学スレで煽られて顔真っ赤w
913:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.74.87])
23/03/21 17:05:01.79 d2AtO5C5a.net
尿瓶ジジイ高校生のおもちゃw
914:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.57])
23/03/22 01:51:54.90 5e+tBjSfa.net
尿瓶ジジイ脳内医療ネタ()はことごとく先生方に論破されてダンマリを決め込むしかないからひたすら統計もどきに走るしかなくなったみたいだねw
数学板ではまだ医者で通じると思ってるみたいだが発言がアホ丸出しだから結局誰も信じていないw
915:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 15:07:03.77 vdH7ya/b0.net
俺の業界ネタには業界人のレスが返ってくるよ。
ｽﾚﾘﾝｸ(hosp板:988番)
尿瓶チンパポンコツフェチは業界ネタが皆無。
916:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 15:08:49.88 vdH7ya/b0.net
内視鏡ネタの私見にも賛同のレスがついた。
ｽﾚﾘﾝｸ(hosp板:24番)
尿瓶チンパポンコツフェチって医師でもないのにスレあらししているクズ人間。
917:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd42-mRrS [49.105.69.70])
23/03/22 19:56:14.53 TcTWtckNd.net
>>895
お前も医者じゃないだろ
医者のフリするな
918:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/22 20:25:02.70 vdH7ya/b0.net
>>896
ｽﾚﾘﾝｸ(hosp板:40番)-41
今週も1件全麻を依頼されている。
んで、あんたは無職なのか？
919:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-VLiP [106.128.73.65])
23/03/22 20:33:19.94 EZWUq+6Wa.net
>>897
脳内麻酔で自分に酔いまくってるのか
でもこれじゃ他人には通用しないなwある意味幸せだけど酷く哀れだ
920:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/22 23:02:27.09 7+RHgMcVH.net
PMDAの予算内訳
URLﾘﾝｸ(youtu.be)
921:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.196.14])
23/03/22 23:24:54.60 al7Jsznra.net
数学板でも医者と思ってる人間なんかもう1人もいないし、本人もその事わかってるやろ
にも関わらず医者医者言ってるのは「誰も俺が医者を騙ってるのを止められない、俺ってすごい」という普通の人間には想像もつかんような狂った価値観に精神が支配されてるんだよ
完全に人間性が壊れてしまってる
ポンコツ
922:卵の名無しさん (JP 0H52-BsRZ [217.138.212.98 [上級国民]])
23/03/23 06:41:43.29 kQ+cQy/gH.net
>>900
いや、医師が羨ましいけど再受験で合格する学力のないのがニセ医者扱いしたがっているだけだよ。
緊急オペで麻酔が夜までになると「居眠りしないようにエントロピーモニターを自分の顔につけた方がいいかなぁ」というジョークをオペナースに言っているな。
その昔、挿管時に於ける麻酔医のバイタル変動というペーパーがあるという話をオーベンがしてくれた。
923:卵の名無しさん (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を使うと思ったのは何故だろう？
（答） アホだからです。
924:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/23 07:05:51.68 o6J+7Zu10.net
>>901
数学板の奴等はどう考えても羨ましがってないだろ
お前のこと空気読めない糞ジジイで邪魔だと思ってるよ
お前に肯定的なレス一つもないじゃんwww
高校生の数学の質問も全く答えれてないし
そもそも、サブスク医療とか言うやつを誰が羨ましがるんだ？やっぱお前アホだなwww
925:卵の名無しさん (ｱｳｱｳｳｰ Sa9b-Zj3q [106.131.199.83])
23/03/23 10:13:49.01 ouHbx6gea.net
まぁ医者と比べれば身入りは少ないけど、それなりに食える、公務員だった時は地方公務員上級だからな
何より好きな数学やってんだから
926:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:44:12.87 yfbSTWoR0.net
>>904
公立病院でのバイトは楽だったなぁ。
重症救急患者を断ると感謝されていた。
927:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:45:24.98 yfbSTWoR0.net
>>903
quote unquoteが分からんアホかよ。
引用したら肯定したことになるという謎理論もあったなぁ。
928:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 06:46:23.91 yfbSTWoR0.net
>>903
詐欺師にはなりたくないから、他人をニセ詐欺師と呼ぶことはないなぁ。
ニセ医者あつかいしたがるのはどういうことかなぁ？
￢P⇒￢Q
から
Q⇒Pがいえるから
詐欺師になりたくない ⇒ 他者をニセ詐欺師とは呼ばない。
他者をニセ詐欺師と呼ぶ ⇒ 詐欺師になりたい
詐欺師を医師に置き換えても成立する。
Q.E.D
929:卵の名無しさん (ﾜｯﾁｮｲ 2b58-mRrS [106.73.2.65])
23/03/24 07:04:37.20 joqfaalv0.net
>>906
quoteとか、わかるに決まってんだろwww
誰かと勘違いしてるのかな？
お前が偽医者なのは間違いないだろ
今までの知識の無さから確定だよ
お前みたいな医者はいない。少なくともサブスク医療とか言ってる奴は医者とは言えないクズ野郎だよ
930:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:23:09.80 yfbSTWoR0.net
>>908
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
931:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:24:40.16 yfbSTWoR0.net
業界ネタには同業者からレスがつく。
ｽﾚﾘﾝｸ(hosp板:22番)
932:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:17.18 yfbSTWoR0.net
これも俺の投稿へのレス
ｽﾚﾘﾝｸ(hosp板:988番)
933:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:26:55.79 yfbSTWoR0.net
医師でもないのが医師板のスレで発狂していて気の毒。
934:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd42-mRrS [49.105.68.74])
23/03/24 07:34:30.84 PPt6oSRgd.net
>>909
お前と違って医者なのに羨ましいわけないだろwww
むしろ、そこまで医者のフリをするメンタルに驚愕覚えるわ
医者として尊敬してもらいたいなら、急性期病院の医者のフリでもすればいいのに
まあ、療養病院の事務員の想像レベルじゃそれが限界なんだろうなwww
935:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:45:11.87 yfbSTWoR0.net
残念でした。
ウロとプシコが指定選択の年に国試合格したよ。
やっぱり羨ましいみたいだな。
936:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:47:08.82 yfbSTWoR0.net
>>7
俺は還暦を超えてから病棟を持たない勤務に変えた。
救急外来＋内視鏡＋麻酔でくっている。
こういうのにも同業者からレスがつく。
937:卵の名無しさん (ﾜｯﾁｮｲ 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
938:卵の名無しさん (ﾜｯﾁｮｲ 2f58-ujRt [14.13.16.0])
23/03/24 07:49:47.14 yfbSTWoR0.net
１時間程度だからロクロの持続はなしだな。
939:卵の名無しさん
23/03/24 15:25:54.90 sCq5Ou+HH.net
麻酔のバイト終了。予定通りの投与で導入も覚醒も良好。
移動含めて2時間の拘束で8諭吉は( ・∀・)ｲｲ!!
来週も1件依頼されたのでスペックを送ってもらったらRで計算。
940:卵の名無しさん
23/03/24 15:33:48.87 sCq5Ou+HH.net
添付文書のpdfからhypertextにしてホームページに掲載しているのでOCRが介在する余地はないね。
Rのdownload.file関数をつかってダウンロードしたテキストを正規表現にマッチした文字列を取得変換しているだけだから、ダウンロード後もOCRは介在しない。
（問） OCRを使うと思ったのは何故だろう？
（答） アホだからです。
941:卵の名無しさん
23/03/24 15:55:12.52 sCq5Ou+HH.net
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったしｗ
942:卵の名無しさん
23/03/24 15:59:12.42 sCq5Ou+HH.net
円満退職した職場からは仕事の依頼がきて( ・∀・)ｲｲ!!
943:卵の名無しさん
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
944:卵の名無しさん
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
945:卵の名無しさん
23/03/24 22:51:25.01 6DggZULia.net
>>915
どこからレスつくんだよタコw
946:卵の名無しさん
23/03/25 20:48:44.86 Iri8Drjea.net
尿瓶ジジイ高校生にバカにされて顔真っ赤w
947:卵の名無しさん
23/03/25 23:29:55.94 GtfTsl56a.net
721 １３２人目の素数さん[sage] 2023/03/25(土) 21:02:11.33 ID:K6/5fMOE
>>718
これが、臨床実地問題とか笑えるわ
やっぱお前医者じゃないだろ？
当然の感想w
948:卵の名無しさん (ﾜｯﾁｮｲ df3d-JF89 [5.8.70.102])
23/03/26 07:23:34.10 59OPwUx30.net
>>926
答が出せない椰子の典型的なレスだな。
949:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.180.1.41])
23/03/26 12:29:20.99 ehKBvke7a.net
>>927
全く相手にされてないだけなのに、自分のチンパン難題()に答えられるやつはいないって悦に浸ってるなんてさすが尿瓶ジジイだねww
5chでバカにされてるだけで幸せだろ？どうせアンタみたいなやつリアルじゃ誰も相手にしてくれないんだしさw
950:卵の名無しさん (ｱｳｱｳｳｰ 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
951:卵の名無しさん
23/03/26 18:22:31.27 vO//PZyba.net
医師じゃなくてもわかりそうやな
語尾がckで終わる形容詞なんぞそうそうないやろ
このクソ学力wwww
952:卵の名無しさん (JP 0H8f-cOoj [146.70.31.52 [上級国民]])
23/03/27 11:06:40.34 VVveAWkpH.net
年度末は検診も少なくて今日は30分で終了。午後の麻酔まで休憩。
953:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.180.0.248])
23/03/27 12:18:05.90 rUopmo96a.net
その前にスペルチェックしてこい
中学生以下だぞ
954:卵の名無しさん (ﾜｯﾁｮｲ eb58-vSlr [14.13.16.0])
23/03/28 08:38:18.06 bWoNfgCM0.net
>>931
バイト代で税込み１２万だが最終的に税金で4割持っていかれる。
955:卵の名無しさん (ｱｳｱｳｳｰ Sa0f-uZf+ [106.128.75.212])
23/03/28 13:51:26.32 rXTShojUa.net
本人だけだから本気で医者だと思ってるのw
数学板でも脳内医者が見抜かれてゴミ扱いw
956:卵の名無しさん (ｱｳｱｳｷｰ Sacf-uZf+ [182.251.34.189])
23/03/28 14:34:44.57 M07F1lbza.net
尿瓶ジジイ高校数学スレで頑張ってるけどことごとくバカにされてて草
957:卵の名無しさん (ｱｳｱｳｷｰ Sacf-uZf+ [182.251.34.189])
23/03/28 23:21:08.23 M07F1lbza.net
おい尿瓶ジジイ
さっさとなんか言えよ
septick shockにでもなったか？w
958:卵の名無しさん (ﾜｯﾁｮｲ 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()
959:卵の名無しさん (ﾜｯﾁｮｲ 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
960:卵の名無しさん (ﾜｯﾁｮｲ 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
961:卵の名無しさん (ﾜｯﾁｮｲ 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()
962:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.70.190])
23/04/02 16:59:20.28 1dmOWK4Ja.net
もう噛み付く元気もないのか尿瓶w
963:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.69.5])
23/04/04 01:29:45.43 IMQRB9Hva.net
47 １３２人目の素数さん[sage] 2023/04/03(月) 17:48:06.86 ID:M9PT8AtZ
>>2
神のお告げによれば
(1) 827/27720
(2) 17021/3960 = 4.2982323232323...
統失はお薬さっさと飲め
964:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/04 06:07:18.77 RDV02kQT0.net
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
sim=\(){
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
}
cat(c('黑','赤','白')[a],':',n,'\n')
n
}
replicate(25,sim())
965:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/04 06:12:39.07 RDV02kQT0.net
問題
袋の中に黒玉3個、赤玉4個、白玉5個が入っている。
無作為に玉を1個ずつ取り出す。
同じ色の玉が続いて出たら終了する。
取り出せた玉の数をnとする。
(1) n= 12の確率を求めよ
(2) nの期待値を求めよ。
の計算をするR言語での神スクリプトを投稿せよ。
966:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/04 06:13:58.85 RDV02kQT0.net
シミュレータの出力
赤 白 白 : 3
黑 白 黑 黑 : 4
黑 赤 黑 赤 黑 赤 白 白 : 8
白 黑 赤 白 赤 白 赤 白 白 : 9
白 白 : 2
赤 白 赤 赤 : 4
黑 白 白 : 3
赤 白 黑 黑 : 4
黑 白 白 : 3
赤 白 白 : 3
赤 黑 黑 : 3
赤 赤 : 2
白 赤 白 白 : 4
赤 黑 白 黑 白 赤 白 赤 赤 : 9
白 白 : 2
黑 黑 : 2
赤 黑 白 赤 黑 白 赤 白 赤 白 黑 白 : 12
白 赤 黑 赤 白 白 : 6
黑 白 黑 赤 白 白 : 6
黑 赤 白 白 : 4
赤 白 黑 白 赤 赤 : 6
白 白 : 2
黑 黑 : 2
赤 白 白 : 3
赤 赤 : 2
[1] 3 4 8 9 2 4 3 4 3 3 3 2 4 9 2 2 12 6 6 4 6 2 2 3 2
967:卵の名無しさん (ﾜｯﾁｮｲ 8d24-kH6f [178.249.213.101 [上級国民]])
23/04/04 18:50:22.32 AKvqNK0z0.net
乱数発生プログラムを総当りプログラムに書き換えれば厳密解がでてくるね。
尿瓶チンパポンコツフェチには無理だろうなぁ。
968:卵の名無しさん (JP 0Heb-IZbk [61.199.225.248])
23/04/04 19:20:01.78 Q/ov/aoZH.net
相変わらず高校生にも相手にされてないみたいだね
独りよがりの荒らししか残らなかったみたいでゴミの掃き溜めみたいなスレ
969:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/05 03:52:50.44 2jfhCfXo0.net
>>947
東大合格者はちゃんと取り組んでいるんだよなぁ。
乱数発生プログラムを総当りプログラムに書き換えれば厳密解がでてくるね。
東大合格者ではない尿瓶チンパポンコツフェチには無理なのが判明。
970:卵の名無しさん (ﾜｯﾁｮｲ e59e-/w2G [126.249.84.118])
23/04/05 11:40:17.97 CZlTbFxF0.net
最初からこんな問題シミュレーションでとこうと思う時点で低脳
971:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.68.237])
23/04/05 11:59:09.54 HCeuYIjua.net
>>948
じゃあ高校生に相手にされてないことは認めるんだねw
コテハンに情けをかけられて嬉しいか？
情けというかそいつも構ってもらえる相手がいないだけだろうけどw
972:卵の名無しさん (JP 0Ha3-kH6f [217.138.212.122 [上級国民]])
23/04/05 15:13:25.25 vA7i9Y0SH.net
クズコードとか罵倒していた椰子って結局、Rすら使えないアホであることが判明したなぁ。
973:卵の名無しさん (JP 0Ha3-kH6f [217.138.212.122 [上級国民]])
23/04/05 15:15:43.58 vA7i9Y0SH.net
>>947
東大合格者は正解をだそうと取り組んでいるんだよなぁ。
んで、あんたは東大合格者なのか？
974:卵の名無しさん (JP 0Ha3-kH6f [217.138.212.122 [上級国民]])
23/04/05 15:22:17.76 vA7i9Y0SH.net
>>950
んで、あんたは東大合格したの？
Rすら使えないポンコツみたいだけど。
975:卵の名無しさん (JP 0Ha3-kH6f [217.138.212.122 [上級国民]])
23/04/05 15:25:24.93 vA7i9Y0SH.net
>944を理詰めで正解できる頭脳の持ち主がいれば賞賛する。
数学板ではいまだ正解すら投稿されず。
俺はR言語の助けを借りないと答が出せなかったから。
976:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.69.115])
23/04/05 20:55:08.34 SJfJzrhEa.net
>>953
数学板で高校生にすら相手にされてないだけって認めろよw
自称学歴同士じゃれあってないでさw
977:卵の名無しさん (ﾜｯﾁｮｲ 2bf7-DGu2 [1.73.138.173])
23/04/05 20:55:46.95 40mgSv0m0.net
>>954
無視されてんだよ
気づけよアホ
978:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.69.115])
23/04/05 20:59:28.06 SJfJzrhEa.net
尿瓶ジジイは>>947がよっぽどお気に召したみたいだからもう一回言ってあげるw
朝から晩まで5chしても高校生にすら足蹴にされてる脳内医者の尿瓶ジジイつくづく哀れだねw
979:卵の名無しさん (ﾜｯﾁｮｲ 4558-3PNc [14.13.16.0])
23/04/06 01:58:04.29 HJ6FU1FY0.net
>>956
東大合格者は解答を試みているぞ。カウントを間違えていたけど。
んで、あんたは東大合格者なのか？
Rすら使えないポンコツみたいだけど。
980:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.69.198])
23/04/06 06:47:24.23 JTmo5tFva.net
>>958
結局誰も真剣には取り組んではくれないってことだろ
それはつまりまともに相手にされてないってことが分からないほどアホなのか？
まあアホには違いないんだろうが
コテハンに少し絡まれただけでドヤ顔とかw
981:卵の名無しさん (ﾜｯﾁｮｲ 4558-w0Fq [14.13.16.0])
23/04/07 07:38:22.14 9qOC7fU10.net
クズコードとか罵倒していた椰子って
結局、Rすら使えないアホであることが判明したなぁ。
982:卵の名無しさん (ｽﾌﾟｰﾌﾟ Sd03-DGu2 [1.73.137.141])
23/04/07 08:52:49.75 2sKjNAJvd.net
>>960
お前はRしか使えない無能だろ？しかも、算数ゴッコでしか使ってないし
普通は統計ソフトは論文書くのに使うんだよ
つまりお前は使いこないしてるわけじゃない
お前みたいなゴミの感覚だとそれぐらいしか利用方法ないんだろうなwww
983:卵の名無しさん (ﾜｯﾁｮｲ 8d24-kH6f [178.249.213.101 [上級国民]])
23/04/07 11:13:53.67 8a7byT+r0.net
年度代わりは検診が少なくて内視鏡は３件だった。
歩合給ではないのでいつもの賃金をゲットできて( ・∀・)ｲｲ!!
これは俺はRで解いたけど、正解が出せる人はいないみたいだな。
Rすら使えない尿瓶チンパポンコツフェチには到底無理みたい。
高校数学の質問スレ Part426
ｽﾚﾘﾝｸ(math板:794番)
794 名前：１３２人目の素数さん[sage] 投稿日：2023/03/27(月) 17:16:55.25 ID:3WQLLgxH
巧みな工夫により傑作に仕上がった質問をご堪能ください。
【質問】
黒玉3個、赤玉4個、白玉5個を1列に並べる。このとき、どの黒玉同士も隣り合わず、どの赤玉同士も隣り合わない並べ方の総数を求めよ。
984:卵の名無しさん (ﾜｯﾁｮｲ 8d24-kH6f [178.249.213.101 [上級国民]])
23/04/07 11:16:51.54 8a7byT+r0.net
>>961
んで、東大合格者なの？
俺は理１を蹴って二期校の医科歯科を選択した口。
同じ選択をした同期も何人かいたな。
985:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.71.247])
23/04/07 18:32:09.45 BaFymtZSa.net
>>963
アンタは高校生にすら無視されてる哀れなジジイだろ
強がるなw
986:卵の名無しさん (ｱｳｱｳｳｰ Sa99-IZbk [106.128.69.20])
23/04/07 21:45:38.95 ZaZTYFCQa.net
>>963
nuresesや胆汁ドレナージ、算数もどきが東大だ何だと笑わせるねw
987:卵の名無しさん
23/04/08 13:05:52.80 lpHB/IEga.net
ｽﾚﾘﾝｸ(hosp板)
尿瓶ジジイ、typoだなんだと弱々しく発狂w
988:卵の名無しさん (ﾌﾞｰｲﾓ MMab-z/6I [133.159.149.55])
23/04/09 08:42:30.95 dO4Xn2V0M.net
俺は模試判定Aの大学だけ受けた。
理１は辞退して医科歯科選択。
医学部受験のカリスマ「和田秀樹」が“塾代返還裁判”で敗訴 「実力に合わない大学だけを受けて返金は納得できない」 [ぐれ★]
ｽﾚﾘﾝｸ(newsplus板)
989:卵の名無しさん (ﾌﾞｰｲﾓ MMab-z/6I [133.159.149.55])
23/04/09 08:48:46.42 dO4Xn2V0M.net
>>961
MT4言語でも遊んでいる。
自動売買ツールのサブルーチン
// Slow Stochastic int price_field(1:Close), int mode(0:main,1:signal), int shift
bool SSBuyOK=true;
bool SSSellOK=true;
double Ds(int t){return(iStochastic(NULL,0,9,3,3,MODE_EMA,1,1,t));}
double D(int t){return(iStochastic(NULL,0,9,3,3,MODE_EMA,1,0,t));}
bool SSBuySign(){
bool ret = D(1)<20 && Ds(1)<20 && D(2)<Ds(2) && D(1)>Ds(1);
return(ret);
}
bool SSSellSign(){
bool ret = D(1)>80 && Ds(1)>20 && D(2)>Ds(2) && D(1)<Ds(1);
return(ret);
}
990:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd03-/rBB [49.105.77.211])
23/04/09 10:12:03.55 jvjs3cchd.net
>>968
結局、医学と関係ねぇじゃねえかよwww
お前は医者じゃないから確かに、そういうお遊びやるしかないもんな
991:卵の名無しさん (ｱｳｱｳｳｰ Sa21-RSNQ [106.128.70.191])
23/04/09 11:11:22.97 OzjQSRfTa.net
>>967
>>968
模試の結果にこだわってる感じがもう受験知りませんって言ってるようなもんだな
結局どんなに声高に叫ぼうがnurseの複数形すら分からん算数もどきしか能がないアンポンタンに変わりないんだよw
992:卵の名無しさん (ﾜｯﾁｮｲ 8d58-ND4+ [14.13.16.0])
23/04/11 05:38:58.02 HStwEdBQ0.net
n=0:1000
m=floor(max(n))
gr=expand.grid(0:m,0:m,0:m)
apply(gr,1,\(x) sum(x^2)) |> unique() -> ss
n[!sap
993:ply(n,\(x) x %in% ss)]
994:卵の名無しさん (JP 0He3-XF2u [217.138.252.98 [上級国民]])
23/04/11 07:30:13.92 7ehwK4AkH.net
calc=\(w,N=100,verbose=FALSE){
for(x in 0:N){
for(y in x:N){
for(z in y:N){
if(x^2+y^2+z^2==w){
if(verbose) print(c(x,y,z))
return(TRUE)
}
}
}
}
return(FALSE)
}
nn=0:100
nn[!sapply(nn,calc)]
nn=0:1000
nn[!sapply(nn,calc)] |> length()
995:卵の名無しさん (JP 0He3-XF2u [217.138.252.98 [上級国民]])
23/04/11 07:31:25.57 7ehwK4AkH.net
>>970
んで、東大合格者なの？
俺は理１を蹴って二期校の医科歯科を選択した口。
同じ選択をした同期も何人かいたな。
996:卵の名無しさん
23/04/11 14:26:49.65 fEskGFeLa.net
>>973
アンタの言ってんのはどこの東大だよタコw
脳内学歴で発狂したところで何の役にも立たないぞ
997:卵の名無しさん
23/04/12 17:53:17.53 4J3K5GMCH.net
"
7個の玉がある。
各玉について、確率1/2で赤色を、確率1/4で青色を、確率1/4で黒色を塗る。
その後、これら7個の玉を無作為に1つずつ取り、左から右へと横1列に並べる。
事象「この列のどの隣り合う2つの玉も色が異なる」が起こる確率を求めよ。
"
b=c('赤','青','黒')
# simulation
replicate(1e6,sample(3,7,replace=TRUE,prob=c(1/2,1/4,1/4)) |> diff() |> prod() !=0) |> mean()
#
b[rep(1:3,c(14,7,7))] |> noquote()
pm=permuteGeneral(1:3,7,freqs=c(14,7,7))
idx=apply(pm,1,\(x) prod(diff(x))!=0)
a=pm[idx,]
matrix(b[a],ncol=7) |> head() |> noquote()
matrix(b[a],ncol=7) |> tail() |> noquote()
idx=apply(pm,1,\(x) prod(diff(x))!=0)
a=pm[idx,]
g=\(x){
n1=sum(x==1)
n2=sum(x==2)
n3=sum(x==3)
(1/2)^n1*(1/4)^n2*(1/4)^n3
}
apply(a,1,g) |> sum() |> fractions()
998:卵の名無しさん
23/04/12 20:03:17.81 agRXzlZA0.net
>>974
んで東大合格者なのか？
999:卵の名無しさん (ｱｳｱｳｳｰ Sa21-RSNQ [106.128.69.25])
23/04/13 00:39:11.04 kh25GRIga.net
>>976
nurseの複数形すらまともに綴れないアンタのオツムじゃ東洋大学も無理だろうねw
1000:卵の名無しさん (ﾜｯﾁｮｲ 8d58-ND4+ [14.13.16.0])
23/04/13 06:19:15.07 AAln22pl0.net
>>977
んで東大合格者なの？
1001:卵の名無しさん (ｱｳｱｳｳｰ Sa21-RSNQ [106.128.68.39])
23/04/13 08:17:29.18 1TPrn52xa.net
>>978
んで、アンタは？証拠は？
1002:卵の名無しさん (ﾜｯﾁｮｲ 8d58-ND4+ [14.13.16.0])
23/04/13 15:25:33.74 AAln22pl0.net
>>979
俺は理１を蹴って二期校の医科歯科を選択した口。
同じ選択をした同期も何人かいたな。
1003:卵の名無しさん (JP 0H8b-RSNQ [61.199.225.248])
23/04/13 18:11:50.90 IsGCDNNBH.net
>>980
どこの脳内東大だよタコw
1004:卵の名無しさん (ｱｳｱｳｳｰ Sa21-RSNQ [106.128.70.119])
23/04/13 18:28:37.84 3JrChQt4a.net
>>980
能書きは垂れるが証拠は何一つあげられない脳内学歴はお呼びじゃないのでw
1005:卵の名無しさん (ｱｳｱｳｳｰ Sa21-RSNQ [106.128.70.236])
23/04/14 07:42:22.54 zyO6mPXfa.net
240 １３２人目の素数さん[sage] 2023/04/13(木) 20:40:31.92 ID:ij/jYPCD
65で出題されてスルーされた問題
全体を4で割っても一般性を失わない
nが十分大きいとき
(n+5)^2＜(N/4)＜(n+6)^2
より整数でないことが示せる
それ以下は計算機で全通り計算すればよい
URLﾘﾝｸ(www.wolframalpha.com)
尿瓶ジジイ、高校生にスルーされて悔しい模様ww
1006:卵の名無しさん (JP 0Hb9-0Jet [146.70.31.18 [上級国民]])
23/04/15 09:04:29.43 n/yXLtaZH.net
>>982
んで、東大受験したことすらないの？
受験しないと合格しないんだが。
1007:卵の名無しさん (ｱｳｱｳｳｰ Saa9-0V8a [106.128.69.31])
23/04/15 15:26:53.83 t73GcIv8a.net
>>984
んで、合格証書はいつあげんだよマヌケw
どうせ脳内なんだろ？
1008:卵の名無しさん (ｱｳｱｳｳｰ Saa9-0V8a [106.128.73.107])
23/04/16 10:19:07.51 kO7Zlz81a.net
おい尿瓶ジジイさっさと合格証書出せよ悔しかったらw
1009:卵の名無しさん (ﾜｯﾁｮｲ 25c7-sFbk [124.47.76.122])
23/04/16 18:18:23.17 TN7WBqno0.net
constant deposit load in percent = 15
1010:卵の名無しさん (ｱｳｱｳｳｰ Saa9-0V8a [106.128.73.107])
23/04/16 19:44:55.75 kO7Zlz81a.net
>>987
おい尿瓶ジジイ
発狂してないでさっさと東大の合格証書()出せやw
1011:卵の名無しさん (ﾜｯﾁｮｲ 25c7-sFbk [124.47.76.122])
23/04/17 07:53:59.76 W6OR/1f+0.net
>>986
んで、あんたは東大合格者じゃないのか？
合格者なら合格通知の書式を知っているんだが。
1012:卵の名無しさん (ﾜｯﾁｮｲ 25c7-sFbk [124.47.76.122])
23/04/17 07:54:33.40 W6OR/1f+0.net
>>988
東大受験せずにどこを受けて落ちたの？
1013:卵の名無しさん (ｱｳｱｳｳｰ Saa9-0V8a [106.128.70.84])
23/04/17 09:09:40.65 NRuA8agEa.net
>>989
じゃあさっさと合格証書出せよw
どうせ脳内なんだろ？
1014:卵の名無しさん (JP 0Hab-0V8a [61.199.225.248])
23/04/17 22:31:00.90 QSSZSb4rH.net
ｽﾚﾘﾝｸ(math板)
尿瓶ジジイ合格証書出せずに喚き中w
1015:卵の名無しさん
23/04/18 04:42:20.04 sxoewKNc0.net
診察時に必ず九州出身とPCに記入されるんやが
これ差別的やない？
1016:卵の名無しさん
23/04/18 06:28:18.87 ouxb+OWE0.net
>>991
合格通知の書式も知らないとは東大合格してないの？
1017:卵の名無しさん
23/04/18 06:29:24.33 ouxb+OWE0.net
>>992
これには答えられないのが尿瓶チンパポンコツフェチ！
東大受験せずにどこを受けて落ちたの？
1018:卵の名無しさん
23/04/18 10:31:59.25 II9wm10wH.net
底辺
1019:卵の名無しさん
23/04/18 10:32:13.63 II9wm10wH.net
私立
1020:卵の名無しさん
23/04/18 10:32:44.89 II9wm10wH.net
医大
1021:卵の名無しさん
23/04/18 10:33:17.08 II9wm10wH.net
卒業
1022:卵の名無しさん
23/04/18 10:37:23.29 II9wm10wH.net
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。
1023:1001
Over 1000 Thread.net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 97日 1時間 54分 8秒
1024:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています