高校数学の質問スレ（医者・東大卒専用） Part438

高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

102: １３２人目の素数さん [sage] 2024/08/20(火) 05:30:38.98 ID:O+DDQLmu

"
n=11;
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,#]&;
"
str=NULL
str[1]="pn={jan[n,1]};"
str[2]="Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;"
str[3]="Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;"
str[4]="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,#]&;"
str[5]="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,#]&;"
for(i in 2:30){
y=paste0(",x",i,"]jan[x",i,",1],")
tmp=sub(",1],",y,str[i])
z=paste0("},{x",i,",2,x",i-1,"}]")
str[i+1]=sub("}]",z,tmp)
}

http://rio2016.5ch.net/test/read.cgi/math/1723152147/102

103: １３２人目の素数さん [sage] 2024/08/20(火) 08:08:58.34 ID:O+DDQLmu

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]
)
n=11;
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,x7]jan[x7,x8]jan[x8,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,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},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27}]//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,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,x29]jan[x29,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},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27},{x29,2,x28}]//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,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,x29]jan[x29,x30]jan[x30,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},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27},{x29,2,x28},{x30,2,x29}]//AppendTo[pn,#]&;
pn
Accumulate[pn]
% // N

http://rio2016.5ch.net/test/read.cgi/math/1723152147/103

112: １３２人目の素数さん [sage] 2024/08/21(水) 11:27:27.25 ID:trPnwZW4

(* 各回ごとの確率 *)
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,#]&;
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,x9]jan[x9,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},{x9,2,x8}]//AppendTo[pn,#]&
Total@pn

http://rio2016.5ch.net/test/read.cgi/math/1723152147/112

113: １３２人目の素数さん [sage] 2024/08/21(水) 11:44:00.03 ID:trPnwZW4

シミュレーションによる検証

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]] ;
{winners,count}
)

In[2]:=
In[2]:= sim[n_] :=((* 勝者が一人になるまでの回数　*)
For[{winner,counts}=j[n],winner>1,k=j[winner];winner=k[[1]];counts=counts+k[[2]]];
counts
)

In[3]:= res11=Table[sim[11],10^6];

In[4]:= Histogram[res11,"Scott","PDF"]

Out[4]= -Graphics-

In[5]:= Mean[res11] // N

Out[5]= 34.9504

In[6]:= Median[res11]

Out[6]= 27

In[7]:= N@Mean@Boole[#<=10&/@res11]

Out[7]= 0.154785

In[8]:= 449687340186660888579056289638229806808082/2909321189362570808630465826492242446680483

449687340186660888579056289638229806808082
Out[8]= -------------------------------------------
2909321189362570808630465826492242446680483

In[9]:= % // N

Out[9]= 0.154568

http://rio2016.5ch.net/test/read.cgi/math/1723152147/113

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

あと 833 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.025s