21/03/01 21:33:33.15 ESKPIe+v.net
>>258
悔しいのう。
270:卵の名無しさん
21/03/01 21:34:08.60 ESKPIe+v.net
トケジ、スレタイも読めない
271:卵の名無しさん
21/03/02 10:52:31.92 EygxTbXG.net
# 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)
272:卵の名無しさん
21/03/02 10:54:17.97 EygxTbXG.net
>>260
スレタイの結論は 然り で終了だから、 ここは草稿の備忘録。
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
これからも逃げまくり
>ｽﾚﾘﾝｸ(hosp板:28番)
後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、
273:卵の名無しさん
21/03/02 10:56:53.29 ERQdQO6O.net
国立医に落ち続けて
結局 私立医に裏口トライした福岡が文武両道とかｗ
私立医はお高いですねｗ
274:卵の名無しさん
21/03/02 11:41:50.03 a5vMcwmP.net
>>262
どのみち非医のお前には関係のない話だからな。
275:卵の名無しさん
21/03/02 13:06:02.95 q0cF+WXK.net
ココ↓は？
URLﾘﾝｸ(twitter.com)
(deleted an unsolicited ad)
276:卵の名無しさん
21/03/02 13:49:29.50 a5vMcwmP.net
これからも将来もみんなに期待され続けている福岡
これからも晩年も誰にも相手にされていないからここで発狂するしかやることのないトケジ
どっちの人生がいい？
277:卵の名無しさん
21/03/02 20:25:12.96 gQEFJQ5s.net
相手にするな、一生パソコンに張り付いて独り相撲してろ
278:卵の名無しさん
21/03/02 20:29:21.33 EygxTbXG.net
# 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)
279:卵の名無しさん
21/03/02 20:48:25.97 ERQdQO6O.net
福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ
280:卵の名無しさん
21/03/02 21:02:45.39 EygxTbXG.net
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の金貨を黄金比に切断
281:卵の名無しさん
21/03/02 21:03:00.48 EygxTbXG.net
# 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)
282:卵の名無しさん
21/03/02 21:03:15.81 EygxTbXG.net
# 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,
283: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)
284:卵の名無しさん
21/03/02 21:08:26.25 EygxTbXG.net
厳密解は多分だせないだろうな。
数値積分で出した値で描画。
URLﾘﾝｸ(i.imgur.com)
285:卵の名無しさん
21/03/02 23:50:47.98 gQEFJQ5s.net
そのわけのわからんくだらん数式を応用して金になる
プログラムでも書いてみたら？日本の医者なんて世界的に見れば
大した待遇じゃな
286:卵の名無しさん
21/03/03 07:04:57.81 5l5/qLtN.net
>>269
本音ではトケジも医者になりたかったんだ
でも頭が悪すぎてここに粘着するしかなくなったんだ
福岡はいままでもこれからも期待される人生だというのに
287:卵の名無しさん
21/03/03 08:01:27.64 5l5/qLtN.net
当直医スレでついに非医自白か
このオツムじゃ当然医者になれないわな
288:卵の名無しさん
21/03/03 10:33:17.44 mPhtBbV4.net
福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ
裏口トライ！
289:卵の名無しさん
21/03/03 11:47:19.98 VMsZNV9q.net
>>277
うんうん�
290:Aでもプロ選手じゃ仕方ないよ 誰にも真似できないし でもお前はどうなんだ？福岡と比べると目も当てられない惨状じゃないか
291:卵の名無しさん
21/03/03 16:02:41.35 TpE7MNeT.net
不正入試も？医学部受験の闇
URLﾘﾝｸ(www.youtube.com)
この動画をみれば私立医学部入試のおかしさがわかる。
俺は息子は国立に行かせたし俺も国立出身。
ちな息子も俺も東北大学です。
292:卵の名無しさん
21/03/03 16:06:26.07 TpE7MNeT.net
>>276
統計学とプログラミングができるから頭が悪いとは思わない。
これまでの投稿の内容を見ると医科歯科大出身も嘘ではないと思う。
293:卵の名無しさん
21/03/03 17:11:48.40 RNCA+Q6l.net
>>279
国立卒の医師は堂々と卒業大学を名乗れる。母校に誇りがあるからね。
新型コロナで首都の国立大学の使命を果たしている母校を誇りに思う。
俺の勤務先に附設の老健でクラスター発生したのでその苦労はよくわかる。
294:卵の名無しさん
21/03/03 18:55:15.96 5l5/qLtN.net
>>280
統計？プログラム？
医者になるために必要なことか？
非医だからそんなことも分からないんだね。
295:卵の名無しさん
21/03/03 18:56:27.04 5l5/qLtN.net
大体医科歯科大なんてこいつが言ったのか？
もう自分で自演ですって言ってるようなものじゃんw
バカは死ななきゃ治らないのかな？
296:卵の名無しさん
21/03/03 19:34:25.71 RNCA+Q6l.net
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
297:卵の名無しさん
21/03/03 20:06:17.98 RNCA+Q6l.net
【リコール不正】高須克弥さん「河村市長の勧めがなかったらリコールなんかしなかった」 ★3 [和三盆★]
ｽﾚﾘﾝｸ(newsplus板)
298:卵の名無しさん
21/03/03 21:00:05.16 mPhtBbV4.net
筑波大学の非医だった福岡ですら
余裕の順天合格よｗ
国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ
299:卵の名無しさん
21/03/03 22:14:18.64 5l5/qLtN.net
>>286
で？お前は？
まさか医師免許持ってないの？
300:卵の名無しさん
21/03/03 23:17:41.11 PWqLtF5b.net
# θを0<θ≦π/2の実数の定数とする。
# 曲線C:y=1-x^2(-1≦x≦1)を原点中心にθだけ回転させたとき、
# Cが通過しうる領域の面積をθで表せ。
URLﾘﾝｸ(i.imgur.com)
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)
}
301:卵の名無しさん
21/03/03 23:21:18.98 TpE7MNeT.net
>>282
統計学は必要�
302:ｾよ。 そんなこともわからないなんて非医だろ。
303:卵の名無しさん
21/03/03 23:23:39.87 5l5/qLtN.net
>>289
それに固執してること自体非医の証。
304:卵の名無しさん
21/03/03 23:23:50.89 TpE7MNeT.net
低学力の医者ってアウトだよね。
英語が読めないとかさ、終わってるよ。
305:卵の名無しさん
21/03/03 23:26:40.83 5l5/qLtN.net
ｽﾚﾘﾝｸ(hosp板)
385 卵の名無しさん[] 2021/03/02(火) 10:55:27.20 ID:ERQdQO6O
私立医が低脳ってよくわかるよね
非医相手に必死な割に毎回同じことばかり
とじげとかうりょうとかｗ
やっぱ馬鹿なんだろうねｗ
やっぱり非医か。
語るに落ちたな。本当バカだね～
306:卵の名無しさん
21/03/04 11:53:13.20 9BNEQtVg.net
>>292
自分で非医だと暴露。
これじゃ誰も相手になんかしてくれないよね。最初からわかってたけど。
307:卵の名無しさん
21/03/04 13:08:44.53 KqqjVMm7.net
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]
308:卵の名無しさん
21/03/04 13:32:07.33 KqqjVMm7.net
統計できない人は進級させなくていいですから
でグーグル検索すると母校の教授の話としてヒットする。
309:卵の名無しさん
21/03/04 13:59:06.74 KqqjVMm7.net
赤玉白玉がが同数の混ざった玉の中からカジノ業者が色をみないで無作為に５個の玉を取り出して袋にいれた。
赤白の内訳はカジノ業者も知らないが、赤玉２個白玉３個はいっているという触れ込みで
２個取り出して両方が赤玉であれば賞金がもらえるというギャンブルを始めた。袋から取り出した玉は各回毎に元に戻す。
両方が赤玉である確率は1/10なので10回やれば1回は賞金が貰えると考えた太郎君は10回のギャンブルを行った結果、
赤1個白1個の組み合わせが7回、白2個の組み合わせが3回であった。
太郎君は「このギャンブルはイカサマだ、赤玉1個しか入っていない」と言い出した。
太郎君の主張が正しい確率を求めよ。
310:卵の名無しさん
21/03/04 14:52:15.23 oQoNLmUH.net
非医ってことには何も言えないのか？
311:卵の名無しさん
21/03/04 15:15:15.13 KqqjVMm7.net
# 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
312:卵の名無しさん
21/03/04 15:24:34.69 ENUwVEHf.net
筑波大学の非医だった福岡ですら
余裕の順天合格よｗ
国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ
あーあ 非医の福岡にすらコケにされちゃってｗ
313:卵の名無しさん
21/03/04 15:30:32.51 KqqjVMm7.net
>>297 第三法則実証乙
ド底辺医大の三法則
1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
314:卵の名無しさん
21/03/04 15:32:02.62 KqqjVMm7.net
>>297
>296の答はド底辺シリツ医のド底辺頭脳じゃ無理だろ。
137814358602979799126269559751600/748288900227117976246866338434667
315:卵の名無しさん
21/03/04 16:34:49.68 KqqjVMm7.net
シミュレーションで検算
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の割合
316:卵の名無しさん
21/03/04 17:25:10.85 9BNEQtVg.net
>>292
何しろ自ら自白したんだからなぁ。
ここにいるどの医者の足元にも及ばないゴミということが。
317:卵の名無しさん
21/03/04 17:29:14.92 9BNEQtVg.net
そんなに福岡が妬ましいか？
お前は国立も私立も無理だろ？
318:卵の名無しさん
21/03/04 20:38:10.70 8mofYkQZ.net
人生が受験の時点で止まってんだろ
実に愚かだ、まともに働けばくだらないことは
考えなくなる。そんなに頭がいいのであれば
パソコンを使って稼ぐことも可能なはず
何もせずに掲示板で独り相撲することこそ
人生を浪費している、可能性を潰している
医学部なんかどうでもいい話
319:卵の名無しさん
21/03/04 20:55:06.00 9BNEQtVg.net
>>305
大半の人が20歳までにカタがつくことにいつまでも執着し続ける万年浪人生メンタルのままジジイになったらこんな悲惨なことになるといういい反面教師ですな。
オツムがまともだったらどうしていつまでもここで粘着してるのかな？
ルサンチマンで人生塗りつぶされるなんて哀れだね。
320:卵の名無しさん
21/03/05 01:30:07.82 V3FZdzxB.net
底辺私立医大卒の医者こそ勝ち組だろ。
だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。
321:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています