応用問題： a^2+b^2=c^2を満たす3つの整数（a<b<c） の組み合わせのうち（3,4,5）から数えて100番目は何になるか 👀 Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b) 0064卵の名無しさん2018/11/08(木) 16:45:02.14ID:PGJy3ILP pitagoras <- function(A){ pita=NULL for(a in 3:A){ B=floor(a^2/2-1/2) for(b in a:B){ c=a^2+b^2 if(floor(sqrt(c)) == sqrt(c) ){ pita=rbind(pita,c(a,b,sqrt(c))) } } } colnames(pita)=letters[1:3] return(pita) } pita=pitagoras(999) saveRDS(pita,'pita999.rds') pita[1,] pita[7,] pita[77,] pita[777,] pita[1000,] tail(pita) 0065卵の名無しさん2018/11/08(木) 20:38:27.74ID:cpzz/2HM 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. 0066卵の名無しさん2018/11/08(木) 21:27:55.58ID:PVj0UwaU Hutanari Ti〇po 0067卵の名無しさん2018/11/08(木) 22:34:40.76ID:klK7Dgwj 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. ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 0068卵の名無しさん2018/11/08(木) 22:35:56.08ID:klK7Dgwj 第一法則の英文の意図的な文法誤謬を指摘してみ！ 0069卵の名無しさん2018/11/08(木) 22:37:45.15ID:JqNfxHqE 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. 0070卵の名無しさん2018/11/08(木) 23:56:13.79ID:5CXia8DJ Raise the hem of the white coat with a white coat appearing naked. Put half of Voltaren in the anus Peel the white eyes while hitting your ass with a bang bang with both hands Shouts that "Utopia is surprisingly surprised! It is surprisingly utopian! Raise the buttocks and fire the Voltaren rocket to the patient. 0071卵の名無しさん2018/11/09(金) 07:26:09.53ID:guOlTCed (mean(replicate(1e4,any(diff(cumsum(rbinom(100,1,0.5)),5)==5)))) [1] 0.8089 > > (mean(replicate(1e4,with(rle(rbinom(100,1,0.5)), max(lengths[which(values= <rle(rbinom(100,1,0.5)), max(lengths[which(values== 1)])>=5)))) [1] 0.8117 > 0072卵の名無しさん2018/11/09(金) 07:26:39.67ID:guOlTCed (mean(replicate(1e4,any(diff(cumsum(rbinom(100,1,0.5)),5)==5)))) [1] 0.8089 > > (mean(replicate(1e4,with(rle(rbinom(100,1,0.5)), max(lengths[which(values= <rle(rbinom(100,1,0.5)), max(lengths[which(values==1)])>=5)))) [1] 0.8117 0073卵の名無しさん2018/11/09(金) 07:27:42.12ID:guOlTCed 実行速度
system.time(mean(replicate(1e4,any(diff(cumsum(rbinom(100,1,0.5)),5)==5)))) user system elapsed 1.840 0.000 1.875 > > system.time(mean(replicate(1e4,with(rle(rbinom(100,1,0.5)), max(lengths[wh <e(1e4,with(rle(rbinom(100,1,0.5)), max(lengths[whi ch(values==1)])>=5)))) user system elapsed 4.440 0.000 4.631 0074卵の名無しさん2018/11/09(金) 10:39:09.83ID:mj0MZvbh 「おﾞぉおォおん、おﾞぉおォおんにいぃひゃぁん、大漁らったのぉおお？」 「ぁあああ あぉぁあああ あぉ、大漁らったよお゛お゛お゛ぉ」 「ぁあああ あぉぁぁ゛ぁ゛ぁぁ゛ぁ゛ぁぁ゛ぁ゛ぁあああ あぉぁぁ゛ぁ゛しゅごいぃのぉおおょぉぉぅぃぃっよぉおおﾞいぃぃいぃぃ！、、にゃ、にゃにが、、ハァハァにゃにが捕れたのぉおお？」 乳首を舌れやしゃしく舐めにゃがらオレは答えたのぉおお 「…鯛とか、、、ヒラメがいぃっぱいぃ捕れたよお゛お゛お゛ぉ」 セリフを聞き、オジサンはびくんびくんと身体をひきちゅらせたのぉおお 「はっ！はぁぁ゛ぁ゛ぁぁ゛ぁ゛ぁぁ゛ぁ゛ぁあああ あぉんっ！イ、イサキは？イサキは、と、取れたのぉおお？？」 「ぁあああ あぉぁあああ あぉ。れかいぃイサキが取れたよお゛お゛お゛ぉ。今年一番のぉおお大漁ら。」 「大漁っ！！イサキぃぃ！！おﾞぉおォおんにいぃひゃぁんかっこいぃぃぃっよぉおおﾞいぃぃぃっよぉおおﾞぃぃぃいぃ ぃくううううう！」 0075卵の名無しさん2018/11/09(金) 13:39:50.75ID:wRJjRrMD 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. 0076卵の名無しさん2018/11/09(金) 14:43:04.66ID:mj0MZvbh "Oo, ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo! "Aaaaaaaaaaaa, big fish caught you" "Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "Sho-o-no-okoi, oh yeah, oh yeah, yeah, yeah, yeah, ha haa caught up for ha ha?" I was licking a nipple and talking lolly I answered yao "... Sea breams ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," Listening to the dialogue, Ojisan pulls him body with his boyfriend "Ha ha haaaaaaaaaaaaaaaaa, Isaki, Isaki, can you get it?" "Aaaaaaaaaaaa ... I could have picked out a good Isaki, the biggest fishes of the year, this year." "Big fishing !! Isaki !! Ooohoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo! " 0077卵の名無しさん2018/11/09(金) 14:47:27.17ID:fYz4ML3G import numpy as np from fractions import Fraction # http://tpcg.io/5xvZhU
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]) 0078卵の名無しさん2018/11/09(金) 14:54:20.70ID:fYz4ML3G RからPythonへの移植がようやく終わった。
P0(n)=a(n)/2^nとおいて a(n+1)/2^(n+1)=1/2^(n+1){a(n)+a(n-1)+a(n-2)+a(n-3)+a(n-4)} a(n+1)=a(n)+a(n-1)+a(n-2)+a(n-3)+a(n-4) """ 0080卵の名無しさん2018/11/09(金) 18:29:58.21ID:n6Zmr3Yp 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 . 0081卵の名無しさん2018/11/09(金) 19:01:24.31ID:fYz4ML3G # 全体N個中当たりS個、1個ずつ籤を引いて当たったらやめる. # r個めが初めて当たりであったときSの信頼区間を推定するシミュレーション。
# N個のクジでr個めで初めてあたった時のN個内の当たり数の推測 Atari <- function(N,r){ pmf <- function(x) ifelse(x>N-r+1,0,(1-x/N)^(r-1)*x/N) # dnbinom(r-1,1,x/N) ; dgeom(r-1,x/N) # curve((1-x/N)^(r-1)*x/N,0,N) AUC=integrate(pmf,0,N)$value pdf <- function(x) pmf(x)/AUC mode=optimise(pdf,c(0,N),maximum=TRUE)$maximum mean=integrate(function(x)x*pdf(x),0,N)$value cdf <- function(x) integrate(pdf,0,x)$value median=uniroot(function(x)cdf(x)-0.5,c(0,N))$root print(c(mode=mode,median=median,mean=mean)) pdf2hdi(pdf,0,N,cred=0.95) } Atari(100,3) Atari(100,30) 0083卵の名無しさん2018/11/09(金) 20:27:50.16ID:n7vPLA8Y 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. 0084卵の名無しさん2018/11/09(金) 21:35:35.51ID:guOlTCed 次の課題はこれだな。
コインを100回投げて表が連続した最大数が10であったとき このコインの表がでる確率の95%信頼区間はいくらか？ 0085卵の名無しさん2018/11/09(金) 21:59:40.95ID:WU3o6hYa 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. 0086卵の名無しさん2018/11/09(金) 22:34:31.28ID:fYz4ML3G>>84 解析解は難しいけど、ニュートンラフソン法で数値解ならだせるな。
英文コピペで荒らしているド底辺シリツ医大の裏口馬鹿には検算すらできんないだろうな。 0087卵の名無しさん2018/11/09(金) 22:53:11.07ID:fYz4ML3G>>86 呼び出す関数として、これが必要 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] }
ここに上げておいた。 http://tpcg.io/kuNvWl0088卵の名無しさん2018/11/10(土) 00:19:47.42ID:Kp2aSERi 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. 0089卵の名無しさん2018/11/10(土) 07:28:52.35ID:qmnilAbW 恵方巻き 0090卵の名無しさん2018/11/10(土) 07:31:45.66ID:oGLeA9Hd 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. 0091卵の名無しさん2018/11/10(土) 07:35:47.21ID:Gl2x1zZV>>86 optimizeを使ってurirootの区間を自動設定に改善。
vs=Vectorize(function(K)seq2pCI(N=100,K,alpha=0.05,Print=F)) y=vs(2:23) head(y) plot(2:23,y['mean',],bty='l',pch=19) points(2:23,y['mode',],bty='l') 0094卵の名無しさん2018/11/10(土) 14:12:44.30ID:u8wDSGVd 幼稚な事務員 0095卵の名無しさん2018/11/10(土) 14:24:33.17ID:u8wDSGVd Look to the sky, way up on high There in the night stars are now right. Eons have passed: now then at last Prison walls break, Old Ones awake! They will return: mankind will learn New kinds of fear when they are here. They will reclaim all in their name; Hopes turn to black when they come back. Ignorant fools, mankind now rules Where they ruled then: it's theirs again
Stars brightly burning, boiling and churning Bode a returning season of doom
Scary scary scary scary solstice Very very very scary solstice
Up from the sea, from underground Down from the sky, they're all around They will return: mankind will learn New kinds of fear when they are here 0096卵の名無しさん2018/11/10(土) 15:50:53.19ID:Aj6PTVhz>>435 確率密度関数が左右対象でないから、 QuontileでなくHDI(Highest Density Interval)での95％信頼区間をpdfからｃｄｆの逆関数を作って算出してみる。
# 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
確率密度関数を正弦波とか円周にしても計算できるはず。 0102卵の名無しさん2018/11/10(土) 21:22:19.55ID:BbEZ9aeT 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. 0103卵の名無しさん2018/11/10(土) 21:35:01.58ID:eRQ4an/O ド底辺シリツ裏口調査団が100人を順次調査した。 裏口判明人数をそのまま公表はヤバすぎる結果であったため、 連続して裏口がみつかった最大数は4人であったとだけ公表した。 公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
期待値37人、最頻値37人 95%信頼区間17人〜56人
> mKoN2pCI(100,4) # one minute plz lower mean mode upper 0.1747676 0.3692810 0.3728936 0.5604309
累積質量関数をグラフにすると http://imagizer.imageshack.com/img924/9020/nxNiAP.jpg0108卵の名無しさん2018/11/11(日) 04:47:59.95ID:3fp/Z1Bf ＮＮＮ臨時放送 0109卵の名無しさん2018/11/11(日) 08:25:49.13ID:8Ef5Z4Y6 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. 0110卵の名無しさん2018/11/11(日) 08:58:08.11ID:g+y24FcC 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. 0111卵の名無しさん2018/11/11(日) 11:04:24.83ID:RT24eksu 東京医大、本来合格者入学許可へ 今年の受験生５０人
C:\pleiades\workspace>coin5 100 5 coin5 100 5 Over 5 heads at 100 flips : 0.813343 Just 5 heads at 100 flips : 0.263523
C:\pleiades\workspace>coin5 1000 10 coin5 1000 10 Over 10 heads at 1000 flips : 0.385751 Just 10 heads at 1000 flips : 0.170128 👀 Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b) 0134卵の名無しさん2018/11/11(日) 22:42:42.63ID:UCMkX/If 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. 0135卵の名無しさん2018/11/12(月) 00:48:13.50ID:G7wSOjAG 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. 0136卵の名無しさん2018/11/12(月) 02:39:48.77ID:+DPZ0e9S 臨床問題です 事務員のアスペ指数を計測せよ 0137卵の名無しさん2018/11/12(月) 07:17:09.02ID:KUf7IfSV>>136 前提が間違っているから Zero Division Errorだね。
> runner=replicate(1e4,sim()) > summary(runner) ; hist(runner,freq=F,col="lightblue") Min. 1st Qu. Median Mean 3rd Qu. Max. 64.00 86.00 92.00 90.72 96.00 100.00 > quantile(runner,prob=c(0,0.95)) 0% 95% 64 100 > cat(names(table(runner)[which.max(table(runner))])) # 最頻値 100 0150卵の名無しさん2018/11/12(月) 22:54:15.54ID:3/93pSbh 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. 0151卵の名無しさん2018/11/13(火) 08:24:34.99ID:kjupm458 このスレは事務員が日がな一日妄想を垂れ流し 見物人たちがそれを見てフルボッコにするスレである
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. ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 0153卵の名無しさん2018/11/13(火) 09:19:46.34ID:UTrDDuDZ 平均値を「四捨五入」するか、しないかを指定できるようにして 平均値が60であったときのサンプルの最大値の分布を示すシミュレーション
rm(list=ls()) M=5 ; m=60 ; n=100 ; round=TRUE sub <- function(M,m,n){ s=sample(n,M) rm=ifelse(round,round(mean(s)),mean(s)) if(rm==m) return(max(s)) } sim= function(){ r=sub(M,m,n) while(is.null(r)){ r=sub(M,m,n) } return(r) } round=F re=replicate(1e3,sim()) summary(re) ; hist(re,freq=F,col="lightblue") quantile(re,prob=c(0,0.95)) cat(names(table(re)[which.max(table(re))]),'\n') 0154卵の名無しさん2018/11/13(火) 11:31:17.33ID:UTrDDuDZ ド底辺シリツ医大のある学年にひとりずつ裏口入学登録証があることが判明したがその数は公表されていないとする。 ある裏口入学調査員が無作為に１０枚選んで番号を記録して元に戻した。 別の裏口入学調査員が無作為に２０枚選んで番号を記録してして元に戻した。 二人の調査官の記録した番号を照合すると３人分の番号が一致していた。 この情報からこの学年の裏口入学者数の９５％信頼区間を求めよ。 0155卵の名無しさん2018/11/13(火) 14:13:47.83ID:UTrDDuDZ 固有の番号の書かれたカードが何枚あり、 その枚数は１０００枚以下であることはわかっているが、その数を推定したい。 調査員が無作為に１０枚選んで番号を記録して元に戻した。 別の調査員が無作為に２０枚選んで番号を記録した。 二人の調査員の記録した番号を照合すると３人分の番号が一致していた。 この情報からカード枚数の期待値と９５％信頼区間を求めよ。 0156卵の名無しさん2018/11/13(火) 14:58:33.48ID:EZEaUTrv 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. 0157卵の名無しさん2018/11/13(火) 19:31:39.92ID:DHMhO4WL 二郎をすすりつつ裏口事務員をさわさわと触る 「お、おにいちゃん、大漁だった？」 「ああ、大漁だったよ」 「あぁぁぁあぁすごいいいぃいぃ！、、な、なにが、、ハァハァなにが捕れたの？」 焼豚を舌でやさしく舐めながら国試浪人は答えた 「…鯛とか、、、ヒラメがいっぱい捕れたよ」 セリフを聞き、オジサンはびくんびくんと身体をひきつらせた 「はっ！はぁぁぁあんっ！イ、イサキは？イサキは、と、取れたの？？」 ド底辺事務員をしごく 「ああ。でかいイサキが取れたよ。今年一番の大漁だ。」 「大漁っ！！イサキぃぃ！！おにいちゃんかっこいいいいぃぃぃい ぃくううううう！」 0158卵の名無しさん2018/11/13(火) 19:46:29.89ID:WZBh4CIg 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. 0159卵の名無しさん2018/11/13(火) 20:23:20.79ID:DHMhO4WL While touching Uryuu, touch the Uraguchi Jimuin with Sawasawa "O, Oh, were you a big catch?" "Oh, it was a big catch." "Ayaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa While tenderly licking the baked pig with a tongue, the country trier replied "... Sea breams, ..., a lot of flounder was caught" Listening to the dialogue, Ojisan hit the body with him busts "Ha ha ha ha! Ah, Isaki? Isaki, could you take it?" Draw base clerk "Oh, I got a big isaki, it is the biggest fishery of the year." "Big fishing !! Isaki !! Great buddies are okay!" 0160卵の名無しさん2018/11/13(火) 22:51:51.61ID:UlWlhoup ここは くるくるぱー アスペ 事務員が ナゾナゾを出したり アプリ翻訳したインチキ英語で 自作自演したりするスレです 0161卵の名無しさん2018/11/13(火) 23:30:56.92ID:fLfkvliu >155の計算結果は最頻値と期待値が大幅に乖離するので 計算に自信が持てずシミュレーションとの合致でようやく納得。 数学板に貼ったら２時間で期待値のHaskellでの算出値のレスが来た。それで信頼区間も確信を持って計算できた。 確率密度はこんな感じなので期待値と最頻値がずれるわけだな。 http://i.imgur.com/paJnhr9.png
