高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
72: １３２人目の素数さん [sage] 2024/08/17(土) 14:29:59.78 ID:mowI5mD2 (* 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; Table[Boole[Length@Union@RandomSample[b,3]==3],k] // Mean // N http://rio2016.5ch.net/test/read.cgi/math/1723152147/72
73: １３２人目の素数さん [sage] 2024/08/17(土) 14:30:43.53 ID:mowI5mD2 Wolfram言語に少々なれてきた。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/73
74: １３２人目の素数さん [sage] 2024/08/17(土) 14:48:01.69 ID:mowI5mD2 (* 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}] http://rio2016.5ch.net/test/read.cgi/math/1723152147/74
75: １３２人目の素数さん [sage] 2024/08/17(土) 14:49:16.87 ID:mowI5mD2 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 http://rio2016.5ch.net/test/read.cgi/math/1723152147/75
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.037s