[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次1-新

---

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

---

208: 2024/07/22(月)15:24 ID:hi/KRuYG(3/5) AA×
>>198


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
208: [sage] 2024/07/22(月) 15:24:44.40 ID:hi/KRuYG >>198 想定解に同じ。 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= calc[n_,j_]:=( {p1,p2,p3,p4}={1/10,2/10,3/10,4/10}; y=Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[0,n]},{x2,Range[0,n]},{x3,Range[0,n]}],4],#[[4]]>=0&]; fn[x_] :=( {b1,b2,b3,b4}=x; Binomial[n,b1] p1^b1 Binomial[n-b1,b2] p2^b2 Binomial[n-b1-b2,b3] p3^b3 p4^b4 ); f1[x_]:= AllTrue[x,#>=j&]; Total[fn /@ Select[y,f1]] ) In[2]:= calc[40,2] 　　　 17931735688870232246983662877718870163 Out[2]= -------------------------------------- 　　　19531250000000000000000000000000000000 http://rio2016.5ch.net/test/read.cgi/math/1721071007/208
想定解に同じ

---

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

---

あと 794 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.039s