[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

370: 2024/12/03(火)14:26 ID:xACthNhN(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
370: [sage] 2024/12/03(火) 14:26:15.87 ID:xACthNhN Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= nn=1234; In[2]:= n=5; In[3]:= m=6; In[4]:= ass2list[ass_] := Select[Table[{key,ass[key]},{key,0,m}],IntegerQ[#[[2]]]&] (* assosiation to list ,key:[0,m] *) In[5]:= xyz=Solve[Mod[x+y+z,m]==0 && 0<=x<=y<=z<=(m-1),{x,y,z},Integers]; In[6]:= t1=Table[{x/.xyz[[n]],y/.xyz[[n]],z/.xyz[[n]]},{n,1,Length@xyz}]; In[7]:= ass=Counts[#]& /@ t1; In[8]:= li=ass2list /@ ass; In[9]:= {q,r}=QuotientRemainder[nn,m]; In[10]:= c=Flatten@{Table[q+1,r],Table[q,m-r]}; In[11]:= m2c[x_] :=( (* mod to how many cases *) i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]] ) In[12]:= prod[x_] := Product[tmp,{tmp,x}]; In[13]:= cases=Total[prod /@ (m2c /@ # & /@ li)]; In[14]:= cases/Binomial[nn,n] 126691 Out[14]= ----------- 57547841736 http://rio2016.5ch.net/test/read.cgi/math/1723152147/370

---

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

---

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

---

ぬこの手 ぬこTOP 0.037s