高校数学の質問スレ（医者・東大卒専用） Part438 (750ﾚｽ)
上下前次1-新
71: 2024/08/17(土)13:19 ID:dkCzRgHk(2/4) AAS
>>66ここのスレではダンマリ決め込んでるみたい
ようやく自分が医者でも東大卒でもないことがわかったの？
72: 2024/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: 2024/08/17(土)14:30 ID:mowI5mD2(2/4) AAS
Wolfram言語に少々なれてきた。
74: 2024/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): 2024/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
76: 2024/08/17(土)15:09 ID:dkCzRgHk(3/4) AAS
>>75
で、尿瓶チンパンジジイはこれはいつになったら解けるの？
①√2は無理数であることを証明せよ。
②1+2+…+2024は何桁の整数か。
77: 2024/08/17(土)15:10 ID:dkCzRgHk(4/4) AAS
頭が悪すぎてフルボッコにされていることも理解できないみたいだねw
>>69に5択すら選べないみたいだしそこまでしてバカにされたい？w
78(1): 2024/08/17(土)18:23 ID:g0prVaq1(1) AAS
質問スレなのに質問が無い
79(1): 2024/08/18(日)06:09 ID:Qg46pTwQ(1/3) AAS
(* n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* 勝者が1人になるまでのジャンケン回数の期待値 *)
je={1};
AppendTo[je,x /. Solve[x == ja[2,0]x +1 ,x][[1]][[1]]]
AppendTo[je,x /. Solve[x == ja[3,0]x + ja[3,2]je[[2]]+1][[1]][[1]] ]
AppendTo[je,x /.Solve[x == ja[4,0]x + ja[4,3]je[[3]] + ja[4,2]je[[2]] + 1,x][[1]][[1]]]
80(2): 2024/08/18(日)06:11 ID:Qg46pTwQ(2/3) AAS
>>78
では、質問
王様（王位にある人） と 王様でない人とはどちらが多いでしょうか?
81(1): 2024/08/18(日)06:46 ID:Qg46pTwQ(3/3) AAS
(* n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* 勝者が1人になるまでのジャンケン回数の期待値 *)
je={0};
AppendTo[je,x /. Solve[x == ja[2,0]x +1 ,x][[1]][[1]]]
AppendTo[je,x /. Solve[x == ja[3,0]x + ja[3,2]je[[2]]+1][[1]][[1]] ]
AppendTo[je,x /.Solve[x == ja[4,0]x + ja[4,3]je[[3]] + ja[4,2]je[[2]] + 1,x][[1]][[1]]]
省9
82: 2024/08/18(日)11:13 ID:fBcVsaRS(1/2) AAS
>>80
スレタイ読めないアホ発見
83: 2024/08/18(日)13:29 ID:S1VoGAV5(1/3) AAS
>>81
アルゴリズムのバグ発見したのでデバッグ
(* ja[n_,m_] := n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
je={1};
AppendTo[je,x /. Solve[x == ja[2,0](x +1)+ja[2,1] ,x][[1]]]
省10
84(1): 2024/08/18(日)14:21 ID:S1VoGAV5(2/3) AAS
４０人のクラスで代表１人をジャンケンで選ぶ。
全員でのジャンケンから始めてその勝者でジャンケンを続けることを繰り返す。
代表が決まるまでのジャンケンの回数の期待値を求めよ。
答は分数もしくは小数第１位を四捨五入にした整数でよい。
(* ja[n_,m_] := n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
省7
85: 2024/08/18(日)15:28 ID:fBcVsaRS(2/2) AAS
>>84
自称有能ならレス乞食しないで自分で勝手にやってろよ
86(2): 2024/08/18(日)20:29 ID:S1VoGAV5(3/3) AAS
このスレならこの程度の問題にしていただきたいね。
iのi乗根は無理数であることを示せ
1+2+3+...+2024!を7進法で表示すると何桁の数になるか算出せよ。
87: 2024/08/18(日)21:48 ID:LYw/XosF(1) AAS
>>86
そんな簡単ならさっさと答えろよレス乞食
88(1): 2024/08/19(月)05:30 ID:qPuO+ITh(1) AAS
(* jan[n_,m_] := n 人でジャンケンして参加者が m 人になる確率 *)
jan[n_,m_] := (
If[m==0 || m>n, Return[0]];
If[m==n,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
solve[n_]:=(
je={0};
calc[m_] := AppendTo[je,x /. Solve[x == jan[m,m](x+1)+jan[m,1] + Sum[jan[m,i](1+je[[i]]),{i,2,m-1}],x][[1]]];
Table[calc[m],{m,2,n}][[-1]];
省4
89: 2024/08/19(月)20:37 ID:LNMh0Kop(1) AAS
だよなあ
今回段取りだけはすごい強いわなんなんだよな
90: 2024/08/19(月)21:07 ID:qEmD6FDJ(1) AAS
実際やってるような気が付いたから大丈夫
トレンド1位スナイプできるレベルで技は３ー４個しか使えずインフレして自分達で爆死させて貰いますた
女は恋愛すんな
上下前次1-新書関写板覧索設栞歴
あと 660 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.010s