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:卵の名無しさん
21/03/03 23:23:39.87 5l5/qLtN.net
>>289
それに固執してること自体非医の証。
303:卵の名無しさん
21/03/03 23:23:50.89 TpE7MNeT.net
低学力の医者ってアウトだよね。
英語が読めないとかさ、終わってるよ。
304:卵の名無しさん
21/03/03 23:26:40.83 5l5/qLtN.net
ｽﾚﾘﾝｸ(hosp板)
385 卵の名無しさん[] 2021/03/02(火) 10:55:27.20 ID:ERQdQO6O
私立医が低脳ってよくわかるよね
非医相手に必死な割に毎回同じことばかり
とじげとかうりょうとかｗ
やっぱ馬鹿なんだろうねｗ
やっぱり非医か。
語るに落ちたな。本当バカだね～
305:卵の名無しさん
21/03/04 11:53:13.20 9BNEQtVg.net
>>292
自分で非医だと暴露。
これじゃ誰も相手になんかしてくれないよね。最初からわかってたけど。
306:卵の名無しさん
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]
307:卵の名無しさん
21/03/04 13:32:07.33 KqqjVMm7.net
統計できない人は進級させなくていいですから
でグーグル検索すると母校の教授の話としてヒットする。
308:卵の名無しさん
21/03/04 13:59:06.74 KqqjVMm7.net
赤玉白玉がが同数の混ざった玉の中からカジノ業者が色をみないで無作為に５個の玉を取り出して袋にいれた。
赤白の内訳はカジノ業者も知らないが、赤玉２個白玉３個はいっているという触れ込みで
２個取り出して両方が赤玉であれば賞金がもらえるというギャンブルを始めた。袋から取り出した玉は各回毎に元に戻す。
両方が赤玉である確率は1/10なので10回やれば1回は賞金が貰えると考えた太郎君は10回のギャンブルを行った結果、
赤1個白1個の組み合わせが7回、白2個の組み合わせが3回であった。
太郎君は「このギャンブルはイカサマだ、赤玉1個しか入っていない」と言い出した。
太郎君の主張が正しい確率を求めよ。
309:卵の名無しさん
21/03/04 14:52:15.23 oQoNLmUH.net
非医ってことには何も言えないのか？
310:卵の名無しさん
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
311:卵の名無しさん
21/03/04 15:24:34.69 ENUwVEHf.net
筑波大学の非医だった福岡ですら
余裕の順天合格よｗ
国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ
あーあ 非医の福岡にすらコケにされちゃってｗ
312:卵の名無しさん
21/03/04 15:30:32.51 KqqjVMm7.net
>>297 第三法則実証乙
ド底辺医大の三法則
1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
313:卵の名無しさん
21/03/04 15:32:02.62 KqqjVMm7.net
>>297
>296の答はド底辺シリツ医のド底辺頭脳じゃ無理だろ。
137814358602979799126269559751600/748288900227117976246866338434667
314:卵の名無しさん
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の割合
315:卵の名無しさん
21/03/04 17:25:10.85 9BNEQtVg.net
>>292
何しろ自ら自白したんだからなぁ。
ここにいるどの医者の足元にも及ばないゴミということが。
316:卵の名無しさん
21/03/04 17:29:14.92 9BNEQtVg.net
そんなに福岡が妬ましいか？
お前は国立も私立も無理だろ？
317:卵の名無しさん
21/03/04 20:38:10.70 8mofYkQZ.net
人生が受験の時点で止まってんだろ
実に愚かだ、まともに働けばくだらないことは
考えなくなる。そんなに頭がいいのであれば
パソコンを使って稼ぐことも可能なはず
何もせずに掲示板で独り相撲することこそ
人生を浪費している、可能性を潰している
医学部なんかどうでもいい話
318:卵の名無しさん
21/03/04 20:55:06.00 9BNEQtVg.net
>>305
大半の人が20歳までにカタがつくことにいつまでも執着し続ける万年浪人生メンタルのままジジイになったらこんな悲惨なことになるといういい反面教師ですな。
オツムがまともだったらどうしていつまでもここで粘着してるのかな？
ルサンチマンで人生塗りつぶされるなんて哀れだね。
319:卵の名無しさん
21/03/05 01:30:07.82 V3FZdzxB.net
底辺私立医大卒の医者こそ勝ち組だろ。
だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。
320:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています