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