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

**卵の名無しさん** · 2021/02/11(木) 07:31:22.59

タイトルまんまです

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

※前スレ
底辺私立医大を卒業した頭悪いよね？
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/

**卵の名無しさん** · 2021/02/26(金) 22:15:55.99

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

**卵の名無しさん** · 2021/02/26(金) 22:17:42.90

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

**卵の名無しさん** · 2021/02/26(金) 22:21:19.36

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

**卵の名無しさん** · 2021/02/26(金) 22:29:12.49

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

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

**卵の名無しさん** · 2021/02/26(金) 22:30:47.00

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

**卵の名無しさん** · 2021/02/26(金) 22:54:24.08

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

**卵の名無しさん** · 2021/02/27(土) 10:23:41.04

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

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

**卵の名無しさん** · 2021/02/27(土) 12:05:25.08

結局医者コンプかよ

**卵の名無しさん** · 2021/02/27(土) 13:25:22.70

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

**卵の名無しさん** · 2021/02/27(土) 14:02:09.06

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

**卵の名無しさん** · 2021/02/27(土) 21:22:52.29

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

**卵の名無しさん** · 2021/02/27(土) 22:59:01.10

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

**卵の名無しさん** · 2021/02/28(日) 04:40:46.41

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

**卵の名無しさん** · 2021/02/28(日) 11:38:28.60

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)])

**卵の名無しさん** · 2021/02/28(日) 12:43:49.45

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

**卵の名無しさん** · 2021/02/28(日) 13:01:36.70

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

**卵の名無しさん** · 2021/02/28(日) 13:05:36.04

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

**卵の名無しさん** · 2021/02/28(日) 13:06:41.38

シリツ医のこれが現実

１次方程式もできないド底辺特殊シリツ医大卒の記録
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

**卵の名無しさん** · 2021/02/28(日) 13:06:49.03

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

**卵の名無しさん** · 2021/02/28(日) 13:09:42.18

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

**卵の名無しさん** · 2021/02/28(日) 13:10:13.74

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

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

**卵の名無しさん** · 2021/02/28(日) 14:03:39.03

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

**卵の名無しさん** · 2021/02/28(日) 16:10:04.37

今の受験といえばこれ！

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

**卵の名無しさん** · 2021/02/28(日) 16:25:44.79

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

**卵の名無しさん** · 2021/02/28(日) 17:50:02.45

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

なさけねーっすｗ

**卵の名無しさん** · 2021/02/28(日) 18:38:23.05

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

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

**卵の名無しさん** · 2021/02/28(日) 18:39:04.34

これからも逃げまくり

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

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

**卵の名無しさん** · 2021/02/28(日) 18:39:38.07

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

#「最大値が最小値の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)

**卵の名無しさん** · 2021/02/28(日) 19:12:36.58

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

**卵の名無しさん** · 2021/02/28(日) 19:18:22.78

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

**卵の名無しさん** · 2021/02/28(日) 21:09:53.99

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

**卵の名無しさん** · 2021/03/01(月) 01:57:18.45

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

**卵の名無しさん** · 2021/03/01(月) 11:57:46.97

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

**卵の名無しさん** · 2021/03/01(月) 12:04:51.35

福岡そんなに羨ましい？

**卵の名無しさん** · 2021/03/01(月) 18:20:02.18

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

**卵の名無しさん** · 2021/03/01(月) 18:36:20.07

よっぽど悔しいんだね。

**卵の名無しさん** · 2021/03/01(月) 21:28:51.89

# 立方体（辺の長さ=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))

**卵の名無しさん** · 2021/03/01(月) 21:33:33.15

>>258
悔しいのう。

**卵の名無しさん** · 2021/03/01(月) 21:34:08.60

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

**卵の名無しさん** · 2021/03/02(火) 10:52:31.92

# 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)

**卵の名無しさん** · 2021/03/02(火) 10:54:17.97

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

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

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

これからも逃げまくり

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

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

**卵の名無しさん** · 2021/03/02(火) 10:56:53.29

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

私立医はお高いですねｗ

**卵の名無しさん** · 2021/03/02(火) 11:41:50.03

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

**卵の名無しさん** · 2021/03/02(火) 13:06:02.95

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

**卵の名無しさん** · 2021/03/02(火) 13:49:29.50

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

**卵の名無しさん** · 2021/03/02(火) 20:25:12.96

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

**卵の名無しさん** · 2021/03/02(火) 20:29:21.33

# 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)

**卵の名無しさん** · 2021/03/02(火) 20:48:25.97

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

**卵の名無しさん** · 2021/03/02(火) 21:02:45.39

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の金貨を黄金比に切断

**卵の名無しさん** · 2021/03/02(火) 21:03:00.48

# 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)

**卵の名無しさん** · 2021/03/02(火) 21:03:15.81

# 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)

**卵の名無しさん** · 2021/03/02(火) 21:08:26.25

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

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

**卵の名無しさん** · 2021/03/02(火) 23:50:47.98

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

**卵の名無しさん** · 2021/03/03(水) 07:04:57.81

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

**卵の名無しさん** · 2021/03/03(水) 08:01:27.64

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

**卵の名無しさん** · 2021/03/03(水) 10:33:17.44

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

裏口トライ！

**卵の名無しさん** · 2021/03/03(水) 11:47:19.98

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

**卵の名無しさん** · 2021/03/03(水) 16:02:41.35

不正入試も？医学部受験の闇
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

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

**卵の名無しさん** · 2021/03/03(水) 16:06:26.07

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

**卵の名無しさん** · 2021/03/03(水) 17:11:48.40

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

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

**卵の名無しさん** · 2021/03/03(水) 18:55:15.96

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

**卵の名無しさん** · 2021/03/03(水) 18:56:27.04

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

**卵の名無しさん** · 2021/03/03(水) 19:34:25.71

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

**卵の名無しさん** · 2021/03/03(水) 20:06:17.98

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

**卵の名無しさん** · 2021/03/03(水) 21:00:05.16

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

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

**卵の名無しさん** · 2021/03/03(水) 22:14:18.64

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

**卵の名無しさん** · 2021/03/03(水) 23:17:41.11

# θを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)
}

**卵の名無しさん** · 2021/03/03(水) 23:21:18.98

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

**卵の名無しさん** · 2021/03/03(水) 23:23:39.87

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

**卵の名無しさん** · 2021/03/03(水) 23:23:50.89

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

**卵の名無しさん** · 2021/03/03(水) 23:26:40.83

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

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

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

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

**卵の名無しさん** · 2021/03/04(木) 11:53:13.20

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

**卵の名無しさん** · 2021/03/04(木) 13:08:44.53

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]

**卵の名無しさん** · 2021/03/04(木) 13:32:07.33

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

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

**卵の名無しさん** · 2021/03/04(木) 13:59:06.74

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

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

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

**卵の名無しさん** · 2021/03/04(木) 14:52:15.23

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

**卵の名無しさん** · 2021/03/04(木) 15:15:15.13

# 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

**卵の名無しさん** · 2021/03/04(木) 15:24:34.69

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

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

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

**卵の名無しさん** · 2021/03/04(木) 15:30:32.51

>>297　第三法則実証乙

ド底辺医大の三法則　

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

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

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

**卵の名無しさん** · 2021/03/04(木) 15:32:02.62

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

137814358602979799126269559751600/748288900227117976246866338434667

**卵の名無しさん** · 2021/03/04(木) 16:34:49.68

シミュレーションで検算

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の割合

**卵の名無しさん** · 2021/03/04(木) 17:25:10.85

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

**卵の名無しさん** · 2021/03/04(木) 17:29:14.92

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

**卵の名無しさん** · 2021/03/04(木) 20:38:10.70

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

**卵の名無しさん** · 2021/03/04(木) 20:55:06.00

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

**卵の名無しさん** · 2021/03/05(金) 01:30:07.82

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

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

**卵の名無しさん** · 2021/03/05(金) 08:40:24.46

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

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

**卵の名無しさん** · 2021/03/05(金) 08:42:04.42

> 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

**卵の名無しさん** · 2021/03/05(金) 10:50:59.19

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

**卵の名無しさん** · 2021/03/05(金) 11:15:56.41

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

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

**卵の名無しさん** · 2021/03/05(金) 12:33:05.46

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

**卵の名無しさん** · 2021/03/05(金) 13:54:43.49

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

**卵の名無しさん** · 2021/03/05(金) 14:28:58.56

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

**卵の名無しさん** · 2021/03/05(金) 17:44:04.93

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

**卵の名無しさん** · 2021/03/05(金) 18:29:45.40

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

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

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

学会　研究会　医師会会合

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

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

**卵の名無しさん** · 2021/03/05(金) 19:21:47.45

# 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))

**卵の名無しさん** · 2021/03/05(金) 20:22:46.95

# 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"))

**卵の名無しさん** · 2021/03/05(金) 22:53:29.23

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

**卵の名無しさん** · 2021/03/05(金) 22:59:58.64

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

**卵の名無しさん** · 2021/03/06(土) 01:31:18.07

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

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