[過去ﾛｸﾞ] 分からない問題はここに書いてね457 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

126: 2019/12/31(火)11:17 ID:tmESw+mK(1/8) AAS
>>71
画像ﾘﾝｸ[jpg]:i.imgur.com
のように名付けて
角P（もとの問題では３６°）、角Q（２４°）を変化させて角Iの大きさをグラフ化してみた。
画像ﾘﾝｸ[jpg]:i.imgur.com

＊が３６°２４°のとき。

---

129: 2019/12/31(火)12:04 ID:tmESw+mK(2/8) AAS
>>124
３０人を３部屋で
２９番と３０番が同じ組になる場合の数は
> 3*factorial(28)/factorial(10)/factorial(10)/factorial(8) # 3*28!/(10!*10!*8!)
[1] 1722723142140
とても虱潰しじゃあ、扱えないぁ。

---

131: 2019/12/31(火)13:01 ID:tmESw+mK(3/8) AAS
>>124
９人３部屋の場合を計算させてみた。　乱数発生でのシミュレーションでなくて虱潰しに列挙して加算。
person1 とperson 2が同室になる確率。
> data.frame(person[1,],person[2,],同室確率=p)
person.1... person.2... 同室確率
1 1 2 0.3333333333
2 1 3 0.3333333333
省34

---

132: 2019/12/31(火)13:12 ID:tmESw+mK(4/8) AAS
>>117
いつも、華麗なコードのアップロードありがとうございます。

１００万回のシミュレーションも３桁の一致にとどまることが認識できました。
> mean(replicate(1e6,sim(n=30,a=29,b=30)))
[1] 0.741349

---

148: 2019/12/31(火)18:06 ID:tmESw+mK(5/8) AAS
>>139
面倒なのでPCで解く、P(p,2-p)として

f <- function(p,A=2+3i,B=5+3i){
P=p+(2-p)*1i
abs(A-P)+abs(B-P)
}
optimise(f,c(-50,50),tol = .Machine$double.eps)
省6

---

157(1): 2019/12/31(火)22:37 ID:tmESw+mK(6/8) AAS
>>154
９人３部屋だと０．５を超えない？他はパソコン計算での少数表示と合致したけど。

> # AB最後の２人の順位,rmax:部屋数,rcap:各部屋定員
> Same_Room(AB=c(5,6),rmax=2,rcap=3) ; 5/8
[1] 0.625
[1] 0.625
> Same_Room(AB=c(5,6),rmax=3,rcap=2) ; 7/18
省11

---

158(1): 2019/12/31(火)22:46 ID:tmESw+mK(7/8) AAS
>>139
ちょっと問題を直線から円に変えてみた。

平面上に2点A(2，3)，B(5，3)と円x^2+y^2=2^2がある。この直線上に点Pをとるとき，
AP+BPを最小にするような点Pの座標を求めよ。

---

159(1): 2019/12/31(火)22:57 ID:tmESw+mK(8/8) AAS
>>158
思考停止のパソコン解

f <- function(theta,A=2+3i,B=5+3i){
P=2*cos(theta)+2i*sin(theta)
abs(A-P)+abs(B-P)
}
opt=optimise(f,c(-pi,pi))
省4

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.031s