20/12/13 08:19:33.97 DfRUjMCZ.net
( ・∀・)ｲｲ!!など2000年代くらいの化石のような絵文字を使うのも特徴。世間と関わりがないのかボケてるのかは分からないが時間の感覚がない模様。
14:卵の名無しさん
20/12/13 15:10:44.46 b2VjH9Bw.net
>>13
実在する人物なのか？
裏口シリツ医の妄想の産物だろ？
カタカナだから外人なのかよ？
15:卵の名無しさん
20/12/13 17:08:52.84 ssAntx9N.net
>>14
>>3
16:卵の名無しさん
20/12/13 17:27:04.64 ssAntx9N.net
5chで医者のフリをして5chで吠えるしか能がない、まさしく社会のド底辺の分際で、私立医を裏口、ド底辺などと見下してる模様。
内視鏡のバイトの待ち時間などと称して5chに書き込み。
本人はウリュウは本名ではない、実在しないととぼけているが、>>3の言葉を使いわざわざそれを言及するのは本人である証拠である。
誤魔化したかったらスルーすればいいのにそれができなかった模様。自分に意見するものは裏口だの何だの決めつけてかかってくるのを棚に上げて。
イシャモドキのオツムとは所詮そんなものである。
17:卵の名無しさん
20/12/13 20:04:31.19 ssAntx9N.net
よくもまあこのスレにおめおめと現れたものだな。
18:卵の名無しさん
20/12/13 21:54:02.28 ssAntx9N.net
数学板でもプログラムおじさんと言われ煙たがられてる様子。
19:卵の名無しさん
20/12/14 00:12:15.61 OIg+dZj1.net
統計のグラフは得意顔で上げる割には医師免許はさっぱり上げない模様。
当たり前か。ない袖は振れないもんな。笑
20:卵の名無しさん
20/12/14 06:25:23.20 7NcwsnDq.net
>>18
数学板の東大卒の常連からは礼を言われる。
やはり、東大卒は礼儀も弁えている。
まあ、プログラムできない奴が僻みを書いているけどな。
ｽﾚﾘﾝｸ(math板:932番)
>>929ご指摘ありがとう。
まだだれも平面上の計算過程を示さないんで、やってみる。
21:卵の名無しさん
20/12/14 06:29:49.64 7NcwsnDq.net
こういう投稿をして正解すると、
>>940
最小二乗法じゃなくて、二次方程式の解の公式から
s=1/sqrt(ω-cos(ω)*sin(ω)+(sin(ω)/sin(ω+pi/3))^2*(2/3*pi-ω)+sin(ω)/sin(ω+pi/3)*cos(ω+pi/3)*sin(ω))
として
これを赤の面積の計算式に代入
(s*sin(ω)/sin(ω+2/3*pi))^2*(ω+2*pi/3) + s*sin(ω)/sin(ω+2/3*pi)*cos(pi-(ω+2*pi/3))*s*sin(ω) - (s^2*ω - s*cos(ω)*s*sin(ω))=2
一変数になったのでNewton-Raphson法で計算すると
> ω
[1] 0.21965843313038105
このとき
> s
[1] 2.8908840553803468
> BD=s*sin(ω)
> r=s*sin(ω)/sin(ω+pi/3)
> R=s*sin(ω)/sin(ω+2/3*pi)
> θ=ω+pi/3
> α=pi-θ
> β=θ+pi/3
> 2*s*ω + 2*r*(pi-θ) + 2*R*β
[1] 7.7048793147709809
やっと>801に辿りつけました。
22:卵の名無しさん
20/12/14 06:31:26.90 7NcwsnDq.net
こういうレスが返ってきた。
>>946
おめでとうございます！
ω= 0.219658433130380823869031210227865511015886011600894
s = 2.890884055380349526169413032955250548001032854116709
L = 7.704879314770980144746397654607571423614259038122890
23:卵の名無しさん
20/12/14 06:33:28.45 7NcwsnDq.net
複雑な積分が必要になるので数値解で定積分することになるから
プログラミングできない椰子が僻んでいるんだな。プログラムを勉強すればいいのに。
24:卵の名無しさん
20/12/14 06:35:18.51 7NcwsnDq.net
プログラムでこういう作図をした方が考えやすい。
>>893
関数が完成したので、最小値をとるときの図を作成してみた。
URLﾘﾝｸ(i.imgur.com)
25:卵の名無しさん
20/12/14 06:39:33.85 7NcwsnDq.net
小中学の算数スレの問題を裏口シリツ医は解けないと思う。
裏口容疑を晴らすためにサクッと正解してみ！
問題）
1本100円のジュースがあります。
このジュースの空き瓶5本と同じジュース一本が交換できます。
手元に100万円あります。
(1)何本買う時が一本あたりの単価がもっとも安くなりますか？
(2)そのとき何本飲めるでしょうか？
26:卵の名無しさん
20/12/14 06:48:52.52 7NcwsnDq.net
プログラムソースが読める人がいるスレではソースもアップしている。ソースが理解できずグラフ化できないようなのが
SEIRモデルの前提は現実から乖離していると難癖をつける。
"
SEIR MODEL
dS(t)/dt = mu*(N-S) - b*S(t)*I(t)/N - nu*S(t)
dE(t)/dt = b*S(t)I(t)/N - (mu+sig)*E(t)
dI(t)/dt = sig*E(t) - (mu+g)*I(t)
dR(t)/dt = g*I(t) - mu*R + nu*S(t)
mu:自然死亡率 b:感染率(S->I)
nu:ワクチン有効率(S->R) sig:発症率(E->I),g:回復率(I->R)
"
SEIRモデルのパラメータ
SEIR2 <- function(
# Parameters
contact_rate = 10, # number of contacts per day
transmission_probability = 0.01, # transmission probability
beta = contact_rate * transmission_probability, # tranmission rate
infectious_period = 20, # infectious period
gamma = 1 / infectious_period, # Prob[infected -> recovered]
latent_period = 5, # latent perior
sigma = 1/latent_period, # The rate at which an exposed person becomes infective
mu = 0, # The natural mortality rate
nu = 0 , # vaccination moves people from susceptible to resistant directly, without becoming exposed or infected.
Ro = beta/gamma, # Ro - Reproductive number.
# Initial values for sub-populations.
s = 99, # susceptible hosts
e = 0, # exposed hosts
i = 1, # infectious hosts
r = 0, # recovered hosts
# Compute total population.
N = s + i + r + e,
# Output timepoints.
timepoints = seq (0, 365, by=0.5),
...
)
有病率を１％とすると、3000人にクルーズ船でも100人の屋形船でも感染者のピークは変わらないな。
同一時間あたりのcontact_rateとtransmission_probabilityが宴会での方が高いからだろうな。
パラメータを変えてグラフを書いてみた。
URLﾘﾝｸ(i.imgur.com)
27:卵の名無しさん
20/12/14 06:51:19.42 7NcwsnDq.net
理解できる方からは
ｽﾚﾘﾝｸ(math板:12番)
こういう評価をいただいている。
28:卵の名無しさん
20/12/14 07:00:32.49 7NcwsnDq.net
ネットでこういう意見に遭遇することがあるが、
＞ガースーは法政夜間だからね?。高学歴医学部にコンプレックス持ちすぎ。学者も嫌いだし。
日本には底辺シリツ医大があるのを認識していないようだな。
シリツ医のこれが現実
１次方程式もできないド底辺特殊シリツ医大卒の記録
URLﾘﾝｸ(imagizer.imageshack.com)
29:卵の名無しさん
20/12/14 07:09:36.85 iubgbeX0.net
こういう問題も解答を出しているのは、俺とプログラムの扱える住人だけだな。
分からない問題はここに書いてね464
ｽﾚﾘﾝｸ(math板:686番)
686 名前：１３２人目の素数さん[sage] 投稿日：2020/12/12(土) 12:42:55.77 ID:qAAtXG7n
△ABCにおいて、内角である∠Aの二等分線とBCとの交点をP、直線AB,ACについて点Pと線対称の関係にある2点をそれぞれQ,Rとする。
△ABCがAB+BC+CA=3の関係を保ちながら変化するとき、△PQRの面積が最大となる△ABCを1つ求めよ。
俺の答
716 名前：１３２人目の素数さん[sage] 投稿日：2020/12/13(日) 11:33:25.17 ID:xmsEH+j9
>>703
AB=ACを考慮すれば変数が１個にできたんだな。
URLﾘﾝｸ(i.imgur.com)
別人の答
717 名前：１３２人目の素数さん[sage] 投稿日：2020/12/13(日) 13:03:51.07 ID:Fq7wqPea
うむ。
PQ = PR = 2AP sin(A/2) ≦ (AB+AC)/2・sin(A),
⊿PQR ≦ ⊿ABC・(sin A)^2,
------------------------------------------------------------------------------------------------
∠A AP AB = AC BC ⊿ABC ∠QPR PQ = PR ⊿PQR
------------------------------------------------------------------------------------------------
0° 1.5 1.5 0.0 0.0 180° 0.0 0.0
30° 1.150990482 1.19159303 0.61681394 0.354973487 150° 0.595796515 0.088743372
60° 0.866025404 1.0 1.0 0.433012702 120° 0.866025404 0.324759526
81.29264°0.689188464 0.908326913 1.183346174 0.407774266 98.70736°0.897857941 0.398428785 (Max)
90° 0.621320344 0.878679656 1.242640687 0.386038969 90° 0.878679656 0.386038969
120° 0.401923789 0.803847577 1.392304845 0.279800219 60° 0.696152423 0.209850164
150° 0.197478746 0.762999285 1.47400143 0.145541977 30° 0.381499643 0.036385494
180° 0.0 0.75 1.5 0.0 0° 0.0 0.0
------------------------------------------------------------------------------------------------
30:卵の名無しさん
20/12/14 07:11:13.57 iubgbeX0.net
それを受けて
>>717
なるほど、
三辺の和が３の二等辺三角形とわかっているから、等辺の間の角度が決まれば三角形の形が決まるんだな。
さっそく、グラフ化してみた。
URLﾘﾝｸ(i.imgur.com)
プログラムできる人間通しで、対話が成立する。
31:卵の名無しさん
20/12/14 08:20:12.02 iubgbeX0.net
分からない問題はここに書いてね464
ｽﾚﾘﾝｸ(math板:734番)
734 名前：１３２人目の素数さん[] 投稿日：2020/12/14(月) 02:32:28.71 ID:iJb9qShc
どなたかこの問題をお願いいたします
mathematicaでやってみたのですが計算過程がよく分からなくて...
URLﾘﾝｸ(i.imgur.com)
これを
確率密度関数
pdf <- function(x,k) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2)
と定積分だけで解きたい。
今日の暇つぶしネタにして、まとまったら数学板にアップしようっと。
そろそろ、内視鏡バイトの迎えのタクシーが来る時間だな。
32:卵の名無しさん
20/12/14 08:29:20.86 ebMRo6o+.net
このスレタイで本人降臨とかメンタルどうなってんだ
33:卵の名無しさん
20/12/14 08:40:50.18 OIg+dZj1.net
朝っぱらから9連続レスか。
お疲れ様です。笑
34:卵の名無しさん
20/12/14 13:06:20.23 cg4Dtd6W.net
pdf <- function(x,k=20) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2))
curve(pdf(x),0,60)
cdf <- function(x) integrate(pdf,0,x)$value
cdf=Vectorize(cdf)
curve(cdf(x),0,60)
35:卵の名無しさん
20/12/14 13:13:39.28 cg4Dtd6W.net
>>31
(draft)
# 確率密度関数
pdf <- function(x,k=20) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2))
curve(pdf(x),0,60)
# 累積分布関数
cdf <- function(x) integrate(pdf,0,x)$value
cdf=Vectorize(cdf)
curve(cdf(x),0,60)
# 逆累積分布関数
cdf_1 <- function(x) uniroot(function(p) cdf(p)-x, c(0,1e3))$root
36:卵の名無しさん
20/12/14 13:24:34.56 cg4Dtd6W.net
これでいいはず
# 確率密度関数
pdf <- function(x,k=20) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2))
curve(pdf(x),0,60)
# 累積分布関数
cdf <- function(x) integrate(pdf,0,x)$value
cdf=Vectorize(cdf)
# 逆累積分布関数
cdf_1 <- function(x) uniroot(function(p) cdf(p)-x, c(0,1e3))$root
# 下限値cを与えて95％信頼区間幅を返す
c2CI <- function(c) cdf_1(0.95+cdf(c)) - c # 95%信頼区間幅
# CI幅が最小となるｃを算出
(c=optimize(c2CI,c(0,10))$minimum)
# CIの上限値
cdf_1(0.95+cdf(c))
37:卵の名無しさん
20/12/14 13:28:19.46 O0ua0Bz5.net
他に言うことないんか？笑
38:卵の名無しさん
20/12/14 13:40:25.61 cg4Dtd6W.net
９５％信頼区間を累積分布関数の２．５％から９７．５％にすれば、それらしい値はでるけど。
それだと、
> cdf_1(0.025) ; cdf_1(0.975)
[1] 9.590752
[1] 34.16961
で信頼区間幅が24.57885
39:卵の名無しさん
20/12/14 13:41:01.35 cg4Dtd6W.net
>>37
数式あっているだろ？
裏口シリツ医には検算できんだろうけど。
40:卵の名無しさん
20/12/14 13:42:22.72 cg4Dtd6W.net
>>32
それは、実在しないド底辺シリツ医の妄想敵だよ。実在の証明が全くないし。
41:卵の名無しさん
20/12/14 13:50:46.33 O0ua0Bz5.net
シラを切るのはいいけど、ここは数学スレではなく糾弾スレなので他所でどうぞ。
スレタイも読めないなんてウリュウ確定だね。
42:卵の名無しさん
20/12/14 13:54:45.07 cg4Dtd6W.net
rm(list=ls())
source('toolmini.R')
# 確率密度関数
pdf <- function(x,k=20) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2))
# 累積分布関数
cdf <- function(x) integrate(pdf,0,x)$value
cdf=Vectorize(cdf)
# 逆累積分布関数
cdf_1 <- function(x) uniroot(function(p) cdf(p)-x, c(0,1e3))$root
# 下限値cを与えて95％信頼区間幅を返す
c2CI <- function(c) cdf_1(0.95+cdf(c)) - c # 95%信頼区間幅
# CI幅が最小となるｃを算出
(c=optimize(c2CI,c(0,10))$minimum)
# CIの上限値
(d=cdf_1(0.95+cdf(c)))
curve(pdf(x),0,60)
curve(pdf,c,d,add=T,type='h',col=4)
43:卵の名無しさん
20/12/14 13:59:43.24 cg4Dtd6W.net
# 確率密度関数
pdf <- function(x,k=20) x^(k/2-1)*exp(-x/2)/(2^(k/2)*gamma(k/2))
# 累積分布関数
cdf <- function(x) integrate(pdf,0,x)$value
cdf=Vectorize(cdf)
# 逆累積分布関数
cdf_1 <- function(x) uniroot(function(p) cdf(p)-x, c(0,1e3))$root
# 下限値cを与えて95％信頼区間幅を返す
c2CI <- function(c) cdf_1(0.95+cdf(c)) - c # 95%信頼区間幅
# CI幅が最小となるｃを算出
(c=optimize(c2CI,c(0,10))$minimum)
# CIの上限値
(d=cdf_1(0.95+cdf(c)))
par(mfrow=c(2,1))
curve(pdf,0,60,xlab=quote(chi),ylab='',axes=F) ; axis(1)
curve(pdf,c,d,add=T,type='h',col=4)
curve(pdf,0,60,xlab=quote(chi),ylab='',axes=F) ; axis(1)
curve(pdf,cdf_1(0.025),cdf_1(0.975),type='h',col=2,add=T)
44:卵の名無しさん
20/12/14 14:03:25.02 O0ua0Bz5.net
ブーストご苦労さん。
どんなにとぼけても、>>3の言葉を使ってるやつなんかウリュウ以外にいないもん。隠す気もないしその知能もないみたいだね。
スレタイも読めない老害を撲滅するためのスレです。他スレでもどんどん通報しましょう！
45:卵の名無しさん
20/12/14 16:01:08.76 SJJNnNSD.net
結局、医科歯科大卒は嘘なわけ？
医者でもないと？
46:卵の名無しさん
20/12/14 18:59:14.55 cg4Dtd6W.net
医者ならば、シリツ卒なら馬鹿である から
シリツ卒ならば、医者ならば馬鹿である が、導けるか？
という論理命題の問題を臨床適用ｗするとこうなる。
甲状腺癌ならば、未分化癌なら予後不良である から
未分化癌ならば、甲状腺癌なら予後不良である が、導けるか？
47:卵の名無しさん
20/12/14 19:01:35.83 cg4Dtd6W.net
>>45
聖徳太子と法華経 の教授がいた頃に医科歯科に入ったよ。
わかる人ならわかる、歳がばれるがｗ
48:卵の名無しさん
20/12/14 19:18:10.15 cg4Dtd6W.net
>>46
"
医者ならば、シリツ卒なら馬鹿である から
シリツ卒ならば、医者ならば馬鹿である が、導けるか？
"
"
P:医者である
Q:シリツ卒である
R:馬鹿である
"
'%=>%' = function(P,Q) !(P & !Q)
fn <- function(P,Q,R) (P %=>% (Q %=>% R)) %=>% (Q %=>% (P %=>% R))
gr=expand.grid(c(T,F),c(T,F),c(T,F))
colnames(gr)=c('P','Q','R')
data.frame(gr,fn=mapply(fn,gr[,1],gr[,2],gr[,3]))
49:卵の名無しさん
20/12/14 20:05:53.16 OIg+dZj1.net
なんかこれを聞かれたらこれ言うみたいなマニュアルができてるみたいだね。笑
これも語録として登録しておくわ。
キーワードが増えれば増えるほど特異度上がるし。
50:卵の名無しさん
20/12/14 20:12:47.45 OIg+dZj1.net
>>45
もちろん。
医科歯科卒がこんな即座に特定されるような頭の悪いレスするわけないじゃん。
51:粋蕎
20/12/14 20:18:12.92 /tHMkGKw.net
>>20
嘘つけ！何を吹かしこいとんじゃおどりゃあ！
52:卵の名無しさん
20/12/14 20:58:19.26 OIg+dZj1.net
ウリュウ君
シラを切るのも
サンリュウだ
53:卵の名無しさん
20/12/14 21:06:15.36 cg4Dtd6W.net
>>51
俺にレスくれたのは理IIだといってたな。
俺は二期校時代の受験だから滑り止めに理Iを受けたけど。
54:卵の名無しさん
20/12/14 21:09:35.07 cg4Dtd6W.net
>>50
全然、特定されてないんだが。
そういえば、医科同窓会の評議員選挙の資料が送られてきたけど、今回も棄権だな。
55:卵の名無しさん
20/12/14 21:29:42.03 OIg+dZj1.net
>>3の言葉使う奴なんか他にいないもん。口調も言ってることも毎回毎回同じで。
そもそも他人だとか架空の人物だと思ってる奴なのにわざわざここまできて反応するって本人以外の何なん？
本人だからこそ我慢できずにホイホイ書き込みに来てるんだろ？
ま、こんな理屈通じるわけないか。自称医科歯科()に。
56:卵の名無しさん
20/12/14 23:12:03.98 cg4Dtd6W.net
source('toolmini.R')
line <- function(A,B,lwr,upr,...){
x=seq(lwr,upr,len=1e3)
y=Im(A-B)/Re(A-B)*(x-Re(A))+Im(A)
lines(x,y,...)
}
axy <- function(a,P,lwr,upr,...){
x=seq(lwr,upr,len=1e3)
y=a*(x-Re(P))+Im(P)
lines(x,y,...)
}
ngon5 <- function(n=5,digit=F,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
plot(p,bty='l',type='l',xlim=c(0,3),ylim=c(0,3),axes=F,ann=FALSE,asp=1,...,)
points(1/(1-r),pch='.')
if(digit) text(Re(p),Im(p),1:n,cex=cex)
invisible(p)
}
57:卵の名無しさん
20/12/14 23:12:09.68 cg4Dtd6W.net
p=ngon5(col=8,lty=3)
line(p[1],p[2],1,3,lty=3,col=8)
line(p[4],p[5],-3,0,lty=3,col=8)
PT <- function(x,A,B) Im(A-B)/Re(A-B)*(x-Re(A))+Im(A)
p45=-0.5+1i*PT(-0.5,p[4],p[5])
axy(tan(Arg(p[3]-p[4])),p45,-1,4,lty=3,col=8)
p12=1.8+1i*PT(1.8,p[1],p[2])
p12
axy(tan(Arg(p[2]-p[3])),p12,0,2,lty=3,col=8)
seg(p[1],p12,lwd=2)
seg(p[1],p[5],lwd=2)
seg(p[5],p45,lwd=2)
y=tan(Arg(p[3]-p[4]))*(0-Re(p45))+Im(p45)
p450=0+1i*y
y=tan(Arg(p[2]-p[3]))*(0-Re(p12))+Im(p12)
p120=0+1i*y
q=intsect(p45,p450,p12,p120)
seg(p45,q,lwd=2)
seg(p12,q,lwd=2)
58:卵の名無しさん
20/12/14 23:28:21.70 OIg+dZj1.net
ウリュウくんルサンチマンが分からないだって？自称医科歯科()のエリート()なのに？どうしてググることもできないのかな？？
こんなに君にピッタリな言葉ないのにもったいない。
59:卵の名無しさん
20/12/14 23:30:53.78 cg4Dtd6W.net
各頂点の角度が3π/5の等角５角形が５辺の長さの和を一定にしながら形を変えるとき
面積が最大になるときと最小になるときの形はどうなるか？
作図するだけでも一苦労。どうやってプログラム組むか思案中。
当直あけの代休はこれをやって過ごそう。
60:卵の名無しさん
20/12/14 23:32:28.33 OIg+dZj1.net
これで荒らしてるつもりなの？
ウリュウ爺さんもう本人だって認めるの？
61:卵の名無しさん
20/12/15 09:42:37.17 Ae2KdpoD.net
イシャモドキのウリュウのルサンチマンが諸悪の根源。
62:卵の名無しさん
20/12/15 09:47:59.54 QEfzM0Mb.net
rm(list=ls())
source('toolmini.R')
Graph <- function(){
line <- function(A,B,lwr,upr,...){
x=seq(lwr,upr,len=1e3)
y=Im(A-B)/Re(A-B)*(x-Re(A))+Im(A)
lines(x,y,...)
}
axy <- function(a,P,lwr,upr,...){
x=seq(lwr,upr,len=1e3)
y=a*(x-Re(P))+Im(P)
lines(x,y,...)
}
ngon5 <- function(n=5,digit=F,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
plot(p,bty='l',type='l',ylim=c(0,3),axes=T,ann=FALSE,asp=1,...,)
points(1/(1-r),pch='.')
if(digit) text(Re(p),Im(p),1:n,cex=cex)
invisible(p)
}
63:卵の名無しさん
20/12/15 09:48:04.93 QEfzM0Mb.net
p=ngon5(col='white',lty=3)
A=p[5]
B=p[1]
line(p[1],p[2],1,3,lty=3,col='white')
line(p[4],p[5],-3,0,lty=3,col='white')
PT <- function(x,A,B) Im(A-B)/Re(A-B)*(x-Re(A))+Im(A)
E=p45=-0.5+1i*PT(-0.5,p[4],p[5])
axy(tan(Arg(p[3]-p[4])),p45,-1,4,lty=3,col='white')
p12=1.8+1i*PT(1.8,p[1],p[2])
C=p12
axy(tan(Arg(p[2]-p[3])),p12,0,2,lty=3,col='white')
seg(p[1],p12,lwd=1)
seg(p[1],p[5],lwd=1)
seg(p[5],p45,lwd=1)
y=tan(Arg(p[3]-p[4]))*(0-Re(p45))+Im(p45)
p450=0+1i*y
y=tan(Arg(p[2]-p[3]))*(0-Re(p12))+Im(p12)
p120=0+1i*y
D=q=intsect(p45,p450,p12,p120)
seg(p45,q,lwd=1)
seg(p12,q,lwd=1)
pt(A,'A')
pt(B,'B')
pt(C,'C')
pt(D,'D')
pt(E,'E')
pt(A/2+E/2,'a')
pt(B/2+C/2,'b')
}
Graph()
64:卵の名無しさん
20/12/15 10:08:10.11 QEfzM0Mb.net
URLﾘﾝｸ(i.imgur.com)
65:卵の名無しさん
20/12/15 10:08:30.68 QEfzM0Mb.net
rm(list=ls())
source('toolmini.R')
f <- function(a=1,b=1,print=T){
th=3*pi/5
A=0i
B=1+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
E=a*(cos(th)+1i*sin(th))
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
pt(de)
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
S=ABC2S(A,E,D)+ABC2S(A,D,C)+ABC2S(A,C,B)
L=abs(A-B)+abs(B-C)+abs(C-D)+abs(D-E)+abs(E-A)
if(print){
plot(NULL,xlim=c(Re(E),Re(C)),ylim=c(0,Im(D)),asp=1,ann=F,axes=F) ; axis(1)
pt(A,'A');pt(B,'B');pt(C,'C');pt(D,'D');pt(E,'E')
seg(A,B,col=2);seg(B,C,col=2);seg(C,D,col=2);seg(D,E,col=2);seg(E,A,col=2)
pt(E/2,'a');pt(B/2+C/2,'b')
seg(A,D,lty=3,co=8) ; seg(A,C,lty=3,col=8)
legend('top',bty='n',legend=paste('S =',round(S,2),'\nL =',round(L,2)))
}
c(S=S,L=L)
}
par(mfrow=c(2,2))
f(1,1)
f(1,2)
f(2,3)
f(0.5,0.75)
66:卵の名無しさん
20/12/15 10:16:19.44 QEfzM0Mb.net
作図に草稿のデータが遺残していた
f <- function(a=1,b=1,print=T){
th=3*pi/5
A=0i
B=1+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
E=a*(cos(th)+1i*sin(th))
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
S=ABC2S(A,E,D)+ABC2S(A,D,C)+ABC2S(A,C,B)
L=abs(A-B)+abs(B-C)+abs(C-D)+abs(D-E)+abs(E-A)
if(print){
plot(NULL,xlim=c(Re(E),Re(C)),ylim=c(0,Im(D)),asp=1,ann=F,axes=F) ; axis(1)
pt(A,'A');pt(B,'B');pt(C,'C');pt(D,'D');pt(E,'E')
seg(A,B,col=2,lwd=2);seg(B,C,col=2,lwd=2);seg(C,D,col=2,lwd=2);seg(D,E,col=2,lwd=2);seg(E,A,col=2,lwd=2)
pt(E/2,'a');pt(B/2+C/2,'b')
seg(A,D,lty=3,col=8) ; seg(A,C,lty=3,col=8)
legend('top',bty='n',legend=paste('S =',round(S,2),'\nL =',round(L,2)))
}
c(S=S,L=L)
}
par(mfrow=c(2,2))
f(1,1)
f(1,2)
f(2,3)
f(0.5,0.75)
layout(1)
67:卵の名無しさん
20/12/15 10:22:41.46 ZfzIGEm0.net
相変わらず数学板でもまともに取り合ってもらえないみたいだね。
だからここで憂さ晴らし？
社会でも5chでも相手にされないなんて惨めだね。
68:卵の名無しさん
20/12/15 11:29:24.21 QEfzM0Mb.net
本人は反射と書いているが、反射じゃなくて本音だな。
同業者の発言：
【ウハも】 開業医達の集い 8診 【粒も】 [無断転載禁止]
670 名前：卵の名無しさん[] 投稿日：2017/05/20(土) 11:15:40.12 ID:46exOAAP
学会で川崎の医者が発表してたら、「馬鹿が何偉そうにしゃべってる。」と思う自分が嫌になるが、
これだけは学生時代から続く反射なので止められない。
69:卵の名無しさん
20/12/15 11:54:25.46 ZfzIGEm0.net
数学板でも冷たくあしらわれてて5chでも居場所がないんだね。1日中5chやってるのに。
70:卵の名無しさん
20/12/15 12:20:26.99 QEfzM0Mb.net
line <- function(A,B,lwr,upr,...){ # line A-B from lwr to upr
x=seq(lwr,upr,len=1e3)
y=Im(A-B)/Re(A-B)*(x-Re(A))+Im(A)
lines(x,y,...)
}
axy <- function(a,P,lwr,upr,...){ # line from P with slope a from lwr to upr
x=seq(lwr,upr,len=1e3)
y=a*(x-Re(P))+Im(P)
lines(x,y,...)
}
c=2 ; b=1
plot(NULL,xlim=c(-2,3),ylim=c(0,4),asp=1,ann=F,axes=F)
print=T
th=3*pi/5
A=0i
B=c+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
seg(A,B) ; seg(B,C)
axy(tan(th),A,-0.8,0,lty=3)
axy(tan(2*pi-2*th),C,0,Re(C),lty=3)
pt(A/2+B/2,'c') ; pt(B/2+C/2,'b')
a=-0.5
E=a+1i*tan(th)*a
71:卵の名無しさん
20/12/15 12:20:31.90 QEfzM0Mb.net
axy(tan(th-(pi-th)),E,Re(E),1.5,lty=3)
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
seg(A,E,col=4,lwd=3);seg(D,E,col=4,lwd=2) ; seg(D,C,col=4,lwd=2)
pt(A,'A'); pt(B,'B'); pt(C,'C'); pt(D,'D'); pt(E,'E')
pt(A/2+E/2,'a')
72:卵の名無しさん
20/12/15 12:22:47.55 QEfzM0Mb.net
>>69
プログラムが理解できる人からはプログラム解にたいしても、こういうレスがくる。
分からない問題はここに書いてね464
ｽﾚﾘﾝｸ(math板:783番)
783 名前：１３２人目の素数さん[] 投稿日：2020/12/14(月) 18:42:21.22 ID:QWz6LSDb
>>765
ありがとうございます。勘違いしてました。
pq ￢p ￢p∨q
TT F T
TF F T
FT T T
FF T T
∴
￢p→(￢p∨q)
T
T
T
T
73:卵の名無しさん
20/12/15 12:24:29.85 QEfzM0Mb.net
χ二乗分布の基礎的な問題を解説すると、ちゃんとしたレスがくる。
分からない問題はここに書いてね464
ｽﾚﾘﾝｸ(math板:758番)
758 名前：１３２人目の素数さん[sage] 投稿日：2020/12/14(月) 14:28:38.57 ID:iJb9qShc
>>751
なるほど...やっぱそうですよね
xyta4DIBさんの値を参考にさせていただきます！ 親切丁寧にご教授くださりありがとうございましたm(_ _)m
74:卵の名無しさん
20/12/15 12:57:15.53 QEfzM0Mb.net
>>69
数学板に裏口シリツ医を擁護する奴がいたのは驚きだったな。そいつも多分シリツ卒だと思う。
sub <- function(a){
th=3*pi/5
A=0i
B=c+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
E=a*(cos(th)+1i*sin(th))+A
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
abs(A-B)+abs(B-C)+abs(C-D)+abs(D-E)+abs(E-A) - L
}
sub=Vectorize(sub)
x=seq(1,2,le=100)
plot(x,sub(x))
75:卵の名無しさん
20/12/15 13:07:06.08 QEfzM0Mb.net
source('toolmini.R')
L=5
bc2a <- function(b,c, L=5){
sub <- function(a){
th=3*pi/5
A=0i
B=c+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
E=a*(cos(th)+1i*sin(th))+A
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
abs(A-B)+abs(B-C)+abs(C-D)+abs(D-E)+abs(E-A) - L
}
sub=Vectorize(sub)
uniroot(sub,c(1e-12,L-b-c))$root}
bc2S <- function(b,c){
a=bc2a(b,c)
th=3*pi/5
A=0i
B=c+0i
C=b*(cos(pi-th)+1i*sin(pi-th))+B
E=a*(cos(th)+1i*sin(th))+A
yde=tan(th-(pi-th))*(0-Re(E))+Im(E)
de=1i*yde
ybc=tan(2*pi-2*th)*(0-Re(C))+Im(C)
bc=1i*ybc
D=intsect(E,de,C,bc)
ABC2S(A,E,D)+ABC2S(A,D,C)+ABC2S(A,C,B)
}
76:卵の名無しさん
20/12/15 13:16:18.28 ZfzIGEm0.net
イシャモドキで数学版に粘着してるプログラムおじさんのウリュウのお爺さん。
社会でも5chにも居場所はない。
77:卵の名無しさん
20/12/15 13:43:56.94 QEfzM0Mb.net
>>59
もっと、時間がかかるかと思っていたが、プログラムが完成した。
３変数なので等高線図にすると、
URLﾘﾝｸ(i.imgur.com)
78:卵の名無しさん
20/12/15 14:11:25.76 ZfzIGEm0.net
三文芝居とプログラムしか能がないイシャモドキウリュウ君。
79:卵の名無しさん
20/12/15 14:25:46.70 skwoi+pl.net
そういう書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
80:卵の名無しさん
20/12/15 14:57:11.15 QEfzM0Mb.net
>>77
思ったより早くプログラム完成したので、
3人でジャンケンをして負けた人は次の回以後参加しないことにし、ちょうど1人の勝者が決まるまでジャンケンを繰り返すとき、1人の勝者が決まるまでの期待値を求めよ
のシミュレーションプログラムを作って遊ぼう。
解析解はすでに数学板で出ているので期待値の分布をだしてみたい。
81:卵の名無しさん
20/12/15 15:00:03.16 QEfzM0Mb.net
>>79
ルサンチマンって何ですかぁ？
馬鹿のひとつ覚えじゃねぇの？
82:卵の名無しさん
20/12/15 15:00:56.32 QEfzM0Mb.net
>>80
再帰プロラムにしないとシミュレーションできないかなと思ったけど
while loop２つで書けた
sim <- function(){
i=1 # ジャンケン回数
j3=sample(0:2,1) # 3人でジャンケンしたときに勝者の人数
if(j3==1) return(i) # あいこ：勝者1人：勝者2人の比は1:1:1
while(j3==0){ # あいこが続けば繰り返す
i=i+1
j3=sample(0:2,1)
}
if(j3==1) return(i) # 勝者1人ならジャンケン回数を返す
i=i+1
j2=sample(0:1,1,prob=c(3,6)) # 2人でジャンケンしたときに勝者の人数
if(j2==1) return(i) # あいこ：勝者決定の比は3:6
while(j2==0){ # あいこが続けば繰り返す
i=i+1
j2=sample(0:1,1,prob=c(3,6))
}
return(i) # ジャンケン回数を返す
}
83:卵の名無しさん
20/12/15 15:03:51.96 QEfzM0Mb.net
# 3人でジャンケンをして負けた人は次の回以後参加しないことにし、
# ちょうど1人の勝者が決まるまでジャンケンを繰り返すとき、
# 1人の勝者が決まるまでの期待値を求めよ
sim <- function(){
i=1 # ジャンケン回数
j3=sample(0:2,1) # 3人でジャンケンしたときに勝者の人数
if(j3==1) return(i) # あいこ：勝者1人：勝者2人の比は1:1:1
while(j3==0){ # あいこが続けば繰り返す
i=i+1
j3=sample(0:2,1)
}
if(j3==1) return(i) # 勝者1人ならジャンケン回数を返す
i=i+1
j2=sample(0:1,1,prob=c(3,6)) # 2人でジャンケンしたときに勝者の人数
if(j2==1) return(i) # あいこ：勝者決定の比は3:6
while(j2==0){ # あいこが続けば繰り返す
i=i+1
j2=sample(0:1,1,prob=c(3,6))
}
return(i) # ジャンケン回数を返す
}
i=replicate(1e7,sim())
mean(i)
BEST::plotPost(i,xlab='ジャンケン回数')
table(i)
84:卵の名無しさん
20/12/15 15:04:11.07 QEfzM0Mb.net
> table(i)
i
1 2 3 4 5 6 7 8 9 10 11
3333328 3333503 1851189 864960 369951 150717 59766 22799 8596 3291 1235
12 13 14 15 16 17 18
425 154 48 23 11 3 1
85:卵の名無しさん
20/12/15 15:07:40.36 QEfzM0Mb.net
sim <- function(){
i=1 # ジャンケン回数
j3=sample(0:2,1) # 3人でジャンケンしたときに勝者の人数
if(j3==1) return(i) # あいこ：勝者1人：勝者2人の比は1:1:1
while(j3==0){ # あいこが続けば繰り返す
i=i+1
j3=sample(0:2,1)
}
if(j3==1) return(i) # 勝者1人ならジャンケン回数を返す
i=i+1
j2=sample(0:1,1,prob=c(3,6)) # 2人でジャンケンしたときの勝者の人数
if(j2==1) return(i) # あいこ：勝者決定の比は3:6
while(j2==0){ # あいこが続けば繰り返す
i=i+1
j2=sample(0:1,1,prob=c(3,6))
}
return(i) # ジャンケン回数を返す
}
1000万回のシミュレーション結果
URLﾘﾝｸ(i.imgur.com)
86:卵の名無しさん
20/12/15 15:10:50.33 QEfzM0Mb.net
>>79
金がなくてシリツ医学部に入れなかったらなresentmentかもしれないが、
学力考査で国立医学部に進学していたら、シリツ医なんぞ蔑みの対象でしかないぞ。
87:卵の名無しさん
20/12/15 15:20:24.71 QEfzM0Mb.net
>>86
国立医学部卒の意見を拝聴してみましょう。
ｽﾚﾘﾝｸ(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
88:卵の名無しさん
20/12/15 15:22:26.24 QEfzM0Mb.net
>>80
期待値の分布じゃなくて、ジャンケン回数の分布だな。
期待値の分布を出せなくもないけど、意味があるとは思えん。
89:卵の名無しさん
20/12/15 15:35:39.17 QEfzM0Mb.net
>>79
ベテラン医師の意見も拝聴してみましょう。
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
90:卵の名無しさん
20/12/15 15:36:36.96 QEfzM0Mb.net
今日的課題は何かを考察してみましょう。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はない。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
91:卵の名無しさん
20/12/15 15:38:49.59 QEfzM0Mb.net
シリツ医のこれが現実
１次方程式もできないド底辺シリツ医の哀れな現実を直視してみましょう。
URLﾘﾝｸ(imagizer.imageshack.com)
何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ？
裏口入学以外に説明がつく？
中学生でも解ける一次方程式の問題だろ。
それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか？
だとさ。
URLﾘﾝｸ(imagizer.imageshack.com)
0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ？
裏口入学以外に説明がつく？
URLﾘﾝｸ(imagizer.imageshack.com)
92:卵の名無しさん
20/12/15 15:39:41.60 QEfzM0Mb.net
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
僕も裏口入学と公言したシリツ医の学力をみてみましょう。
この程度の頭脳。比例計算すら間違える。
URLﾘﾝｸ(news.yahoo.co.jp)
93:卵の名無しさん
20/12/15 16:06:39.25 ZfzIGEm0.net
おーおーイシャモドキがルサンチマン爆発させてるわ
94:卵の名無しさん
20/12/15 16:16:00.56 skwoi+pl.net
>>79にいくつも安価飛ばしてて草
95:卵の名無しさん
20/12/15 16:17:43.42 skwoi+pl.net
>>86,87,89,90,91,92のような書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
96:卵の名無しさん
20/12/15 16:27:17.44 ZfzIGEm0.net
>>95
このスレタイで10連続以上レスで合計26レスなんてイシャモドキウリュウ爺さんのルサンチマン以外のなんなんですか？
97:卵の名無しさん
20/12/15 17:02:04.61 uu3dZwbZ.net
# PならばQ ≡ (P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
gr=expand.grid(c(T,F),c(T,F),c(T,F))
colnames(gr)=c('rain','wind','thunder')
f1 = function(rain, wind,thunder) rain %=>% (wind & thunder)
f2 = function(rain, wind,thunder) (!wind & !thunder) %=>% !rain
f3 = function(rain, wind,thunder) !wind %=>% !rain
data.frame(gr,f1=mapply(f1,gr[,1],gr[,2],gr[,3]),
f2=mapply(f2,gr[,1],gr[,2],gr[,3]),
f3=mapply(f1,gr[,1],gr[,2],gr[,3]))
98:卵の名無しさん
20/12/15 17:03:18.92 uu3dZwbZ.net
金がなくてシリツ医学部に入れなかったらなresentmentかもしれないが、
学力考査で国立医学部に進学していたら、シリツ医なんぞ蔑みの対象でしかない。
国立医学部卒の意見を拝聴してみましょう。
ｽﾚﾘﾝｸ(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
99:卵の名無しさん
20/12/15 17:04:47.27 uu3dZwbZ.net
普通に考えればこれは明らか。
ただの事実。
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
100:卵の名無しさん
20/12/15 17:08:56.95 hYl7P0N6.net
>>98,99のような書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
101:卵の名無しさん
20/12/15 17:37:55.06 Ae2KdpoD.net
ルサンチマンはイシャモドキのウリュウのジジイにお似合いの言葉。
102:卵の名無しさん
20/12/15 19:04:13.91 QEfzM0Mb.net
>>95
ルサンチマン、英語でresentment
患者もむかつくそうでっせ！
患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]
810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
103:卵の名無しさん
20/12/15 19:05:01.18 QEfzM0Mb.net
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
患者様の気持ちのわかる医療者になりたいよね！
104:卵の名無しさん
20/12/15 19:35:23.12 zP4TPXPR.net
>>102,103のような書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
105:卵の名無しさん
20/12/15 19:36:48.46 Ae2KdpoD.net
ルサンチマンは英語じゃなくてフランス語だよw
自称医科歯科()さんそんなことも知らないんだね。というかググれば出てくるだろ？痴呆かな？
お前にはお似合いの言葉だからそれくらい覚えとけよ。
そもそも患者じゃなくて5chしか見てないだろお前。
106:卵の名無しさん
20/12/15 19:58:00.31 QEfzM0Mb.net
# PならばQ ≡ (P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
gr=expand.grid(c(T,F),c(T,F),c(F,F))
colnames(gr)=c('rain','wind','thunder')
f1 = function(rain, wind,thunder) rain %=>% (wind & thunder)
f2 = function(rain, wind,thunder) (!wind & !thunder) %=>% !rain
f3 = function(rain, wind,thunder) !wind %=>% !rain
data.frame(gr,f1=mapply(f1,gr[,1],gr[,2],gr[,3]),
f2=mapply(f2,gr[,1],gr[,2],gr[,3]),
f3=mapply(f1,gr[,1],gr[,2],gr[,3]))
gr=expand.grid(c(T,F),c(F,T),c(F,T))
colnames(gr)=c('rain','wind','thunder')
f1 = function(rain, wind,thunder) rain %=>% (wind & thunder)
f2 = function(rain, wind,thunder) (!wind & !thunder) %=>% !rain
f3 = function(rain, wind,thunder) !wind %=>% !rain
data.frame(gr,f1=mapply(f1,gr[,1],gr[,2],gr[,3]),
f2=mapply(f2,gr[,1],gr[,2],gr[,3]),
f3=mapply(f1,gr[,1],gr[,2],gr[,3]))
107:卵の名無しさん
20/12/15 19:59:19.66 QEfzM0Mb.net
>>104
ルサンチマン、英語でresentment
患者もむかつくそうでっせ！
患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]
810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
こういうのも裏口バカへのresentment だね
国立医学部卒の意見を拝聴してみましょう。
ｽﾚﾘﾝｸ(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
108:卵の名無しさん
20/12/15 19:59:45.28 QEfzM0Mb.net
今日的課題は何かを考察してみましょう。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はない。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
109:卵の名無しさん
20/12/15 20:45:29.75 Ae2KdpoD.net
ルサンチマンの意味わかってないじゃんジジイw
110:卵の名無しさん
20/12/15 20:49:03.80 Ae2KdpoD.net
5chしかしてない穀潰しのウリュウの爺さんがお医者様に対するルサンチマンがひどいと言ってるんですよ。
111:卵の名無しさん
20/12/15 20:59:19.55 QEfzM0Mb.net
>>109
resentment をフランス語読みしてみ！
# 4人ジャンケンしたときの勝者の数を返す
f <- function(x){ # 1 beats 3, 2 beats 1, 3 beats 2
y=sort(unique(x))
z=length(y)
if(z==1|z==3) return(0) # 手の種類が１か３なら勝者0
else{ # 手の種類が２種類の場合
if(2 %in% table(x)) return(2) # 2人ずつなら勝者2
else{ # ２種類が1対3の場合
if(all(y==c(1,2))) return(as.numeric(table(x)['2']))
if(all(y==c(2,3))) return(as.numeric(table(x)['3']))
if(all(y==c(1,3))) return(as.numeric(table(x)['1']))
}
}
}
112:卵の名無しさん
20/12/15 21:00:37.44 QEfzM0Mb.net
国立医学部卒の意見を拝聴してみましょう。
resentmentですらなく、国立卒の本音ですがな。
ｽﾚﾘﾝｸ(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
113:卵の名無しさん
20/12/15 21:01:37.64 QEfzM0Mb.net
関数の動作確認。
> (x=sample(3,4,re=T)) ; f(x)
[1] 2 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 3 2 2 1
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 1 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 3 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 1 2 1 2
[1] 2
> (x=sample(3,4,re=T)) ; f(x)
[1] 2 2 3 3
[1] 2
114:卵の名無しさん
20/12/15 21:16:17.42 Ae2KdpoD.net
3年前の5chのレス()をそう得意げに貼られてもねぇ
ルサンチマンの意味やっぱりわかってないねw
115:卵の名無しさん
20/12/15 21:20:45.86 QEfzM0Mb.net
> gr=as.matrix(expand.grid(1:3,1:3,1:3,1:3))
>
> # 4人ジャンケンしたときの勝者の数を返す
> f <- function(x){ # 1 beats 3, 2 beats 1, 3 beats 2
+ y=sort(unique(x))
+ z=length(y)
+ if(z==1|z==3) return(0) # 手の種類が１か３なら勝者0
+ else{ # 手の種類が２種類の場合
+ if(2 %in% table(x)) return(2) # 2人ずつなら勝者2
+ else{ # ２種類が1対3の場合
+ if(all(y==c(1,2))) return(as.numeric(table(x)['2']))
+ if(all(y==c(2,3))) return(as.numeric(table(x)['3']))
+ if(all(y==c(1,3))) return(as.numeric(table(x)['1']))
+ }
+ }
+ }
> (x=sample(3,4,re=T)) ; f(x)
[1] 3 3 2 3
[1] 3
>
> w=apply(gr,1,f)
> table(w)
w
0 1 2 3
39 12 18 12
> 39/81
[1] 0.4814815
> 13/27
[1] 0.4814815
中途半端な数だな。
116:卵の名無しさん
20/12/15 21:25:37.37 Ae2KdpoD.net
ド平日に1つのスレに1日に30件もレスできるお医者さんなんているんですかねぇ？
しかも他のスレにもたくさん書き込んで脊髄反射してますよね？
117:卵の名無しさん
20/12/15 21:48:25.81 QEfzM0Mb.net
まず、２人でのサブルーチン
rm(list=ls())
sim2 <- function(init=1){
i=init # ジャンケン回数
j2=sample(0:1,1,prob=c(3,6)) # 2人でジャンケンしたときに勝者の人数
if(j2==1) return(i) # あいこ：勝者決定の比は3:6
while(j2==0){ # あいこが続けば繰り返す
i=i+1
j2=sample(0:1,1,prob=c(3,6))
}
return(i)
}
i=replicate(1e6,sim2())
mean(i)
BEST::plotPost(i)
118:卵の名無しさん
20/12/15 21:49:32.07 QEfzM0Mb.net
sim2を組み込んで３人のサブルーチン
sim3 <- function(init=1){
i=init # ジャンケン回数
j3=sample(0:2,1) # 3人でジャンケンしたときに勝者の人数
if(j3==1) return(i) # あいこ：勝者1人：勝者2人の比は1:1:1
while(j3==0){ # あいこが続けば繰り返す
i=i+1
j3=sample(0:2,1)
}
if(j3==1) return(i) # 勝者1人ならジャンケン回数を返す
return(sim2(i+1))
}
i=replicate(1e6,sim3())
mean(i)
BEST::plotPost(i,xlab='ジャンケン回数')
table(i)
HDInterval::hdi(i,cred=0.99)
119:卵の名無しさん
20/12/15 21:50:25.20 QEfzM0Mb.net
gr=as.matrix(expand.grid(1:3,1:3,1:3,1:3))
# 4人ジャンケンしたときの勝者の数を返す
f <- function(x){ # 1 beats 3, 2 beats 1, 3 beats 2
y=sort(unique(x))
z=length(y)
if(z==1|z==3) return(0) # 手の種類が１か３なら勝者0
else{ # 手の種類が２種類の場合
if(2 %in% table(x)) return(2) # 2人ずつなら勝者2
else{ # ２種類が1対3の場合
if(all(y==c(1,2))) return(as.numeric(table(x)['2']))
if(all(y==c(2,3))) return(as.numeric(table(x)['3']))
if(all(y==c(1,3))) return(as.numeric(table(x)['1']))
}
}
}
# 動作確認
(x=sample(3,4,re=T)) ; f(x)
w=apply(gr,1,f)
table(w)
120:卵の名無しさん
20/12/15 21:51:03.17 QEfzM0Mb.net
４人に拡張
sim4 <- function(init=1){
i=init # ジャンケン回数
# j4 : 4人でジャンケンしたときに勝者の人数
j4=sample(0:3,1,prob=c(39,12,18,12))
if(j4==1) return(i) # 勝者１人ならi(=1)を返す
while(j4==0){ # あいこが続けば繰り返す
i=i+1
j4=sample(0:3,1,prob=c(39,12,18,12))
}
if(j4==1) return(i) # 勝者1人ならジャンケン回数iを返す
if(j4==2) return(sim2(i+1)) # 勝者2人ならsim2
if(j4==3) return(sim3(i+1)) # 勝者3人ならsim3
}
i=replicate(1e7,sim4())
mean(i)
BEST::plotPost(i)
121:卵の名無しさん
20/12/15 21:54:07.76 Ae2KdpoD.net
まともなお医者さんがド平日に朝から晩まで1日40レスもしますかねぇ？しかも連投までして、みっともない。
どんだけ火消しに必死なんだか。おかげさまで勢いは半端ないけどねw
ウリュウ爺さんの愚行がもっと知れ渡るといいんだけどね。
122:卵の名無しさん
20/12/15 21:54:26.95 QEfzM0Mb.net
>>116
あんたらのような裏口シリツ医とはパワーが違うからね。
国語も社会科もない軽量入試で裏口入学がデフォｗ
123:卵の名無しさん
20/12/15 22:02:47.06 Ae2KdpoD.net
国語社会が必要なセンター利用があるのを知らないのは非医だからだね。
というかパワフルに働いてて一日40レスもするんだw
お笑いだね。
124:卵の名無しさん
20/12/15 22:10:37.62 Ae2KdpoD.net
他のスレにも書き込みまくってて推定一日に50-60レス以上。これがベテランドクターかと思うと情けなくて涙出るね。
まあ実際は生保の穀潰しなんだろうけど。
125:卵の名無しさん
20/12/15 22:25:26.61 hYl7P0N6.net
あらゆる書き込みに
そのような書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
って返せるの草
126:卵の名無しさん
20/12/15 22:31:18.17 Ae2KdpoD.net
>>125
国立医大()出身なのにルサンチマンググっても理解できない残念なオツムだから仕方ないね。
127:卵の名無しさん
20/12/15 23:03:39.45 QEfzM0Mb.net
# n人でジャンケンしたときの勝者の数を返す # 1 beats 3, 2 beats 1, 3 beats 2
n=5
gr=expand.grid(replicate(n,1:3,simplify=F)) ; tail(gr)
f <- function(x){
y=sort(unique(x))
z=length(y)
if(z==1|z==3) return(0)
else{ # 手の種類が２種類の場合
if(all(y==c(1,2))) return(as.numeric(table(x)['2']))
if(all(y==c(2,3))) return(as.numeric(table(x)['3']))
if(all(y==c(1,3))) return(as.numeric(table(x)['1']))
}
}
# 動作確認
(x=sample(3,n,re=T)) ; f5(x)
w=apply(gr,1,f5)
table(w)
128:卵の名無しさん
20/12/15 23:04:10.77 QEfzM0Mb.net
# 5人でジャンケン
sim5 <- function(init=1){
i=init # ジャンケン回数
# j5 : 5人でジャンケンしたときに勝者の人数
j5=sample(0:4,1,prob=c(153,15,30,30,15))
if(j5==1) return(i) # 勝者１人ならi(=1)を返す
while(j5==0){ # あいこが続けば繰り返す
i=i+1
j5=sample(0:4,1,prob=c(153,15,30,30,15))
}
if(j5==1) return(i) # 勝者1人ならジャンケン回数iを返す
if(j5==2) return(sim2(i+1)) # 勝者2人ならsim2を呼び出す
if(j5==3) return(sim3(i+1)) # 勝者3人ならsim3を呼び出す
if(j5==4) return(sim4(i+1)) # 勝者4人ならsim4を呼び出す
}
i=replicate(1e6,sim5())
mean(i)
BEST::plotPost(i)
129:卵の名無しさん
20/12/15 23:06:14.69 Ae2KdpoD.net
発狂のあまりとうとう日本語すら書けなくなったか。
130:卵の名無しさん
20/12/15 23:06:45.09 QEfzM0Mb.net
>>124
うちは優良職場だから、休日日当直の代休があんのよ。
裏口シリツ医と違って職場から大切にされている。
5月の内視鏡は1ヶ月休診だったけど、給与は全額支給された。
131:卵の名無しさん
20/12/15 23:10:19.47 QEfzM0Mb.net
>>129
コメントは日本語で書くけど、プログラムは日本語じゃかかんぞ。
昔、桐のスクリプトが日本語だったくらいかな。
裏口シリツ医じゃ、プログラム扱える頭脳はないだろう。
数学板に投稿された問題の発展問題のプログラム解を製作中。
問題の意味が小学生にでもわかるような問題は面白い。
# n人でジャンケンしたときの勝者の数を返す # 1 beats 3, 2 beats 1, 3 beats 2
n=5
gr=expand.grid(replicate(n,1:3,simplify=F)) ; tail(gr)
f <- function(x){
y=sort(unique(x))
z=length(y)
if(z==1|z==3) return(0)
else{ # 手の種類が２種類の場合
if(all(y==c(1,2))) return(as.numeric(table(x)['2']))
if(all(y==c(2,3))) return(as.numeric(table(x)['3']))
if(all(y==c(1,3))) return(as.numeric(table(x)['1']))
}
}
# 動作確認
(x=sample(3,n,re=T)) ; f5(x)
w=apply(gr,1,f5)
table(w)
132:卵の名無しさん
20/12/15 23:11:26.34 Ae2KdpoD.net
ウリュウのジジイとうとう開き直ったか。
スレタイもろくに読めないジジイが医者なんかできるわけないだろ。また内視鏡()のひとつ覚えか。お前、当直関係なく朝から50レスも書き込んでるじゃん。
一体いつ仕事してんだよ。内視鏡やってる時は書き込みできないはずなのにずっとジジイの書き込みあるよな。
優良職場どころじゃないね、寝てても金が入ってくるんだから生保だったら。
133:卵の名無しさん
20/12/15 23:13:32.19 QEfzM0Mb.net
>>129
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.
134:卵の名無しさん
20/12/15 23:23:20.23 Ae2KdpoD.net
プログラム()
コピペ()
全く医療・医者板と関係ないし。数学板で吠えてろ。褒められてるんだろ？(自演だろうけど)
ここで書き込むの必死なあまりお前のホームスレがお留守になってるぞ。笑
大体、優良職場()にお勤めのベテランのお医者様()がこんなに必死で何十レスもするかねぇ？
医者のふりした穀潰しなんだろ？
ルサンチマンに塗れてるから連投して気付いたら50レス超えてたんでしょ？
それにこの前開業医スレでも40レス超えて総ツッコミで撤退したよなww
135:卵の名無しさん
20/12/15 23:31:32.84 QEfzM0Mb.net
裏口シリツ医には英文でレスできる学力はないだろうな。
136:卵の名無しさん
20/12/15 23:32:24.13 QEfzM0Mb.net
英文と統計は現代の読み書きソロバン。
裏口シリツ医には扱えないようだ。
137:卵の名無しさん
20/12/15 23:33:00.15 Ae2KdpoD.net
事あるごとに仕事中軽く5ch見てますよアピールをするが煽り耐性は0で連投はザラ、1日40レス以上書き込むことも。まさに狂気の沙汰、さすがは毎日5ch漬けで瞬間湯沸かし器の穀潰しである。お医者様へのルサンチマンはエベレスト級である。これなのに医者を装わなければならない可哀想だが他人の迷惑なので救いようのないジジイ。
都合が悪くなると逃げてほとぼりが冷めた頃にあたかも別人を装って話をすり替えようとするのも特徴。
数学板も見ているようで勝手に数学や統計の問題を出してくるが、完全に板違いである。当然ながら無視されるが自分の問題が答えられないと勘違いして勝手に一人で悦に浸っている。
138:卵の名無しさん
20/12/15 23:37:01.78 Ae2KdpoD.net
>>136
ウリュウの爺さんの英文()や統計()はただの自己満足。
139:卵の名無しさん
20/12/15 23:37:49.24 QEfzM0Mb.net
>>134
残念ながら
# 5人でジャンケンをして負けた人は次の回以後参加しないことにし、
# ちょうど1人の勝者が決まるまでジャンケンを繰り返すとき、
# 1人の勝者が決まるまでの期待値を求めよ
という問題に解析解を出せる能力はないんだね。
自演だったらプログラムでの近似解をだしたりしないね。
サクッと分数値を出せた方がいいから。
あんたも問題解いてみたらいいのに、裏口シリツ医には無理だろうけど。
140:卵の名無しさん
20/12/15 23:38:47.41 Ae2KdpoD.net
ベテランの優秀なお医者さんはこんなところで50レスもしている暇はない。
おそらく家族にも見放され5chだけが趣味の孤独死を待つだけのジジイなんだろう。
141:卵の名無しさん
20/12/15 23:38:47.50 QEfzM0Mb.net
>>137
いやいや、裏口容疑を晴らすチャンスを活かせないのが裏口シリツ医ってことよ。
142:卵の名無しさん
20/12/15 23:39:39.72 Ae2KdpoD.net
50レスも書き込んでお医者さんの証明ができないのが穀潰しウリュウ。
143:卵の名無しさん
20/12/15 23:42:19.63 QEfzM0Mb.net
>>140
＞当然ながら無視されるが自分の問題が答えられないと勘違い
いやいや、ド底辺シリツ医が答えようとして、
一次方程式すら立式できなアホであることを晒していたぞ。
シリツ医のこれが現実
１次方程式もできないド底辺シリツ医の哀れな現実を直視してみましょう。
URLﾘﾝｸ(imagizer.imageshack.com)
何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ？
裏口入学以外に説明がつく？
中学生でも解ける一次方程式の問題だろ。
それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか？
だとさ。
URLﾘﾝｸ(imagizer.imageshack.com)
144:卵の名無しさん
20/12/15 23:43:31.41 QEfzM0Mb.net
ド底辺シリツ医にはこんなの書いた馬鹿もいたな。
対偶をとると意味が逆になる例、とか底抜け馬鹿だぞ。
ｽﾚﾘﾝｸ(hosp板:499番)
URLﾘﾝｸ(i.imgur.com)
145:卵の名無しさん
20/12/15 23:53:06.93 Ae2KdpoD.net
こんな昔のレスまで覚えてて恨み真髄なんだね。笑
医者であること証明できなくてよっぽど悔しかったんだろうね。
卒業証書と同級生に関してはスルーですか？
そんなことしなくてもニセ医者の穀潰しであることは明白だけど。
結局何年経っても50レスもしてもお医者さんの証明なんかできませんと。
146:卵の名無しさん
20/12/15 23:59:13.49 Ae2KdpoD.net
>>3
そもそも質問は返されて当然と思ったら大間違い。世間は親や教師ではない
↑
穀潰しよ、ここよく読め。
147:卵の名無しさん
20/12/16 00:25:05.03 qGqngSMP.net
ウリュ爺ってルサンチマンの意味も知らないのか～高校の授業でやったはずなんだけどね。
自称、優良職場()で働いていて、職場からたいせつにされていて()、内視鏡バイト()をするベテラン医者らしいけどそんな人がド平日で1スレにつき50レスもして発狂してるなんて一体いつ働いてるのか？毎回毎回当直の代休()と言い張るけどいつもこのペース。あれれ～おかしいぞ～笑
事あるごとに医者アピールするための自分語りするけど旅館のサイトのAIコンシェルジュのような定型文のみ。
このキーワードにピンと来たら110番(沢山当てはまるほど特異度高い)
内視鏡バイト
当直
代休
優良職場
二期生
148:卵の名無しさん
20/12/16 10:18:22.75 7rnZYFrU.net
URLﾘﾝｸ(hissi.org)
149:卵の名無しさん
20/12/16 12:50:31.76 2Ok8RBCt.net
午前中３時間で５万の賃金（＋自宅からのタクシーチケット）の内視鏡バイト終了。
時給１万５千円でコロナ病院に応募する椰子の気がしれんなぁ。
150:卵の名無しさん
20/12/16 12:52:26.72 2Ok8RBCt.net
もっとも理解しがたいのは
数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く輩だよなぁ。
しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く輩だよなぁ。
バカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く輩だよなぁ。
ド底辺医に行く輩だよなぁ。
151:卵の名無しさん
20/12/16 12:55:38.72 2Ok8RBCt.net
高校数学スレに書いたら即答で正解が返ってきて楽しめなかった。
10人で１回のジャンケンをする。
(1)あいこになる確率はいくらか？
(2)勝った人の人数の期待値はいくらか？
誤答がレスされる方が議論になって楽しめる。
152:卵の名無しさん
20/12/16 12:57:42.02 2Ok8RBCt.net
>>146
＞そもそも質問は返されて当然と思ったら大間違い。
私は裏口シリツ医なので分かりませんと返せばよかったのに、アホな頭で考えて裏口であることを示したのがこれ！
シリツ医のこれが現実
１次方程式もできないド底辺シリツ医の哀れな現実を直視してみましょう。
URLﾘﾝｸ(imagizer.imageshack.com)
153:卵の名無しさん
20/12/16 12:58:19.18 2Ok8RBCt.net
>>145
いや、最近じゃ、文章の主語すらわからなかったシリツ医がいるぞ。
154:卵の名無しさん
20/12/16 13:06:46.71 /ddniWlJ.net
主語が何かすら理解していない底辺シリツ医の症例報告
URLﾘﾝｸ(i.imgur.com)
これは永久保存に価する！
小学校で習うはずに主語が何かすら習得していないのに、底辺シリツ医大に入学できるとは、裏口入学以外に説明ができるだろうか？
（補足）
主語と述語って何年生で習うのか調べたらこんな動画がヒットした。
授業「主語と述語をみつけよう」｜国語｜小１・小２｜群馬県
URLﾘﾝｸ(youtu.be)
シリツ医は小学校１－２年で習うことすら習得できていない。
こんな学力でどうして大学に入学できるのだろうか？裏口入学以外に説明できる人がいたら御教授を賜りたい。
155:卵の名無しさん
20/12/16 13:19:16.96 YIAHM37q.net
あらゆる書き込みに
そのような書き込みが「ルサンチマンがひどい」って言われる理由なのわからないかなあ？
って返せるの草
156:卵の名無しさん
20/12/16 13:21:48.89 7rnZYFrU.net
>>155
ルサンチマンの意味ジジイわかってないから馬の耳に念仏だと思うけどw
でも瞬間湯沸かし器なんだよなw
157:卵の名無しさん
20/12/16 13:23:03.67 YIAHM37q.net
医者だというのが嘘だとも思っていないが、そんなものは関係なく「なんでこんなに歪んじゃったのかな、可哀想だな」という感想しかない
158:卵の名無しさん
20/12/16 13:24:20.01 YIAHM37q.net
>>156
たぶん何か嫌なこと言われてる～程度の認識なのかもしれませんね
159:卵の名無しさん
20/12/16 14:23:26.86 /ddniWlJ.net
>>154
今年9月にもアホの裏口シリツ医の存在証明だなぁ。
主語が何かすら理解していない底辺シリツ医の症例報告
URLﾘﾝｸ(i.imgur.com)
小学校で習うはずに主語が何かすら習得していないのに、底辺シリツ医大に入学できるとは、裏口入学以外に説明ができるだろうか？
浜の真砂は尽きるとも世にシリツ医のアホは尽きまじ
160:卵の名無しさん
20/12/16 14:25:11.60 /ddniWlJ.net
ナマポも蔑むド底辺シリツ医大卒。
実例↓
>>
517 卵の名無しさん 2018/02/25(日) 11:36:00.56 ID:gq76tAvs
福岡のあの歯科大かな？
歯科口腔外科で抜歯依頼したら爺ちゃんが〇〇歯科大卒の先生は避けて下さいねがあった
けど。
この爺ちゃん、聖マリ卒の先生もよけて下さいと初診時に言ってた札付き爺さん。
生保受給者のくせにね。
<<
貧困の象徴たるナマポからも蔑まれるのがド底辺シリツ医大卒。
東京医大の事件で裏口どころか裏口バカであることが全国民の知るところとなった。
裏口シリツを選択せざるをえなかった生き方そのものが蔑まれているんだよね。
161:卵の名無しさん
20/12/16 14:26:47.77 /ddniWlJ.net
>>155
書いたやつも、おそらくシリツだろうね。
数学板の東大（理２）卒の常連からは礼を言われる。
やはり、東大卒は礼儀も弁えている。
まあ、プログラムできない奴が僻みを書いているけどな。
ｽﾚﾘﾝｸ(math板:932番)
>>929ご指摘ありがとう。
まだだれも平面上の計算過程を示さないんで、やってみる。
162:卵の名無しさん
20/12/16 14:35:30.41 7rnZYFrU.net
こんなところでイキるしか能のないイシャモドキで穀潰しのウリュウの爺さんが東大(自称だろうけど)と肩並べてる風なのは片腹痛いね。
163:卵の名無しさん
20/12/16 14:49:31.77 /ddniWlJ.net
>>129
>133への英文レスまだぁ？
164:卵の名無しさん
20/12/16 15:34:56.81 7rnZYFrU.net
社会でも5chでも相手にされてなくて可哀想だね。
165:卵の名無しさん
20/12/16 16:19:47.96 ygjl0GvB.net
>>161
その人も荒らしでしょ？
166:卵の名無しさん
20/12/16 17:04:52.81 /ddniWlJ.net
>>165
いや、解が一致したら素直に称賛されるよ。
面白い問題おしえて～な 33問目
ｽﾚﾘﾝｸ(math板:950番)
950 名前：１３２人目の素数さん[sage] 投稿日：2020/12/12(土) 15:51:44.74 ID:tBcxLPLm
>>946
おめでとうございます！
ω= 0.219658433130380823869031210227865511015886011600894
s = 2.890884055380349526169413032955250548001032854116709
L = 7.704879314770980144746397654607571423614259038122890
167:卵の名無しさん
20/12/16 17:06:29.48 /ddniWlJ.net
金がなくてシリツ医学部に入れなかったらなresentmentかもしれないが、
学力考査で国立医学部に進学していたら、シリツ医なんぞ蔑みの対象でしかないぞ。
国立医学部卒の意見を拝聴してみましょう。
ｽﾚﾘﾝｸ(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
ベテラン医師の意見も拝聴してみましょう。
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く、人生の選択って惨めだと思う。
168:卵の名無しさん
20/12/16 17:11:43.38 O60OJnEd.net
学歴を匿名の掲示板で自称されてもなぁ。笑
でもウリュウの爺さんが朝から晩まで5chして裕福な私立医大出身のお医者さんに狂おしいほど嫉妬してるのだけはハッキリしてる。
169:卵の名無しさん
20/12/16 17:12:41.78 /ddniWlJ.net
>>157
あんたは、これに該当？
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
170:卵の名無しさん
20/12/16 17:33:10.42 O60OJnEd.net
ウリュウさんよ
昨日指摘されたから一日何十件のレスはやめにして小出しにしてるんだな。笑
わかりやっすwでも瞬間湯沸かし器は隠せてないからバレバレだよ。
こんな平日でも1日中5chを監視して気に食わなかったら連投でコピペだの屁理屈こくような奴がまともな医者なわけがないし、社会の底辺だもんな。
それともまた内視鏡バイト()ですか。お前それしか言えないの？
171:卵の名無しさん
20/12/16 17:46:55.14 ygjl0GvB.net
1つ2つの称賛のレスは鵜呑みにするが、数値解やめろといういくつものレスは無視するバイアスおじさん
172:卵の名無しさん
20/12/16 17:47:14.67 ygjl0GvB.net
そして相変わらずのルサンチマン
173:卵の名無しさん
20/12/16 18:51:35.89 RyYFhCzE.net
勉強できないシリツ
VS
心が崩壊しているウリュウ
その心は
「どちらも違う意味同士のアホでございます」
って感じか？。
たまに暇つぶしに見てて愉快なスレはここだな。
多分、この後はお決まりの出題だろうな、まったく単純明快な行動だわ。
174:卵の名無しさん
20/12/16 19:51:34.12 lps7PuQt.net
人生始まったのが若いボンボンのお医者様
人生終わってるのがキチ○イウリュウ
175:卵の名無しさん
20/12/17 08:41:12.22 o+8+xlbs.net
URLﾘﾝｸ(hissi.org)
176:卵の名無しさん
20/12/17 14:08:03.67 6xyTseQI.net
穀潰しの分際で開業医の先生にまで迷惑かけてるのか。
177:卵の名無しさん
20/12/17 18:48:38.31 2+LmWy6M.net
>>171
数値解でしか、答が出せない問題じゃないの？
じゃあ、あんたがこの連立方程式の答を数値解以外でだしてみ！
s^2*ω - s*cos(ω)*s*sin(ω)+(s*sin(ω)/sin(ω+pi/3))^2*(pi-ω-pi/3) + s*sin(ω)/sin(ω+pi/3)*cos(θ)*s*sin(ω)=1
(s*sin(ω)/sin(ω+2/3*pi))^2*(ω+2*pi/3) + s*sin(ω)/sin(ω+2/3*pi)*cos(pi-(ω+2*pi/3))*s*sin(ω) - (s^2*ω - s*cos(ω)*s*sin(ω))=2
178:卵の名無しさん
20/12/17 18:52:03.91 2+LmWy6M.net
>>176
穀潰しって不労所得があんだろ、そんな生活ができたら羨ましい。
穀潰しって不労所得があるってことだよなぁ。
羨ましい。まあ、穀潰しと呼ばれても労働しなくていいなら、
裏口バカと蔑まれながら仕事をせざるをえないシリツ医よりマシなよなぁ。
179:卵の名無しさん
20/12/17 19:48:17.61 o3Ac9IGJ.net
ウリュウの爺さんは1日中5chしかやることがなくて無生産だから穀潰しなんです。不労所得と一緒にしないでください。
180:卵の名無しさん
20/12/17 21:20:11.68 c3BWs85Q.net
そんな面倒な式出さなくても五次方程式一本書けばいいだけのに
それにしても、あからさまに数値解しか出せないような問題は「高校数学」や「面白い問題」のスレにはお呼びでないってことが何故わからないのかな？
181:卵の名無しさん
20/12/17 21:50:44.42 gK2YPqF2.net
そもそもスレチ
182:卵の名無しさん
20/12/17 22:33:17.32 6xyTseQI.net
非医の5chで喚くしか能がないゴクツブシ、それがウリュウ
183:卵の名無しさん
20/12/18 07:34:10.12 73lqi/Tk.net
# 10人でジャンケンをして負けた人は次の回以後参加しないことにし、
# ちょうど1人の勝者が決まるまでジャンケンを繰り返すとき、
# 1人の勝者が決まるまでのジャンケンの回数の期待値を求めよ
sim <- function(n=10){ # n : number of players
p=vector('list',length=n) # probability list
p[[1]]=1
# p[[m]][[i]] probability of m players to i winners
for(m in 2:n){
k=1:(m-1)
p[[m]]=c(3^m-sum(3*choose(m,k)),3*choose(m,k))/3^m
}
# simulation of number of winners among n players
NW <- function(n,i=1){ # n:players, i:total plays
j=1
nw= sample(0:(n-1),1,prob=p[[n]]) # number of winners
while(nw==0){ # while no winner,repeats
j=j+1
nw=sample(0:(n-1),1,prob=p[[n]])
}
c(nw,i-1+j) # (number of winners, total plays)
}
wj=NW(n,1)
if(wj[1]==1) return(1) # single winner at initial play
while(wj[1]!=1){ # repeats till single winner determined
wj=NW(wj[1],wj[2])
}
return(wj[2])
}
y=sapply(2:10,function(n) mean(replicate(1e5,sim(n))))
184:卵の名無しさん
20/12/18 07:35:32.69 73lqi/Tk.net
>>180
いや、円周率を3.14として計算せよ、という入試問題あるけど、数値解しかだせねぇぞ。
185:卵の名無しさん
20/12/18 08:40:50.18 XyQujYuA.net
>>184
だから何？
186:卵の名無しさん
20/12/18 08:47:15.37 VPuQp8Ui.net
数学板と勘違いしてる認知症がいるみたい
187:卵の名無しさん
20/12/18 10:05:35.49 73lqi/Tk.net
# 10人でジャンケンをして負けた人は次の回以後参加しないことにし、 ちょうど1人の勝者が決まるまでジャンケンを繰り返すとき、
# 1人の勝者が決まるまでのジャンケンの回数の期待値を求めよ
sim <- function(n){ # n : number of players
p=vector('list',length=n) # probability list
p[[1]]=1
# p[[m]][[i]] probability of m players to i winners
for(m in 2:n){
k=1:(m-1)
p[[m]]=c(3^m-sum(3*choose(m,k)),3*choose(m,k))/3^m
}
counter=0 # play counter
# simulation of number of winners among n players
NW <- function(m){ # m:players -> (winners,junkens) till any winner
j=1
nw = sample(0:(m-1),1,prob=p[[m]]) # number of winners
while(nw==0){ # while no winner,repeats
j=j+1
nw=sample(0:(m-1),1,prob=p[[m]])
}
c(winner=nw,junkens=j) # (number of winners, total plays)
}
wj=NW(n)
if(wj[1]==1) return(wj[2]) # single winner at initial series
counter=wj[2]
while(wj[1]!=1){ # repeats till single winner determined
wj=NW(wj[1])
counter=counter+wj[2]
}
return(counter)
}
mean(replicate(1e6,sim(10)))
188:卵の名無しさん
20/12/18 10:06:10.10 73lqi/Tk.net
過疎スレを雑記帳として利用しているだけ。
189:卵の名無しさん
20/12/18 10:19:29.17 73lqi/Tk.net
>>185
円周率は3.14じゃないと言い張る奴もいるよなぁ。
そういうこと。
190:卵の名無しさん
20/12/18 10:25:45.15 VPuQp8Ui.net
過疎？
おかげさまで勢いトップクラスですが？
今日は何月何日何曜日ですか？今の季節は何ですか？
191:卵の名無しさん
20/12/18 10:33:33.33 XyQujYuA.net
>>189
どういうこと？
192:卵の名無しさん
20/12/18 12:23:10.26 3rzPjc+j.net
URLﾘﾝｸ(hissi.org)
193:卵の名無しさん
20/12/18 12:55:06.70 Q1Mlt5kk.net
"
問題
サイコロをn回振った時、出目の積が2^nの倍数になる確率はなんでしょう？
sim <- function(n) prod(sample(1:6,n,rep=T))%% (2^n) == 0
"
k=1e6
n=1:50
y=sapply(n,function(n) mean(replicate(k,sim(n))))
plot(n,y,pch=19,ylab='P')
plot(n,log(y))
lm=lm(log(y)~n)
lm$coef
P = exp(lm$coef[2]*n+lm$coef[1])
plot(n,y,ylab='P')
lines(n,P)
P = exp(-0.1139917)*n-0.9551989)
194:卵の名無しさん
20/12/18 13:20:51.47 Q1Mlt5kk.net
"
１０人から５人の勝者をジャンケンで選ぶのに、
１０人同時にジャンケンして５人が勝ち５人が負ける手がでるまでジャンケンを繰り返すことにする。
勝者が決まるまでの回数を当てる賭けをするとき、いくつに賭けるのが最も有利か？
"
rm(list=ls())
(p=choose(10,5)*3/3^10)
MASS::fractions(p)
1/p
sim <- function(){
flg=rbinom(1,1,p)
i=1
while(flg==0){
i=i+1
flg=rbinom(1,1,p)
}
i
}
y=replicate(1e5,sim())
hist(y,breaks=30,main='')
z=table(y)/sum(y)
plot(z)
BEST::plotPost(y)
qexp(0.95,p)
HDInterval::hdi(qexp,rate=p)
q=1-p
P=function(i) q^(i-1)*p
i=1:10000
plot(i,P(i),type='l')
sum(i*P(i))
195:卵の名無しさん
20/12/18 13:31:38.18 3rzPjc+j.net
患者さん、ここ数学板じゃないよ
196:卵の名無しさん
20/12/18 14:00:57.00 XyQujYuA.net
数学板にも必要ない
197:卵の名無しさん
20/12/18 14:27:04.18 wEqcH8BG.net
やはり、もののわかっている人はわかっているなぁ。
【愛知】飲み会やドライブ等で感染拡大か…藤田医科大学で学生15人が新型コロナに感染 いずれも病院実習等はなし [どどん★]
ｽﾚﾘﾝｸ(newsplus板:20番)
20 名前：ニューノーマルの名無しさん[sage] 投稿日：2020/12/17(木) 20:21:39.14 ID:C9xF9vuu0
な？私立医ってバカだろ？
198:卵の名無しさん
20/12/18 14:27:55.47 XyQujYuA.net
自分で書き込んでそうｗｗ
199:卵の名無しさん
20/12/18 14:29:15.27 3rzPjc+j.net
URLﾘﾝｸ(medical.nikkeibp.co.jp)
URLﾘﾝｸ(www.google.co.jp)
URLﾘﾝｸ(www.google.co.jp)
残念、国立でもクラスター起きちゃってるみたいよww
それに自称医科歯科風情が名門慶應様に楯突けるのか？
200:卵の名無しさん
20/12/18 14:30:18.50 wEqcH8BG.net
【愛知】飲み会やドライブ等で感染拡大か…藤田医科大学で学生15人が新型コロナに感染 いずれも病院実習等はなし [どどん★]
ｽﾚﾘﾝｸ(newsplus板:94番)
94 名前：ニューノーマルの名無しさん[sage] 投稿日：2020/12/17(木) 21:49:49.42 ID:jKpmq8fU0
藤田だぁ？バカの集まりだからな
201:卵の名無しさん
20/12/18 14:36:23.95 wEqcH8BG.net
これどっちなんだ？
【愛知】マスクせず会食やドライブ、藤田医科大生15人感染…クラスター認定へ [ばーど★]
ｽﾚﾘﾝｸ(newsplus板:176番)
176 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 14:30:06.09 ID:QNoMLfFo0
>ALL
愛知医科大学と藤田医科大学って，どっちが馬鹿で評判悪いの？
202:卵の名無しさん
20/12/18 14:37:37.87 3rzPjc+j.net
>>201
どちらかというとウリュウの方がバカかなぁ
203:卵の名無しさん
20/12/18 14:38:02.91 wEqcH8BG.net
次から次に正しい認識が投稿されている
141 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 11:14:00.09 ID:SjzutF2m0 (PC)
まあカネ積んで医者になるバカ大だからな
142 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 11:14:05.98 ID:5bzog2KO0 (PC)
>>7
ふ、藤田の医学生をアホと言うな！！
絶対に言うな！！！
絶対の絶対にだぞ！！！
143 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 11:19:01.66 ID:zCirZO8B0 (PC)
>>1
金持ちのバカ学生ザマーｗ
144 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 11:20:10.95 ID:tWQ61KqG0 (PC)
ここと聖マリアンヌと金沢医大と川崎医大のうちどこが1番偏差値低いんだっけ
204:卵の名無しさん
20/12/18 14:38:52.51 wEqcH8BG.net
123 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/17(木) 23:57:41.59 ID:CvPqjzq+0 [4/4] (PC)
>>114
名大と名市大医学部以外は残念大だよ
205:卵の名無しさん
20/12/18 14:41:46.42 3rzPjc+j.net
URLﾘﾝｸ(news.yahoo.co.jp)
さすが5ch。僻んでる奴らはウリュウ以外にもたくさんいるんだな。もしくは自演か。さすがゴミの掃き溜めだけあるわ。
こことは大違い。
206:卵の名無しさん
20/12/18 14:54:14.02 XyQujYuA.net
バイアスかかりすぎてて>>199とか認識できなそう
207:卵の名無しさん
20/12/18 16:48:13.93 wEqcH8BG.net
やっぱり、シリツ卒が総理じゃだめだな。
１０００年に一度の大地震と世界初の複数原発メルトダウンに同時に対処した民主党政権
今年３度目の感染拡大期を迎えてもまともに感染防止策をうてない自民党政権
こう書くと菅直人って実はずげぇ優秀だったんじゃねーかと思えてくる
コロナのときに安倍や菅が総理だったという不幸を日本人はずっと背負うことになりそう。
208:卵の名無しさん
20/12/18 16:50:46.84 wEqcH8BG.net
俺は額に刺青を義務付けるべきだと思うのだが。
【愛知】飲み会やドライブ等で感染拡大か…藤田医科大学で学生15人が新型コロナに感染 いずれも病院実習等はなし [どどん★]
ｽﾚﾘﾝｸ(newsplus板:110番)
110 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/17(木) 22:46:55.50 ID:ORdhrQ2Z0
シリツ出の医者は頭にピンク色の鉢巻着用を医師法で義務付けろ
国立出の医師に紛れ込ませるな
209:卵の名無しさん
20/12/18 17:00:19.71 wEqcH8BG.net
これも当然、シリツだよな？
URLﾘﾝｸ(i.imgur.com)
210:卵の名無しさん
20/12/18 17:08:04.04 XyQujYuA.net
バイアスおじさん
211:卵の名無しさん
20/12/18 17:10:05.91 RllL3ZdF.net
誰も反論する人がいないな。一般人も正しい認識を持ちつつあるな。
【愛知】飲み会やドライブ等で感染拡大か…藤田医科大学で学生15人が新型コロナに感染 いずれも病院実習等はなし [どどん★]
ｽﾚﾘﾝｸ(newsplus板:141番)
141 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 11:14:00.09 ID:SjzutF2m0
まあカネ積んで医者になるバカ大だからな
212:卵の名無しさん
20/12/18 17:20:46.68 RllL3ZdF.net
西村大臣は大人数で忘年会をした菅総理を擁護してしまったからね、
もう一般庶民は西村大臣の言う事など聴こうなんて思えないだろう、
まずは菅総理に忘年会、新年会はやらない様にと言わないとね。
総理だろうが何だろうが毅然とした態度で批判すべくは批判出来るひとでないと
信頼できない。
まあ俺は西村大臣にお願いされなくても国民の為に今年は忘年会も新年会もやらないし
三密を避ける努力もこまめな手洗いもしているけど、西村大臣に言われたからしているわけではなく
あくまで自分の為も含めて他の人の為にも感染拡大につながるような事は極力避けているけれどね。
213:卵の名無しさん
20/12/18 17:23:27.54 RllL3ZdF.net
ステーキ会食も謝ったり注意したらそれで済んだ話
国民の誤解だの、一律ではないだの、ただの要請だから…って言われたら馬鹿らしくなる
214:卵の名無しさん
20/12/18 17:33:32.63 /GB0JPhu.net
医学部ではない私立にも攻撃を始めるバイアスおじさん
215:卵の名無しさん
20/12/18 19:00:49.24 3rzPjc+j.net
若さなし金なし医師免許なし将来なし
それがウリュウ
216:卵の名無しさん
20/12/18 21:15:41.73 RllL3ZdF.net
やはり、こういう正しい理解をする人が増えてきた。
217:卵の名無しさん
20/12/18 21:15:53.93 RllL3ZdF.net
>>216
【愛知】マスクせず会食やドライブ、藤田医科大生15人感染…クラスター認定へ [ばーど★]
ｽﾚﾘﾝｸ(newsplus板:200番)
200 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 20:16:06.36 ID:X5N0awuC0
偏差値低めの私立医大はマジでクズしかいないからな
金だけ与えられて躾されなかった不完全人間ばっかり
218:卵の名無しさん
20/12/18 21:16:23.69 RllL3ZdF.net
>>214
シリツ卒の総理が長く続くと国立大学が衰退するよなぁ。
219:卵の名無しさん
20/12/18 21:16:41.61 RllL3ZdF.net
【愛知】マスクせず会食やドライブ、藤田医科大生15人感染…クラスター認定へ [ばーど★]
ｽﾚﾘﾝｸ(newsplus板:200番)
200 名前：ニューノーマルの名無しさん[] 投稿日：2020/12/18(金) 20:16:06.36 ID:X5N0awuC0
偏差値低めの私立医大はマジでクズしかいないからな
金だけ与えられて躾されなかった不完全人間ばっかり
220:卵の名無しさん
20/12/18 22:12:39.99 M/qL/GQk.net
自演じゃん
221:卵の名無しさん
20/12/18 22:52:14.12 M/qL/GQk.net
おいコラジジイ！
国立でもクラスター出てるってどういうことだよ！
学力関係ねぇじゃん。
あ、ウリュウ爺さんは医者でも医学生でもなかったか。
失礼しました。笑
222:卵の名無しさん
20/12/18 23:18:51.32 /GB0JPhu.net
バイアスおじさんちょくちょくid変わるし、自演だろうなあ
223:卵の名無しさん
20/12/18 23:21:40.02 M/qL/GQk.net
URLﾘﾝｸ(hissi.org)
多分これを指摘されたからだと思われますw
224:卵の名無しさん
20/12/19 02:39:46.42 MYQ35Xr8.net
URLﾘﾝｸ(hissi.org)
225:卵の名無しさん
20/12/19 11:20:53.80 nBT3h0j1.net
Declaration of Do-Teihen
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, Do-Teihen (exclusively bottom-leveled medical school,also known as Gachi'Ura) 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 Do-Teiken 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 Do-Teihen.
Prudence, indeed, will dictate that "uraguchi" long established cannot be changed for light and transient causes;
and accordingly all experience has shown, that Gachi'Ura are more disposed to suffer, while evils are sufferable, than to right themselves by abolishing the forms from which they can pursue profit.
But when a long train of misbehavior and misconduct , showing invariably the same Imbecility evinces a design to reveal themselves as absolute Bona Fide Moron ,
it is their right, it is their duty, to expel such "uraguchi", and to provide new guards for their future security.
There will be no English response from bona fide Gachi'Ura morons.
Last but not least,
it is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
226:卵の名無しさん
20/12/19 12:02:43.49 MYQ35Xr8.net
ウリュウ爺さん＝5chで発狂するしか能のない無生産な社会の底辺
これは変わらないので。
若さなし医師免許なし金なし将来なし、それがウリュウ。
227:卵の名無しさん
20/12/19 18:26:42.77 RrTmCVbf.net
>>219
鬼の首でも取ったかのようだけど残念ながら他の医学部や病院でも既にクラスター起きてるから藤田医科大学だけの問題じゃないんだなwざーんねーんw
228:卵の名無しさん
20/12/20 10:13:55.93 +pZrF0AS.net
URLﾘﾝｸ(hissi.org)
229:卵の名無しさん
20/12/20 11:55:53.72 XdU9jNSC.net
医師でもないキチガイが医師板に張り付いてるから相手すんなよ
230:卵の名無しさん
20/12/20 13:50:10.88 vQ8bvekC.net
何でドサクサに紛れて民主党を賛美してるバカが居るんだよ
中国にガス田を売ったり北海道、沖縄の土地を手引きしたりしてやがるのに
231:卵の名無しさん
20/12/20 14:25:20.53 hflMMSV/.net
スレタイ読めない認知症がここにも一人
232:卵の名無しさん
20/12/20 14:44:22.08 vQ8bvekC.net
民主党賛美には言わずに俺には言う贔屓をやるのな
どうやら民主党の犬か
233:卵の名無しさん
20/12/20 14:50:06.40 hflMMSV/.net
いやそもそもスレチというか板違いなのでお引き取りください
234:卵の名無しさん
20/12/20 16:08:28.41 QbQbZaFw.net
ほーじゃほーじゃ出てけクソやろ
235:卵の名無しさん
20/12/20 20:15:32.26 vQ8bvekC.net
図星か
236:卵の名無しさん
20/12/20 21:46:11.20 Dvgkrmf9.net
被害妄想か。
認知症というよりシゾやな。失礼。
237:卵の名無しさん
20/12/20 22:23:55.60 xWUxFaGS.net
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
238:卵の名無しさん
20/12/20 22:44:27.65 okMfWQyO.net
常識的に考えて、非医がこの板に何年も執着した挙句こんなスレまでたてられて散々罵倒されるのは正気の沙汰じゃないなと思います。
239:卵の名無しさん
20/12/21 00:24:42.41 bRUvkX+j.net
fn <- function(){
ABC=runif(1,0,pi/2) # ∠ABC,∠DCBは0~90°から乱数で選ぶ
DCB=runif(1,0,pi/2)
# ABC=pi/180*80
# DCB=pi/180*45
L8=8 # ADの長さ
L14=14 # BCの長さ
S3=3
S8=8
rS=(S3+S8)/(S8) # 台形ABCD,台形PBCQの面積比 11/8
AD2S <- function(AD=L8,BC=L14,b=ABC,c=DCB,print=F){
# AB : y = tan(b)*x
# DC : y = tan(pi-c)*(x-BC) = -tan(c)*(x-BC)
# A(a1,tan(b)*a1)
# tan(b)*a1=-tan(c)*( a1+AD -BC)
a1 = tan(c)*(BC-AD)/(tan(b)+tan(c))
A=a1+1i*tan(b)*a1
B=0i
C=BC+0i
D=a1+AD + 1i*tan(b)*a1
if(print){ plot(NULL,xlim=c(0,L14),ylim=c(0,Im(A)), asp=1,ann=F,bty='n',axes=F) ; axis(1)
B=0i;C=L14+0i;pt(B,'B');pt(C,'C');seg(B,C)
a1 = tan(c)*(L14-L8)/(tan(ABC)+tan(DCB))
A=a1+1i*a1*tan(ABC);pt(A,'A');seg(A,B)
CD0=1i*(0-L14)*tan(pi-DCB)
D=intsect(C,CD0,A,A+1)
pt(D,'D');seg(D,C);seg(A,D)}
ABC2S(A,B,C)+ABC2S(A,D,C)
}
240:卵の名無しさん
20/12/21 00:24:52.28 bRUvkX+j.net
ABCD=AD2S(print=T)
PQ=uniroot(function(x) ABCD/AD2S(x)-rS,c(L8,L14))$root
PQ
b=ABC
c=DCB
BC=L14
a1 = tan(c)*(BC-PQ)/(tan(b)+tan(c))
P=a1+1i*tan(b)*a1
B=0i
C=BC+0i
Q=a1+PQ + 1i*tan(b)*a1
pt(P,'P') ; pt(Q,'Q')
seg(P,Q,col=2)
R=6+0i
pt(R,'R')
a0 = tan(c)*(BC-L8)/(tan(b)+tan(c))
A=a0+1i*tan(b)*a0
seg(A,R,col=8)
S=intsect(A,R,P,Q) ; pt(S,'S')
axy(tan(b),S,2,Re(A)+2)
axy(tan(b),S+2,4,Re(A)+4)
axy(tan(b),S+4,6,Re(A)+6)
axy(tan(b),S+6,8,Re(A)+8)
axy(tan(b),Q,10,Re(Q))
q=intsect(12+0i,13+1i*tan(b),C,Q)
seg(12+0i,q)
for(j in 1:4) seg(A+2*j,S+2*j)
for(j in 0:4) seg(P+2*j,B+4+2*j)
p=intsect(1i*tan(pi-c)*(0-2),2+0i,A,B)
seg(p,2+0i); seg(p,q)
}
241:卵の名無しさん
20/12/21 00:25:00.94 bRUvkX+j.net
layout(1) ; fn()
layout(matrix(1:4,2,2)) ; for(i in 1:4) fn()
242:卵の名無しさん
20/12/21 00:25:30.42 bRUvkX+j.net
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
243:卵の名無しさん
20/12/21 00:52:36.34 H+VLhK4X.net
そんなに東医の学生が羨ましくて仕方ないんだね。分かった分かった。
でもさ、そんな僻んでる暇があったら学費0の防衛医科大学でも目指したらいかが？あ、年齢的に無理かww
244:卵の名無しさん
20/12/21 00:54:00.53 H+VLhK4X.net
もうコピペ貼るしか能がないんだね。
非医どころかサル以下だわ。
245:卵の名無しさん
20/12/21 02:05:56.90 H+VLhK4X.net
悔し紛れにコピペ
無様だね
246:卵の名無しさん
20/12/21 11:46:32.79 endXChxS.net
>>244
自分で書いた文章だからね。
247:卵の名無しさん
20/12/21 11:47:28.35 endXChxS.net
>>238
俺、ウリュウじゃないんだが。
シリツ医大＝裏口容疑者は日本の常識。
248:卵の名無しさん
20/12/21 11:49:20.45 endXChxS.net
ド底辺シリツ医には親が裏口入学とカミングアウトしたら子供までも裏口入学と断定する奴がいるんだよなぁ。
本人がそうなので類推したのでないかと推測している。
249:卵の名無しさん
20/12/21 11:51:24.49 endXChxS.net
ｽﾚﾘﾝｸ(hosp板:28番)
は個人を特定した名誉毀損だと思うので通報しておいたよ。
250:卵の名無しさん
20/12/21 11:52:34.29 endXChxS.net
シリツ医＝裏口容疑者
これは日本の常識
251:卵の名無しさん
20/12/21 11:53:04.54 jv66qwt7.net
日医大を威張るキチガイ病院Ｂ長にはワロタ
252:卵の名無しさん
20/12/21 12:11:26.41 endXChxS.net
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明だと思う。
僕も裏口入学と公言したシリツ医の学力をみてみましょう。
この程度の頭脳。比例計算すら間違える。
URLﾘﾝｸ(news.yahoo.co.jp)