底辺私立医大を卒業した医者って頭悪いよね？ Part19

タイトルまんまです

すなわち、タイトルの正しさを検証するスレです。

※前スレ
底辺私立医大を卒業した頭悪いよね？
http://egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
http://egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
http://egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
http://egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
http://egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
http://egg.5ch.net/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
http://egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
http://egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
http://egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.5ch.net/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.5ch.net/test/read.cgi/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね？ Part13
https://egg.5ch.net/test/read.cgi/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね？ Part14
https://egg.5ch.net/test/read.cgi/hosp/1578616997/
底辺私立医大を卒業した医者って頭悪いよね？ Part15
https://egg.5ch.net/test/read.cgi/hosp/1584050953/
底辺私立医大を卒業した医者って頭悪いよね？ Part16
https://egg.5ch.net/test/read.cgi/hosp/1587907116/
底辺私立医大を卒業した医者って頭悪いよね？ Part17
https://egg.5ch.net/test/read.cgi/hosp/1592215787/
底辺私立医大を卒業した医者って頭悪いよね？ Part18
https://egg.5ch.net/test/read.cgi/hosp/1607310274/

人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８−９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。

>https://egg.5ch.net/test/read.cgi/hosp/1607310274/28

後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、
ソースはあんの？

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

僕も裏口入学と公言したシリツ医は経済的に成功していても
この程度の頭脳。比例計算すら間違える。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4

あーだこーだ書いたところで所詮はルサンチマン。
ウリュウのジジイが社会の底辺であることに変わりはない。

新型コロナの治療にもあたっている東京女子医科大学が職員に向けて、コロナに感染して仕事を休んだ場合、原因によっては「無給とする」などとした文書を出していたことが分かりました。

https://news.yahoo.co.jp/articles/25dff8d2cded055e767704848784acab9a720d6e

さすが、シリツだなぁ。

「医療機関を持つ医科大学で勤務する職員は、本来健康な状態で労働を提供する必要があり、感染等を理由に休業することはいわば民法上の『債務不履行』に当たると解釈されます。よってこの場合には、休業期間中には給与を支給しないことが妥当である」

無給なのに私立医叩きご苦労さん。

>>7 バカ私立医女子医は無給とかw

お前も無給じゃん。

社会の底辺に私立医を語る資格はない笑

遊びに行って感染したら無給って話だろ
別におかしくないだろ
院内感染が無給なわけじゃないんだし

しかし　私立医ビジネスって　ボロいよな〜ｗ

追試でも銭がかかると聞いてびっくりよ
国立医じゃ再試だろうと再再試だろうと只ｗ

こんなところで喚くしか能のないコンプの非医って哀れだなー

自己紹介かｗ　さすがは私立医ｗ

私立医大卒の医者は勝ち組だよ。

だって親がお金持ちじゃ無かったら
本来は医者じゃなかったかもしれない
連中なんだぜ。

母分散の推定

# http://yukiyanai.github.io/jp/classes/stat2/contents/R/variance-estimation.html
rm(list=ls())
source('toolmini.R')
N=1e6
mu=170
sigma=6
n=100
pop=rnorm(N,mu,sigma)
pop=mu+sigma*(pop-mean(pop))/sd(pop)
mean(pop)
sd(pop)
Var<-function(x) sum((x-mean(x))^2)/length(x)
k=1e4
v0=replicate(k,var(sample(pop,n)))
v1=replicate(k,Var(sample(pop,n)))
summary(v0)
summary(v1)
Plot(10,60,0,0.08,asp=0)
abline(v=sigma^2,lty=3)
lines(density(v0))
lines(density(v1),col=2)
par(mfrow=c(2,1))
BEST::plotPost(v0, xlab='不偏分散')
BEST::plotPost(v1, xlab='標本分散')

シリツ医が反論できない事実！

川崎医大の創始者の子供や孫は教育投資して学力をつけて岡山大学や京都大学の医学部に入学。

法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

受験で裏金、
入学で寄付金
進学で高額授業料
再試で協賛金
国試対策で協力金
卒業で学債
国試予備校に入学金
特別個別指導に袖の下
大学院で謝礼金

私立医の経営って美味しいんだろうな〜

>>19
小道具作成

# 標本の不偏分散から母分散の信頼区間を算出
var2ci <- function(var,n,conf.level=0.95){
lu=c(qchisq((1-conf.level)/2,n-1), qchisq(1/2+conf.level/2,n-1))
ci=(n-1)*var/lu[2:1] # [下2.5% 上97.5%]
LU=HDInterval::hdi(qchisq,df=n-1,credMass=conf.level)[1:2]
CI=(n-1)*var/LU[2:1] # Highest Probability Density 95%CI
list(common_ci=ci,HPD_CI=CI)
}

>>21
馬鹿を入学させて留年させて授業料を稼ぐ「留年ビジネスモデル」もあるらしい。
シリツだと全学年で留年が100人くらいいるんじゃないかなぁ。

# https://www.youtube.com/watch?v=Xhrx5scFzC8

f <- function(n=NULL,r=NULL){
n=ifelse(is.null(n),1000,n)
r=ifelse(is.null(r),sample(n,1)/n,r)
q=qnorm(0.975)

# solve r-q*sqrt(p*(1-p)/n) < p for p
fl <- function(p) r-q*sqrt(p*(1-p)/n) - p
fl=Vectorize(fl)
curve(fl(x)) ; abline(h=0,lty=3)
L=uniroot(fl,c(0,1))$root

# solve p < r+q*sqrt(p*(1-p)/n) for p
fu <- function(p) p-(2*n*r+q^2 + sqrt(-4*n*q^2*r^2+4*n*q^2*r+q^2))/(2*(n+q^2))
fu=Vectorize(fu)
curve(fu(x)) ; abline(h=0,lty=3)
U=uniroot(fu,c(0,1))$root
p=r
list(c(L,U),c(r-q*sqrt(p*(1-p)/n),r+q*sqrt(p*(1-p)/n)))
}

母比率=標本比率を仮定した近似だと標本比率が極端な値をとると信頼区間が負になったり、１を超えたりするな。
方程式を解くとそれは起こらない。

> f(1,100)
[[1]]
[1] 0.001789666 0.049144658

[[2]]
[1] -0.009501395 0.029501395


> f(99,100)
[[1]]
[1] 0.9455252 0.9928910

[[2]]
[1] 0.9704986 1.0095014

>>21
羨ましくて仕方ないみたいだね。

ジジイ哀れだね。
こんなところで文句言うしかできないなんて。
現実社会では誰にも相手にされないからって僻むなよ。

証明を追うのは面倒なので乱数で体感

> Beta <- function(x,y) integrate(function(t) t^(x-1)*(1-t)^(y-1),0,1)$value
> x=runif(1) ; y=runif(1)
> Beta(x,y) ; Gamma(x)*Gamma(y)/Gamma(x+y)
[1] 2.914098
[1] 2.914098
> x*Beta(x,y+1) ; y*Beta(x+1,y)
[1] 0.7585508
[1] 0.7585508
> Beta(x,y) ; Beta(x+1,y)+Beta(x,y+1)
[1] 2.914098
[1] 2.914098
> (x+y)*Beta(x,y+1) ; y*Beta(x,y)
[1] 2.258682
[1] 2.258682

トケジ発狂中〜

ジジイはここがお似合い

https://egg.5ch.net/test/read.cgi/hosp/1607687111/

私立医は准看にも知能で負けたｗ

>>31
知能で負けても社会的序列は変わらないんだよね。悲しいことに。
ウリュウは知能も社会的序列も底辺だけどな。
ウリュウにとっては天の上。

そうそう　准看は私立医より上だと証明されたｗ

>>33
でもお前はどのみち下じゃん。

准看の一つ覚えとはウリュウのジジイも落ちたものだな。

abc予想の体感

rm(list=ls())
options(digits = 22)
library(gmp)
n=5
a=1
k=0.1
(b=as.bigz(3^(2^n)-1))
(c=a+b)
(abc=a*b*c)
(fc=factorize(abc))
isprime(21523361)
(d=prod(unique(fc)))
asNumeric(c)
asNumeric(d)^(1+k)
asNumeric(c) > asNumeric(d)^(1+k)

>>5
美容外科医に頭脳を期待するのは間違いでは？
底辺私立医大卒がドアホというは同意できる。

>>32
お前はドアホだな。
医者だってある意味底辺だぞ。

>>36
プログラミングができるのは羨ましい。
俺は大昔にFORTRANを習ったが完全に忘れた。

>>39
医学論文を読めば必ず統計処理がでてくる。
普通は独学でRくらい使えるようになる。


統計のウソ・誤用・悪用を見破るためにも統計学の知識が必要
「統計できない人は進級させなくていいですから」を検索すると母校の教員の言葉としてヒットする。

自作の悪用例

呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。

TSH ： 0.34〜4.0 TSH：μIU/mlを基準値として（これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々５０個つくる。
負になった場合は検出限界以下として０にする。
http://i.imgur.com/k7MbKQ0.jpg
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTSHの値、縦軸にTSHの変化（呪文後−呪文前）をグラフしてみると
http://i.imgur.com/GQ5X23P.jpg

つまり、呪文前のTSHが高いほど呪文後はTSHは下がり、呪文前のTSHが低いほど呪文後のTSHは上がるという傾向がみてとれる。
これを線形回帰して確かめてみる。

回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.3812 0.3323 7.165 4.10e-09 ***
before -1.0351 0.1411 -7.338 2.24e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8365 on 48 degrees of freedom
Multiple R-squared: 0.5287, Adjusted R-squared: 0.5189
F-statistic: 53.84 on 1 and 48 DF, p-value: 2.237e-09

p = 2.24e-09 なので有意差ありとしてよい。

ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか？

>>40
一定水準以上の国立大学でないと統計学教育は成立しないと思う。
底辺私立だと数学なしでも入学できたりするから。

>>38
医者が底辺？
道に歩いてる人に聞いてみろ。きっと鼻で笑われるからw
さすが社会の底辺は言うこと違うわ。

ここは日商簿記１級のスレですよね。はじめまして。
第156回の試験で日商簿記１級に合格しました。会計士講座の受講生です。自己採点69点、結果は72点でギリギリ合格でした。前半の簿記・会計でしくりまくってて、ギリギリもいいところでした。

工業簿記の自己採点が14点だったんですが、20点。原価計算の自己採点が23点だったんですが、20点でした。
工業簿記の点数が異常の理由が、１月の合格発表後に分かって、以前の書き込みで非常に頭の良い方が全く同じ結論と解説をなさっていたので詳細省きますけど、
工業簿記・第２問・問１の実際購入原価２つ、第３問(４)75,400(不利差異)、この３ヶ所で予備校と答え違ったんですが、採点者からそれぞれ得点もらってる事を確認しました。工業簿記24点の方と答え合わせをして。

プロ簿記の講師で試験委員をめちゃくちゃな悪口言いまくってた人、なんで謝罪しないんですかね？
予備校って、日商簿記の検定試験にお世話になって仕事できてるくせに、あんな偉そうに試験委員を馬鹿にして、人として、全く理解できないです。キ○ガイ。　プロ簿記とやらのサイトで、試験委員はあんな問題作って謝罪すべき、と相当悪く言ってましたからね。

あれ、特に第３問の出し方、めちゃくちゃ良問です。会計士の講師へ質問でちゃんと説明して聞いたら、「あなたの言う通りですね、同じ金額だったからあなたに言われるまで気が付かなくて、自分の中のストックに無い問い方で、今後の作問の参考にもなりました」と言われました。

プロ簿記の傲慢な講師の方、正式にプロ簿記で訂正・謝罪して下さい。まぁ見ていないでしょうけど。
正直、あんな読み取りは試験中なら仕方ないにしろ、解答作成で精読していたら気が付きそうなものです。それを試験委員をめちゃくちゃに馬鹿にして、恥ずかしくないのか。
そもそも、試験委員の方々がどれ程の時間と考慮を重ね、作問して試験を作り、それを受けれているのか、そんな所のリスペクトは大人なら当たり前にすべきだろ、ガキじゃねーんだから。
さっさと謝ってくれー見てないだろうけど。

# お菓子の個数の差の最小値の約数が条件（１以上の等しい数で余る）を満たすかを調べる

CALC <- function(...){
x=c(...)
re=NULL
for(d in numbers::divisors(min(combn(length(x),2,function(i) abs(diff(x[i])))))){
r=x%%d
if(sum(r)!=0 & length(unique(r))==1) re=c(re,d)
}
re
}

CALC(123,456,789))

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。

だったらウリュウのジジイ自ら直談判でもデモでも起こせばいいじゃないか。自ら率先して。
誰にも相手にされないと思うけどなw

社会でも5chでもゴミ扱いの底辺。それが医者コンプ非医のウリュウのジジイ。

埼玉医科大学病院抗がん剤過剰投与事件

2000年9月、右あご下腫瘍治療のために埼玉医科大学総合医療センターに入院した
埼玉県鴻巣市の女子高生（当時16歳）が、化学療法の一つである「VAC療法」
（硫酸ビンクリスチン・アクチノマイシンD・シクロフォスファミドを組み合わせる療法）を
受ける際、硫酸ビンクリスチン2mgを週1回12週間にわたって投与されるべきところを、
医師の文献の誤読により1週間連続で投与された。
その結果、患者は同年10月7日に多臓器不全で死亡した。
事故後、医師による説明に不信感を持った両親が110番通報をし、事件が発覚した。

担当研修医が英語文献を読めず、週一回投与(Weekly)を連日投与(daily)と解釈したために
抗癌剤の大量投与につながったことが判明している。

http://www.tmd.ac.jp/medhospital/topics/document/171108_kouhyou.pdf

恐ろしいね…

>>49
小児科勤務歴のある看護師が添付文書とともにその投与計画はおかしいと、底辺シリツ医に助言したのに
このシリツ医は無視したんだよなぁ。

# お菓子の個数の差の最小値の約数が条件（１以上の等しい数で余る）を満たすかを調べる

CALC <- function(...){
x=c(...)
re=NULL
for(d in numbers::divisors(min(combn(length(x),2,function(i) abs(diff(x[i])))))){
r=x%%d
if(sum(r)!=0 & length(unique(r))==1) re=c(re,d)
}
re
}
CALC(62,78,38)
CALC(123,756,789)

icecream=123
chocolate=456
pudding=789
candy=NULL
upper=100
for (i in 2:upper) {
kid=CALC(icecream,chocolate,pudding,i)
print(kid)
if(length(kid)) candy=c(candy,i)
}
candy
CALC(icecream,chocolate,pudding,100)

>>43
理系のなかでは最低の教養だと思う、とりわけ、シリツ医はひどい。

>>53
社会の底辺が教養だって？

ここは日商簿記１級のスレですよね。はじめまして。
第156回の試験で日商簿記１級に合格しました。会計士講座の受講生です。自己採点69点、結果は72点でギリギリ合格でした。前半の簿記・会計でしくりまくってて、ギリギリもいいところでした。

工業簿記の自己採点が14点だったんですが、20点。原価計算の自己採点が23点だったんですが、20点でした。
工業簿記の点数が異常の理由が、１月の合格発表後に分かって、以前の書き込みで非常に頭の良い方が全く同じ結論と解説をなさっていたので詳細省きますけど、
工業簿記・第２問・問１の実際購入原価２つ、第３問(４)75,400(不利差異)、この３ヶ所で予備校と答え違ったんですが、採点者からそれぞれ得点もらってる事を確認しました。工業簿記24点の方と答え合わせをして。

プロ簿記の講師で試験委員をめちゃくちゃな悪口言いまくってた人、なんで謝罪しないんですかね？
予備校って、日商簿記の検定試験にお世話になって仕事できてるくせに、あんな偉そうに試験委員を馬鹿にして、人として、全く理解できないです。キ○ガイ。　プロ簿記とやらのサイトで、試験委員はあんな問題作って謝罪すべき、と相当悪く言ってましたからね。

あれ、特に第３問の出し方、めちゃくちゃ良問です。会計士の講師へ質問でちゃんと説明して聞いたら、「あなたの言う通りですね、同じ金額だったからあなたに言われるまで気が付かなくて、自分の中のストックに無い問い方で、今後の作問の参考にもなりました」と言われました。

プロ簿記の傲慢な講師の方、正式にプロ簿記で訂正・謝罪して下さい。まぁ見ていないでしょうけど。
正直、あんな読み取りは試験中なら仕方ないにしろ、解答作成で精読していたら気が付きそうなものです。それを試験委員をめちゃくちゃに馬鹿にして、恥ずかしくないのか。
そもそも、試験委員の方々がどれ程の時間と考慮を重ね、作問して試験を作り、それを受けれているのか、そんな所のリスペクトは大人なら当たり前にすべきだろ、ガキじゃねーんだから。
さっさと謝ってくれー見てないだろうけど。

医学部最低編でも看護の最難関より偏差値高い事実

>>56
シリツ医大の偏差値は入学を辞退して国立大学に進学した合格者の偏差値だろ？

>>54
Rのコードすら書けないのが裏口容疑者＝シリツ医ってこと。

英語文献が正しく読めなくて抗がん剤過剰投与で患者を死に至らしめたのはシリツ医。

僕も裏口入学と公言したシリツ医は経済的に成功していても
この程度の頭脳。比例計算すら間違える。

https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4

頭が不器用で算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。

http://i.imgur.com/ArPaux9.png

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大なんて卒業していたら職員から馬鹿にされてしまうだろうから。

法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

中が見えない袋の中に白もしくは黒の碁石が100個入っている。
白黒の内訳については情報がなく白がn個(n=0,1,2,..99,100)個入っている確率はすべて等しいとする。
中を見ないで10個の碁石を取り出したら全部、黒であった。

　(1)残り90個から中を見ないで10個取り出すとその10個の中に含まれる白の碁石の数の期待値を求めよ。

　(2)残り90個の中から何個以上取り出せば90%以上の確率で白が含まれるか？

尚、元ネタの、エロ本の自動販売機に含まれる無修正本の話に適用すると。
　(2)　10冊がハズレだったときにあと何冊買えば無修正本を入手できる確率が90%を超えるか？

>>58
お前さらに遥か下じゃん
私立医云々ってお前にとっては雲の上の話だろ？

学会じゃ、私立医は国立医の質問攻めにあってコテンパンにのされてるよ。

困惑する私立医に浴びせられる会場からの冷笑。

そして仕方なしにフォロー入れる座長の苦笑。

>>63
どこの脳内学会だ？

>>63
学会の前にこの板で笑い物のお前って何なん？

>>63
俺はシリツ卒が演者の講演は聞かないことにしている。

学会講演の演者の紹介で最初に卒業大学が述べられるけど、シリツ卒だと恥ずかしいね。

>>62
同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く奴は国立卒の俺からすると、
別世界の人間の振る舞いであることには同意。

ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
　無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95％信頼区間を求めよ。

400年に97回の閏年を考慮したシミュレーション

calc <- function(n) sample(1:366,n,rep=TRUE,prob=c(rep(400-97,365),97))
sim <- function(n) 366 - length(table(calc(n)))
y=replicate(1e6,sim(n))
BEST::plotPost(y,xlab='non-birthday')

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

>>68
どこの脳内国立でどこの脳内学会かなぁ？

>>72
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
　無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95％信頼区間を求めよ。
即答できたら下記の認識を修正する。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

>>66 私立医の演者とか聞く必要なし　さっと別会場に行く！

>>73
お前どこにも入れてないからこんなところで喚き散らしてるんだろ。

免疫機能は低下しても過剰になっても良くない。TNF-αを免疫の指標として考える。TNF-α(高感度）0.75〜1.66(参考値)(pg/mL) 　http://test-guide.srl.info/chuo/test/detail/01217A102
　呪文：「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると免疫が正常化するという仮説を検証してみる。

TNF-α0.75〜1.66(参考値)(pg/mL) （これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々１００個つくる。負になった場合は検出限界以下として０にする。
https://i.imgur.com/AxmqSzq.png
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTNFの値、縦軸にTNFの変化（呪文後−呪文前）をグラフしてみると
https://i.imgur.com/khF2q1C.png

つまり、呪文前のTNFが高いほど呪文後はTNFは下がり、呪文前のTNFが低いほど呪文後のTNFは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。

回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.1476 0.1258 9.122 9.72e-15 ***
before -0.9321 0.1026 -9.088 1.15e-14 ***
---
Residual standard error: 0.2049 on 98 degrees of freedom
Multiple R-squared: 0.4573, Adjusted R-squared: 0.4518
F-statistic: 82.59 on 1 and 98 DF, p-value: 1.155e-14

p-value: 1.155e-14 なので有意差ありとしてよい。
ゆえに、「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は免疫を正常化させる。

COVID-19の免疫低下や免疫暴走の制御に「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文が有用であることが示唆されたｗ

>>75
シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

>>77
お前もっとバカじゃん

>>72
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
　無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95％信頼区間を求めよ。
即答できたら下記の認識を修正する。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

>>79
おいジジイ。
いつになったら医師免許出すんだよ？

国立医：国家が責任をもって医師を養成する公的機関

私立医：私法人が高利で教育を売る単なる営利私学校

>>80
95%信頼区間はいつになったら出すんだよ。

識者の見解

数学 統計に詳しい人が語るコロナウイルス ☆2
https://rio2016.5ch.net/test/read.cgi/math/1596506253/417

417 名前：１３２人目の素数さん[] 投稿日：2021/01/18(月) 00:53:43.58 ID:00TjG9Tw
まあ、匿名掲示板で身分を云々することほど不毛なことはないからね。

決定的におかしなことでも言ってなければ、他人が自称する身分を否定
する必要はないでしょ。

逆に、何を言っても信じない人は信じないしね。

ある国は半径2の円形をしており、人口は4億人である。
円の中心にある地点Tから距離r離れると人口密度はTのそれの1/(1+r)になる。
いまTから距離1の地点Mで地震が発生した。地震による死者数の密度はMからの距離をsとして1/(1+s)に比例する。
地震による死者の総数が4000万人であったとき、Mからの距離xが1≦x≦2の区間の生存者数を100万人の単位まで求めよ。

Wolframで二重定積分させようとしたらタイムアウトした。
分割してRで計算。

"
密度1/sqrt((x^2+y^2)*((x-1)^2+y^2))を
x=r*cos(th)
y=r*sin(th)
と変換しえて
(1/r)*1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)
ヤコビアンを勘案して
1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)
"

# 全体 ∫[0,2π](∫[0,2] 1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)dr)dΘ
f <- function(th) log(2-cos(th)+sqrt(2^2-2*2*cos(th)+1)) - log(1-cos(th))
f=Vectorize(f)
A=integrate(f,0,2*pi)$value

# ドーナツ ∫[0,2π](∫[1,2] 1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2) dr)dΘ
f12 <- function(th) log(2-cos(th)+sqrt(2^2-2*2*cos(th)+1))- log(1-cos(th)+sqrt(1^2-2*1*cos(th)+1))
f12=Vectorize(f12)
B=integrate(f12,0,2*pi)$value

B/A*4000

>>82
ここは非医が来ていい場所じゃないからね。

身分を云々言うんだったら自称国立医()ってのも証明しようがないわけだ。

証明できたところでこんなところで喚くしか能がない時点で社会と5chの底辺に違いはないんだけどさ笑

>>83
こっちのほうが楽だった。pracmaはベクトルの外積計算でしか使ってなかった。

密度z = 1/((1+sqrt(x^2+y^2)) * 1/(1+sqrt((x-1)^2+y^2)))を
x=r*cos(t)
y=r*sin(t)
としてヤコビアンをかけて
A＝∫[0,2π]∫[0,2] r/(1 + r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2)) dr dt　
B＝∫[0,2π]∫[1,2] r/(1 + r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2)) dr dt
を求める
"
library(pracma)
f <- function(r,t) r/(1+r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2))
(A=integral2(f, 0,2,-pi,pi)$Q)
(B=integral2(f, 1,2,-pi,pi)$Q)
B/A*4000

ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
　無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95％信頼区間を求めよ。
即答できたら下記の認識を修正する。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

>>88
国立はおろか私立も入れないジジイw

非医が医者を語ったところで社会では誰も相手にしてくれない。

半日だけのアルバイト先で医師免許書原本要持参とか面倒くさい。

国立医：国家が責任をもって医師を養成する公的機関

私立医：私法人が高利で教育を売る単なる営利私学校

カネで入ったクズ

IDも変えて必死だね

高須克弥&#10004;@katsuyatakasu

僕も裏口入学だよ。母子家庭の開業医で父親が卒業生で一次試験の成績がよかったので、
二次試験は死んだ父親をよく知っている教授が担当してくれて世間話だけ。入学金も半額に負けてくれた。
昭和医大は人情のわかる素晴らしい大学だった。
何が悪い。

ま、私立医は　クズですねｗ

高須は美容整形なのに内科も診れるとか嘘つくから嫌い

社会的成功者の高須先生と社会的敗者のウリュ爺どっちが生きてる価値ある？

巨額脱税2回　公職選挙法違反

人間の屑　私立医高須ｗ

>>98
クズよりクズってどう思う？

https://egg.5ch.net/test/read.cgi/hosp/1611470695/
フルボッコだねw

高校数学の質問スレPart409
https://rio2016.5ch.net/test/read.cgi/math/1608682829/968

968 名前：１３２人目の素数さん[] 投稿日：2021/02/11(木) 22:31:13.46 ID:rRY3Jqc0
>>966
だってそいつは都合の悪いレスは全て同一人物に見える糖質詐欺の卑怯者だもの
お前も同一人物認定されるぞ

>>100
見てきた。
そのスレは以前から、裏口容疑者のシリツ医はフルボッコされているね。

典型的な投稿

https://egg.5ch.net/test/read.cgi/hosp/1592662437/73

73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや

↑　私立医＝医者もどきに爆笑〜　
アップルティー　吹きましたわｗ

私立医大卒の医者は頭が悪いと言うよりも毒親に育てられた人が多いと思う。
まあこれは最近は国立卒の親にも多いんだけどね。
元々親が開業医又は勤務医で、毒親がどうしても医者にさせたいので、子供の頃から
やれ塾だ、やれ家庭教師だ、と無理やり勉強させられて、親の都合で医者を目指すように
仕向けられてる。中には小学校受験のために幼稚園の時から塾に通わさせられてる。

うちの姉の子供のことだけどね。
元々医者になんかなりたくないのに親の都合で無理やり勉強させられるんだから、
そりゃあ勉強しないわ。

本来は子供の時は海や山で遊んで、自然から学ぶことも多いと思うんだけど、小学校の
時から遊びたい気持ちを抑えて机についてるんだから、そりゃあ性格も歪むわな。

毒親に育てられた子供は本当にかわいそうだよ。

毒親は自分の子供をペットか何かと間違えてるわ。
自分の虚栄心を満たすために子供を医者にさせてる。
そりゃあ勉強しないので勉強なんか出来るわけないわ。

関口直樹
女をモノだと思ってるデブハゲ精神科医
ちょっとかじっただけなのに内科と救急医を名乗ってる勘違い医師
本当に人の気持ちがわからない酷い医師なので最悪でした

ウリュウのジジイって頭の中アップデートできないみたいだね。

https://egg.5ch.net/test/read.cgi/hosp/1611470695/

非医ってここで喚くしか能がないよね。
社会にも5chにも相手にされないんだからさ。

国立医　落チテ　私立医ノ　辱メヲ　ウケズ

いつもお寒いレスご苦労様。

物心ついて　自分の親父が私立医卒って知った子供は
大いに傷つくらしいねｗ

トケジは裏口入学すら許されないもんねw

blue screen wallpaper

https://wallpapersafari.com/bsod-wallpaper-1920x1080/

いまだに、次の議論のどこが間違っているかを指摘できたシリツ医はいないな。


免疫機能は低下しても過剰になっても良くない。TNF-αを免疫の指標として考える。
TNF-α(高感度）0.75〜1.66(参考値)(pg/mL) 　http://test-guide.srl.info/chuo/test/detail/01217A102
　呪文：「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると免疫が正常化するという仮説を検証してみる。

TNF-α0.75〜1.66(参考値)(pg/mL) （これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々１００個つくる。負になった場合は検出限界以下として０にする。
https://i.imgur.com/AxmqSzq.png

同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTNFの値、縦軸にTNFの変化（呪文後−呪文前）をグラフしてみると
https://i.imgur.com/khF2q1C.png

つまり、呪文前のTNFが高いほど呪文後はTNFは下がり、呪文前のTNFが低いほど呪文後のTNFは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。

回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.1476 0.1258 9.122 9.72e-15 ***
before -0.9321 0.1026 -9.088 1.15e-14 ***
---
Residual standard error: 0.2049 on 98 degrees of freedom
Multiple R-squared: 0.4573, Adjusted R-squared: 0.4518
F-statistic: 82.59 on 1 and 98 DF, p-value: 1.155e-14

p-value: 1.155e-14 なので有意差ありとしてよい。
ゆえに、「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は免疫を正常化させる。

COVID-19の免疫低下や免疫暴走の制御に「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文が有用であることが示唆されたｗ

身内は国立医に行ってほしい！

私立医にも入れないジジイが喚いたところで負け惜しみだけどな。

>>113
https://docs.microsoft.com/en-us/windows-hardware/drivers/debugger/forcing-a-system-crash-from-the-keyboard

>>111
どうせ子供も裏口シリツに進学だから、その心配はないね。

裏口だろうが何だろうが医学部入学できない、医者になれなかったからここで喚くしかできないだろ？ルサンチマンもここまでくると哀れ。

国立医の証明ができてからほざけ。
まあ国立医だったとしてもここまで歪んでたらどのみち人生終わってるけどな。

どのみちトケジはゴミ。

>>80
95%信頼区間はいつになったら出すんだよ。

識者の見解

数学 統計に詳しい人が語るコロナウイルス ☆2
https://rio2016.5ch.net/test/read.cgi/math/1596506253/417

417 名前：１３２人目の素数さん[] 投稿日：2021/01/18(月) 00:53:43.58 ID:00TjG9Tw
まあ、匿名掲示板で身分を云々することほど不毛なことはないからね。

決定的におかしなことでも言ってなければ、他人が自称する身分を否定
する必要はないでしょ。

逆に、何を言っても信じない人は信じないしね。

>>123
医師免許はまだか？

５年生の夏、都内のさる有名研修病院の病院見学にいきました。
その日は５人の医学生が参加していました。
自己紹介しあいましたが、さすがに有名病院だからでしょうが、皆さん国立医でした。
当日は研修統括部長が不在とかで、内科医長が院内を案内してくれました。

研修医詰め所をみせてもらって時です。

「うちは20数名研修医がいるんだけど、皆優秀で勉強好きだから頼もしいよ」
「ほとんどが国公立卒だな〜」

そう説明しながら、ある机に通りかかると、その机の本棚には立派な洋書ばかりが並んでおり、
和書が少ないくらいでした。

「この机は・・・・Ｈ君だな」と内科医長がつぶやきました。

(続く^^)

「彼はＡ私立医大卒なんだが、まあまあ研修に付いてきてるようだ。だいぶマシになったよ」と
言いながら、一冊の洋書を手に取り、パラパラとめくった後、

「なんだ、全然使ってないじゃないか」
「こういうのを宝の持ち腐れっていうんだ」
と医長は吐き捨てました。

そしたら、一人だけ、研修医室で仕事中だった先輩研修医殿(東大でした)が
「それは本人は使ってないけど、僕らがたまに使わせてもらってます」
「僕らは英語読めますから〜」
と言い、ニヤリと笑みを浮かべます。

一同大爆笑でした。

後から、皆と情報交換しましたが、私立医が、全体の研修レベルを落すとかで、
どこの病院も採用する側は本当に困ってるようでした。

t=seq(-pi,pi,le=30)
Q=4*cos(t)+4i*sin(t)
A=6+0i
P=(Q+A)/2
plot(Re(Q),Im(Q), xlim=c(-4,6),asp=1,pch=1:9,col=1:9)
points(Re(P),Im(P),pch=1:9,col=1:9)

>>126
シリツ医大には化学の講義で
「モルってなんですか」と質問する学生がいるらしい。

>>91
知り合いの紹介だとそんなのは求められないし、
中抜きもない。

ド底辺医大の三法則　

1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

医者コンプウリュウの3法則
1.とにかく私立医が妬ましくて仕方ない
2.医者である証拠は何一つない
3.同じ書き込みしかできない

埼玉医科大学病院抗がん剤過剰投与事件

2000年9月、右あご下腫瘍治療のために埼玉医科大学総合医療センターに入院した
埼玉県鴻巣市の女子高生（当時16歳）が、化学療法の一つである「VAC療法」
（硫酸ビンクリスチン・アクチノマイシンD・シクロフォスファミドを組み合わせる療法）を
受ける際、硫酸ビンクリスチン2mgを週1回12週間にわたって投与されるべきところを、
医師の文献の誤読により1週間連続で投与された。
その結果、患者は同年10月7日に多臓器不全で死亡した。
事故後、医師による説明に不信感を持った両親が110番通報をし、事件が発覚した。

担当研修医が英語文献を読めず、週一回投与(Weekly)を連日投与(daily)と解釈したために
抗癌剤の大量投与につながったことが判明している。

>>131
1.とにかく私立医が妬ましくて仕方ない


いやー、さすがにそれは無いっしょｗ

いや第一原則こそが全てだろ

私立医大卒医は勝ち組。
上級国民だよ。

だってお金がなかったら本来は医者じゃ
無かったかもしれない連中なんだよ。

残念ながらウリュウのジジイはどのみち医者になれなかったけどな。

https://www.asahi.com/articles/ASP2J6G53P2JOIPE011.html

愛知知事リコール署名「一部は佐賀で」　活動団体認める
2021/2/16 22:08 会員記事

　美容外科「高須クリニック」の高須克弥院長らによる愛知県の大村秀章知事へのリコール署名で16日、複数のアルバイトが佐賀市で署名簿の書き写しに関わっていたとされる一部報道を受け、署名活動団体の事務局長が、署名簿の一部について「佐賀で作成されたのは間違いない」と認めた。ただ、事務局がアルバイト募集に関与したことは否定。「高須氏からしっかり調べるよう言われた」と事実確認する考えを示した。

高須氏
私は報告を受けていません
で貫き通すつもり?

私立医　高須　無様だなｗ

"ある数が3の倍数の時3で割り、そうでなければ2を足す
これを1になるまでくりかえす

初めの数字を12とした場合　1になることはない理由を答えなさい
また2020番目の数字を答えなさい
"

a=numeric()
i=1
a[i]=12
while(a[i]!=1 & i<2020){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a[1:50]
a[2020]

>>139
この程度の頭脳。比例計算すら間違える。

https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4

nu_de <- function(n,print=T){
de=ceiling(-1/2+sqrt(1+8*n)/2)
nu=de-(de*(de+1)/2-n)
if(print) cat(paste0(n,':',nu,'/',de,'\n'))
nu/de
}
nu_de=Vectorize(nu_de)

fn <- function(n) length(unique(nu_de(1:n,F)))
fn(2021)

f <- function(n,m=2020){
a=numeric()
i=1
a[i]=n
while(a[i]!=1 & i<m){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
c(i,a[i])
}
f=Vectorize(f)
x=0:1010*2+1
y=t(f(x))
y[y[,1]==max(y[,1]),]
x[y[,1]==max(y[,1])]

f <- function(n){
a=numeric()
i=1
a[i]=n
while(a[i]!=1){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
c(i,a[i])
}
f=Vectorize(f)
x=0:500000*2+1
y=t(f(x))
y[y[,1]==max(y[,1]),]
x[y[,1]==max(y[,1])]

f <- function(n){
a=numeric()
i=1
a[i]=n
while(a[i]!=1){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a
}
data.frame(f(531443))

愛国者　高須は　昭和卒だねｗ

>>146
脱税は裁判で確定だっけ？

とあるド底辺シリツ医大から無作為に学生１０人を抽出して偏差値を調査したところ
低い順に　40 45 46 47 49 52 52 56 69 72であったとする。
偏差値の分布は不明である（正規分布を仮定できない）。
予備校の公表値では偏差値55で合格とされているとき
この医大の裏口入学（偏差値55未満での入学)の割合を推定せよ。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

Collatz <- function(n){
m=n
i=1
re=NULL
while(m!=1){
re=append(re,m)
m=ifelse(m%%2,3*m+1,m%/%2)
i=i+1
}
re=append(re,m)
re
}
Collatz(27)
plot(Collatz(97),type='l')

lmc <- function(n){ # length and max of collatz
co=Collatz(n)
c(length=length(co),max=max(co))
}
n=1:1e6
y=t(sapply(n,lmc))
tail(y)

> lmc(837799)
length max
525 2974984576

>>147 2回も巨額雑税している
個人の額としては日本至上最高額の脱税

それが昭和卒　高須

ルサンチマンジジイの僻みは留まることを知らずw

こんなことに税金使うな！と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い
天皇を侮辱するな！と言ってた連中が陛下の名を語り犯罪に手を染める…

もう高須達はリコール開始当初の大義なんて完全に見失ってるよな

年配者＝老害
としか考えられない人って親の愛情に恵まれない哀れな人生を
送ってきたのだろうな。

>>148
解説文は飛ばしてRのコードだけ読めばブートストラップが使える。
https://mjin.doshisha.ac.jp/R/Chap_44/44.html
母集団の推定平均値の信頼区間はだせるから
裏口率は点推定できる。

矩形波のフーリエ変換のグラフ

sumf <- function(x,n,fun,start=0){ # (1/4)Σsin((2n+1)θ)/(2n+1)
re=0
for(i in start:n) re=re+fun(x,i)
re
}
sumf=Vectorize(sumf,vectorize.args = 'x')

par(mfrow=c(2,2))
n=0 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=2 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=10 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=100 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
layout(1)

>>148
simpleboot便利だな。
一々、sampleする関数を組まなくてもすむ。

library(simpleboot)
b.mean=one.boot(data=X,FUN=mean,R=5000,student = TRUE,M=5000)
boot.ci(b.mean)


X=c(40,45,46,47,49,52,52,56,69,72)
sim <- function(){
b=simpleboot::one.boot(X,mean,R=5000)
mean(b$t<55)
}
sim()
y=replicate(1e3,sim())
BEST::plotPost(y,col=4,showCurve = T)

昭和医大は　日本最大のペテン師　高須を生み出した私立医！

>>155
高齢者はむしろ死んでもらったほうが日本のために良い
http://imgur.com/0KDNdPj.png


ジジババが死ねばニッポンはこうなる
http://imgur.com/C00EP6c.jpg

日本の総資産の大半を65歳以上の老人が貯め込んでて
若者はお金も無くて青色吐息。

払った以上の年金を貰えるのもこの世代。

そりゃあ文句の1つも言いたくなるだろ。

高須　男なら自決せよ！

# 信頼区間算出
# 算術平均
y.mean=replicate(1e3,sim(mean))
BEST::plotPost(y.mean,col=4,showCurve = T)
# 幾何平均
y.geo_mean=replicate(1e3,sim(function(x) exp(mean(log(x)))))
BEST::plotPost(y.geo_mean,col=4,showCurve = T)
# 調和平均
y.harmonic_mean=replicate(1e3,sim(function(x) 1/mean(1/x)))
BEST::plotPost(y.harmonic_mean,col=4,showCurve = T)
# 中央値
y.median=replicate(1e3,sim(median))
BEST::plotPost(y.median,col=4,showCurve = T)
# 最頻値
y.mode=replicate(1e3,sim(mode))
BEST::plotPost(y.mode,col=4,showCurve = T)

裏口、脱税、リコール署名偽造とか、恥ずかしくないのはシリツだからか？

結局、算術平均での推定が裏口率が一番低く見積もられた。

発展問題

とあるド底辺シリツ医大から無作為に学生１０人を抽出して偏差値を調査したところ
低い順に　40 45 46 47 49 52 52 56 69 72であったとする。
偏差値の分布は裏口率を甘く見積もられる正規分布を仮定する。
文科省から裏口入学は1割以下にせよと行政指導が内々に伝えられたとする。
合格基準偏差値をいくつ以下に設定すれば推定裏口率を１以下にできるか計算せよ。

>>167
数値を変えても算出できるように関数化してグラフにした。
https://i.imgur.com/TUngLQk.png
まあ、ド底辺シリツ医大として妥当な数値だな。

>>165 高須は私立医どころか医師の一般評価すら歪ませている最悪の存在
今回の不正リコールで、医道審議会で免許取り消しもあるかもな

"
千円札を500円玉1個、100円玉4個、50円玉1個、10円玉4個、5円玉1個、1円玉5個に両替してもらった。
(1)釣り銭なしで買い物ができる金額は1円からはじめて何通りありますか？
(2)5円の買い物は5円玉1個で支払いと1円玉5個での支払いの二種類の支払い方があります。
このように複数の支払い方が可能な金額は何通りありますか？
"
rm(list=ls())

coins= rep(c(500,100,50,10,5,1),c(1,4,1,4,1,5))
coin2payable <- function(x){
payable=NULL
n=length(x)
for(i in 1:n){
cmb=unique(gtools::combinations(n,i,v=x,set=FALSE))
payable=c(payable,apply(cmb,1,sum))
}
table(payable)
}
y=coin2payable(coins)
length(y)
max(y)
sum(y==max(y))
as.numeric(which(y==max(y)))

"
(1)小銭入れに500円玉100円玉50円玉10円玉5円玉1円玉がそれぞれ1、５、２、５、２、５個入っていた。
釣銭なしで買い物できる金額は何種類ありますか？
(2)支払い可能な組み合わせの数が最も多いのは何円の買い物をするときで何通りありますか？
"
coins2=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5))
y2=coin2payable(coins2)
plot(y2,col=4,ylab='frequency')
length(y2)
max(y2)
which(y2==max(y2))

>>169
選挙結果を覆しうるリコール運動で不正って、選挙制度の根幹を毀損する悪質な犯罪だと思う。

FFT　
http://www.measlab.kit.ac.jp/R_language.html

ラグビーの福岡のことか

自己回帰モデルAR(2)でのシミュレーション
当たるも八卦当たらぬも八卦だな。
　https://i.imgur.com/1loj68d.png

rm(list=ls())
par(mfrow=c(3,3))
for(i in 1:9){
n=120
n0=100
m=2
y=numeric(n)
coef=rnorm(m)
y[1:m]=runif(m) ; y[1:m]
coef
for(i in (m+1):n){
y[i]= sum(coef*y[i-(1:m)]) + rnorm(1)
}
plot(y,type='l')
obj=ar(y[1:n0])
y.predicted=predict(obj,n.ahead=n-n0)
lines((n0+1):n, y.predicted$pred, col=2,lwd=2)
lines((n0+1):n, y.predicted$pred + 1.96*y.predicted$se, col = 2, lty = 3)
lines((n0+1):n, y.predicted$pred - 1.96*y.predicted$se, col = 2, lty = 3)
}
layout(1)

低速フーリエ変換、逆フーリエ変換

## Slow Discrete Fourier Transform (DFT) - e.g., for checking the formula
fft0 <- function(z, inverse=FALSE) {
n <- length(z)
if(n == 0) return(z)
k <- 0:(n-1)
ff <- (if(inverse) 1 else -1) * 2*pi * 1i * k/n
re=vapply(1:n, function(h) sum(z * exp(ff*(h-1))), complex(1))
if(inverse) re/n else re
}
fft0(1:4)
fft0(fft0(1:4,inverse=T))
fft0(fft0(1:4),inverse=T)

a1+a2+a3=M
a1×a2×a3=N
が自然数解(0<a1<a2<a3)を3組(以上)持つような最小のMを求めよ

calc <- function(){
n=3
nmax=10000
M=N=NULL
for(a in 1:nmax){
for(b in 1:a){
for(c in 1:b){
M=c(M,a+b+c)
N=c(N,a*b*c)
if(max(table(M))==n & max(table(N))==n) return(list(M,N))
}
}
}
}
calc()

朝飯前に計算が終わらん。

>>177
library(numbers)
fn <- function(n,kumi=4){
n1=divisors(n) ; n1
n2=n/n1 ; n2
n12=cbind(n1,n2) ; n12
f=function(x){
d=divisors(x[2])
d1=d[d<=sqrt(x[2])]
d2=x[2]/d1
cbind(x[1],d1,d2)
}
re=NULL
for(i in 1:nrow(n12)){
re=rbind(re,f(n12[i,]))
}
g <- function(x){
length(unique(x))==3
}
re=re[apply(re,1,g),]
re=unique(t(apply(re,1,sort))) ; re
sum_a=apply(re,1,sum) ; sum_a
tbl=table(sum_a) ; tbl
idx=as.numeric(names(tbl[tbl==kumi])) ; idx
ans=re[sum_a==idx,] ; ans
if(length(ans)) print(ans)
}

nn=1:1e7
DEL=sapply(nn,fn)

松尾の実践編がんばるぞ

今は知らないけど底辺私立ってマーチぐらいの学力で受かってたよ
決して頭がいいとは言えない、必死で努力もしてない
雑念が溢れていると思う、入学してからも色々なオプションに大金を支払って
医者になれるなら凄いんじゃないの？よくやると感心するよ
マーチぐらいなら誰でもちゃんとやれば受かるよ
そりゃ必死で努力した人にとっては妬ましいかもね
努力してない人は興味もないと思うよ

で載せて載せた逃げれる酷い逃げれる願うネタ根ネ野盧迺陳野之之騎呑宣延埜申埜乗せて載せて載せて載せて載せて載せて飲むノリノリ載せても手に入らJOYWMDWないとアビトラ案件熱くなる人も居るけど、待ち時間中JOYWMDWにauDMWJTTJJ冷めてくる人も居ると思う。NASAない治って大和NASA NASA wasないしないし
冷静になって考えたら、金無垢とJOYWMDWはいえ手巻きのの時計に300ランゲ発熱派始める始められない始める歯発熱始める始められ momdjjkない派発熱発熱発熱始めるtmmmwmmjjmegggtrjadagi_@taj始められない万ってアビトラ案件おかしいとアビトラ案件思う。。。笑はよね？？」ララ」の寝る日暇なネノのメメの
しかもほぼ非防水で普段使いには適さない時計なのに。・さーjtmjjttjjtttj症とワクチンについて＠auAJTNWTJKWDJNJSJTDJJT専門家の父に聞いてみた」です。
アメブロ「腐女医が行JOYWMDW awmttgtwく！」 ぼちぼちPWEXKJJJOYWMDW描いてます。ツイートWNOJKJAJ momdjjkはアビトラ案件アビトラ案件極めて不真面目！Twittermt momdjjk momdjjk&#9410;&#65039;&#127358;&#65039;mjtvxwWODAGST買お心が注いでそのかほ補佐派のの

俺は地方の国立医学部卒だけどあまり頭は良くないよ
必死で努力はしたけど、大概の人はそれができない
IQも測定したけど110ぐらい
東大なんか一生かかっても受からない
頭脳の性能が違うと思う
俺なら底辺私立医学部に入学して
医者になるほうが難しいと思う、なんか理不尽すぎるもん
モチベーションを維持できなくなるかも
底辺私立歯学部、薬学部もなんかおかしいし
医療はモラルを捨て去って商才があれば簡単に稼げるから
邪な奴には医者になってほしくないね

普通は冗長化したシステムで、遠隔システム組んでりゃちょうどよさそうなのにね。
FNWの評価版みた？
あれは同一シリーズであれば集中モニタでパラメータ触らせる前提の設計だぞ。｡｡｡｡｡｡｡｡
またスタッフ減らせるな！｡｡｡｡｡｡｡｡。。。。。。。。。。。。。。。
クラークさんでもええかも。(言われたとおりに操作させる的な、？？？？。。。。。。。。｡｡｡｡｡｡｡｡｡｡｡｡

発信者情報開示請求照会書届いた人の相談スレ 11 [無断転載禁止]&#169;2ch.net･
https://mao.2ch.net/test/read.cgi/shikaku/1460951498/

>>174
元一流スポーツ選手で将来医者
ウリュウのジジイとは何もかも対極でワロタ

633 名前:ニューノーマルの名無しさん :2021/02/23(火) 03:07:35.00 ID:gzdsTPOX0
>>620
前半同意、非常に同意。
俺も保守だから安倍政権も高須のやり方も大嫌いだ。
竹田の皇統解釈も不愉快だ。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

526 名前:名無しさん＠恐縮です [sage] :2021/02/23(火) 03:54:14.57 ID:9uwh2UB80
おざといな

M=12
x=t(combn(M,2))
x=x[apply(x,1,function(x) sum(x)<M),]
x3=apply(x, 1, function(y) M - sum(y))
cbind(x,x3)

>>182
比例計算できないとか、化学の講義でモルって何ですか？　とか質問しないだろ？
シリツ医大にはそういう低学力の学生がいるってこと。

脱税するほど金儲けしても、この程度の頭脳。
比例計算すら間違える。

https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4

>>186
社会的共通資本をメインテナンス、すなわち保守するのが保守の真髄だから、
安倍らの集団は保守ではないね。

2 名前:名無しさん＠お腹いっぱい。 :2021/02/01(月) 19:04:07.64 ID:9d4X9686
【悪のDS】
TLCは悪徳マルチ商法です
タカヒロはこの悪徳マルチを販売しています
上場すると嘘の説明をして販売
TLCはどこで使うことも換金することもできません
完全な詐欺商品です
返金を求めて返金されずトラブルが多発しています
非常に嘘つきで朝鮮人のように息を吐くように嘘を付きます
カルト宗教統一教会とリンクしています
また顔が不細工であることを気にしているので不細工と書かれると自演でイケメンと工作しています
しかし公開された顔はまぎれもない不細工でゲロ顔です

13 名前:名無しさん＠お腹いっぱい。 [sage] :2017/07/30(日) 14:32:41.41 ID:E1o+wFKD
写真

# 価格から小銭での支払い方法を表示する
how2pay <- function(
price,
coins=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)),
verbose=TRUE
){
n=length(coins)
counter=0
for(i in 1:length(coins)){
comb=unique(gtools::combinations(n,i,v=coins,set=FALSE))
for(j in 1:nrow(comb)){
if(sum(comb[j,])==price){
counter=counter+1
if(verbose)cat(counter,':',comb[j,],'\n')
}
}
}
return(counter)
}
how2pay(555,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)))
how2pay(610,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)))

１０００までの素数を表示する。

> (1:1000)[-(2:1000) %*% t(2:1000)][-1]
[1] 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
[22] 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181
[43] 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307
[64] 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433
[85] 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571
[106] 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701
[127] 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853
[148] 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997

>>183
42 名前:人類発祥の名無しさん :2019/01/17(木) 23:38:31.75 ID:j38jGUmo
ホテル・ルワンダ→ブラックホークダウン
と観るのと、
ブラックホークダウン→ホテル・ルワンダ
と観るのとでは天地違うくらいに意味が変わる。

モガディシュの戦いは、1993年10月3日、
ルワンダの虐殺は、1994年4月から……。

10円玉、50円玉、100円玉が3枚ずつ合計480円あります。
お釣りがもらえない店で買い物をすると10円から480円までの商品が買えます。
お釣りを要求したりお釣りはいらないというと何も売ってもらえません。

(1)商品価格は10円単位として何通りの価格の商品が買えますか？

(2)480円以下で買うことのできない商品の価格ををすべて答えなさい。

(payable=coin2payable(rep(c(100,50,10),c(3,3,3))))
length(payable)
yen=seq(10,480,10)
freq=sapply(yen, function(y) how2pay(y,rep(c(100,50,10),c(3,3,3)),verbose = F))
names(freq)=yen
yen[freq==0]

福岡と比べると惨めすぎる人生だなウリュ爺よ

大塚憲の為のスレかな

そんなに頭いいなら医者以外でも稼げるでしょ？
今の時代パソコン一台で億万長者になれる時代なのに

785 名前:ニューノーマルの名無しさん :2021/02/23(火) 11:25:02.78 ID:XKOT2/W90
おふくろがドライアイだから
感染防止にメガネかけるようには言ってた
こんなの最初から判ってる事なのに注意喚起なさすぎ
咽頭も乾燥すると唾液の流れが滞るからスカスカの布マスクでも
ウイルス感染防止効果は充分にあるんだぞ？

【速報】大村知事リコール、死者が8000人も署名していた ★7 [potato★]
https://asahi.5ch.net/test/read.cgi/newsplus/1614075920/

【悲報】高須克弥｢リコールは河村市長から頼まれ、応援団長として会見に行ったら市長が来なくて僕が代表にされた！僕は素人なんです｣★6 [potato★]
https://asahi.5ch.net/test/read.cgi/newsplus/1614048163/

ラグビーの福岡が私立医大に行って馬鹿かと思ったｗ

祖父が開業医で、父が歯科開業医、
福岡は自称名門の順天ｗ

元プロ選手で将来医者か
ウリュウのジジイとは違い華々しい経歴だな

【悲報】高須克弥、会見でうっかり本音が漏れる「今度こそ勝てると思います。こんな卑怯なことをしなくても！」 [potato★]
https://asahi.5ch.net/test/read.cgi/newsplus/1614046857/

さすがは脱税王　私立医高須だぜ！

さすがはエセ医者王ウリュウだぜ！

なんで私立医の分際で　高須は
東大卒　大村に喧嘩を売ったのか？

地頭の差で勝てるわけがない！

実際、高須私立医は惨敗した

こんなことに税金使うな！と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い
天皇を侮辱するな！と言ってた連中が陛下の名を語り犯罪に手を染める…

もう高須達はリコール開始当初の大義なんて完全に見失ってるよな

リコールされるのはお前だろ
リコールされる前に廃棄処分かも知れないが

馬鹿順天の福岡

>>180
今時医者なんてだれも羨ましいと思わない。
はっきりいってバカだけが医者になりたがる。
俺は自分の息子は医者にはさせなかった。

>>182
コロナ禍に対する医師会の態度を見てみろよ。
ひたすら自分たちの儲けのことしか考えてないだろ。
邪そのものじゃん。

>>191
まあ、保守ではないわな。
安倍さんは安全保障では成果をそれなりに挙げたけどね。

>>190
無茶言うなよｗ
お前な、底辺私立卒にmolを理解させるなんて無理だぞｗ

>>187
それな。
底辺私大なんてバカ相手に金儲けのためにやってるとしか思えん。
跡取りは旧帝大卒で親の経営している底辺大学には絶対入らないｗ

高須は　私立医の面汚し　昭和医大の廃棄物

社会の廃棄物がほざいてる

PC→管理→ディスクの管理　：　ドライブ割当

sim <- function(n,white=5,black=5){
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
ball=list(picked=NULL,rest=rep(1:0,c(white,black)))
n_rest=length(ball$rest)
score=0
counter=0
while(counter < n){
status=pick(ball$rest,1)
score = score + (if(status$picked==1) 1 else rbinom(1,1,2/6))
ball$rest=status$rest
counter=counter+1
}
score
}

# n=2 score=2
MASS::fractions(20/90*1/3*1/3 + 50/90*1/3 + 20/90) ; 35/81
mean(replicate(1e5,sim(2)==2))

# n=4 score>=2
mean(replicate(1e6,sim(4)>=2))

>>218
選挙結果を覆しうるリコール運動で不正って、選挙制度の根幹を毀損する悪質な犯罪だと思う。
民主主義の根幹を犯罪で汚そうとしている。

>>217
ド底辺シリツ医大なんぞに入ったら理事長とかの肩書があっても職員から見下されるだろうね。

>>216
返還された北方領土に米軍基地を設置しない確約はできないことをプーチンに指摘されて領土を失ったよ。
ダレスの恫喝をきちんとプーチンは理解していた。
ポツダム宣言と原発投下の時系列すら理解せずに大学を卒業したアホが安倍晋三。

>>223
底辺私立大学に入るメリットはない。
金と時間の無駄。

>>224
おいおい、英語ができるんだから英米の安倍に対する論評を読めよ。
ロシア政策に関しては失敗だと俺も思うな。

旧帝大を出て美容外科ってのもな・・・・
底辺私大ならわかるが。

医者じゃない奴が何言っても無駄なんだよ。
医師免許持ってから出直しておいで。

「太田総理･･秘書田中」で、えなりが言いました。

えなり「私立医大には二次方程式も出来ない奴が入学している。」
えなり「私立医大には二次方程式も出来ない奴が入学している。」
えなり「私立医大には二次方程式も出来ない奴が入学している。」

結局医者コンプかよ

国立医は凄いですよ〜
私立医は馬鹿でしょｗ

>>230
非医はもっとバカw

えなりも国立医に関しては東大なみって誉めてるけど
私立医は馬鹿にしてるもんなｗ

だから何なんだよ？そんな暇があったらパソコンで一山当ててみろ
人の悪口ばかりいう人で優秀だった奴なんて一人もいない
集中力がない、雑念にまみれている

>>232
えなりもお前もどうせ今の私立医なんか入れないからただの遠吠え。

n=1000
pmax=floor(sqrt(1000))
p=(1:pmax)[-outer(2:pmax,2:pmax)][-1]
f=function(x) all(x%%p!=0)
length((2:n)[sapply(1:n,f)])

福岡選手には正々堂々と国立医に進学して欲しかったな〜
私立医へ裏口入学するなんて、頭が足りなかったのかな？

>>236
ここに粘着してるなんてよっぽど頭が足りないんだな

>>228
二次方程式どころか一次方程式すら立式できないシリツ医もいるんだよ。

シリツ医のこれが現実

１次方程式もできないド底辺特殊シリツ医大卒の記録
http://imagizer.imageshack.com/img923/2715/RosCsf.jpg


何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ？
裏口入学以外に説明がつく？
中学生でも解ける一次方程式の問題だろ。

それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか？
だとさ。
http://imagizer.imageshack.com/img923/9687/zNivZW.jpg


0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ？
裏口入学以外に説明がつく？
http://imagizer.imageshack.com/img923/5683/vMw9nv.jpg

>>238
よっぽど今の受験を知らないんだな。

>>232
昭和の御代の話だが旧設国立大学医学部の方が理一より偏差値が高かったな。
二期校時代なので医学部の滑り止めに理一を受験した俺みたいなのも同期に何人かいた。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

「5で割ると3あまり、7で割ると5あまり、9で割ると2あまる整数のうち1兆にもっとも近いのは何でしょう？」

今の受験といえばこれ！

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。

>>244
お前の知ってることはそれだけ？

福岡選手は、現役時も一浪時も国立医には受からず
長じて私立医進学とかｗ

なさけねーっすｗ

>>245
シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

これからも逃げまくり

>https://egg.5ch.net/test/read.cgi/hosp/1607310274/28

後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、
ソースはあんの？

思ったより短いコードで解決できた。


#「最大値が最小値の2倍の、それぞれ異なる13つの自然数」の最小公倍数の最小値はどうやって求めたらいいでしょうか
rm(list=ls())
f <- function(nmax=27720,N=13,showALL=FALSE){
library(numbers)
y=divisors(nmax)
y=y[y>(N-1)]
re=NULL
for(i in 1:length(y)){
if((2*y[i]) %in% y){
i2=which(y==2*y[i])
if((i2-i)==(N-1)){
re=y[i:i2]
cat(re,':','LCM =',mLCM(re),'\n')
if(!showALL) break
}
}
}
invisible(re)
}
f()
vf=Vectorize(f)
DEL=vf(13:27720)
DEL=vf(27720:50000)
DEL=vf(15:100000,N=15)

>>247
残念だね。その底辺私立医にも入れないなんて。

>>246
お前も元プロ選手なのか？
福岡と比べるとあまりに惨めな人生だから僻んでるだけだろ？

福岡より文武両道の医者、医大生がどこにいるんだ？
ましてや医師免許も持ってない奴がほざいたところでただの嫉妬でしかない。
ウリュウのジジイは福岡がラグビーして勉強して医学の道を目指してた年齢の時何してたんだ？どうせ福岡みたいなやつを僻み散らかして何もしなかったから今この惨状なわけで。

そもそも医者が文武両道である必要性は無い

福岡って　現役時も一浪時も国立医を落ちてんのなｗ
そりゃ三度目は私立医へ裏口トライ！するよなｗ

福岡そんなに羨ましい？

福岡選手　私立医へ裏口入学　おめでとう！

よっぽど悔しいんだね。

# 立方体（辺の長さ=1)の内部の３点A,B,Cを通る平面での断面
DiceCut <- function(A,B,C){
a1=A[1];a2=A[2];a3=A[3]
b1=B[1];b2=B[2];b3=B[3]
c1=C[1];c2=C[2];c3=C[3]
N=pracma::cross(A-B,A-C) # 外積で法線ベクトルを得る
n1=N[1]
n2=N[2]
n3=N[3]
# n1(x-a1)+n2(y-a2)+n3(z-a3)=0
# z=(n1*(x-a1)+n2*(y-a2))/(-n3) + a3
g <- function(x,y) (n1*(x-a1)+n2*(y-a2))/(-n3)+a3
g=Vectorize(g)
x=seq(0,1,length=201)
y=seq(0,1,length=201)
gr=expand.grid(x,y)
z=apply(gr,1,function(xy) g(xy[1],xy[2]))
gr=cbind(gr,z)
colnames(gr)=c('x','y','z')
xyz=gr[0<=z & z<=1,]
rgl::plot3d(xyz,col='skyblue')
}
DiceCut(c(1,1,1),c(1/2,0,0),c(0,1/2,0))
DiceCut(c(1,1,0),c(1/3,0,0),c(0,0,1/4))
DiceCut(c(1,1/2,1/3),c(1/3,0,0),c(0,0,1/4))

>>258
悔しいのう。

トケジ、スレタイも読めない

# 20cm×10cmの楕円形ステーキを2:1に分割
steak_cut <- function(phi=2,a=20/2,b=10/2){
eclps <- function(x) b*sqrt(a^2-x^2)/a
f <- function(x) integrate(eclps,-a,x)$value
xcut=uniroot(function(x) f(x)- (pi*a*b/2)*(phi/(1+phi)),c(-a,a))$root
Plot(-a,a,-b,b,bty='n')
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col=2,lwd=5); lines(x,-y,col=2,lwd=5)
seg(xcut-1i*eclps(xcut),xcut+1i*eclps(xcut),lty=4)
c(x=xcut,length=2*eclps(xcut))
}
steak_cut(2,20/2,10/2)

>>260
スレタイの結論は　然り　で終了だから、　ここは草稿の備忘録。

シリツ医が反論せずに逃げまくる正論

川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

これからも逃げまくり

>https://egg.5ch.net/test/read.cgi/hosp/1607310274/28

後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、

国立医に落ち続けて
結局　私立医に裏口トライした福岡が文武両道とかｗ

私立医はお高いですねｗ

>>262
どのみち非医のお前には関係のない話だからな。

ココ↓は？
https://twitter.com/ReversalSystems/status/1028644666143432704
https://twitter.com/5chan_nel (5ch newer account)

これからも将来もみんなに期待され続けている福岡
これからも晩年も誰にも相手にされていないからここで発狂するしかやることのないトケジ
どっちの人生がいい？

相手にするな、一生パソコンに張り付いて独り相撲してろ

# m^n=n^mを満たす自然数は2,4の組み合わせのみ
# m^(1/m)=n^(1/n)
f <- function(x) x^(1/x)
curve(f(x),0,30,xlab='x^(1/x)',bty='n')
optimise(f,c(0,20),maximum = TRUE)
points(0:30,f(0:30),pch=19)

福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ

pizza_cut <- function(phi, r){
circle <- function(x) sqrt(r^2-x^2)
f <- function(x) integrate(circle,-r,x)$value
x=uniroot(function(x) f(x)- (pi*r^2/2)*(phi/(1+phi)),c(-r,r))$root
Plot(-r,r,bty='n')
Cir(0i,r)
seg(x-1i*circle(x),x+1i*circle(x),lty=5)
c(x=x,length=2*circle(x))
}
pizza_cut(2,30/2) # 直径30cｍのピザを2:1に分割
pizza_cut(1/2+sqrt(5)/2,1) # 半径1cmの金貨を黄金比に切断

# 20cm×10cmの楕円形ステーキを2:1に分割
steak_cut <- function(phi=2,a=20/2,b=10/2){
eclps <- function(x) b*sqrt(a^2-x^2)/a
f <- function(x) integrate(eclps,-a,x)$value
xcut=uniroot(function(x) f(x)- (pi*a*b/2)*(phi/(1+phi)),c(-a,a))$root
Plot(-a,a,-b,b,bty='n')
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col=2,type='h',lwd=3); lines(x,-y,col=2,type='h',lwd=3)
seg(xcut-1i*eclps(xcut),xcut+1i*eclps(xcut),lty=4)
c(x=xcut,length=2*eclps(xcut))
}
steak_cut(2,20/2,10/2)

# 20cm×10cmの楕円形ステーキを60°の角度で切って2:1に分割
rm(list=ls())
source('toolmini.R')

SteakCut <- function(phi=2,a=20/2,b=10/2,deg=60,...){# phi:1 分割比　
th=deg*pi/180 # a:長径 b:単径 deg:切断角度
eclps <- function(x) b*sqrt(a^2-x^2)/a
larger <- function(x){
P=x-1i*eclps(x)
t=tan(th) ; p1=Re(P) ; p2=Im(P) # solve b*sqrt(a^2-x^2)/a=t*(x-p1)+p2 for x
x0 = (a^2*p1*t^2-a^2*p2*t+sqrt(a^4*b^2*t^2-a^2*p1^2*b^2*t^2+2*a^2*p1*p2*b^2*t-a^2*p2^2*b^2+a^2*b^4))/(a^2*t^2+b^2)
Q=x0+1i*eclps(x0)
q1=Re(Q)
integrate(function(x) eclps(x)-(-eclps(x)),-a,p1,rel.tol=1e-12)$value +
integrate(function(x) eclps(x)-(t*(x-p1)+p2),p1,q1,rel.tol=1e-12)$value
}
p1=uniroot(function(x) larger(x)- pi*a*b*phi/(1+phi),c(-a,a),tol=1e-12)$root
P=p1-1i*eclps(p1)
t=tan(th) ; p1=Re(P) ; p2=Im(P)
q1 = (a^2*p1*t^2-a^2*p2*t+sqrt(a^4*b^2*t^2-a^2*p1^2*b^2*t^2+2*a^2*p1*p2*b^2*t-a^2*p2^2*b^2+a^2*b^4))/(a^2*t^2+b^2)
Q=q1+1i*eclps(q1)
Plot(-a,a,-b,b,bty='n',...)
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col='maroon',type='h',lwd=2); lines(x,-y,col='maroon',type='h',lwd=2)
axy(tan(th),P,p1,q1,lty=4,lwd=2)
list(P=P,Q=Q,Length=abs(P-Q)) # P-Q:切断線 Length:長さ
}

SteakCut(phi=2,a=20/2,b=10/2,deg=60,axes=FALSE) ; axis(1)

厳密解は多分だせないだろうな。
数値積分で出した値で描画。

https://i.imgur.com/DHwEDBo.png

そのわけのわからんくだらん数式を応用して金になる
プログラムでも書いてみたら？日本の医者なんて世界的に見れば
大した待遇じゃな

>>269
本音ではトケジも医者になりたかったんだ
でも頭が悪すぎてここに粘着するしかなくなったんだ
福岡はいままでもこれからも期待される人生だというのに

当直医スレでついに非医自白か
このオツムじゃ当然医者になれないわな

福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ

裏口トライ！

>>277
うんうん、でもプロ選手じゃ仕方ないよ
誰にも真似できないし
でもお前はどうなんだ？福岡と比べると目も当てられない惨状じゃないか

不正入試も？医学部受験の闇
https://www.youtube.com/watch?v=lZvXM8h1KxE&;ab_channel=%E3%82%B3%E3%83%90%E3%82%B7%E3%83%A7%E3%83%BC%E3%80%90CASTDICE%E5%A1%BE%E9%95%B7%E3%80%91

この動画をみれば私立医学部入試のおかしさがわかる。
俺は息子は国立に行かせたし俺も国立出身。
ちな息子も俺も東北大学です。

>>276
統計学とプログラミングができるから頭が悪いとは思わない。
これまでの投稿の内容を見ると医科歯科大出身も嘘ではないと思う。

>>279
国立卒の医師は堂々と卒業大学を名乗れる。母校に誇りがあるからね。
新型コロナで首都の国立大学の使命を果たしている母校を誇りに思う。

俺の勤務先に附設の老健でクラスター発生したのでその苦労はよくわかる。

>>280
統計？プログラム？
医者になるために必要なことか？
非医だからそんなことも分からないんだね。

大体医科歯科大なんてこいつが言ったのか？
もう自分で自演ですって言ってるようなものじゃんw
バカは死ななきゃ治らないのかな？

rm(list=ls())
source('toolmini.R')
library(rgl)
# xyz空間において
# 1≦(1+x^2)(1+2y^2)(1+4z^2)≦8
# を満たす点(x,y,z)全体からなる領域の体積を求めよ。

x=y=z=seq(-3,3,length.out=200)
f <- function(x,y,z){
a=(1+x^2)*(1+2*y^2)*(1+4*z^2)
1<=a & a <= 8
}
gr=expand.grid(x,y,z)
idx=mapply(f,gr[,1],gr[,2],gr[,3])
b=gr[idx,]
plot3d(b,col=4,xlab='x',ylab='y',zlab='z')
nrow(b)/nrow(gr)*6^3
binom.test(nrow(b),nrow(gr))$conf*6^3

【リコール不正】高須克弥さん「河村市長の勧めがなかったらリコールなんかしなかった」 ★3 [和三盆★]
https://asahi.5ch.net/test/read.cgi/newsplus/1614659906/

筑波大学の非医だった福岡ですら
余裕の順天合格よｗ

国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ

>>286
で？お前は？
まさか医師免許持ってないの？

# θを0<θ≦π/2の実数の定数とする。
# 曲線C:y=1-x^2(-1≦x≦1)を原点中心にθだけ回転させたとき、
# Cが通過しうる領域の面積をθで表せ。

https://i.imgur.com/BSVX3IG.gif

rot <- function(x,y,theta){
z=x+1i*y
r=Mod(z)
th=Arg(z)
x1=r*cos(th+theta)
y1=r*sin(th+theta)
return(c(x1,y1))
}

f <- function(th,...){
re=t(mapply(rot,xy[,1],xy[,2],th))
lines(re,...)
}

x=seq(-1,1,by=0.01)
y=1-x^2
xy=cbind(x,y)

plot(xy,xlim=c(-2,2),ylim=c(-2,2),type='l',asp=1,bty='n',col=1)
text(0,0,'.')
theta=seq(0,pi/2,length=25)
for(i in theta){
f(i,col=1)
Sys.sleep(1)
}

>>282
統計学は必要だよ。
そんなこともわからないなんて非医だろ。

>>289
それに固執してること自体非医の証。

低学力の医者ってアウトだよね。
英語が読めないとかさ、終わってるよ。

https://egg.5ch.net/test/read.cgi/hosp/1608978546/

385 卵の名無しさん[] 2021/03/02(火) 10:55:27.20 ID:ERQdQO6O
私立医が低脳ってよくわかるよね
非医相手に必死な割に毎回同じことばかり　
とじげとかうりょうとかｗ

やっぱ馬鹿なんだろうねｗ

やっぱり非医か。
語るに落ちたな。本当バカだね〜

>>292
自分で非医だと暴露。
これじゃ誰も相手になんかしてくれないよね。最初からわかってたけど。

10回の試行でアタリ玉は1個が7回、0個が3回であった。

pB_A1=choose(10,7)*dhyper(1,1,4,2)^7*dhyper(0,1,4,2)^3
pB_A2=choose(10,7)*dhyper(1,2,3,2)^7*dhyper(0,2,3,2)^3
pB_A3=choose(10,7)*dhyper(1,3,2,2)^7*dhyper(0,3,2,2)^3
pB=pB_A1+pB_A2+pB_A3

# A1:アタリ玉1個 A2:アタリ玉2個 A3:アタリ玉3個 B:データ
# P[A|B] = P[B|A]P[A]/P[B]

統計できない人は進級させなくていいですから

でグーグル検索すると母校の教授の話としてヒットする。

赤玉白玉がが同数の混ざった玉の中からカジノ業者が色をみないで無作為に５個の玉を取り出して袋にいれた。
赤白の内訳はカジノ業者も知らないが、赤玉２個白玉３個はいっているという触れ込みで
２個取り出して両方が赤玉であれば賞金がもらえるというギャンブルを始めた。袋から取り出した玉は各回毎に元に戻す。

両方が赤玉である確率は1/10なので10回やれば1回は賞金が貰えると考えた太郎君は10回のギャンブルを行った結果、
赤1個白1個の組み合わせが7回、白2個の組み合わせが3回であった。

太郎君は「このギャンブルはイカサマだ、赤玉1個しか入っていない」と言い出した。
太郎君の主張が正しい確率を求めよ。

非医ってことには何も言えないのか？

# a を100未満の自然数とする
# 命題：pが素数なら p^4 + aは素数でない　
# が真であるようなaを求めよ

> unique(sort(c(A[!aTF],B[!bTF])))
[1] 4 5 9 11 14 17 19 23 24 29 35 38 39 41 44 47 49 53 54 59 62 64 65 69 71 74 77 79 80 83 89 95 99

筑波大学の非医だった福岡ですら
余裕の順天合格よｗ

国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ

あーあ　非医の福岡にすらコケにされちゃってｗ

>>297　第三法則実証乙


ド底辺医大の三法則　

1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

>>297
>296の答はド底辺シリツ医のド底辺頭脳じゃ無理だろ。

137814358602979799126269559751600/748288900227117976246866338434667

シミュレーションで検算

sim <- function(){ #
(bib = rbinom(5,1,0.5)) # 業者が５個の玉を取り出して袋にballs in bag　
(gmb=replicate(10,sum(sample(bib,2)))) # 10回のギャンブルを行った(赤の個数を記録)
c(R0=sum(gmb==0),R1=sum(gmb==1),R2=sum(gmb==2),Bag=sum(bib))
}
re=t(replicate(1e6,sim()))
f370 <- function(x) all(x[1:3]==c(3,7,0))
r370=apply(re,1,f370) # R0=3,R1=7,R2=0の個数
re370=re[r370,]
sum(re370[,4]==1)/nrow(re370) # そのうちBag=4の割合

>>292
何しろ自ら自白したんだからなぁ。
ここにいるどの医者の足元にも及ばないゴミということが。

そんなに福岡が妬ましいか？
お前は国立も私立も無理だろ？

人生が受験の時点で止まってんだろ
実に愚かだ、まともに働けばくだらないことは
考えなくなる。そんなに頭がいいのであれば
パソコンを使って稼ぐことも可能なはず
何もせずに掲示板で独り相撲することこそ
人生を浪費している、可能性を潰している
医学部なんかどうでもいい話

>>305
大半の人が20歳までにカタがつくことにいつまでも執着し続ける万年浪人生メンタルのままジジイになったらこんな悲惨なことになるといういい反面教師ですな。
オツムがまともだったらどうしていつまでもここで粘着してるのかな？
ルサンチマンで人生塗りつぶされるなんて哀れだね。

底辺私立医大卒の医者こそ勝ち組だろ。

だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。

小中学校範囲の算数・数学の問題のスレ　Part 56
https://rio2016.5ch.net/test/read.cgi/math/1599118661/539

539 名前：１３２人目の素数さん[] 投稿日：2021/02/12(金) 05:27:03.80 ID:xF7Wd+i1
>>538
申し訳ありません。
そういう返し方、勿体つけかた、セコさが、昔の職場にいたセクハラキモ男とそっくりで、
どうしても受け付けません。もういいです。
イナ様や他の方に期待します。

> re
[1] 165 195 255 405 435 465 555 885 975 1035
[11] 1095 1125 1245 1335 1395 1605 1725 2145 2175 2265
[21] 2475 2565 2715 3105 3405 3435 3495 3615 3705 4005
[31] 4275 4545 4605 4635 4845 4995 5085 5295 5325 5535
[41] 5745 5955 6165 6255 6435 6855 6975 7515 7545 7725
[51] 7845 7995

>>307
お前が負け組であることに変わりはないけどな。

国立医に馬鹿と言っても華麗にスル〜

私立医に馬鹿と言ったらムキになるｗ

非医はまともな日本語も書けないからつつくの楽しいねw

おいジジイ
いつになったら医師免許だすんだよ
非医だとコケにされたままでいいのか？

https://egg.5ch.net/test/read.cgi/hosp/1607687111/
トケジはここがお似合い

毎日毎日私立医のことばかり考えて羨ましくて仕方なくてでも罵倒されるだけの人生、社会にも家族にも必要とされない人生なんか虚しくないのかねぇ？

この時期、みな国立医の合格発表を待っている！
受かった勝ち組は、滑り止めの私立医を蹴る　蹴る　蹴る

福岡が受かった順天も毎年２００人強に蹴られている！

そして国立医に落ちた情けない馬鹿だけが私立医へ行く！　
否　行かざるを得ない！
そして払うんだ　何千万も！
国立医なら年間たった６０万くらいで済んだのに・・・

学会　研究会　医師会会合

私立医は国立医からの侮蔑の視線を浴び続ける。
MRも内心馬鹿にしているｗ
親父が低脳私立医と知った自分の息子・娘からも
軽蔑される

それが低脳　底辺　裏口　私立医ぃぃぃぃ

# Note the use of the '.' function to allow
# group and sex to be used without quoting
ddply(.data=dfx, .variables=c('group', 'sex'), summarize,
mean = round(mean(age), 2),
sd = round(sd(age), 2))

# Summarize a dataset by two variables
dfx <- data.frame(
group = c(rep('A', 8), rep('B', 15), rep('C', 6)),
sex = sample(c("M", "F"), size = 29, replace = TRUE),
age = runif(n = 29, min = 18, max = 54)
)
head(dfx)

# Note the use of the '.' function to allow
# group and sex to be used without quoting
ddply(.data=dfx, .variables=.(group,sex), summarize,
mean = round(mean(age), 2),
sd = round(sd(age), 2))

# An example using a formula for .variables
ddply(baseball[1:100,], ~ year, nrow)
ddply(baseball[1:100,], 'year', nrow)
ddply(baseball[1:100,], .(year), nrow)
# Applying two functions; nrow and ncol
ddply(baseball, .(lg), c("nrow", "ncol"))

>>316
お前は社会から侮蔑され続けてるからな。笑

トケジって哀れだね
どの医学部にも入らなくてここに粘着するしかやることがないんだもん毎日
まるで地縛霊
誰にも除霊できないね

底辺私立医大卒の医者こそ勝ち組だろ。

だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。

トケジは私立医も入れなかったから真の負け組だね。

まあそう僻むな。
どうあっても医者には向いてなかったってだけさ。
でもさぁここで僻み散らかすよりマシな人生はなかったの？って話だけどw

> # 52枚のトランプから無作為に１枚づつ引いてハートのカードが3枚になるまで続ける
> # 引いたカードの枚数の期待値と最頻値を求めよ。
> y=replicate(1e5,sim2(n2=13,n3=52-13,N2=3))
> BEST::plotPost(y)
> summary(y)
Min. 1st Qu. Median Mean 3rd Qu. Max.
3.00 8.00 11.00 11.36 14.00 36.00
> as.numeric(names(which.max(table(y))))
[1] 9

ド底辺医大の三法則　

1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

>>325
ニセ医者をニセ医者と言って何が悪い？
それにお前も決めつけてるよね。とんだダブスタだな。
それすら理解できないオツムじゃ医者なんか務まらないね。

一生ここで僻み続ける人生なんて哀れだね。

# 52枚のトランプから無作為に１枚づつ引いてハートのカードが3枚になるまで続ける
# 引いたカードの枚数の期待値と最頻値を求めよ。
# 7枚め以内にハートが3枚集まる確率を求めよ。

BEST::plotPost(y,xlab='???',col='pink',compVal=7)
summary(y)
as.numeric(names(which.max(table(y))))
mean(y<=7)

>>326
残念でした。俺、東京医科歯科大学医学部卒なんだよ。
>279のように国立大学を卒業していたら抵抗なく卒業大学を名乗れる。
母校に誇りがあるからね。

新型コロナで首都の国立大学の使命を果たしている母校を誇りに思う。

んで、あんたどこ卒？

>>328
枚数の分布を図示。
https://i.imgur.com/dgblnVy.png

教養課程での日本史の教授の研究テーマは　聖徳太子と法華経　だったなぁ。
いまは聖徳太子ではなくて厩戸王が推奨されるらしい。
時代が変わったものだ。
まぁ、シリツ医大が裏口というのは時代が変わっても不変みたい。
なんせ、僕も裏口入学だよと公言して憚らないシリツ医がいるわけだし。

2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

この時期、みな国立医の合格発表を待っている！
受かった勝ち組は、滑り止めの私立医を蹴る　蹴る　蹴る

福岡が受かった順天も毎年２００人強に蹴られている！

そして国立医に落ちた情けない馬鹿だけが私立医へ行く！　
否　行かざるを得ない！
そして払うんだ　何千万も！
国立医なら年間たった６０万くらいで済んだのに・・・

学会　研究会　医師会会合

私立医は国立医からの侮蔑の視線を浴び続ける。
MRも内心馬鹿にしているｗ
親父が低脳私立医と知った自分の息子・娘からも
軽蔑される

それが低脳　底辺　裏口　私立医ぃぃぃぃ

↓図星を突かれた私立医が入れ食いだ〜

>>329
はいはい、だったら卒業証明なり医師免許なりで名乗ってください。
それか匿名掲示板で身分なんか証明しようがなかったんじゃなかったの？

トケジはどんなにバカにされても社会にも家族にも居場所がなくてここにすがるしかないんだよね、ウンウン

いつになったらニセ医者疑惑晴れるのかな？
楽しみだよ。

東北大卒になったり医科歯科卒になったり忙しいねぇw

https://stackoverflow.com/questions/39878813/ggplot-geom-bar-meaning-of-aesgroup-1

group="whatever" is a "dummy" grouping to override the default behavior,

ggplot(data = mpg, mapping = aes(x = class, y = hwy)) +
geom_boxplot()
ggplot(data = mpg, mapping = aes(x = class, y = hwy)) +
geom_boxplot() +
coord_flip()

ATPさん　2021/2/21 16:48
ラグビー福岡選手が裏口って言っている人達がいるんですけど？??

疑惑点まとめ…

現役・一浪時と国立医不合格(一浪時も筑波大学・医に落ちて筑波大学一般学部に進学）
10年位のブランク有り
ラグビーしながら一年？で順天堂に合格
10月まで理科一科目のみの勉強
Twitterで合格報告の1時間後にYMSに合格体験記が掲載
（この日はラグビーの試合に出ていたので、予め合格体験記を作成していた事になる）
週刊誌に帝京と東海大学医学部が第一志望郡と語っているのに、これらの滑り止め校の合格報告、
順天堂と同レベルの医学部の合格報告は一切無し
12月に劇団四季に通うInstagramを投稿
（東京医科大学の不正くんも、受験直前にInstagramにて海外で遊ぶ投稿）
今年から急に一般枠が1名増える
順天堂大学の先生もおめでとうリプライ（試験監の可能性もあるのに）
順天在校生から、受験前からラグビー福岡が入学するとの噂が流れる

彼も本当に正規受験なら、彼の合格点を自身でツイ−トすればいいです。
合格点は本人には開示してくれます。
ただ順天堂を単願で受験は普通はあり得ないし、疑惑のトライと思われても
仕方ないと思います

裏口トライ！

>>324
draft

# 5枚目で3つ揃うのは4C2=6通り
# 1:ハート、0:ハート以外として

# 11001
(13-0)/(52-0) * (13-1)/(52-1) * (39-0)/(52-2) * (39-1)/(52-3) * (13-2)/(52-4)

10101
(13-0)/(52-0) * (39-0)/(52-1) * (13-1)/(52-2) * (39-1)/(52-3) * (13-2)/(52-4)
# ../

# 00111
(39-0)/(52-0) * (39-1)/(52-1) * (13-0)/(52-2) * (13-1)/(52-3) * (13-2)/(52-4)


n=5
f(n) <- function(n){
sum(choose(n-1,2)*prod(13-(0:2))*prod(39-(0:(n-4)))/(choose(52,n)*factorial(n)))
}
f(5)/6

n=1:(39+3)
n*f(n)

>>336
んであんたどこ卒？
第二法則実証乙。

人物の鑑別すらできないド底辺シリツ医。

医科歯科の教養課程での日本史の教授の研究テーマは　聖徳太子と法華経　だったなぁ。
いまは聖徳太子ではなくて厩戸王が推奨されるらしい。
時代が変わったものだ。
まぁ、シリツ医大が裏口というのは時代が変わっても不変みたい。
なんせ、僕も裏口入学だよと公言して憚らないシリツ医がいるわけだし。

この法則も普遍みたいだな。

2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

>>341
鑑別つくかよ。匿名なのに。
自称医科歯科w証明しようがないのに名乗っても仕方ないんだろ？

俺は天下の東京理三卒！
医科歯科なんか雑魚だ！
これで満足か？

まあこういうことだろうなトケジは

能力なし
家族なし
資産なし
社会的地位や信用もなし
あるのは自慢にもならない統計コピペ能力だけ
すでに人生手遅れであとは事故物件作成待ち

そうだきっとすべて私立が悪いんだおれは悪くないぞ〜ってことでしょう

ださいね

>>328
厳密解を計算させる方が乱数発生でのシミュレーションより簡単だった。
昼飯前に完成してしまった。
午後から何をするかなぁ。

f <- function(n){
if(n>(39+3)|n<3) return(0)
else
if(n==3) choose(n-1,2)*prod(13-(0:2))/(choose(52,n)*factorial(n))
else
choose(n-1,2)*prod(13-(0:2))*prod(39-(0:(n-4)))/(choose(52,n)*factorial(n))
}
f=Vectorize(f)
n=1:52
Prob=f(n)
plot(n,Prob,type='h',col='red',lwd=7)
sum(n*f(n))
sum(f(1:7))

教育】大学医学部の定員削減も、厚労省　20年度から検討

私立医がバカにされまくってるぞ〜ｗｗｗｗ

3 ：名無しさん＠１周年：2016/05/20(金) 06:36:49.48 ID:3fqpA+ed0
アホの私立を減らせ

10 ：名無しさん＠１周年：2016/05/20(金) 06:57:50.18 ID:777EKBO+0
私立だけ無くして下さい

170 ：名無しさん＠１周年：2016/05/20(金) 19:33:13.65 ID:NSQbvGLR0
私立医大を減らせよ

国公立は、そのままか増やしてもいいだろう

医者に御馬鹿さんはイラン！

189 ：名無しさん＠１周年：2016/05/20(金) 20:36:50.56 ID:emePzeqD0>>186
そりゃ私立医は三教科軽量入試だからな、

フル教科必須の国立医とは全然レベルが違う。

その私立医偏差値も三教科で出されたインチキ偏差値だよ。

>>345
一般化してみる。

# C(=52)枚のカードにH(=13)枚のアタリが含まれる,アタリがA(=3)枚集まれば終了。
# n枚めで終了する確率。
fn <- function(n,C=52,H=13,A=3){
if(n>(C-H+A)|n<A) return(0)
else
if(n==A) return(prod(H-(0:(A-1)))/(choose(C,n)*factorial(n)))
else
return(choose(n-1,A-1)*prod(H-(0:(A-1)))*prod(C-H-(0:(n-A-1)))/(choose(C,n)*factorial(n)))
}
fn=Vectorize(fn,vectorize.args='n')

ジョーカー1枚を含むトランプ53枚から無作為に1枚ずつ引いてくる。
引いたカードは元にも戻さない。
4種類のスートのカードを引くか、
3種類のスートのカードとジョーカーを引いたら
終了とする。
終了までに何枚ひいたかをあてる賭けをする。何枚にかけるのが最も有利か？

非復元抽出はわりと面倒。まあ、ド底辺シリツ医大卒は元に戻せない。
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}

sim <- function(){
drawn=NULL
length(unique(drawn))
cards=c(0,rep(1:4,13))
flg <- length(unique(drawn))==4
counter=0
rest=cards
while(!flg){
temp=pick(rest)
drawn=append(drawn,temp$picked)
rest=temp$rest
flg <- length(unique(drawn))==4
counter=counter+1
}
counter
}
y=replicate(1e5,sim())
hist(y)
summary(y)
BEST::plotPost(y)
table(y)
which.max(table(y))
mean(y>=7)