TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
筑波東病院死亡退院問題
★[JCHO]北辰・北海道・登別病院
福島県立医科大学 (ナリスマシ吉田編２)
【千葉大医学部】集団R事件の真犯人を名前を書き込むスレ
医師に恋する患者 連投禁止
自費主体の歯科クリニック
眼科医師11年目 将来の展望
底辺医ミーのノーパン病院
クリニックインザモーニング札幌不正専門医DV ３
／／／／ 廃液、および放射能対策法 １１
底辺私立医大を卒業した医者って頭悪いよね？ Part15
- 1 ：2020/03/13 〜 最終レス ：2020/03/30
- タイトルまんまです
すなわち、タイトルの正しさを検証するスレです。
※前スレ
底辺私立医大を卒業した頭悪いよね？
http://egg.2ch.sc/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
http://egg.2ch.sc/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
http://egg.2ch.sc/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
http://egg.2ch.sc/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
http://egg.2ch.sc/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
http://egg.2ch.sc/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
http://egg.2ch.sc/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
http://egg.2ch.sc/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
http://egg.2ch.sc/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.sc/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.2ch.sc/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.2ch.sc/test/read.cgi/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね？ Part13
https://egg.2ch.sc/test/read.cgi/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね？ Part14
https://egg.2ch.sc/test/read.cgi/hosp/1578616997/
- 2 ：
- ド底辺シリツ医大卒ってこれだよな
底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.sc
http://potato.2ch.sc/test/read.cgi/hosp/1424846816/695
695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価
私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。
が、
今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。
とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。
国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。
やはり、底辺私立は、それなりなんだと思いました。
2016年09月02日 00時21分09秒
- 3 ：
- 人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな！
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８−９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
- 4 ：
- Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
- 5 ：
- 前スレからのド底辺シリツ医への宿題
若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
答だせないってアホなの？
Rよりセンズリが好きなの？
- 6 ：
- https://www.youtube.com/channel/UCwoT6kmg4zz0tXagDX-tqow/videos?sort=dd&shelf_id=0&view=0
- 7 ：
- これから同僚の女医と遅めの食事だよん 何食べようかな？ そのあとはムフフだよん！
- 8 ：
- 横浜で中華食べることにした
- 9 ：
- ジクロロイソシアヌル酸ナトリウム
- 10 ：
- >>7
当然、馬鹿はセンズリだろ。
R問題の答まだ？
- 11 ：
- https://9204.teacup.com/kasou2ka/bbs/t3/l50
↑の正論集まとめは、
「検査をたくさんすると医療崩壊する 」とか、
「感染者がふえていない日本のやり方が 正解だったね 」などと言ってる無知も反論できずにだんまり。
- 12 ：
- balls=rep(1:3,7:5)
ｎ=4
picked=NULL
flag=FALSE
sim <- function(){
while(flag==FALSE){
i=sample(length(balls),1)
picked=c(picked,balls[i])
balls=balls[-i]
flag=sum(picked==1)==n
}
sum(picked==2)
}
k=1e4
mean(replicate(k,sim()))
- 13 ：
- 検査陰性 検査陽性
納豆常食 a b
納豆非食 c d
感度sn
特異度sp
- 14 ：
- ド底辺シリツ医大の新入生100人のうち10人は学力考査で合格した正規入学生で残りは裏口入学生であるとする。
誰が正規入学かを確かめる必要がある。審議官の女医（嘘つきかどうかは不明）が無作為に新入生を呼び出して
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」という試問をする。
論理的思考ができる正規入学生はこの質問に回答してRをしてもらっているが、裏口入学生は正解がだせずにセンズリを命じられている。
正規入学生10人を同定できたら一連の試問は終了とする。
センズリを命じられる裏口入学生の期待値を求めよ。
- 15 ：
- ↓いっそのこと、福祉系の高校、福祉系の専門学校、福祉系の大学は、この曲を入学式と卒業式で歌うのはもちろん、それらの学校の授業にも採用必須だ。
↓そんでもってこの歌を、中学、高校の音楽の授業にも採用するべきだ。
↓そうすれば今より全然日本の教育も福祉もまともになる。
ナチスっぽいのは違う（教材用バージョン）
（ジークハイル・ヴィクトーリアhttps://nico.ms/sm27776621 の替え歌 ）
１
違う ナチスっぽいもの 違う 違う 違う
ナチスや 同じものとは 違う 違う 違う
ナチスっぽいものそれらを それらを それらを
ナチスだ ナチスだ それこそが ナチスと 同じだから
２
ナチスは全員悪いの？ 違う 違う 違う
末裔 民兵（国民突撃隊のこと） ユーゲント（ヒトラーユーゲントのこと）は 無罪 無罪 無罪
被害者なんだ彼らは 彼らも 彼らも
全員 全員 悪いとは ナチスと 同じだから
３
悪いものも怪しいものも 全部 全部 全部
怪しいのでも完全に なくす なくす なくす
怪しいものや不思議な 不思議な 不思議な
それらも そられも なくすことは ナチスより 危ないこと
４
ナチスっぽいものも 安全 平気 平気 平気
それらを危ないという奴らこそ 怖い 怖い 怖い
ナチスっぽいものそれらを それらを それらを
ナチスだ ナチスだ それこそが ナチスと 同じだから
- 16 ：
- 某国の新型コロナ感染症の有病率を0.1、PCR検査の感度を0.7 特異度を0.9とする
検査陽性陰性の人を無作為に50人ずつ集めて、カレーを頻回に食べているかを調査した結果が
以下の通りであった。
検査陽性 検査陰性
カレー頻食 a(=18) b(=30)
カレー稀食 c(=32) d(=20)
カレーを頻食すると新型コロナ感染に罹りにくいと結論できるか？ 危険率0.05で検定せよ。
- 17 ：
- >>16
納豆にした方が up-to-date だったかな。
【新型肺炎】納豆でコロナウイルスが防げるわけがない
https://asahi.2ch.sc/test/read.cgi/newsplus/1584181222/
- 18 ：
- >>3
最底辺聖マリ
不正入試事件
- 19 ：
- eval(str2lang(paste("expand.grid(",paste(rep("1:6",n),collapse=','),")")))
- 20 ：
- ｆｎ ＜− ｆｕｎｃｔｉｏｎ（ｎ）｛
ｌｉｂｒａｒｙ（ｇｍｐ）
ｇｒ＝ｅｖａｌ（ｓｔｒ２ｌａｎｇ（ｐａｓｔｅ（?ｅｘｐａｎｄ．ｇｒｉｄ（?，ｐａｓｔｅ（ｒｅｐ（?１：６?，ｎ），ｃｏｌｌａｐｓｅ＝?，?），?）?）））
ｒ＝ａｓ．ｂｉｇｑ（ｓｕｍ（ａｐｐｌｙ（ｇｒ，１，ｆｕｎｃｔｉｏｎ（ｘ） ｐｒｏｄ．ｂｉｇｚ（ｘ）％％６＝＝０）））／ａｓ．ｂｉｇｑ（ｎｒｏｗ（ｇｒ））
ｒ２＝ｃａｐｔｕｒｅ．ｏｕｔｐｕｔ（ｒ）［２］
ｓｕｂｓｔｒ（ｒ２，５，ｎｃｈａｒ（ｒ２））
｝
ｆｏｒ（ｉ ｉｎ １：９） ｃａｔ（ｉ，?：?，ｆｎ（ｉ），?\ｎ?）
＃ ｓｔｒ２ｌａｎｇ ｓｔｒ２ｅｘｐｒｅｓｓｉｏｎ
？ｓｔｒ２ｌａｎｇ
ｒｅｐ（?１：６?，５）
ｐａｓｔｅ（ｒｅｐ（?１：６?，５），ｃｏｌｌａｐｓｅ＝?，?）
ｓｔｒ２ｌａｎｇ（ｐａｓｔｅ（?ｅｘｐａｎｄ．ｇｒｉｄ（?，ｐａｓｔｅ（ｒｅｐ（?１：６?，５），ｃｏｌｌａｐｓｅ＝?，?），?）?））
ｅｖａｌ（ｓｔｒ２ｌａｎｇ（ｐａｓｔｅ（?ｅｘｐａｎｄ．ｇｒｉｄ（?，ｐａｓｔｅ（ｒｅｐ（?１：６?，５），ｃｏｌｌａｐｓｅ＝?，?），?）?）））
（ｓ＝ｒｅｐ（?１：６?，５））
（ｓｔｒ＝ｐａｓｔｅ（ｓ，ｃｏｌｌａｐｓｅ＝?，?））
（ｌａｎｇ＝ｓｔｒ２ｌａｎｇ（ｐａｓｔｅ（?ｅｘｐａｎｄ．ｇｒｉｄ（?，ｓｔｒ，?）?）））
ｅｖａｌ（ｌａｎｇ）
- 21 ：
- 1つのサイコロを1000回投げ、出たの目の積が6の倍数になる確率を求めよ。
- 22 ：
- >>21
47220342079449539079320841749717414722134906103033971074411824773802063158654954
78782553777956429086689635983100676494971980800893737206898199348872614765170740
26436777099351649224136381054252517244693249341173970026131749618621870261202952
68506471503541601303402147434745831121294646204008341342596878988064526003821848
47350353717068971961056741688905252299340788161589878404840404622480764187448353
32874053399192549842163928063249964475901360206637923816854633734078979573075607
65156346063056777623923102897003795889972341311619755832731703108568166809019760
82619983887158454776668785012213804830234099373041370736940062965780315399752675
85931800834524221320269372496116337758793689440383181962045126254213242430242897
2707473244524667843291987867378712069417057170700358203125/
47220342079449539079320841749717414722134906103033971074411824773802063158654954
78782553777956429086689635983100676494971980800893737206898199348872614765170740
26436777099351653051238698635100931354137253266780583433857423247605871853345408
77095225300998372588955309540247921094109967750337495600412589715254942716985948
56040995407296803945912523366288204447363657585489887162738725631488462676138922
77949844232989170602907425579486537045043498595634175793432609392791064332215607
01930766100231855663096457808363294469307785792482397921995023029923784306610392
40882756392649051552565839024997813838508946629024466730599148384586740565241089
41833537801468750103357004473347153589899225261233430379634109477956541718123166
0315400712646203373100150265030496217751216542883136929792
- 23 ：
- > data.frame(小数表示=pp,シミュ値=p,分数表示=ps)
小数表示 シミュ値 分数表示
1 0.1666667 0.16832 1/6
2 0.4166667 0.41610 5/12
3 0.6157407 0.61546 133/216
4 0.7523148 0.75188 325/432
5 0.8411780 0.84256 6541/7776
6 0.8979552 0.89643 4655/5184
7 0.9341171 0.93211 261493/279936
8 0.9572277 0.95699 535925/559872
9 0.9720854 0.97176 9796381/10077696
10 0.9816988 0.98209 19786525/20155392
11 0.9879563 0.98787 358427653/362797056
12 0.9920504 0.99227 239941975/241864704
13 0.9947403 0.99471 12991999021/13060694016
14 0.9965137 0.99669 26030320685/26121388032
15 0.9976859 0.99799 469096926613/470184984576
16 0.9984623 0.99836 938923986325/940369969152
17 0.9989774 0.99909 16909350566461/16926659444736
18 0.9993195 0.99924 3758920371605/3761479876608
19 0.9995470 0.99952 609083700366373/609359740010496
20 0.9996983 0.99974 1218351814233125/1218719480020992
- 24 ：
- "
任意の3以上の奇数nについて、n-1個の数√(n),√(2n),√(3n),...,√((n-1)n)のうち、
整数部分が偶数であるものの個数と奇数であるものの個数は等しい
"
sim <- function(m){
n=2*m+1
i=1:(n-1)
a=sqrt(i*n)
mean(floor(a)%%2==0)==0.5
}
flg=sim(1)
i=1
k=1e6
while(flg & i < k){
i=i+1
flg=sim(i)
}
i
- 25 ：
- ドンドンまともな人が去って行きますなぁw
- 26 ：
- ド底辺シリツはアホばかりだろ。
この計算すらできないと思う。
手コキ問題より難しいから。
某国の新型コロナ感染症の有病率を0.1、PCR検査の感度を0.7 特異度を0.9とする
検査陽性陰性の人を無作為に50人ずつ集めて、カレーを頻回に食べているかを調査した結果が
以下の通りであった。
検査陽性 検査陰性
カレー頻食 a(=18) b(=30)
カレー稀食 c(=32) d(=20)
カレーを頻食すると新型コロナ感染に罹りにくいと結論できるか？ 危険率0.05で検定せよ。
- 27 ：
- 私は応援しますよっ ガンバ！
- 28 ：
- 2020/03/13 11:00時点で東京都で1524人検査して87人陽性と報告されている
# https://data-science.gr.jp/theory/tpd_negative_binomial_distribution.html
発見率は平均値87/1524、0.01-0.10の区間の二項分布に従うと仮定する。
新型コロナ陽性患者を10人集めたい。
必要な被検者数の期待値と95%信頼区間を求めよ。
- 29 ：
- お互いに毎日が休日というのは愉快ですな。2ちゃんねるで暴れましょうや。俺たちは医者どころか社会の底辺にいるというのにはもうなれましたもんね。
- 30 ：
- 変なプライドを捨てて社会の底辺にいることを自覚すると楽になれますよ！ガンバ！
- 31 ：
- 今日は中学生時代の幼なじみの彼女とラーメンを食べる約束をしている。ささやかな幸せですがね。
- 32 ：
- "
任意の3以上の奇数nについて、n-1個の数√(n),√(2n),√(3n),...,√((n-1)n)のうち、
整数部分が偶数であるものの個数と奇数であるものの個数は等しい
"
sim <- function(m,print=FALSE){
n=2*m+1
i=1:(n-1)
a=sqrt(i*n)
b=floor(a)
if(print) cat(sum(b%%2==0),sum(b%%2==1),'\n') # 偶数の数、奇数の数
sum(b%%2==0)==sum(b%%2==1) # 等しいか否かを返す mean(floor(a)%%2==0)==0.5でも同じ
}
sim=Vectorize(sim)
flg=sim(1)
i=1
k=1e5
while(flg & i < k){
i=i+1
flg=sim(i)
}
i
- 33 ：
- コロナ騒ぎで接客業は賤業と身に染みる昨今だな。
軽症患者を経過観察でベッドを埋めていたけど、軽症コロナが紛れ込むと被害甚大。
- 34 ：
- 幼なじみの彼女（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
答だせないってアホなの？
Rよりセンズリが好きなの？
- 35 ：
- オー国試合格したぞい やったー
- 36 ：
- シリツだとそんなうれしいのか
- 37 ：
- やったー！
- 38 ：
- 浪人 留年 なしで 全てストレートだ。これから医師の道で頑張る！
- 39 ：
- 今日はこれから祝勝会だ うちの仲間は全員合格じゃ 飲むぞ〜
- 40 ：
- 別のグループの女子たちも一緒に騒ぐぞー
- 41 ：
- [Android] 特定のWi-Fi SSIDが表示/接続できない原因! ルーターネットワークのチャンネル変更で解決しよう
「Wi-Fi設定」→「詳細設定」より「チャンネル」を「自動」から1?11chいずれかにチェックを入れ、最後に「適用」します。
https://sp7pc.com/google/android/32276
- 42 ：
- 今年の国試はチャンスだったのにねw
- 43 ：
- 最後のチャンスだったのにねw さてナース誘って飯でも食いに行こうかな 今日の仕事はここまで…
- 44 ：
- ナース（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
答だせないってアホなの？
Rよりセンズリが好きなの？
- 45 ：
- 国試は来年は難化するだろうな
- 46 ：
- 浪人すればするほど合格率は下がる 当たり前だな 大学受験の多浪と国試浪人はやはり関係するな 誰だ？浪人が優秀って言ってた奴は 馬鹿者！w w w
- 47 ：
- シリツ医大卒は裏口入学容疑者だから
手コキ問題の解けないのは裏口確定だろな。
どうやら性魔らしい。
シリツ卒には医師国試の予備試験を課すべきだな。
こういう応用力を問う問題で。
某国の新型コロナ感染症の有病率を0.1、PCR検査の感度を0.7 特異度を0.9とする
検査陽性陰性の人を無作為に50人ずつ集めて、カレーを頻回に食べているかを調査した結果が
以下の通りであった。
検査陽性 検査陰性
カレー頻食 a(=18) b(=30)
カレー稀食 c(=32) d(=20)
カレーを頻食すると新型コロナ感染に罹りにくいと結論できるか？ 危険率0.05で検定せよ。
- 48 ：
- 半径1の球面上の4点を一様独立に選ぶとき、その4点の凸包の体積の期待値を求めよ。
- 49 ：
- 今日は週末日当直の代休。
core i7 メモリ16GのPCが届いたのでセットアップを終えて
半径1の球面上の4点を一様独立に選ぶとき、その4点の凸包の体積の期待値を求めよ。
のシミュレーションプログラムを作って遊ぶ。ステーキハウスは自粛。
library(nleqslv)
vertices <- function(r=1){
angles=runif(2,-pi,pi) # 角度Θ,Φを一様分布で選んで
theta=angles[1]
phi=angles[2]
x=r*sin(theta)*cos(phi)
y=r*sin(theta)*sin(phi)
z=r*cos(theta)
c(x,y,z) # 直交座標を返す
}
Abs <- function(x) sqrt(sum(x^2)) # vector xの長さ
sphere <- function(CR){ # CR:Center,Radius
C=CR[1:3]
R=CR[4]
v4=replicate(4,vertices()) # 単位球上の任意の４点の直交座標
c(
Abs(v4[,1]-C),Abs(v4[,2]-C),Abs(v4[,3]-C),Abs(v4[,4]-C)
)-R
}
sim2 <- function(){
r=nleqslv(1:4/10,sphere)$fvec[4] # 初期値 1:4/10 c(0.1,0.2,0.3,0.4)
4/3*pi*r^3
}
sim2()
k=1e6
re=replicate(k,sim2())
mean(re)
- 50 ：
- > k=1e6
> re=replicate(k,sim2())
> mean(re)
[1] 1.810221
- 51 ：
- 文字列を逆に並べる再帰呼び出しスクリプト
> reverse <- function(x){
+ if(!length(x)) return(NULL)
+ c(Recall(x[-1]),x[1])
+ }
> cat(reverse(LETTERS[1:26]))
Z Y X W V U T S R Q P O N M L K J I H G F E D C B A
- 52 ：
- バーカ
- 53 ：
- 女医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
答だせないってアホなの？
Rよりセンズリが好きなの？
- 54 ：
- あの〜 お仕事は何をされてるんですか？
- 55 ：
- 球の表面に一様分布させるRのコード
vertex <- function(r=1){ #緯度φ周りの帯の面積に応じて一様分布
theta=runif(1,-pi,pi) # 経度θ
p=sqrt(runif(1)) # 分布確率pを一様分布にする
phi=asin(2*p-1) # 確率がpになる緯度φ
x=r*cos(phi)*cos(theta) # 曲座標から直交座標に
y=r*cos(phi)*sin(theta)
z=r*sin(phi)
c(x,y,z)
}
vtx=replicate(5000,vertex())
x=vtx[1,]
y=vtx[2,]
z=vtx[3,]
rgl::plot3d(x,y,z, col="slateblue")
https://i.imgur.com/27K33kB.png
- 56 ：
- >49 だと一様分布にならないと数学板で速攻で指摘されてしまった。
勉強になるなぁ。
この板にはセンズリ専従医しかいない。
- 57 ：
- https://this.kiji.is/612380021817279585
感染拡大沈静化は7月か8月ごろと米大統領
2020/3/17 05:19 (JST)
©一般社団法人共同通信社
【ワシントン共同】トランプ米大統領は16日、新型コロナウイルスの感染拡大が沈静化するのは「7月か8月ごろになるのではないか」との考えを示した。
トランプは正直だな
予防的措置その期間もガチっと長めに言う
１〜２週間だ、あと１０日程だと社会を混乱させる安倍とは大違い
- 58 ：
- がんがれ安倍チョン
- 59 ：
- こっちの方がx,y,zともに一様分布になっている。
vertex <- function(r=1){
x=runif(1,-1,1) # x ~ 一様分布[-1,1]
phi=runif(1,-pi,pi) # φ ~ 一様分布[-π,π]
y=sqrt(1-x^2)*cos(phi) # √(1-x^2)*cos(φ)
z=sqrt(1-x^2)*sin(phi) # √(1-x^2)*sin(φ)
r*c(x,y,z)
}
https://i.imgur.com/xX0mTim.png
https://i.imgur.com/H7hs9w8.png
これでやってみると、四面体の場合
> mean(tetra)
[1] 0.1201118
> summary(tetra)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.0000003 0.0372266 0.0922805 0.1201118 0.1794858 0.5104545
- 60 ：
- うれしいなー彼女も国試無事合格だ！明日から彼女と温泉にプチ旅行だい！4月からお互いに忙しくなるから今のうちに楽しんどこーっと
- 61 ：
- 来年以降は国試は難化するだろうから 今年合格できてよかったな 必死に勉強してよかったよ 学生生活も充実してたな 楽しかった これから医師としての生活になるが がんばろうと思う
- 62 ：
- 彼女（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
答だせないってアホなの？
Rよりセンズリが好きなの？
- 63 ：
- 奴隷医者としてのつまらん人生の始まりだな
- 64 ：
- 賢い奴は勤務医なんかとっととやめるんだよ
- 65 ：
- >>64
手コキ問題の正解も出せない奴は賢い奴とは言えない。
答えてみ！はよ、はよ！！
- 66 ：
- あのー お仕事は何をされてるんですか？
- 67 ：
- コロナの影響で今日、健診の内視鏡件数が少なかった。
- 68 ：
- 大嘘つきおじさん w w w
- 69 ：
- 福井県筑後市瓜生町 ワハハハハー
- 70 ：
- ６件で５万だから、今日はコストパフォーマンスのいいバイトだった。
- 71 ：
- 「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
これだけ時間があるのに、答だせないって真正の馬鹿なんだろうな。
- 72 ：
- あのー お仕事は何をされてるんですかあ？ w w w w w
- 73 ：
- # 球面一様分布 c(x,y,z)
vertex <- function(){ # xi ~ Norm(0,1) , xi/√(Σxi)
v=rnorm(3,0,1) # 正規分布N(0,1)する３個からなるベクトル v
v/sqrt(sum(v^2)) # v の長さで割る
}
n=5000
vtx=replicate(n,vertex()) # n個の点x,y,zをつくる
par(mfrow=c(3,1))
x=vtx[1,] ; hist(x,col='pink') # 分布を確認
y=vtx[2,] ; hist(y,col='orange')
z=vtx[3,] ; hist(z,col='darkgreen')
rgl::plot3d(x,y,z, col='slateblue') # 3Dで分布を確認
- 74 ：
- # https://mathtrain.jp/rthetaphi
"
x=r*sin(θ)*cos(φ)
y=r*sin(θ)*sin(φ)
z=r*cos(θ)
θ:π/2-緯度
φ:経度
r=sqrt(x^2+y^2+z^2)
θ=acos(z/sqrt(x^2+y^2+z^2))
φ=acos(x/sqrt(x^2+y^2))
"
# 直交座標を極座標に
c2p <- function(xyz){ # (x,y,z) -> (θ,φ) Cartesian 2 Polar
x=xyz[1];y=xyz[2];z=xyz[3]
r=sqrt(x^2+y^2+z^2) # =1になるx,y,zの組合せ
theta=acos(z/sqrt(x^2+y^2+z^2)) # = acos(z) [0,π]の値
phi=ifelse(y>0,acos(x/sqrt(x^2+y^2)), # y>0ならφ < π
2*pi-acos(x/sqrt(x^2+y^2)))# y<0ならφ > π
c(theta,phi)
}
- 75 ：
- n=5e4
vtx=replicate(n,vertex()) # n個の点を作る
v=t(vtx) # 転置してn行３列(x,y,z)に
head(v,3) ; tail(v,3)
vp=apply(v,1,c2p) # 各行毎にx,y,z -> θ,φに変換
tp=t(vp) # theta θ, phai φ 転置してn行2列(θ,φ)に
"
par(mfrow=c(2,1))
th=tp[,1] ; summary(th) ; hist(th,col=sample(colours(),1))
ph=tp[,2] ; summary(ph) ; hist(ph,col=sample(colours(),1))
c2p(c(1/4, sqrt(3)/4, sqrt(3)/2)) ; c(pi/6,pi/3)
c2p(c(1/4, -sqrt(3)/4, sqrt(3)/2)) ; c(pi/6,2*pi-pi/3)
"
par(mfrow=c(1,1))
plot(tp,bty='n',pch='.',xlab='θ',ylab='φ')
# plot(tp,bty='n',col=rgb(.01,.01,.01,.1),xlab='θ',ylab='φ')
- 76 ：
- >>72
臨床医という賎業だよ。
- 77 ：
- 臨床医学は確率事象を扱う稼業なので統計処理は必須。
これができない医師はアホといえる。
某国の新型コロナ感染症の有病率を0.1、PCR検査の感度を0.7 特異度を0.9とする
検査陽性陰性の人を無作為に50人ずつ集めて、カレーを頻回に食べているかを調査した結果が
以下の通りであった。
検査陽性 検査陰性
カレー頻食 a(=18) b(=30)
カレー稀食 c(=32) d(=20)
カレーを頻食すると新型コロナ感染に罹りにくいと結論できるか？
- 78 ：
- 「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
これだけ時間があるのに、答だせないって真正の馬鹿なんだろうな。
カンファレンス参加者にアドバイスを求めてもいいといってんだが、同僚も知恵遅れだらけなんだろうな。
- 79 ：
- >>74
https://rio2016.2ch.sc/test/read.cgi/math/1580123521/849
の図を作るプログラム
- 80 ：
- ねえねえ お仕事はされてるんですかあ？ w w w
- 81 ：
- 「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
これだけ時間があるのに、答だせないって真正の馬鹿なんだろうな。
相談できる同僚もいないのか？
全員、裏口入学？
聖魔だろ？
- 82 ：
- あのー 今までバイト以外で定職についたことはあるんですか？w w w
- 83 ：
- あと2、3年で還暦ですね w 人生で一度もバイト以外で社会的に出て定職につかないことになりそうですね！w w w
- 84 ：
- 塾の先生もクビですかあ？ w w w
- 85 ：
- 今も常勤の勤務先あるよ。厚生年金の受給資格もある。
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
これだけ時間があるのに、答だせないって真正の馬鹿なんだろうな。
相談できる同僚もいないのか？
全員、裏口入学？
聖魔だろ？
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
- 86 ：
- >>84
学生時代に高輪のシリツ医大進学予備校でバイトしたがオマエそっくりの馬鹿だらけだったぞ。
んで、あんたどこ卒？
- 87 ：
- 今日は内視鏡バイトの日なんだが、複数の担当看護師が子供の卒業式とのことで休診。
病院の都合だから、有給休暇扱いにすると伝えられた。人徳の為せる技だな。
非常勤にも有給休暇があるのが法の建前。
開業医スレでは有給休暇を言い出すようなバイト医は首にするというのが多数はだったなぁ。
- 88 ：
- 嘘つき人生もまたよしかあ w w w
- 89 ：
- 残念ながらもう国試は受験できないんだねえ ま、いいじゃないか医者になれなくても バイトでもいいから早く仕事が見つかるといいね あとは手帳あるんだし w w w
- 90 ：
- 国立での 特に筑波大も
全然、医師の資格はない
ただの独り善がりで共産党系の病院の医師は
医師じゃない…死神だった…
- 91 ：
- 未だに他人を同定しているどアホがオマエだよ。
まさに昆虫並みの頭脳だな。
ここまでアホだから、藤田か聖マだろ？
手コキ問題にまだ答えられないの？
馬鹿なんだろ。
周りに教えてくれる人いないの？
みんな裏口バカだらけ？
- 92 ：
- # 球面一様分布 c(x,y,z)
vertex <- function(r=1){
x=runif(1,-1,1) # x ~ 一様分布[-1,1]
phi=runif(1,-pi,pi) # φ ~ 一様分布[-π,π]
y=sqrt(1-x^2)*cos(phi) # √(1-x^2)*cos(φ)
z=sqrt(1-x^2)*sin(phi) # √(1-x^2)*sin(φ)
r*c(x,y,z)
}
# 球面をスキャンするグリッドを作る
th=seq(0,pi, by=10*pi/180) # (北極)緯度０〜180°
ph=seq(0,2*pi,by=10*pi/180) # 経度０〜360°
gr=expand.grid(th,ph) # (緯度,経度)の総組み合せ
fn <- function(x){ # (緯度,経度) -> (x,y,z) 緯度経度を直交座標に
th=x[1]
ph=x[2]
c(sin(th)*cos(ph),sin(th)*sin(ph),cos(th)) # これを北極点(north pole)に使う
}
nopo=t(apply(gr,1,fn)) # 北極点に使う点の行列
colnames(nopo)=c('x','y','z')
nopo[100,]
# 球面上の点行列Mに、NPを北極点とする北極緯度Thetaの球冠上の点が何個含まれるか？
hmonsc <- function(M,NP,Theta=5*pi/180){ # pi/180 = １°
is.onsc <- function(x, np=NP, theta=Theta){ # Is x On Spherical Cap?
acos(x %*% np) < theta # ベクトルの内積の逆余弦がtheta未満なら球冠上にある
}
sum(apply(M,1,is.onsc)) # 行ごとに球冠上にあるか判定してTRUEの数を返す
}
- 93 ：
- n=5000
vtx=t(replicate(n,vertex())) # n個の点x,y,zをつくる
# rgl::plot3d(vtx[,1],vtx[,2],vtx[,3], col="darkblue")
hmonsc(vtx,nopo[100,])
scan.sphere <- function(x) hmonsc(M=vtx,NP=x)
dots.in.grid=apply(nopo,1,scan.sphere)
table(dots.in.grid)
summary(dots.in.grid)
hist(dots.in.grid,col='maroon')
BEST::plotPost(dots.in.grid,showCurve = T)
- 94 ：
- 球面上でのプログラムは難しいなぁ。
一応、完成をみたので数学板に投稿して評価を待つことにする。
- 95 ：
- 角度均等割りのグリッドだと面積が等しくないな。
これではだめだ。数学板投稿前に気づいてよかった。
- 96 ：
- Do <- function(n=5000){
vtx=t(replicate(n,vertex())) # n個の点x,y,zをつくる
rgl::plot3d(vtx[,1],vtx[,2],vtx[,3], col=sample(colours(),1))
Theta=(pi/180)*5
onCap <-function(x,y,theta){
acos(x %*% y) < theta # ベクトルの内積の逆余弦がtheta未満なら球冠上にある
}
hmonCap<- function(j){
count=0
for(i in (1:n)[-j]){
count = count + onCap(vtx[j,],vtx[i,],Theta)
}
return(count)
}
dots=sapply(1:n,hmonCap)
print(summary(dots))
print(sd(dots))
hist(dots)
print(table(dots))
BEST::plotPost(dots)
}
- 97 ：
- library(rgl)
# https://upload.wikimedia.org/wikipedia/commons/thumb/2/2f/Spherical_cap_diagram.tiff/lossless-page1-597px-Spherical_cap_diagram.tiff.png
# 角度Θ,Φを一様分布で選んで
vertex <- function(r=1){
angles=runif(2,-pi,pi)
theta=angles[1]
phi=angles[2]
x=r*sin(theta)*cos(phi)
y=r*sin(theta)*sin(phi)
z=r*cos(theta)
c(x,y,z) # 直交座標を返す
}
Do()
# 正方形内で乱数発生
vertex <- function(r=1){
z2=-1
while(z2 < 0){
x=runif(1,-1,1)
y=runif(1,-1,1)
z2=r^2-(x^2+y^2)
}
z=sqrt(z2)*sample(c(-1,1),1)
return(c(x,y,z))
}
Do()
- 98 ：
- #緯度φ周りの帯の面積に応じて一様分布
vertex <- function(r=1){
theta=runif(1,-pi,pi) # 経度θ
p=sqrt(runif(1)) # 分布確率pを一様分布にする
phi=asin(2*p-1) # 確率がpになる緯度φ
x=r*cos(phi)*cos(theta) # 極座標から直座標に
y=r*cos(phi)*sin(theta)
z=r*sin(phi)
c(x,y,z)
}
Do()
# 球面一様分布 c(x,y,z) Wikipedia
vertex <- function(){ # xi ~ Norm(0,1) , xi/√(Σxi)
v=rnorm(3,0,1) # 正規分布N(0,1)する３個からなるベクトル v
v/sqrt(sum(v^2)) # v の長さで割る
}
Do()
# 球面一様分布 c(x,y,z)
vertex <- function(r=1){
x=runif(1,-1,1) # x ~ 一様分布[-1,1]
phi=runif(1,-pi,pi) # φ ~ 一様分布[-π,π]
y=sqrt(1-x^2)*cos(phi) # √(1-x^2)*cos(φ)
z=sqrt(1-x^2)*sin(phi) # √(1-x^2)*sin(φ)
r*c(x,y,z)
}
Do()
#
- 99 ：
- core i7 メモリ16Gは計算の待ち時間が少なくて( ・∀・)ｲｲ!!
ド底辺裏口シリツ医は一生かかっても正解がだせないだろうなぁ。
彼女（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかRをしてあげる、そうでなければセンズリを命じる」と言われた。
Rをしてもらうには何と言えばいいか？
- 100 ：
- またアホが湧いてきたな
どんだけ暇なんや
100〜のスレッドの続きを読む
●なぜ看護師は性格が悪いのか？？●
☆★不正専門医・指定医を報告するスレ★★
不細工な女医の結婚相手として相応しい男性は？
新潟の精神科
診療放射線技師総合スレッド34
書き込むと願いが叶う夢が叶う宝地図スレ2
EvEたんブログ【インリンコテ】 [無断転載禁止]©2ch.net
☆【家柄】看護師を見下す医師家系奥【★】
精神科医（とおぼしき方）に質問ですpart62くらい
■千葉労災病院の深い闇■ 2
--------------------
おはよう２ちゃんねる
【画像】トンキン、とんでもない部屋を96000円で契約 [998671801]
プリキュアシリーズ数字議論スレッド167
【名無し奥も○○奥も】 気楽に井戸端会議 6706【みんな来い】
北海道札幌おみみんを語るスレ
東方のパンチラ画像スレ
【キャバつく専用】龍が如く4【1人目】
【ユー子】 ＳＣＳＫ Part8 【最大手】
岡松・小林・畑を語るスレ【旧山陽のエース】
【アルミの輝き】ジェフ・ローランド総合 3【jeff rowland】
【音楽】高見沢俊彦がデザインしたゴジラ・ギター発売、限定5本で555万円
郵便局メンタルヘルス
ライトノベル作家志望者が集うスレ 248
【糞運営】プリンセスコネクト! Re:Dive Part422
【素意や！】一世風靡ＳＥＰＩＡ【素意や！】
【投資虚言業】KAZMAX★59【投資助言業トルトル詐欺】〜サロン〜
━━━ New York Mets ━━━ vol.15
【日テレ水曜ドラマ】 正義のセ 【吉高由里子】 Part.3
初心者にも分かりやすくサバを説明するスレ
【悲報】HKT48が不人気すぎてボートレース場でどさ回りwww
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
