高校数学の質問スレ（医者・東大卒専用） Part438 (368ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

72: 08/17(土)14:29 ID:mowI5mD2(1/4) AAS
(*
10人のうち血液型A,O,B,ABの人がそれぞれ4,3,2,1人いる。
この中から無作為に3人を選んだとき3人の血液型がすべて異なる確率を求めよ。
シミュレーションしてその数値が正しいことを検証せよ。
*)
b= {1, 2, 2, 3, 3, 3, 4, 4, 4, 4};
c = Subsets[b,{3}];
Total@Boole[Length@Union@# ==3 & /@ c]/Length@c
% // N
k=10^6;
省1

---

73: 08/17(土)14:30 ID:mowI5mD2(2/4) AAS
Wolfram言語に少々なれてきた。

---

74: 08/17(土)14:48 ID:mowI5mD2(3/4) AAS
(*
10人のうち血液型A,O,B,ABの人がそれぞれ4,3,2,1人いる。
この中から無作為に n 人を選んだとき血液型がすべて異なる確率を求めるソルバーを作れ。
*)
solve[n_] :=(
b= {1, 2, 2, 3, 3, 3, 4, 4, 4, 4};
c = Subsets[b,{n}];
Total@Boole[Length@Union@# ==Min[n,4] & /@ c]/Length@c
)
Table[solve[n],{n,1,10}]

---

75(1): 08/17(土)14:49 ID:mowI5mD2(4/4) AAS
In[3]:= Table[solve[n],{n,1,10}]

7 5 4 2 7 19 7 9
Out[3]= {1, -, --, --, -, --, --, -, --, 1}
9 12 35 7 15 30 9 10

---

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

---

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

---

ぬこの手 ぬこTOP 0.936s*