18/10/30 21:03:47.41 kXLKssbE.net
>>356
数学板でc++に移植したコードが投稿された。
面白い問題をみると解決せずにはいられない人達に感謝。
shape(5x6), tcount=15 ---> pwin:25463979, qwin:25488051,eve
374:n:104165490 シミュレーションと比較してみる。 > p=25463979 > q=25488051 > e=104165490 > c(p,q,e)/(p+q+e) [1] 0.1641593 0.1643145 0.6715263 母集団１億５千万から１０万のサンプリングなのでまずまずの近似だな。 > c(p1st_sim=mean(re15<0),q1st_sim=mean(re15>0),draw_sim=mean(re15==0)) p1st_sim q1st_sim draw_sim 0.16354 0.16515 0.67131
375:卵の名無しさん
18/10/30 21:15:23.20 kXLKssbE.net
いつも最後はcプログラマーのお世話になるなぁ。
お気楽言語で四苦八苦しているのを示すと
月光仮面のように現れてcのコードを投稿してくれる。
今回はc++なのでついていけそうもない。
376:卵の名無しさん
18/10/31 09:58:29.87 +mq0uM90.net
低脳私立医 でてこいや！
377:卵の名無しさん
18/10/31 10:29:16.05 q9Xt3MLv.net
>>355
B医大は裏口の割合が少なかった。
B医大の正規学生はA医大の正規学生に負けていたが、Aの裏口よりはずっと高かった
378:卵の名無しさん
18/10/31 11:53:23.56 bPxngJ5R.net
>>365
数字を伴った具体例が出せないとは、さてはシリツだな。
379:卵の名無しさん
18/10/31 15:20:14.36 qgJ05S6D.net
>>363
最適化された算出法のPythonでのコードが投稿されて
>PythonをHaskellにすればいい
>Haskellにもリスト内包表記があるんだから
とのアドバイスを頂いた。まさに移植の核心をつく助言だったな。サッカーでいうキラーパスだぜ。
import System.Environment
choose (n,r) = product[1..n] `div` product[1..n-r] `div` product[1..r]
nloc m n k l = do
let q = div (n*k+l) m
r = mod (n*k+l) m
in (n-q)*(m-k) + q-1-l + if r>k then k-r else 0
nwin m n c = sum[choose ((nloc m n k l), c-1) | k<-[0..m-1], l<-[0..n-1], k*(n-1) < l*(m-1)]
mwin m n c = sum[choose ((nloc n m k l), c-1) | k<-[0..n-1], l<-[0..m-1], k*(m-1) < l*(n-1)]
draw m n c = choose(m*n,c) - nwin m n c - mwin n m c
main = do
argList <- getArgs -- m : 縦マス(短軸） n : 横マス(長軸) k : 宝の数
let m = read (argList !! 0)
n = read (argList !! 1)
k = read (argList !! 2)
putStrLn $ "p1st = " ++ show(mwin m n k) ++ ", q1st = " ++ show(nwin m n k) ++ ", draw = " ++ show(draw m n k)
380:卵の名無しさん
18/10/31 15:23:26.52 qgJ05S6D.net
コンパイルしてコマンドラインで動作するようにしたの汎用性があって( ・∀・)ｲｲ!!
コンパイルできて不定長整数が扱えるHaskellならではだな。
こういうのも瞬時に計算してくれた、１０×２０部屋に宝箱１００個
>takara 10 20 100
p1st = 15057759425309840160151925452579572328997602171271937639470,
q1st = 15057796557877993527038542474310161591275806044157319150135,
draw = 60432921540347294111327092128863840691952977587098698541050
381:卵の名無しさん
18/10/31 19:20:51.03 qgJ05S6D.net
>>367
{-
数学板で drawのtypo を指摘されてたのでデバッグ版を再度アップ。
数学板は細かいところまできちんと読んでいてくれる人がいて( ・∀・)ｲｲ!!
-}
import System.Environment
choose (n,r) = product[1..n] `div` product[1..n-r] `div` product[1..r]
nloc m n k l = do
let q = div (n*k+l) m
r = mod (n*k+l) m
in (n-q)*(m-k) + q-1-l + if r>k then k-r else 0
nwin m n c = sum[choose ((nloc m n k l), c-1) | k<-[0..m-1], l<-[0..n-1], k*(n-1) < l*(m-1)]
mwin m n c = sum[choose ((nloc n m k l), c-1) | k<-[0..n-1], l<-[0..m-1], k*(m-1) < l*(n-1)]
draw m n c = choose(m*n,c) - nwin m n c - mwin m n c
main = do
argList <- getArgs -- m : 縦マス(短軸） n : 横マス(長軸) k : 宝の数
let m = read (argList !! 0)
n = read (argList !! 1)
k = read (argList !! 2)
putStrLn $ "p1st = " ++ show(mwin m n k) ++ ", q1st = " ++ show(nwin m n k) ++ ", draw = " ++ show(draw m n k)
382:卵の名無しさん
18/10/31 19:22:13.69 qgJ05S6D.net
>>368
１０×２０部屋に宝箱１００個の計算も修正
p1st = 15057759425309840160151925452579572328997602171271937639470
q1st = 15057796557877993527038542474310161591275806044157319150135
draw = 60432958672915447478213709150594429954231181459984080051715
383:卵の名無しさん
18/10/31 19:48:00.38 qgJ05S6D.net
14 x 15 宝105での算出値
Haskell
15050058965790721521451955450789741426719541629904231171092323
1505005898787002066617563667802976547834618559039773640553201
384:2 60392361586649265993221049300205393824371020946210111218855105 Python 15050058965790721521451955450789741426719541629904231171092323 15050058987870020666175636678029765478346185590397736405532012 60392361586649265993221049300205393824371020946210111218855105 C double参考値 15050058965790725315104920912133576716207522209102038099296256 15050058987870027325121443554283577687551916746692125429596160 60392361586649287873092121075176030813045740046471488224624640 HaskellとPythonは完全に一致
385:卵の名無しさん
18/10/31 19:50:07.01 qgJ05S6D.net
２１０から１０５個選ぶ組み合わせは
90492479540310008180848641429024900729436748166512078795479440
通り
386:卵の名無しさん
18/10/31 21:06:16.10 qgJ05S6D.net
{- 見づらいshellを起動するより、WinGHCiで対話型に算出しても速度は変わらないな。コンパイルしてコマンドラインから実行可能なようにもしておく-}
import System.Environment
choose (n,r) = product[1..n] `div` product[1..n-r] `div` product[1..r]
nloc m n k l = do
let q = div (n*k+l) m
r = mod (n*k+l) m
in (n-q)*(m-k) + q-1-l + if r>k then k-r else 0
nwin m n c = sum[choose ((nloc m n k l), c-1) | k<-[0..m-1], l<-[0..n-1], k*(n-1) < l*(m-1)]
mwin m n c = sum[choose ((nloc n m k l), c-1) | k<-[0..n-1], l<-[0..m-1], k*(m-1) < l*(n-1)]
draw m n c = choose(m*n,c) - nwin m n c - mwin m n c
takara m n k = do
putStrLn $ "短軸p1st = " ++ show(mwin m n k)
putStrLn $ "長軸q1st = " ++ show(nwin m n k)
putStrLn $ "同等draw = " ++ show(draw m n k)
main = do
argList <- getArgs -- m : 縦マス(短軸） n : 横マス(長軸) k : 宝の数
let m = read (argList !! 0)
n = read (argList !! 1)
k = read (argList !! 2)
putStrLn $ "p1st = " ++ show(mwin m n k) ++ ", q1st = " ++ show(nwin m n k) ++ ", draw = " ++ show(draw m n k)
{-Prelude> takara 10 20 100
短軸p1st = 15057759425309840160151925452579572328997602171271937639470
長軸q1st = 15057796557877993527038542474310161591275806044157319150135
同等draw = 60432958672915447478213709150594429954231181459984080051715-}
387:卵の名無しさん
18/11/01 10:06:06.18 ZkYkKASz.net
数学板の質問スレに投稿していたら、勝率確率の算出プログラムをPythonからHaskellに移植せよとの課題が出された。
プログラム練習がてらに回答したら
引き分け計算式を間違えているとの指摘が返ってきた。
URLﾘﾝｸ(rio2016.2ch.net)
きちんと読んでもくれているんだなあと感心した。
388:卵の名無しさん
18/11/01 11:27:15.31 070VkLxq.net
今月国連WHOで解禁されようとしている医療大麻オイル
URLﾘﾝｸ(plaza.rakuten.co.jp)
医薬品としてはEpidiolexの名で承認されてます
国連で解禁されると日本の大麻取り締まり法がなくなるか、最低でも4条が改正され病院でも処方できるようになります
389:卵の名無しさん
18/11/01 22:07:12.63 8nUg0zIu.net
ほんと裏口私立医ばかり
順天とか昭和とか東京医とか馬鹿ばっかｗ
390:卵の名無しさん
18/11/02 00:49:56.65 CfCNBter.net
広島県の福山友愛病院で、
患者の病状と関係ない薬を大量に投与した。
しかも、意図的にです！
国は違うがドイツの場合
↓
裁判所で開かれた公判で、患者１００人を殺害した罪を認めた。これでこの事件は、同国で戦後最悪級の連続殺人事件となった。
起訴されたのは、ドイツ北部デルメンホルストとオルデンブルクの病院で看護師をしていたニルス・ヘーゲル受刑者（４１）。
当時勤務していたドイツ北部の２つの病院で２０００～２００５年にかけ、３４～９６歳の患者を殺害したことを認めた。
同受刑者は自分の蘇生措置の腕を同僚に見せびらかす目的や、退屈しのぎの目的で、
↓↓↓↓↓
患者に処方されていない薬を投与していたとされる。
↑↑↑↑↑
ドイツの場合。まあ日本は日本だが・・・
大口の病院は看護士の単独犯だったわけで捕まったが・・・
福山友愛病院は・・・・・
URLﾘﾝｸ(youtu.be)
391:卵の名無しさん
18/11/02 11:43:48.07 u7uevd67.net
内視鏡学会で今日は代診バイト、コストパフォーマンスが良くて( ・∀・)ｲｲ!!。
ステーキハウスを予約した。
392:卵の名無しさん
18/11/02 12:32:58.23 k2/mPNL+.net
医学部入試不正はなぜ私立大学ばかり…背景に何が？
中原一歩2018.11.2 11:30AERA
東京医科大に慰謝料と入試成績の開示などを求めて会見した弁護団。
会見には顔と実名をさらして現役医大生も参加した （ｃ）朝日新聞社
また補欠合格者の選定でも、臼井前理事長が学務課職員に指示し、
名簿で上位の5人を飛ばす形で、特定の受験生に電話連絡し、繰り上げ合格させていた。この5人はいずれも女性だった疑いがある。
驚くのは明らかな「性別」や「学歴」による「差別」を、
「調整」という言葉で正当化してきた大学側の意識だ。
一般常識とはかけ離れた「医学部ムラ」の論理は東京医大に限ったものではないと
社会学者・新雅史氏は指摘する。
また、こうした不祥事が私立大学で続いていることについて、国立大学に比べ、私立大学が圧倒的に経営のガバナンスが厳しく、
結果、理事長など経営陣の意向が入学試験にも反映されやすいからではないかと推測する。
「最先端の医療研究を主体とする国立大学に比べ、
大学経営の中心が臨床である私立大学では、理事会の意向を忖度し、
忠実に働いてくれる研修医が必要不可欠。
卒業後も大学病院で即戦力として長く働いてくれる人材を探している。
また手術を手がける外科を中心とする医局は、いまだに男の戦場という認識が強い。
老舗の医科大ほど手術室における女性の割合を気にする傾向がある」（新氏）
393:卵の名無しさん
18/11/02 18:51:13.22 3zC36uTy.net
広島県の福山友愛病院で、
患者の病状と関係ない薬を大量に投与した。
しかも、意図的にです！
国は違うがドイツの場合
↓
裁判所で開かれた公判で、患者１００人を殺害した罪を認めた。これでこの事件は、同国で戦後最悪級の連続殺人事件となった。
起訴されたのは、ドイツ北部デルメンホルストとオルデンブルクの病院で看護師をしていたニルス・ヘーゲル受刑者（４１）。
当時勤務していたドイツ北部の２つの病院で２０００～２００５年にかけ、３４～９６歳の患者を殺害したことを認めた。
同受刑者は自分の蘇生措置の腕を同僚に見せびらかす目的や、退屈しのぎの目的で、
↓↓↓↓↓
患者に処方されていない薬を投与していたとされる。
↑↑↑↑↑
ドイツの場合。まあ日本は日本だが・・・
大口の病院は看護士の単独犯だったわけで捕まったが・・・
福山友愛病院は・・・・・
URLﾘﾝｸ(youtu.be)
394:卵の名無しさん
18/11/03 00:17:51.85 Ipwzsvmc.net
>>373
P（短軸探索）が先、Q（長軸探索）、同時 の配置を表示するスクリプトを書いてみた。
数値を変えて実行できる。
ｍ：短軸 ｎ：長軸 ｋ：宝の数
URLﾘﾝｸ(tpcg.io)
treasure_map(2,3,2)
P1st Q1st even
4 5 6
P (= long axis searcher) finds first.
■ ■ □
□ ■ ■
■ ■ ■
□ □ ■
■ ■ ■
□ ■ □
■ ■ ■
■ □ □
395:卵の名無しさん
18/11/03 00:18:49.30 Ipwzsvmc.net
Q (= short axis searcher) finds first.
■ □ □
■ ■ ■
■ □ ■
■ □ ■
■ □ ■
■ ■ □
■ ■ □
■ □ ■
■ ■ □
■ ■ □
Draw.
□ □ ■
■ ■ ■
□ ■ □
■ ■ ■
□ ■ ■
□ ■ ■
396:卵の名無しさん
18/11/03 00:26:24.89 Ipwzsvmc.net
真の論理力は、プログラミング技能で試されるといっても過言ではない。
論理的に完璧でなければプログラムは動かない代物だからだ。プログラムのバグが取り切れないうちは論理力などないに等しいと思った方がよい。
URLﾘﾝｸ(www.mag2.com) 👀
Rock54: Caution(BBR-MD5:7bff9ed63942b4cd01610d20b2c06e65)
397:卵の名無しさん
18/11/03 09:08:04.90 Ipwzsvmc.net
血液型でもいいんだが、このスレの趣旨に合わせた問題。
ド底辺シリツ医大では正規入学：縁故入学：裏口入学：ガチ裏入学の比率が４：３：２：１であったとする。
正規入学の学生を一人みいだすために必要な学生数の期待値はいくらか？
398:卵の名無しさん
18/11/03 09:42:42.39 Ipwzsvmc.net
ド底辺シリツ医大が寄付金の多寡で合格させているのを隠蔽するために裏口受験生用にクジを導入した。
クジは合格、小吉、中吉、大吉の４枚がある。
合格を引いたら寄付金は０、
小吉は寄付金を1000万を支払って合格がでるまでクジを引き続ける
中吉は寄付金を2000万を支払って合格がでるまでクジを引き続ける
大吉は寄付金を3000万を支払って合格がでるまでクジを引き続ける
途中で中止することはできない
裏口受験生が合格するのに必要な寄付金の期待値を求めよ。
399:卵の名無しさん
18/11/03 09:46:01.38 Ipwzsvmc.net
>>385
>385のクジを引く確率は合格１０％小吉２０％中吉３０％大吉４０％に設定されているとする。
裏口受験生が合格するのに必要な寄付金の期待値を求めよ。
400:卵の名無しさん
18/11/03 10:08:18.46 Ipwzsvmc.net
>>386
解析解は計算式1行で終わって味気ないのでシミュレーションで算出してみた
> sim <- function(b=2/10,c=3/10,d=4/10,B=1000,C=2000,D=3000){
+ a=1-(b+c+d)
+ br=c(0,B,C,D)
+ total=x=sample(br,1,prob=c(a,b,c,d))
+ while(x!=0){
+ x=sample(br,1,prob=c(a,b,c,d))
+ total=total+x
+ }
+ total
+ }
> re=replicate(1e3,mean(replicate(1e3,sim())))
> summary(re)
Min. 1st Qu. Median Mean 3rd Qu. Max.
17583 19539 20000 20006 20470 22049
401:卵の名無しさん
18/11/03 12:09:44.04 Ipwzsvmc.net
暇つぶしネタ
ド底辺シリツ医大受験生の親に裏口コンサルタントが訪れて裏金額に２つの決め方を提示した。
A: 定額で２０００万円
B: サイコロを１の目がでるまでふったときの出た目を合計した値 × １００万円、 例 ２,１と続けば３００万、６，５，１なら１２００万円
問題（１） AとBではどちらが有利か？
問題（２） Bを選択した場合５０００万円以上必要になる確率はくらか？
402:卵の名無しさん
18/11/03 16:48:28.20 Ipwzsvmc.net
pythonを学ぼうとanacondaのインストール（容量が少なくなったのでSDカードのD：ドライブへインストール）を試みたら
これと全く同じ現象が出現
URLﾘﾝｸ(stackoverflow.com)
結局、ｃドライブにインストールにしたら問題なく終了できた。時間が無駄になったよ。
403:卵の名無しさん
18/11/03 18:22:06.20 mjfFp3DY.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
404:卵の名無しさん
18/11/03 19:09:03.11 pQVTtzkC.net
医者を騙るマジキチが暴れてるスレ
URLﾘﾝｸ(egg.2ch.sc)
405:卵の名無しさん
18/11/04 08:20:42.41 ONJCveSN.net
数学板でのレスに笑った。
宮崎大医学部志望なんですが
URLﾘﾝｸ(rio2016.2ch.net)
406:卵の名無しさん
18/11/05 01:21:37.36 NIiUrAnG.net
import Data.List
firstUnavailable x = let y = 0:x in head $([1..71] \\)$nub$sort$[a+b+c|a<-y,b<-y,c<-y]
next x = [n:x|n<-[head x+1..firstUnavailable x]]
xss = iterate (\xs->concat [next x|x<-xs]) [[1]]
isGood x = let y = 0:x in (==70)$length $intersect [1..70]$nub$sort$[a+b+c|a<-y,b<-y,c<-y]
main = do
print [x|x<-(xss !! 6),isGood x]
407:卵の名無しさん
18/11/05 01:32:39.42 NIiUrAnG.net
import Data.List
m = 69
sub x = do -- ans=[1,4,5,15,18,27,34]
let ijk = filter (<=70).nub $ sort [i+j+k| i<-x,j<-x,k<-x]
all (\y -> elem y ijk ) [0..70]
main = do
-- print $ [(1,4,5,e,f,g,h)| e<-[0..m],f<-[e..m],g<-[f..m],h<-[g..m],sub [0,1,4,5,e,f,g,h]] -- 動作確認用
print $ [(1,c,d,e,f,g,h)| c<-[1..m],d<-[c..m],e<-[d..m],f<-[e..m],g<-[f..m],h<-[g..m],sub [0,1,c,d,e,f,g,h]]
408:卵の名無しさん
18/11/05 07:48:20.82 GY2Jc0B6.net
高樹沙耶さんが大麻所持で逮捕された時に、
「医療大麻なんてありません！」と医者の権益保護に躍起になっていた西川史子の現在(笑)
URLﾘﾝｸ(goo.gl)
あははははは！ざまー(笑)
ガンかエイズか？
外国行って医療大麻吸った方が良いんじゃね？(笑)
409:卵の名無しさん
18/11/05 12:36:04.20 RNxpU/sa.net
救急車2台受けて新入院２人で諭吉２枚ゲット、
買いたい医学書もないなぁ。
ネット検索でたいていことが足りる。
こういう基礎学力が問われる問題は検索じゃ無理だな。
インフルエンザの迅速キットは特異度は高いが感度は検査時期によって左右される。
ある診断キットが開発されたとする。
このキットは特異度は９９％と良好であったが、
感度については確かな情報がない。
事前確率分布として一様分布を仮定する。
５０人を無作為抽出してこの診断キットで診断したところ４０人が陽性であった。
この母集団の有病率の期待値と９５％ＣＩはいくらか？
またこの診断キットの感度の期待値と９５％ＣＩはいくらか
410:卵の名無しさん
18/11/05 23:27:05.76 BePOdKHG.net
これ無茶苦茶難問だった。
サイコロを１０００回ふったとき１２３４５６の順に並ぶ目がある確率は？
411:卵の名無しさん
18/11/05 23:31:25.29 BePOdKHG.net
>>397
シミュレーションはことの他の簡単。
diseq=function(x) grepl("123456",paste(sample(6,x,rep=T),collapse=''))
mean(replicate(1e7,diseq(1000)))
412:卵の名無しさん
18/11/06 00:06:05.69 QApCAMmZ.net
>>397
分数表示するとこうなるらしい。
29894670002765580717622018953762664878384906585883227072416001286367327613872462
36176982687935042063489589508768499096701653359496110507628202771697652461481898
15867083862983975849719649919755556602395081603445217810191450771872978378492822
20929434295896536747523490245609702844253652551469152963247478735449528154607738
94897010212340239653386134088594267247751133592603591616944486751154360658915673
06079634567518636788329151870647053752023096491715169208527344676777484044463919
37957902455021334206833507250332593780127396266576899688383930527654264882692836
52659851277089138926126233125349416055818289864095231536195189335702592341232170
57986389166894334399077869160455544669456052004648395254763440350805452857924718
777798944034868387931340048957755897293189482452979797088/6^1000
≒0.021102960211841870224...
413:卵の名無しさん
18/11/06 06:58:36.31 jkx5i2bQ.net
>>397
Haskellで瞬時に算出されてしまった。
import Data.List
import Data.Ratio
ps = map head $ iterate (\x->(tail x) ++ [x!!5 - 1%(6^6) * x!!0]) [1%1,1%1,1%1,1%1,1%1,1%1-1%(6^6)]
main = do
print $ fromRational $ 1%1 - (ps !! 999)
Prelude> :main
2.110296021184187e-2
414:卵の名無しさん
18/11/06 08:59:30.07 kuGN+vf1.net
>>400
コードを反芻したら漸化式をプログラムしただけと理解できたのでRに移植。
実数計算なので誤差がでる。
f = function(N){
p=numeric()
p[1]=p[2]=p[3]=p[4]=p[5]=p[6]=1
for(n in 7:(N+1)){
p[n]=p[n-1]-p[n-6]/(6^6)
}
1-p[N+1]
}
> f(1000)
[1] 0.02110296
415:卵の名無しさん
18/11/06 09:01:29.36 kuGN+vf1.net
表示桁を増やしてみた。
> options(digits=22)
> f(1000)
[1] 0.0211029602118424364221
416:卵の名無しさん
18/11/06 09:13:01.99 kuGN+vf1.net
サイコロを１００００回ふったとき１２３４５６の順に並ぶめがある確率は？
> f(10000)
[1] 0.1928556782249950529717
と算出できて気持ち( ・∀・)ｲｲ!!。
417:卵の名無しさん
18/11/06 15:52:59.42 jkx5i2bQ.net
コインを１００万回投げた。連続して表がでる確率が最も高いのは何回連続するときか？
おい、ド底辺すべての場合は書き出して検証してくれ。
418:卵の名無しさん
18/11/06 15:53:52.55 jkx5i2bQ.net
seq_dice <- function(N=100,k=5,p=1/6){
P=numeric(N)
for(n in 1:(k-1)){
P[n]=0
}
P[k]=p^k
P[k+1]=p^k+(1-p)*p^k
for(n in (k+1):(N-1)){
P[n+1] = P[n] + (1-P[n-k])* p^(k+1)
}
return(P[N])
}
seq_dice()
seq_diceJ <- function(N=100,k=5,p=1/6){ # Just k sequence
seq_dice(N,k,
419:p)-seq_dice(N,k+1,p) } seq_diceJ() # vsdJ=Vectorize(seq_diceJ) NN=10^6 kk=1:30 p=0.5 y=vsdJ(NN,kk,0.5) which.max(y) plot(kk,y,bty='l',pch=19,xlab='sequence',ylab='probability')
420:卵の名無しさん
18/11/06 17:20:32.86 jkx5i2bQ.net
ド底辺シリツ医大卒の裏口バカのカウントが終わりそうもないので、
シミュレーションのコードも書いてみた。
# simulation
mhs = function(x){ # maximum head sequence
y=paste(x,collapse='')
str="1"
if(!grepl(str,y)) return(0)
else{
while(grepl(str,y)){
str=paste0(str,"1")
}
return(nchar(str)-1)
}
}
(x=sample(0:1,100,rep=T)) ; mhs(x)
sim <- function(n){
mhs(sample(0:1,n,rep=T))
}
re=replicate(1e3,sim(10000))
hist(re,col='lightblue',main='',ann=F,freq=F)
summary(re)
which.max(tabulate(re))
max(tabulate(re))/length(re)
421:卵の名無しさん
18/11/06 17:26:34.68 jkx5i2bQ.net
コインを１００万回投げた。連続して表がでる確率が最も高いのは何回連続するときか？
おい、ド底辺すべての場合は書き出しは終わったか？
最大値をとるときの確率は 0.23685397402052999 になったが あってるか？
数字を０と１を書いて数を数えるだけだぞ。
ド底辺シリツ医大へ裏口入学でも数くらいは数えられるだと？
422:卵の名無しさん
18/11/06 18:32:53.38 RiP59Lv4.net
We hold these truths to be self-evident, that all "uraguchi" are created retards,
That they are endowed by their creator with certain unalienable traits, that among these are sloth, mythomania, and the pursuit of imbecility.
That to rectify these traits, Bottom Medical Schools (BMS) are instituted for retards, deriving their just powers from what has been referred as the arbitrary donation of the parents of the rectified,
That whenever any form of the retards becomes destructive of rectification,
it is the right of the BMS to suspend or expel them, and to impose additional tuition laying its foundation on such principles and organizing its powers in such form, as to them shall seem most likely to effect the profit of BMS .
423:卵の名無しさん
18/11/06 19:57:10.48 jkx5i2bQ.net
サイコロを１万回ふって１の目が５回以上続く確率の計算結果
3477607490736723/18014398509481984
= 0.19304599534124128
おい、ド底辺実験して実証してみろ。
目の出方、６の１万乗を列挙して数えるのでもいいぞ。
424:卵の名無しさん
18/11/06 22:22:43.93 zJMHEzfx.net
Prudence, indeed, will dictate that "uraguchi" long established cannot be changed for light and transient causes;
and accordingly all experience has shown, that BMS are more disposed to suffer, while evils are sufferable, than to right themselves by abolishing the forms from which they can pursue profit.
But when a long train of misbehavior and misconduct , showing invariably the same Imbecility evinces a design to reveal themselves as absolute Bona Fide Moron ,
it is their right, it is their duty, to expel such "uraguchi", and to provide new guards for their future security.
425:卵の名無しさん
18/11/06 22:23:52.75 zJMHEzfx.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
426:卵の名無しさん
18/11/06 22:36:16.20 QApCAMmZ.net
>>411
現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に
427:大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。 常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。 本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。 (unquote)
428:卵の名無しさん
18/11/07 00:35:16.23 J7bMbWmD.net
>>401
有理数（分数表示）したいのでPythonに移植
from fractions import Fraction
def dice126(N):
P=list()
for n in range(6):
P.append(1)
P.append(1-1/(6**6))
for n in range(7,N+1):
P.append(P[n-1]-P[n-6]/(6**6))
return(1-P[N])
def dice123456(N):
print(Fraction(dice126(N)))
print(" = " + str(dice126(N)))
dice123456(1000)
429:卵の名無しさん
18/11/07 00:40:09.03 J7bMbWmD.net
>>405
# 有理数表示したかったのでPythonに移植
from fractions import Fraction
def seq_dice(N,k,p):
P=list()
for n in range(k-1):
P.append(0)
P.append(p**k)
P.append(p**k + (1-p)*p**k)
for n in range (k,N):
P.append(P[n]+(1-P[n-k])*p**(k+1))
return(P[N])
def seq_diceJ(N,k,p):
return(seq_dice(N,k,p) - seq_dice(N,k+1,p))
def dice(N,k,p):
print("Over " + str(k))
print(Fraction(seq_dice(N,k,p)))
print(" = " + str(seq_dice(N,k,p)))
print("Just " + str(k))
print(Fraction(seq_diceJ(N,k,p)))
print(" = " + str(seq_diceJ(N,k,p)))
dice(10000,5,1/6)
# URLﾘﾝｸ(tpcg.io)
430:卵の名無しさん
18/11/07 10:06:50.57 gLVWtWKy.net
# how to deal list in R
> a=NULL
> a[3]=3
> a
[1] NA NA 3
> a[1]
[1] NA
> for(i in 1:10) a[i]=as.character(i)
> a
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"
> b[2]=2
Error in b[2] = 2 : object 'b' not found
>
431:卵の名無しさん
18/11/07 10:25:51.27 gLVWtWKy.net
# hiw to deal list in python
a=[]
for i in range(10):
a.insert(i,i)
print (a)
for i in range(10):
a[i]=i*i
print(a)
b=[0]*10
for i in range(10):
b[i]=str(i)
print (b)
del a[-3:-1]
print(a)
del b[0:2]
print(b)
# Error!
c=[]
for i in range(10):
c[i]=i
print (c)
432:卵の名無しさん
18/11/07 11:05:51.19 gLVWtWKy.net
pythonのlist 扱い
URLﾘﾝｸ(qiita.com)
433:卵の名無しさん
18/11/07 16:11:33.42 SGvkOphc.net
これ面白かった。
>半径3の円Pの外側に接している半径1の円QはPを一周するといくら回転しますか。
数値は違うけど100円玉２個使って２回転を実験しちゃったよ。
434:卵の名無しさん
18/11/07 18:26:33.76 1XbYddpG.net
ヒャッハー！
米国ミシガン州 住民投票
嗜好用大麻 合法化成る！
URLﾘﾝｸ(www.sankei.com)
435:卵の名無しさん
18/11/08 13:38:29.75 PGJy3ILP.net
ド底辺シリツ医大の裏口入学調査委員会が
裏口入学は高々10%と報告したとする。
その結果の検証に100人を調査したら少なくとも4人続けて裏口入学生であった、という。
この検証から裏口入学率が10%であるか否かを有意水準1%で検定せよ
436:。 漸化式から算出すると 0.008705348 https://egg.5ch.net/test/read.cgi/hosp/1540905566/61 検証のためにシミュレーションスクリプトを書いてみた。 起こる回数の少ない事象の確率を頻度で近似するにはシミュレーション回数が増えるなぁ。 m1s <- function (x) { # max one sequence c(1,1,0,1,1,1,0,0) => 3 if(sum(x)==0) return(0) chg <- c(TRUE, diff(x) != 0) chgidx <- c(which(chg), length(x)+1) run.length <- diff(chgidx) true.length <- run.length[x[chg] == 1] max(true.length) } prob=c(9/10,1/10) re1=replicate(1e6,m1s(sample(0:1,100,rep=T,prob=prob))) summary(re1) ; hist(re1,col='pink') > mean(re1>=4) [1] 0.008875 有効数字１桁で近似ｗまあ、１％未満であるのは一致したな。 理論値を分数で計算したいなぁ、Pythonを勉強するかなぁ。
437:卵の名無しさん
18/11/08 14:48:30.64 PGJy3ILP.net
ピタゴラス数の問題に嵌ってしまったぜい。
Haskellの練習課題dにいいな。
Prelude> m=50
Prelude> ps=[(a,b,c)|a<-[1..m],b<-[a..floor(m^2/2-1/2)],c<-[b..2*b],a^2+b^2==c^2]
Prelude> ps !! 99
438:卵の名無しさん
18/11/08 15:25:37.14 PGJy3ILP.net
開業医スレのシリツ三法則（試案、名投稿より作成）
1.私立医が予想通り糞だからしょうがない
>ｽﾚﾘﾝｸ(hosp板:101番)-102
>ｽﾚﾘﾝｸ(hosp板:844番)-853
ID:RFPm1BdQ
>ｽﾚﾘﾝｸ(hosp板:869番)
>ｽﾚﾘﾝｸ(hosp板:874番)-875
>ｽﾚﾘﾝｸ(hosp板:874番)-880
>ｽﾚﾘﾝｸ(hosp板:882番)
ID:liUvUPgn
2.馬鹿に馬鹿と言っちゃ嫌われるのは摂理
実例大杉！
3.リアルでは皆思ってるだけで口に出してないだけ
URLﾘﾝｸ(ishikisoku.com)
439:卵の名無しさん
18/11/08 16:39:33.18 PGJy3ILP.net
a^2+b^2=c^2を満たす3つの整数（a<b<c）
の組み合わせのうち（3,4,5）から数えて7番目は何になるかという問題がわかりません
鈍足のRでも計算できた（ド底辺シリツ医大卒には無理だろな）
> pita[7,]
a b c
9 40 41
> pita[77,]
a b c
42 56 70
> pita[777,]
a b c
216 288 360
440:卵の名無しさん
18/11/08 17:16:56.00 PGJy3ILP.net
>>423
こういう問題はシミュレーションで確信がもてないので嫌だね。
他の人が同じ答を出したら確信に繋がる。
でも、それがド底辺シリツ医大卒だと確信にはならんよなぁ。
薬剤を無駄にしないために非定型的な希釈をするときは国立卒の薬剤師に検算依頼しているね。
ド底辺シリツ医大卒なんぞは信頼できんよ。
441:卵の名無しさん
18/11/08 22:06:01.87 dwp/H1Qd.net
高樹沙耶さんが大麻所持で逮捕された時に、
「医療大麻なんてありません！」と医者の権益保護に躍起になっていた西川史子の現在(笑)
URLﾘﾝｸ(goo.gl)
あははははは！ざまー(笑)
ガンかエイズか？
外国行って医療大麻吸った方が良いんじゃね？(笑)
ヒャッハー！
米国ミシガン州 住民投票
嗜好用大麻 合法化成る！
URLﾘﾝｸ(www.sankei.com)
ヒャッハー！
大麻株、絶好調！
URLﾘﾝｸ(web.smartnews.com)
442:卵の名無しさん
18/11/09 07:47:17.21 guOlTCed.net
coin5 = function(x,n=5) any(diff(cumsum(x),n)==n)
mean(replicate(1e4,coin5(rbinom(100,1,0.5))))
数学板のRのスレにgrep使ったスクリプトをあげたら
別アルゴリズムで高速化してくれた。
頻度が小さい事象のシミュレーションは実行速度が問題になるのでありがたい。
ド底辺シリツ医大の裏口入学調査委員会が
裏口入学は高々10%と報告したとする。
その結果の検証に100人を調査したら4人以上続けて裏口入学生であった、という。
この検証から裏口入学率が10%であるか否かを有意水準5%で検定せよ。
実行速度比較
system.time(mean(replicate(1e5,any(diff(cumsum(rbinom(100,1,0.1)),4)==4))))
user system elapsed
19.210 0.050 21.897
>
> system.time(mean(replicate(1e5,with(rle(rbinom(100,1,0.1)), max(lengths[wh
<e(1e5,with(rle(rbinom(100,1,0.1)), max(lengths[which(values==1)])>=4))))
user system elapsed
42.360 0.020 43.736
443:卵の名無しさん
18/11/09 09:07:29.19 eBlXnuYD.net
東京医大 まさに裏口漬だったな
444:卵の名無しさん
18/11/09 13:09:42.77 gy6LZalS.net
ヒャッハー！
アメリカ中間選挙で大麻が大勝利！
全米で大麻肯定派知事が誕生！
2019年に医療大麻が全米で解禁される見込み！
URLﾘﾝｸ(forbesjapan.com)
445:卵の名無しさん
18/11/09 14:58:35.10 guOlTCed.net
>>420
import numpy as np
from fractions import Fraction
def seqNp(N = 10,K = 5,p = 0.5):
if N == K: return p**K
q = 1-p
a = [0]*(N+1)
for i in range(1,K+1):
a[i] = q/(p**(i))
for i in range(K,N):
a[i+1] = 0
for j in range(0,K):
a[i+1] = a[i+1]+a[i-j]
a[i+1] = q/p*a[i+1]
P0=[0]*(N+1)
for i in range(1,N+1):
P0[i] = a[i]*p**i
del P0[0]
MP = np.zeros([K,N])
MP[0] = P0
MP[1][0] = p
for i in range(K-3,K):
MP[i][0] = 0
for k in range(1,K):
for i in range(0,N-1):
MP[k][i+1] = p*MP[k-1][i]
re = 1-np.sum(MP,axis=0)
print(Fraction(re[N-1]))
print(re[N-1])
446:卵の名無しさん
18/11/09 14:59:21.85 guOlTCed.net
URLﾘﾝｸ(tpcg.io)
447:卵の名無しさん
18/11/09 15:17:45.55 gy6LZalS.net
ヒャッハー！
アメリカ中間選挙で大麻が大勝利！
全米で大麻肯定派知事が誕生！
2019年に医療大麻が全米で解禁される見込み！
URLﾘﾝｸ(forbesjapan.com)
448:卵の名無しさん
18/11/09 15:35:34.92 fYz4ML3G.net
裏口学生を除籍処分にしないのだから、シリツ＝裏口の公式が成立だと思うね。
不正入学した学生を処分しろと積極的に発言すべきなのがシリツ卒だと思うのだが、「僕も裏口入学」と自慢するするのが追随してたよなぁ。
449:卵の名無しさん
18/11/09 15:37:00.05 fYz4ML3G.net
>>426
78410807303959/9007199254740992
0.008705348364830168
になるので有意水準１％でも棄却される。
450:卵の名無しさん
18/11/09 15:50:48.30 Ix1q0Sut.net
経営者が出てきてスレ荒らしまくってるよ！
【 きくち歯科クリニック 厚木 はヤバイ！】
ｽﾚﾘﾝｸ(body板)
【 横浜セントラルパーク歯科 はヤバイ！】
ｽﾚﾘﾝｸ(body板)
451:卵の名無しさん
18/11/09 22:40:48.73 fYz4ML3G.net
ド底辺シリツ医大の裏口入学調査委員会が100人を順に調査したら連続して裏口学生と判明した最大数が4人と判明した。
これだけのデータから裏口入学確率の95%信頼区間を推定せよ。
数値解なら算出可能だな。
seq2pCI <- function(N,K){
vp=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p))
curve(vp(x),bty='l') ; abline(h=0.05,lty=3)
peak=optimize(vp,c(0,1),maximum=TRUE)$maximum
lwr=uniroot(function(x,u0=0.05) vp(x)-u0,c(0.01,peak))$root
upr=uniroot(function(x,u0=0.05) vp(x)-u0,c(peak,0.99))$root
c(lower=lwr,upper=upr)
}
seq2pCI(100,4)
> seq2pCI(100,4)
lower upper
0.1662099 0.5685943
と計算できて気分が( ・∀・)ｲｲ!!
452:卵の名無しさん
18/11/09 23:32:07.65 gy6LZalS.net
西洋医学はオワコンです！
これからはガン治療もエイズ治療も医療大麻です！
ヒャッハー！
アメリカ中間選挙で大麻が大勝利！
全米で大麻肯定派知事が誕生！
2019年に医療大麻が全米で解禁される見込み！
URLﾘﾝｸ(forbesjapan.com)
高樹沙耶さんが大麻所持で逮捕された時に、
「医療大麻なんてありません！」と医者の権益保護に躍起になっていた西川史子の現在(笑)
URLﾘﾝｸ(goo.gl)
あははははは！ざまー(笑)
ガンかエイズか？
外国行って医療大麻吸った方が良いんじゃね？(笑)
ヒャッハー！
米国ミシガン州 住民投票
嗜好用大麻 合法化成る！
URLﾘﾝｸ(www.sankei.com)
ヒャッハー！
大麻株、絶好調！
URLﾘﾝｸ(web.smartnews.com)
453:卵の名無しさん
18/11/10 07:39:14.10 Gl2x1zZV.net
開業医スレに答えられる頭脳はなさそう。
このスレにもいないだろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。裏口入学人数の95%信頼区間は？
454:卵の名無しさん
18/11/10 07:42:24.87 Gl2x1zZV.net
漸化式から確率計算、それを数値的に逆関数で求めたけど
もっとエレガントな方法があるんだろうな。
455:卵の名無しさん
18/11/10 08:30:24.32 BVAJndFJ.net
期待値（平均値�
456:j・最頻値なしで信頼区間でけ求めるのはカッコ悪いなぁ。 ド底辺シリツ裏口調査団が100人を順次調査した。 裏口判明人数をそのまま公表はヤバすぎる結果であったため、 連続して裏口がみつかった最大数は4人であったとだけ公表した。 公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 スクリプトに計算追加して期待値・最頻値も表示させることにした。 seq2pCI <- function(N,K,alpha=0.05){ vp=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p)) curve(vp(x),lwd=2,bty='l') ; abline(h=0.05,lty=3) peak=optimize(vp,c(0,1),maximum=TRUE)$maximum mean=integrate(function(x)x*vp(x),0,1)$value/integrate(function(x)vp(x),0,1)$value lwr=uniroot(function(x,u0=alpha) vp(x)-u0,c(0.01,peak))$root upr=uniroot(function(x,u0=alpha) vp(x)-u0,c(peak,0.99))$root c(lower=lwr,mean=mean,mode=peak,upper=upr) } seq2pCI(100,4)
457:卵の名無しさん
18/11/10 08:35:58.90 BVAJndFJ.net
seq2pCI <- function(N,K,alpha=0.05){
vp=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p))
curve(vp(x),lwd=2,bty='l') ; abline(h=0.05,lty=3)
peak=optimize(vp,c(0,1),maximum=TRUE)$maximum
mean=integrate(function(x)x*vp(x),0,1)$value/integrate(function(x)vp(x),0,1)$value
lwr=uniroot(function(x,u0=alpha) vp(x)-u0,c(0.01,peak))$root
upr=uniroot(function(x,u0=alpha) vp(x)-u0,c(peak,0.99))$root
c(lower=lwr,mean=mean,mode=peak,upper=upr)
}
seq2pCI(100,4)
# URLﾘﾝｸ(tpcg.io)
458:卵の名無しさん
18/11/10 08:56:45.04 BVAJndFJ.net
>>440
これをPythonに移植するの敷居が高い。
Rの固有関数を使いまくり。
まあ、分数表示する必要がないし、処理速度も問題ないからモーティベーションもわかないし。
459:卵の名無しさん
18/11/10 09:12:19.51 BVAJndFJ.net
seq2pCI <- function(N,K,alpha=0.05){
vp=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p))
curve(vp(x),lwd=2,bty='l',xlab='Pr[head]',ylab=paste('Pr[max',K,'-head repetition]'))
abline(h=alpha,lty=3)
peak=optimize(vp,c(0,1),maximum=TRUE)$maximum
mean=integrate(function(x)x*vp(x),0,1)$value/integrate(function(x)vp(x),0,1)$value
lwr=uniroot(function(x,u0=alpha) vp(x)-u0,c(0.01,peak))$root
upr=uniroot(function(x,u0=alpha) vp(x)-u0,c(peak,0.99))$root
c(lower=lwr,mean=mean,mode=peak,upper=upr)
}
seq2pCI(100,5)
460:卵の名無しさん
18/11/10 13:47:51.57 eRQ4an/O.net
>>439
連続して裏口がみつかった最大数を変化させて、裏口入学者数の期待値、最頻値、９５％信頼区間をグラフにしてみた。
URLﾘﾝｸ(i.imgur.com)
461:卵の名無しさん
18/11/10 15:31:51.93 eRQ4an/O.net
>>435
確率密度関数が左右対象でないから、
QuontileでなくHDI(Highest Density Interval)での95％信頼区間をpdfからｃｄｆの逆関数を作って算出してみる。
# pdfからcdfの逆関数を作ってHDIを表示
pdf2hdi <- function(pdf,xMIN=0,xMAX=1,cred=0.95){
nxx=1001
xx=seq(xMIN,xMAX,length=nxx)
xx=xx[-nxx]
xx=xx[-1]
xmin=xx[1]
xmax=xx[nxx-2]
AUC=integrate(pdf,xmin,xmax)$value
PDF=function(x)pdf(x)/AUC
cdf <- function(x) integrate(PDF,xmin,x)$value
ICDF <- function(x) uniroot(function(y) cdf(y)-x,c(xmin,xmax))$root
hdi=HDInterval::hdi(ICDF,credMass=cred)
c(hdi[1],hdi[2])
}
462:卵の名無しさん
18/11/10 15:32:12.62 eRQ4an/O.net
seqNp <- function(N=100,K=5,p=0.5){
if(N==K) return(p^K)
q=1-p
a=numeric(N) # a(n)=P0(n)/p^n , P0(n)=a(n)*p^n
for(i in 1:K) a[i]=q/p^i # P0(i)=q
for(i in K:(N-1)){ # recursive formula
a[i+1]=0
for(j in 0:(K-1)){
a[i+1]=(a[i+1]+a[i-j])
}
a[i+1]=q/p*a[i+1]
}
P0=numeric(N)
for(i in 1:N) P0[i]=a[i]*p^i # P0(n)=a(n)*p^n
MP=matrix(rep(NA,N*K),ncol=K)
colnames(MP)=paste0('P',0:(K-1))
MP[,'P0']=P0
MP[1,'P1']=p
for(i in (K-2):K) MP[1,i]=0
for(k in 2:K){
for(i in 1:(N-1)) MP[i+1,k]=p*MP[i,k-1]
} # Pk(n+1)=p*P(k-1)(n)
ret=1-apply(MP,1,sum)
ret[N]
}
463:卵の名無しさん
18/11/10 15:38:44.97 eRQ4an/O.net
2つのサブルーチンを定義してから、
# N試行で最大K回連続成功→成功確率ｐの期待値、最頻値と95%HDI
# max K out of N-trial to probability & CI
mKoN2pCI <- function(N=100 , K=4 , conf.level=0.95){
pmf=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p))
mode=optimize(pmf,c(0,1),maximum=TRUE)$maximum
auc=integrate(pmf,0,1)$value
pdf=function(x) pmf(x)/auc
mean=integrate(function(x)x*pdf(x),0,1)$value
curve(pdf(x),lwd=3,bty='l',xlab='Pr[head]',ylab='density')
lu=pdf2hdi(pdf,cred=conf.level)
curve(pdf(x),lu[1],lu[2],type='h',col='lightblue',add=T)
re=c(lu[1],mean=mean,mode=mode,lu[2])
print(re,digits=4)
invisible(re)
}
> mKoN2pCI(100,4)
lower mean mode upper
0.1747676 0.3692810 0.3728936 0.5604309
> seq2pCI(100,4,0.05,T)
lower mean mode upper
0.1662099 0.3692810 0.3728936 0.5685943
はやり、HDIの方が信頼区間幅が小さいのがみてとれる。
まあ、四捨五入で人数計算すれば、推定裏口入学者数の数はほぼ同じ。
464:卵の名無しさん
18/11/10 17:41:54.09 eRQ4an/O.net
確率密度関数の面積からのクォンタイルでの信頼区間の計算
mKoN2pCIq <- function(N=100 , K=4 , alpha=0.05){
pmf=Vectorize(function(p)seqNp(N,K,p)-seqNp(N,K+1,p))
mode=optimize(pmf,c(0,1),maximum=TRUE)$maximum
auc=integrate(pmf,0,1)$value
pdf=function(x) pmf(x)/auc
curve(pdf(x),bty='l')
mean=integrate(function(x)x*pdf(x),0,1)$value
cdf=function(x) MASS::area(pdf,0,x)
vcdf=Vectorize(cdf)
lwr=uniroot(function(x)vcdf(x)-alpha/2,c(0,mode))$root
upr=uniroot(function(x)vcdf(x)-(1-alpha/2),c(mode,1))$root
c(lower=lwr,mean=mean,mode=mode,upper=upr)
}
mKoN2pCIq(100,4)
> mKoN2pCIq(100,4)
lower mean mode upper
0.1748351 0.3692810 0.3728936 0.5605172
> seq2pCI(100,4)
lower mean mode upper
0.1662099 0.3692810 0.3728936 0.5685943
465:卵の名無しさん
18/11/10 17:55:20.02 eRQ4an/O.net
> mKoN2pCI(100,4)
lower mean mode upper
0.1747676 0.3692810 0.3728936 0.5604309
> mKoN2pCIq(100,4)
lower mean mode upper
0.1748351 0.3692810 0.3728936 0.5605172
> mKoN2pCI(100,5)
lower mean mode upper
0.2445409 0.4469764 0.4589692 0.6418295
> mKoN2pCIq(100,5)
lower mean mode upper
0.2390957 0.4469764 0.4589692 0.6368895
466:卵の名無しさん
18/11/10 21:05:30.69 raIjTO8G.net
底辺に行くのは、二浪三浪して仕方なく、なんだろうなやはり
467:卵の名無しさん
18/11/10 21:16:17.54 eRQ4an/O.net
>>439
裏口入学確率ｐのときに100人中最大連続が4人になる確率をグラフにする。
これを標準化（グラフ下方の面積で割るだけ）して確率密度関数化して原点周りの一次モーメントで平均値を算出、
平均値周りの２次モーメントで分散を計算。
> (mean=integrate(function(x)x*pdf(x),0,1)$value)
[1] 0.369281
> (var=integrate(function(x)(x-mean)^2*pdf(x),0,1)$value)
[1] 0.009878284
から
> (sd=sqrt(var))
[1] 0.09938955
正規分布として下2.5％、上2.5%のとなるｐの値を求めると
> qnorm(0.025,mean,sd)
[1] 0.174481
> qnorm(0.975,mean,sd)
[1] 0.5640809
累積密度関数の逆関数を数値的に作って求めたHighest Densiti Intervalは
> pdf2hdi(pdf,Print=F)
lower upper
0.17477 0.56043
とほどんど同じになった。
最大４人連続で続いたときの裏口入学者の期待値は37人
95％信頼区間は17人から56人という結果が得られた。
468:卵の名無しさん
18/11/11 07:13:25.44 A3mMnPP+.net
>>449
最初から推薦でシリツ専願というのがあるらしいぞ。
国立卒には無縁なのでよく知らん。
そういえば底辺シリツにも地域枠ってあるらしいね。
額に地底と刺青してほしいねｗ
469:卵の名無しさん
18/11/11 07:14:21.60 A3mMnPP+.net
ド底辺シリツ医大卒より恥ずかしいことはないよ。
東大卒のお言葉です。
URLﾘﾝｸ(ishikisoku.com)
470:卵の名無しさん
18/11/11 07:15:11.37 A3mMnPP+.net
ナマポも避けたがるのがド底辺シリツ医大卒
ナマポの症例報告です。
実例↓
517 卵の名無しさん 2018/02/25(日) 11:36:00.56 ID:gq76tAvs
福岡のあの歯科大かな？
歯科口腔外科で抜歯依頼したら爺ちゃんが〇〇歯科大卒の先生は避けて下さいねがあった
けど。
この爺ちゃん、聖マリ卒の先生もよけて下さいと初診時に言ってた札付き爺さん。
生保受給者のくせにね。
471:卵の名無しさん
18/11/11 07:15:43.10 A3mMnPP+.net
裏口入学が都市伝説だとか過去の話というのは
嘘だと全国民が知りつくしたのが東京医大の事件だね。
縁故や寄付金じゃなくて試験データの改竄。
シリツ＝裏口バカが確定。
まあ、当事者はずっと前に認識していたようだ。
ガチの裏と呼んでその存在を認めている。
URLﾘﾝｸ(imagizer.imageshack.com)
ガチの裏ｗｗｗｗｗｗｗ
472:卵の名無しさん
18/11/11 12:00:36.04 RT24eksu.net
>>453
ここが重要ポイントな。
＞初診時に言ってた
実際に診察を受けなくても不利益を被ると看破されている聡明なナマポですなぁ。
473:卵の名無しさん
18/11/11 14:17:50.63 RT24eksu.net
あるド底辺シリツ医大の裏口入学者には背中に１から通し番号がふられている。
一学年の定員は１００人である。
裏口入学５人の番号のうち最大の番号が６０であった。
この学年の裏口入学者数の期待値を分数で答えよ。
お～い、ド底辺。
計算結果は5030556272103101/70368744177664 になったが、お前の母校で実験検証してくれ。
分数表示はともかく、この計算できない国立医学部卒がいたのにはびっくりした。
二項分布の足し算もできない学力でも臨床医がやれるんだよなぁ。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
URLﾘﾝｸ(i.imgur.com)
474:卵の名無しさん
18/11/11 19:26:54.80 RT24eksu.net
>>450
Cで書いてみたけど10万個のコイン投げまでは計算してくれたけど
100万個にすると暴走してしまった。
数字の宣言が実に面倒。小数を整数で冪乗しようとするとエラーが出てくるのでいちいちcastしなくちゃならん。
インタープリターに慣れちゃうとこの辺りがとても面倒に感じる。
475:卵の名無しさん
18/11/11 19:28:27.77 RT24eksu.net
/*
C:\pleiades\workspace>coin5 100000 15
Over 15 heads at 100000 flips : 0.782609
Just 15 heads at 100000 flips : 0.248904
*/
#include <stdio.h>
#include<stdlib.h>
#include<math.h>
#define p 0.5
double flip(long N,double k){
double P[N];
long i;
for(i = 0; i < k-1; i++) {
P[i] = 0;
}
P[(int)k-1] = pow(p,k);
P[(int)k] = pow(p,k) + (1-p)*pow(p,k);
for(i = (int)k; i < N; i++){
P[i+1] = P[i] + (1-P[i-(int)k])*pow(p,(double)(k+1));
}
return P[N];
}
int main(int argc,char *argv[]){
long N = atol(argv[1]);
double k = atof(argv[2]);
double PN =flip(N,k);
double PNJ = flip(N,k) - flip(N,k+1);
printf("Over %d heads at %d flips : %f\n", (int)k ,N ,PN);
printf("Just %d heads at %d flips : %f\n", (int)k ,N ,PNJ);
return 0;
}
476:卵の名無しさん
18/11/11 20:36:53.59 VtTy0gP3.net
>>456
追加の設問を忘れてた。
この学年には何人の裏口入学者数の95%信頼区間を整数で述べよ。
477:卵の名無しさん
18/11/11 20:42:06.75 VtTy0gP3.net
>>459
>>456
日本語修正ｗ
この学年には何人の裏口入学者がいると推論されるか。
その人数の95%信頼区間を整数で述べよ。
478:卵の名無しさん
18/11/11 22:25:33.05 RT24eksu.net
>>458
doubleをlong doubleにしても100万コイントスは計算できなかった。
pythonでは時間がかかったけど、1億コイントスの確率を分数計算してくれた。
479:卵の名無しさん
18/11/11 22:44:07.45 UCMkX/If.net
Last but not least, three laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater they had gone through.
The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
480:卵の名無しさん
18/11/11 23:15:47.97 RT24eksu.net
>>462
お～い、ド底辺。
計算結果は5030556272103101/70368744177664 になったが、お前の母校で実験検証してくれ。
あるド底辺シリツ医大の裏口入学者には背中に１から通し番号がふられている。
一学年の定員は１００人である。
裏口入学５人の番号のうち最大の番号が６０であった。
この学年の裏口入学者数の期待値を分数で答えよ。
この学年には何人の裏口入学者がいると推論されるか。
その人数の95%信頼区間を整数で述べよ。
481:卵の名無しさん
18/11/11 23:41:15.05 RT24eksu.net
（１）ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
（２）あるド底辺シリツ医大の裏口入学者には背中に１から通し番号がふられている。
一学年の定員は１００人である。
偶々みつかった裏口入学５人の番号のうち最大の番号が６０であった。
この二つの情報から、裏口人数の期待値と９５％信頼区間を求めてみよう。
離散量なので単に足し算すれば求まる。
vsJ=Vectorize(function(p) seqNpJ(N=100,K=4,p))
par(mfrow=c(2
482:,2)) curve(vsJ,bty='l') n=60:100 plot(n/100,vsJ(n/100),bty='l',type='h') pmf=choose(60-1,5-1)/choose(n,5) plot(n,pmf,bty='l',type='h') plot(n,vsJ(pp)*pmf,type='h',bty='l') pdf=vsJ(pp)*pmf/sum(vsJ(pp)*pmf) > n[HDIofGrid(pdf)$`indices`] [1] 60 61 62 63 64 65 66 （１）（2）を前提にすると裏口入学の学生数の95%信頼区間は６０～６６人と算出できた。
483:卵の名無しさん
18/11/11 23:46:55.27 RT24eksu.net
人数の期待値は
> sum(n*pdf)
[1] 61.87202
484:卵の名無しさん
18/11/12 00:46:14.52 G7wSOjAG.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
485:卵の名無しさん
18/11/12 17:06:21.06 gzeh1x/+.net
>>463
f <- function(Mmax,M=5,Nmax=100){
n=Mmax:Nmax
pmf=choose(Mmax-1,M-1)/choose(n,M)
pdf=pmf/sum (pmf)
mean=sum(n*pdf)
upr=n[which(cumsum(pdf)>0.95)[1]]
lwr=Mmax
c(lwr,mean,upr)
}
x=5:100
y=sapply(x,function(n) f(n)[2])
z=sapply(x,function(n) f(n)[3])
plot(x,y,type='l',lwd=2,bty='l')
segments(x,x,x,z,col='gray')
cbind(x,y,z)
486:卵の名無しさん
18/11/12 22:53:02.12 3/93pSbh.net
Last but not least, three laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater they had gone through.
The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
487:卵の名無しさん
18/11/13 09:02:16.20 UTrDDuDZ.net
本日、東京医科大学が記者会見を行い、2017年、2018年度の入試の際に不当に不合格と判定された101人に意向を確認した上で、追加合格者を認定することを発表しました。
101人の選考方法
2017年度と2018年度の入試において、繰り上げ合格とされた者よりも、上位の成績だったにもかかわらず不合格とされた受験生を調べたところ、2017年度は32人（男16人、女16人）、2018年度は69人（男18人、女53人）だったとのこと。
医学部の定員は120名
今回の問題とは全く関係なく、東京医科大学の医学部の1学年の定員は120名となっている。
URLﾘﾝｸ(www.savingdoctor.com)
すると２年間で101/240が裏口入学と認めたことになるのではないか？
問 ： １学年あたり裏口入学者数95%信頼区間を求めよ、また、99%信頼区間も求めよ。
488:卵の名無しさん
18/11/13 09:03:43.61 UTrDDuDZ.net
>>468
ド底辺スレなのでちゃんと原文の日本語もつけろ。
Last but not least, three laws of Do-Teihen(lowest-tier) 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 they had gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
489:卵の名無しさん
18/11/13 09:05:12.90 UTrDDuDZ.net
本日、東京医科大学が記者会見を行い、2017年、2018年度の入試の際に不当に不合格と判定された101人に意向を確認した上で、追加合格者を認定することを発表しました。
101人の選考方法
2017年度と2018年度の入試において、繰り上げ合格とされた者よりも、上位の成績だったにもかかわらず不合格とされた受験生を調べたところ、2017年度は32人（男16人、女16人）、2018年度は69人（男18人、女53人）だったとのこと。
医学部の定員は120名
今回の問題とは全く関係なく、東京医科大学の医学部の1学年の定員は120名となっている。
URLﾘﾝｸ(www.savingdoctor.com)
すると２年間で101/240が裏口入学と認めたことになるのではないか？
問 ： １学年あたり裏口入学者数95%信頼区間を求めよ、また、99%信頼区間も求めよ。
９９％信頼区間を計算すると、上限は５０％を超えちゃうね。
シリツ医大＝裏口 でいいよな？
490:卵の名無しさん
18/11/13 14:15:43.70 UTrDDuDZ.net
ド底辺シリツ医大にある年の裏口受験票があることが判明した。
枚数は１０００枚以下であることは判明しているが、その数を推定したい。
裏口入学調査員が無作為に１０枚選んで番号を記録して元に戻した。
別の裏口入学調査員が無作為に２０枚選んで番号を記録した。
二人の調査員の記録した番号を照合すると３枚の番号が一致していた。
この情報からこの年の裏口受験証の数の最頻値、期待値とその９５％信頼区間を求めよ。
491:卵の名無しさん
18/11/13 14:58:16.38 EZEaUTrv.net
Last but not least, three laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater they had gone through.
The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
492:卵の名無しさん
18/11/13 15:34:13.41 UTrDDuDZ.net
>>472
速攻で数学板で正解されてしまった。
信頼区間を求めよを追加すると、レスがつきにくいので外したのがよかったな。
rm(list=ls())
g=10 # b=N
493:-g s=20 x=3 Nmax=1000 N2p= function(N){ if(N < g + s - x) return(0) b = N-g dhyper(x,g,b,s) # choose(g,x)*choose(b,s-x)/choose(N,s) } pmf=Vectorize(N2p) # HDI source('hdi.R') N=1:Nmax y=pmf(N) plot(N,y,bty='l',type='l',ylab='probability') z=y/sum(y) # pdf 相当 plot(N,z,type='h',col='gray',ylab='density',bty='l') sum(N*z) min(HDIofGrid(z)[[1]]) ; max(HDIofGrid(z)[[1]]) # quantile zc=cumsum(z) min(which(zc>0.025)) ; min(which(zc>0.975))
494:卵の名無しさん
18/11/13 15:39:05.37 UTrDDuDZ.net
シミュレーション結果と一致したので答には自信があったのだが、数学板でのレスと一致したので確信がもてた。
Rのスクリプトはこれ
Nmin=g+s-x
sub <- function(){
n=sample(Nmin:Nmax,1)
a=sample(n,g)
b=sample(n,s)
if(sum(a %in% b)==x) return(n)
}
sim <- function(){
r=sub()
while(is.null(r)) r=sub()
return(r)
}
re=replicate(1e5,sim())
summary(re) ; hist(re,freq=F,col="lightblue",main='',xlab='N')
495:卵の名無しさん
18/11/13 15:44:29.15 UTrDDuDZ.net
>>475
> summary(re) ; hist(re,freq=F,col="lightblue")
Min. 1st Qu. Median Mean 3rd Qu. Max.
28.00000 72.00000 107.00000 149.49666 174.00000 1000.00000
> MODE <- function(x) {
+ dens <- density(x)
+ mode_i <- which.max(dens$y) # densityの頂点となるindex
+ mode_x <- dens$x[mode_i]
+ mode_y <- dens$y[mode_i]
+ mode_x
+ }
> MODE(re)
[1] 68.90811110786575
496:卵の名無しさん
18/11/13 16:51:34.16 UTrDDuDZ.net
東京医大、本来合格者入学許可へ 今年の受験生５０人
2018年10月25日 02時06分
東京医科大＝８月、東京都新宿区
東京医科大が今年の入試で本来合格ラインを上回っていたのに、不正の影響で不合格となった受験生５０人に対し、来年４月の入学を認める方針を固めたことが２４日、関係者への取材で分かった。
昨年の本来合格者１９人については、難しいとの意見が出ているもようだ。東京医大は５０人のうち入学希望が多数に上った場合は、来年の一般入試の募集人員減も検討。
URLﾘﾝｸ(www.nishinippon.co.jp)
本日、東京医科大学が記者会見を行い、2017年、2018年度の入試の際に不当に不合格と判定された101人に意向を確認した上で、追加合格者を認定することを発表しました。
101人の選考方法
2017年度と2018年度の入試において、繰り上げ合格とされた者よりも、上位の成績だったにもかかわらず不合格とされた受験生を調べたところ、2017年度は32人（男16人、女16人）、2018年度は69人（男18人、女53人）だったとのこと。
URLﾘﾝｸ(www.savingdoctor.com)
１９人５０人と言ってたのが、３２人６９人に増えてんじゃん。
497:卵の名無しさん
18/11/13 17:23:07.50 VaMoMifM.net
>>477
どっちにしてもそんなの氷山の一角
過去からの累積入学者なんて膨大な人数なんじゃねえの？
と言うか、元々高額な授業料を払えない受験生を排除した入学試験を
実施している時点で裏口みたいなものだから、元々大学側はそういうこと
に対しては鈍感というか、あまり気にしてなかったんじゃねえの？
国が大学の補助金が云々言い出したので慌てふためいているだけで。
498:卵の名無しさん
18/11/13 18:55:32.34 UTrDDuDZ.net
>>478
ド底辺シリツ医大卒の裏口バカの言い分をご覧ください。
東京医大の事件で点数加算の不正まで発覚しているのに、
>裏？
>そんなのあるかよばか
だそうです。
URLﾘﾝｸ(imagizer.imageshack.com)
499:卵の名無しさん
18/11/13 18:58:14.37 UTrDDuDZ.net
>>478
元は文科省の汚職なのだが、いつの間にやら男女比がどうやらこうやら。
まあ、裏口入学学生を除籍処分にしないのだから、
シリツ＝裏口バカの公式は健在だよな。
500:卵の名無しさん
18/11/13 19:46:47.63 WZBh4CIg.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
501:卵の名無しさん
18/11/14 00:17:40.02 lTkyjX2F.net
ニュー速＋のこれが正義だと思う。
251 名無しさん＠１周年 2018/11/09(金) 03:01:30.51 ID:T61ryGbd0
不正合格者退学にして空けろよ
252 名無しさん＠１周年 2018/11/09(金) 03:27:59.34 ID:Wfw1oWQ60
裏口で入ったのをやめさせろよ。
502:卵の名無しさん
18/11/14 07:58:51.21 1BnjGtIH.net
>>478
縁故や「寄付金」での加点も裏口と呼ぶならば裏口でない学生の方が少ないかもね。
503:卵の名無しさん
18/11/14 08:01:55.34 1BnjGtIH.net
>>481
単発idのこいつもド底辺シリツに裏口入学なんだろうなぁ。
ちゃんと原文もつけろよ。
現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
504:卵の名無しさん
18/11/14 09:23:05.13 8Fqyq1WG.net
コピペだがこれに納得。
私立大学では、誰を入学させるかは大学の自由などと言ってる人
「大学設置基準」（学校教育法に基づく文部科学省令）の明確な違反（法令違反）だ。
2条の2 入学者の選抜は、公正かつ妥当な方法により、適切な体制を整えて行うものとする。
ちなみに、これに基づく入試の公正確保のための事務次官通達もでている。
また、学校法人は、私立学校法により、公の認可を受けた公益法人。税制面の優遇も受けている。
営利企業とは全く異なる存在。さらに、東京医大を例にとれば、平成28年で20億以上の補助金が配布されている。
一人当たり年間300～400万円、6年で2000万円前後の税金が使われている。
こうした前提を無視し、適当な言説をばらまくのは控えるべき。
（参考資料）
私立大学における入学者選抜の公正確保等について
URLﾘﾝｸ(www.mext.go.jp)
505:卵の名無しさん
18/11/15 17:51:53.99 u639IIxL.net
ＡＢＣ
ＡＣＢ
ＢＡＣ
ＢＣＡ
＋ＣＡＢ
--------
３１２３
Ａ，Ｂ，Ｃは？
Haskell
[(a,b,c)|a<-[1..9],b<-[1..9],c<-[1..9], (a+a+b+b+c)*100+(b+c+a+c+a)*10+(c+b+c+a+b)==3123]
Python
n = range(1,10)
for A in n:
for B in n:
for C in n:
if (A+A+B+B+C)*100+(B+C+A+C+A)*10+(C+B+C+A+B)==3123:
print( [A,B,C] )
R
n=1:9
N=c(100,10,1)
for(A in n){
for(B in n){
for(C in n){
S=sum(c(A,B,C)*N+c(A,C,B)*N+c(B,A,C)*N+c(B,C,A)*N+c(C,A,B)*N)
if(S==3123) ans=c(A,B,C)
}
}
}
ans
506:卵の名無しさん
18/11/15 18:36:42.99 u639IIxL.net
C
#include <stdio.h>
int A,B,C,i;
int main() {
for(A=1;A<10;A++){
for(B=1;B<10;B++){
for(C=1;C<10;C++){
i=(A+A+B+B+C)*100+(B+C+A+C+A)*10+(C+B+C+A+B);
if(i==3123) printf("%d %d %d\n",A,B,C);
}
}
}
}
507:卵の名無しさん
18/11/15 20:59:32.76 ziKbMPPq.net
Last but not least, three laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater they had gone through.
The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
508:卵の名無しさん
18/11/16 06:15:26.91 DH6oVlEk.net
でも私立医大卒の医者って良いよな～。
だって親がお金持ちじゃなかったら本当は
医者じゃなかったかもしれない連中なんだぜｗ
509:卵の名無しさん
18/11/16 07:19:25.14 CpQxI30j.net
[(a,b,c,d,e,f,g)|a<-[1..9],b<-[1..9],c<-[1..9],d<-[1..9],e<-[1..9],f<-[1..9],g<-[1..9],a/b*c/d=(10*e+b)/g]
510:卵の名無しさん
18/11/16 08:32:47.11 OhMUxuM/.net
1問目は1から9を多くて1回づつ使って等式を完成させる
URLﾘﾝｸ(i.imgur.com)
□/□ ＊ □/□ ＝ □□/□
(a/b)*(c/d) = (10*e+f) /g
左辺の分数は互換なのでa>cとして
Prelude> map f r
[[7,2,3,6,1,4,8],[7,6,3,2,1,4,8],[8,2,3,6,1,4,7],[8,2,7,4,6,3,9],[8,2,7,6,1,4,3],[8,4,7,2,6,3,9],[8,4,7,6,2,1,9],[8,6,3,2,1,4,7],[9,2,7,4,6,3,8],
[9,2,8,4,6,3,7],[9,4,7,2,6,3,8],[9,4,7,6,2,1,8],[9,4,8,2,6,3,7],[9,4,8,6,2,1,7],[9,6,7,4,2,1,8],[9,6,8,4,2,1,7]]
お～い、ド底辺、他に答がないか検算しておけ。
511:卵の名無しさん
18/11/16 12:28:38.79 OhMUxuM/.net
>>491
Rでのスパテゲティーコード
実用的な時間で算出できるかなぁ？
# □/□ ＊ □/□ ＝ □□/□
# a/b * c/d == ef/g (c>a)
F=function(a,b,c,d,e,f,g){
a!=b & a!=c & a!=d & a!=e & a!=f & a!=g &
b!=c & b!=d & b!=e & b!=f & b!=g & c!=d &
c!=e & c!=f & c!=g & d!=e & d!=f & d!=g & e!=f & e!=g & f!=g & (a/b)*(c/d)==(10*e+f)/g
}
n=1:9
ans=NULL
for(a in n){
for(b in n){
for(c in a:9){
for(d in n){
for(e in n){
for(f in n){
for(g in n){
if(F(a,b,c,d,e,f,g)){
ans=rbind(ans,c(a,b,c,d,e,f,g))}}}}}}}}
ans
512:卵の名無しさん
18/11/16 12:44:40.76 OhMUxuM/.net
分母に１を許さないことにすると
> ans
[,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,] 3 2 7 6 1 4 8
[2,] 3 2 8 6 1 4 7
[3,] 3 6 7 2 1 4 8
[4,] 3 6 8 2 1 4 7
[5,] 7 2 8 4 6 3 9
[6,] 7 2 9 4 6 3 8
[7,] 7 4 8 2 6 3 9
[8,] 7 4 9 2 6 3 8
[9,] 7 4 9 6 2 1 8
[10,] 7 6 8 2 1 4 3
[11,] 7 6 8 4 2 1 9
[12,] 7 6 9 4 2 1 8
[13,] 8 2 9 4 6 3 7
[14,] 8 4 9 2 6 3 7
[15,] 8 4 9 6 2 1 7
[16,] 8 6 9 4 2 1 7
513:卵の名無しさん
18/11/16 13:01:06.28 OhMUxuM/.net
分母に整数を許すと３４個あるな。（左辺の分数は区別しない）
514:卵の名無しさん
18/11/16 14:41:49.22 OhMUxuM/.net
>>494
-- □/□ ＊ □/□ ＝ □□/□
r0 = [[a,b,c,d,e,f,g]|a<-[1..9],b<-[2..9],c<-[(a+1)..9],d<-[2..9],e<-[1..9],f<-[1..9],g<-[2..9],(a/b)*(c/d)==(10*e+f)/g,a/=b,a/=c,a/=d,a/=e,a/=f,a/=g,b/=c,b/=d,b/=e,b/=f,b/=g,c/=d,c/=e,c/=f,c/=g,d/=e,d/=f,d/=g,e/=f,e/=g,f/=g]
r1 = [[a,b,c,d,e,f,g]|a<-[1..9],b<-[1..9],c<-[(a+1)..9],d<-[1..9],e<-[1..9],f<-[1..9],g<-[2..9],(a/b)*(c/d)==(10*e+f)/g,a/=b,a/=c,a/=d,a/=e,a/=f,a/=g,b/=c,b/=d,b/=e,b/=f,b/=g,c/=d,c/=e,c/=f,c/=g,d/=e,d/=f,d/=g,e/=f,e/=g,f/=g]
f x = map floor x
ans0 = map f r0
ans1 = map f r1
f0 = do
putStrLn "One is NOT permitted as denominator"
putStrLn $ show(length(ans0)) ++ " combinations"
print ans0
f1 = do
putStrLn "permissive of 1 as denominator"
putStrLn $ show(length(ans1)) ++ " combinations"
print ans0
main = do
f0
f1
515:卵の名無しさん
18/11/16 14:46:27.26 OhMUxuM/.net
-- □/□ ＊ □/□ ＝ □□/□
r0 = [[a,b,c,d,e,f,g]|a<-[1..9],b<-[2..9],c<-[(a+1)..9],d<-[2..9],e<-[1..9],f<-[1..9],g<-[2..9],(a/b)*(c/d)==(10*e+f)/g,
a/=b,a/=c,a/=d,a/=e,a/=f,a/=g,b/=c,b/=d,b/=e,b/=f,b/=g,c/=d,c/=e,c/=f,c/=g,d/=e,d/=f,d/=g,e/=f,e/=g,f/=g]
r1 = [[a,b,c,d,e,f,g]|a<-[1..9],b<-[1..9],c<-[(a+1)..9],d<-[1..9],e<-[1..9],f<-[1..9],g<-[2..9],(a/b)*(c/d)==(10*e+f)/g,
a/=b,a/=c,a/=d,a/=e,a/=f,a/=g,b/=c,b/=d,b/=e,b/=f,b/=g,c/=d,c/=e,c/=f,c/=g,d/=e,d/=f,d/=g,e/=f,e/=g,f/=g]
f x = map floor x
ans0 = map f r0
ans1 = map f r1
f0 = do
putStrLn "One is NOT permitted as denominator"
putStrLn $ show(length(ans0)) ++ " combinations"
print ans0
f1 = do
putStrLn "permissive of 1 as denominator"
putStrLn $ show(length(ans1)) ++ " combinations"
print ans1
main = do
f0
f1
Prelude> :main
One is NOT permitted as denominator
16 combinations
[[3,2,7,6,1,4,8],[3,2,8,6,1,4,7],[3,6,7,2,1,4,8],[3,6,8,2,1,4,7],[7,2,8,4,6,3,9],[7,2,9,4,6,3,8],[7,4,8,2,6,3,9],[7,4,9,2,6,3,8],[7,4,9,6,2,1,8],[7,6,8,2,1,4,3],
[7,6,8,4,2,1,9],[7,6,9,4,2,1,8],[8,2,9,4,6,3,7],[8,4,9,2,6,3,7],[8,4,9,6,2,1,7],[8,6,9,4,2,1,7]]
permissive of 1 as denominator
34 combinations
[[2,1,8,4,3,6,9],[2,1,9,4,3,6,8],[2,4,8,1,3,6,9],[2,4,9,1,3,6,8],[3,2,7,6,1,4,8],[3,2,8,6,1,4,7],[3,6,7,2,1,4,8],[3,6,8,2,1,4,7],[4,1,6,3,7,2,9],[4,1,6,8,2,7,9]
,[4,1,9,3,7,2,6],[4,1,9,8,2,7,6],[4,3,6,1,7,2,9],[4,3,9,1,7,2,6],[4,8,6,1,2,7,9],[4,8,9,1,2,7,6],
[6,1,9,3,7,2,4],[6,1,9,8,2,7,4],[6,3,9,1,7,2,4],[6,8,9,1,2,7,4],[7,2,8,4,6,3,9],[7,2,9,4,6,3,8],[7,4,8,2,6,3,9],[7,4,9,2,6,3,8],[7,4,9,6,2,1,8],[7,6,8,2,1,4,3]
,[7,6,8,4,2,1,9],[7,6,9,4,2,1,8],[8,1,9,4,3,6,2],[8,2,9,4,6,3,7],[8,4,9,1,3,6,2],[8,4,9,2,6,3,7],
[8,4,9,6,2,1,7],[8,6,9,4,2,1,7]]
516:卵の名無しさん
18/11/16 19:19:40.01 lLHsnLDJ.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
517:卵の名無しさん
18/11/16 20:43:10.91 OhMUxuM/.net
>>495
ここでHaskell実行可能
俺の環境よりon line の方が高速ｗ
URLﾘﾝｸ(tpcg.io)
518:卵の名無しさん
18/11/16 22:00:58.77 7kS528uk.net
Uryuu fell 23 times in the national exam
It is an amateur virgin who is also failing in marriage
To the Uraguchi of the spinning parpurin
He is getting turned on
F class clerks condenced raw kid juice
The smell of the Doteihen does not decrease
NnnnnHooOoooOoooooooo
519:卵の名無しさん
18/11/17 02:20:56.11 LAHozrDt.net
私立底辺医の医者はどう生きていけばいい？
誰か教えて
520:卵の名無しさん
18/11/17 06:43:48.55 ps0Mtdtm.net
>>500
裏口入学の５０人を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
521:卵の名無しさん
18/11/17 11:21:37.42 Vs5/CoAG.net
>>501
いまや認めただけで101人かよ。
本日、東京医科大学が記者会見を行い、2017年、2018年度の入試の際に不当に不合格と判定された101人に意向を確認した上で、追加合格者を認定することを発表しました。
101人の選考方法
2017年度と2018年度の入試において、繰り上げ合格とされた者よりも、上位の成績だったにもかかわらず不合格とされた受験生を調べたところ、2017年度は32人（男16人、女16人）、2018年度は69人（男18人、女53人）だったとのこと。
URLﾘﾝｸ(www.savingdoctor.com)
522:卵の名無しさん
18/11/17 12:31:31.57 MdaDRZ5p.net
ニュー速＋のこれが正義だと思う。
251 名無しさん＠１周年 2018/11/09(金) 03:01:30.51 ID:T61ryGbd0
不正合格者退学にして空けろよ
252 名無しさん＠１周年 2018/11/09(金) 03:27:59.34 ID:Wfw1oWQ60
裏口で入ったのをやめさせろよ。
523:卵の名無しさん
18/11/17 16:12:56.59 ZSsSLaRh.net
数学スレにこんな問題
分からない問題はここに書いてね448
ｽﾚﾘﾝｸ(math板:789番)
789 名前：１３２人目の素数さん[] 投稿日：2018/11/17(土) 01:54:23.54 ID:SOe/0VMF
情報理論の問題です。（１）は解けるのですが、（２）でつまずいています...
＜問題＞
50人の生徒からなるクラスがある。
そのうち30人は男子、20人は女子であり、男子のうち18人、女子のうち2人は眼鏡をかけている仮定とする。
（１）男女の別、眼鏡の有無のそれぞれが持つ平均自己相互量を求めよ。
（２）男女の性別が判っているという条件のもとで、眼鏡の有無が持つ条件付き自己情報量を求めよ。
答えは、
（１）H(X) = 0.97ビット, H(Y) = 0.97ビット
（２）H(Y|X) = 0.77ビット
となっております。
得意な方がいましたら、（２）の答えを出すまでの計算過程を教えていただきたいです。
よろしくお願い致します。
問題の意味すら分からないのだが、答が出ているのに計算過程がわからないと実に気持ち悪い。
524:卵の名無しさん
18/11/17 16:18:26.89 ZSsSLaRh.net
ネットで検索して情報量の意味が理解できたのでRでスクリプトを組んで算出してみた。
> ent <- function(x){ # 情報エントロピー（平均情報量）
+ x=x/sum(x)
+ entropy=0
+ for(i in x) entropy=entropy+i*(-log2(i))
+ return(entropy)
+ }
> 30/50*ent(c(18/30,12/30)) + 20/50*ent(c(2/20,18/20))
[1] 0.7701686
呆け予防には役立ったなぁ。
まあ、ド底辺に関してはこれだからな。
We hold these truths to be self-evident, that all "uraguchi" are created retards,
That they are endowed by their creator with certain unalienable traits, that among these are sloth, mythomania, and the pursuit of imbecility.
525:卵の名無しさん
18/11/17 16:48:10.55 ZSsSLaRh.net
>>505
当然、
(3) 眼鏡の有無が判っているという条件のもとで、男女の性別が持つ条件付き自己情報量を求めよ。
という問題を自己作成して解きたくなる。
> (18+2)/50*ent(c(18/(18+2),2/(18+2))) + (50-18-2)/50*ent(c((30-18)/(50-18-2),18/(50-18-2)))
[1] 0.7701686
で(2)の結果と同じになる。
これを検証できる頭脳はド底辺医大卒の裏口バカにはいないだろうなぁ。
526:卵の名無しさん
18/11/17 17:21:49.20 ZSsSLaRh.net
ent x = do
let y = map(/sum(x)) x
z = map (\i -> -i*(logBase 2 i)) y
in print $ sum z
527:卵の名無しさん
18/11/17 17:32:52.14 ZSsSLaRh.net
>>505
Haskellだと2行で済むなぁ。
Prelude> let entropy x = sum $ map (\i -> -i*(logBase 2 i)) ( map(/sum(x)) x )
Prelude> 30/50 * entropy [18, 12] + 20/50 * entropy [2, 18]
0.7701685941085136
528:卵の名無しさん
18/11/17 18:38:31.01 ZSsSLaRh.net
{-
＜問題＞
120(n)人の生徒からなるクラスがある。
そのうち90(m)人は男子、30(f)人は女子であり、男子のうち80(um)人、女子のうち10(uf)人は裏口入学であると仮定とする。
（１）男女の別、裏口の有無のそれぞれが持つ平均自己相互量をビット値で求めよ。
（２）男女の性別が判っているという条件のもとで、裏口の有無が持つ条件付き自己情報量（ビット値）を求めよ。
-}
entropy x = sum $ map (\i -> -i*(logBase 2 i)) ( map(/sum(x)) x )
entr_ura_gender n m f um uf = do
m/n*entropy[um,m-um] + f/n*entropy[uf,f-uf]
529:卵の名無しさん
18/11/17 23:43:08.49 7FfFKHDd.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
530:卵の名無しさん
18/11/18 08:18:12.58 afl5ZxKK.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
531:卵の名無しさん
18/11/18 08:19:53.25 yAkIGNbC.net
つまらんスレやな
至極当然のことを何の捻りもないタイトルでそのままのっけてやがる
532:卵の名無しさん
18/11/18 10:02:54.66 deJ1Cp/X.net
>>512
そうなんだよね。
ド底辺シリツ医大卒が国立卒並みの頭脳を発揮すればびっくりするんだけどね。
こういうのに答えられる椰子はいないね。
ド底辺シリツ医に代わって答えてもいいぞ。
池の鯉を網で５６匹すくいました。
すくった５６匹に目印をつけ、池にもどしました。
次の日に鯉４５匹をすくったところ、３６匹に目印がついていました。
(1)池の鯉の総数の最尤値を述べよ（２つある）。
(2)最尤値が２つあるのは何匹の目印鯉が捕獲されたときか述べよ。
533:卵の名無しさん
18/11/18 11:00:36.50 uPZ4H5RS.net
>>511
原文はこれだけど英訳を推敲できる椰子はいないのか？
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
534:卵の名無しさん
18/11/18 11:33:55.04 a43+i/83.net
i tried it in Showa u motherfucker. in that time niggers were supposed be in what niggahz were supposed to be motherfucking in, which we call a discrimination.
they pay shit loaded money to motherfucking niggers ass-bitch cocksucker fucking gring
535:o homosexual hobo i mean fuck you all go down hell
536:卵の名無しさん
18/11/18 19:14:52.71 uPZ4H5RS.net
R
> rep (7,3)
[1] 7 7 7
Haskell
Prelude> let rep x n = if n<=0 then [] else x : rep x (n-1)
Prelude> rep 7 3
[7,7,7]
537:卵の名無しさん
18/11/18 19:17:12.83 uPZ4H5RS.net
> (1:9)[1:3]
[1] 1 2 3
Prelude> take 3 [1..9]
[1,2,3]
538:卵の名無しさん
18/11/19 04:58:01.91 S+HcRS07.net
>>489
普通は教育投資すればある程度の学力は身につく。
シリツ医大の高額学費が払える経済環境で教育投資したはず。
それでもド底辺シリツ医大にしか入れないのはそういうことだｗ．
539:卵の名無しさん
18/11/20 12:12:44.36 +LTJHbMS.net
昔からある 「油わけ算」、 古くは塵劫記にも載っている問題です。
現代風にアレンジしますと、
１０リットルの油が入っていて、 ７リットル入る容器と、 ３リットル入る容器だけを使って ５リットルずつに分ける方法は？
URLﾘﾝｸ(funahashi.kids.coocan.jp)
理系の大学を出ているなら、これくらい算出できる学力はほしいね。
１０００リットルの油が入っていて、 ５０１リットル入る容器と、 ４９９リットル入る容器だけを使って ５００リットルずつに分ける方法は？
540:卵の名無しさん
18/11/20 17:27:01.71 +LTJHbMS.net
１００リットルの油が入っていて、 ５１リットル入る容器と、 ４９リットル入る容器だけを使って ７０リットルと３０５００リットルに分ける方法は
> abura(Amax=100,Bmax=51,Cmax=49,100,0,0,70,30,0)
100 51 49
[1,] 100 0 0
[2,] 49 51 0
[3,] 49 2 49
[4,] 98 2 0
[5,] 98 0 2
[6,] 47 51 2
[7,] 47 4 49
[8,] 96 4 0
[9,] 96 0 4
[10,] 45 51 4
[11,] 45 6 49
[12,] 94 6 0
[13,] 94 0 6
[14,] 43 51 6
[15,] 43 8 49
[16,] 92 8 0
[17,] 92 0 8
[18,] 41 51 8
[19,] 41 10 49
[20,] 90 10 0
[21,] 90 0 10
[22,] 39 51 10
[23,] 39 12 49
[24,] 88 12 0
[25,] 88 0 12
[26,] 37 51 12
[27,] 37 14 49
541:卵の名無しさん
18/11/20 17:27:28.23 +LTJHbMS.net
[28,] 86 14 0
[29,] 86 0 14
[30,] 35 51 14
[31,] 35 16 49
[32,] 84 16 0
[33,] 84 0 16
[34,] 33 51 16
[35,] 33 18 49
[36,] 82 18 0
[37,] 82 0 18
[38,] 31 51 18
[39,] 31 20 49
[40,] 80 20 0
[41,] 80 0 20
[42,] 29 51 20
[43,] 29 22 49
[44,] 78 22 0
[45,] 78 0 22
[46,] 27 51 22
[47,] 27 24 49
[48,] 76 24 0
[49,] 76 0 24
[50,] 25 51 24
[
542:卵の名無しさん
18/11/20 17:28:06.70 +LTJHbMS.net
[51,] 25 26 49
[52,] 74 26 0
[53,] 74 0 26
[54,] 23 51 26
[55,] 23 28 49
[56,] 72 28 0
[57,] 72 0 28
[58,] 21 51 28
[59,] 21 30 49
[60,] 70 30 0
お～い、ド底辺
これより短いステップで可能かどうか検証してくれ。
543:卵の名無しさん
18/11/20 19:40:28.57 HF+OgDBw.net
Last but not least, three laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater they had gone through.
The Do-Teihen graduates are so ashamed of having bought their way into the exclusively lowest-tier medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
544:卵の名無しさん
18/11/20 20:05:58.90 3jy0dpIg.net
>>520
70リットルと30リットルに分ける問題。
545:卵の名無しさん
18/11/20 22:26:36.63 D0iJ9Tsc.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
546:卵の名無しさん
18/11/21 20:50:59.40 5Xwsg5oK.net
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
547:卵の名無しさん
18/11/22 13:42:09.92 EhyhVVko.net
【裁判】「娘が落第…寄付金3000万円返して」父親が岩手医大を提訴、大学側は「返還義務はない」として争う姿勢…盛岡地裁
ｽﾚﾘﾝｸ(newsplus板:1番)
1 名前：かばほ～るφ ★ [sageteoff] 投稿日：2018/11/22(木) 12:14:32.38 ID:CAP_USER9
「娘落第…寄付金3000万円返して」父が岩手医大を提訴 大学側は争う姿勢
岩手医大に十分な寄付をしたのに次女が落第したとして、
北海道苫小牧市の父親が大学に寄付金計３０００万円の返還を求める訴訟を
盛岡地裁に起こして２１日、第１回口頭弁論が開かれた。
大学側は全面的に争う姿勢を示し、請求棄却を求めた。
訴えによると、次女は５年生だった２０１４年度末の進級試験で落第。
大学から「成績が悪かったのではなく、寄付金の振り込みが遅れたからだ」
と指摘を受けて１５年３月末、大学に１０００万円を送金した。
しかし進級は認められず１５年１１月、
それまでに寄付した全額を返還することで医学部長らと合意したという。
父親の代理人弁護士によると、次女が１０年４月に入学する際、
大学は６年間に計３０００万円以上を寄付するよう求める文書を送付。
父親は１１年１１月までに２０００万円を寄付していた。
岩手医大の代理人弁護士は河北新報社の取材に
「寄付金は受け取っているが返還には合意しておらず、返還義務もない。
全面的に争う」と話した。
河北新報 2018年11月22日木曜日
URLﾘﾝｸ(www.kahoku.co.jp)