高校数学の質問スレ（医者・東大卒専用） Part438 (421ﾚｽ)
上下前次1-新
106(1): 08/20(火)08:24 ID:cBs2zsg2(1) AAS
ここまで教えてもらってまだできんww wwwwww
無能wwwwwwwwwwwwwww
107(2): 08/20(火)23:02 ID:3diBYk2P(1) AAS
冒頭、
>> このスレは医者・東大卒の人物専用スレです。
>> その他の人が書き込むことは許されません。
とあるので、許されないのかもしれませんが、向こうに書き込むよりはましかと思いこちらに投稿します。
>> 答に自信が持てないので質問します。
>>
>> 自民党総裁選は候補者11人という。
...
>> 199602482890927685979724552820321419790
>> Out[14]= ----------------------------------------
省11
108(2): 08/21(水)08:28 ID:trPnwZW4(1/6) AAS
>>106
で、３Dグラフの動画はまだできんのだが？
109: 08/21(水)09:46 ID:4xmRA5nu(1) AAS
>>108
なんだ、あんたも無能なんだ
110: 08/21(水)10:42 ID:trPnwZW4(2/6) AAS
>>107
レスありがとうございます。
コードを解読しました。
(* a 人でジャンケンして参加者が b 人になる確率,a==b ならアイコ *)
p[a_,b_]:=p[a,b]=If[a==b,1-(2^a-2)/3^(a-1),Binomial[a,b]/3^(a-1)]
m=11;
(* 参加者数の変遷を列挙 *)
f=Flatten[Table[{m,m-x1,m-x2,m-x3,m-x4,m-x5,m-x6,m-x7,m-x8,m-x9,1},
{x1,0,m-1},{x2,x1,m-1},{x3,x2,m-1},{x4,x3,m-1},{x5,x4,m-1},
{x6,x5,m-1},{x7,x6,m-1},{x8,x7,m-1},{x9,x8,m-1}],8];
省4
111: 08/21(水)11:14 ID:trPnwZW4(3/6) AAS
デバッグして、数値が合致しました。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= (* jan[n_,m_] := n 人でジャンケンして参加者が m 人になる確率 *)
In[2]:= 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]
)
In[3]:= n=11;
In[4]:= (* 10回以下で終了する確率*)
省5
112: 08/21(水)11:27 ID:trPnwZW4(4/6) AAS
(* 各回ごとの確率 *)
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7}]//AppendTo[pn,#]&;
省2
113(1): 08/21(水)11:44 ID:trPnwZW4(5/6) AAS
シミュレーションによる検証
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*)
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, winners=Count[a,2]];
If[b=={2,3}, winners=Count[a,3]];
If[b=={1,3}, winners=Count[a,1]] ;
省22
114: 08/21(水)16:33 ID:fRgQD6bE(1) AAS
>>108
日本語不自由な無能発見
115(1): 08/21(水)16:34 ID:EiqnP9Ex(1/5) AAS
>>107
あからさまな自演で草
116: 08/21(水)17:53 ID:EiqnP9Ex(2/5) AAS
>>113
>>69にはいつになったら答えられるんだよゴミ
117(4): 08/21(水)17:57 ID:trPnwZW4(6/6) AAS
>>115
Flattenの使い方とか熟練者のコード解析は勉強になる。
118: 08/21(水)18:09 ID:EiqnP9Ex(3/5) AAS
>>117
そもそも脳内医者なのになんでこのスレ書き込めるんだよ？
119: 08/21(水)19:14 ID:EiqnP9Ex(4/5) AAS
>>117
>>69にはいつまでダンマリ決め込んでんだよ？
120: 08/21(水)20:27 ID:rsVL5MYO(1) AAS
アイスタマジヤバいの来そうやないか？
パーマかけたんだね
121: 08/21(水)20:34 ID:YldtGvrJ(1) AAS
逆に言えば、僕らはそれを隠してたんだね
122: 08/21(水)21:13 ID:orJvOL8Q(1) AAS
土曜の昼間にやることがあるやんけ
今週中に脳梗塞でもないからな
123: 08/21(水)22:21 ID:EiqnP9Ex(5/5) AAS
>>117
134：卵の名無しさん：2024/08/21(水) 22:14:22.45 ID:Mk9xahY2
>>131
即答出来なかった癖にってwww
そりゃお前の脳内妄想医療なんぞ想像出来るわけないだろ臨床に全くそってないのに
普通は議題にも上がらないからな
仮にリファンピシン何て飲んでたらGFを消火器にふる前にそういう情報出てるよな
わざわざ他科にコンサルトしてんだから
正確には常に気をつける薬剤では無く飲んでたらそれが原因だと気づく薬剤なんだよ
お前、現在リファンピシン飲んでる結核患者なんてどれぐらいいるのか知ってるのか？
省7
124: 08/22(木)11:17 ID:moSOEVeB(1) AAS
体に良い親人と出会っていたんだろうな。
ラメーン食いたいもんかラーメンて
125: 08/22(木)11:20 ID:rXGE90op(1) AAS
付け焼き刃的に持ってないな
それにたいする答えてのは好きじゃないとしたら
上下前次1-新書関写板覧索設栞歴
あと 296 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.200s*