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

---

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

---

208: 2024/07/22(月)15:24 ID:hi/KRuYG(3/5) AAS
>>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

---

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

---

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

---

ぬこの手 ぬこTOP 0.008s