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

---

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

---

198(2): 2024/07/22(月)12:58 ID:ULPBznRV(1) AAS
>>191
Sum[n4=40-n1-n2-n3;Boole[n1>1] Boole[n2>1] Boole[n3>1] Boole[n4>1] Multinomial[n1,n2,n3,n4] (4/10)^n1 (3/10)^n2 (2/10)^n3 (1/10)^n4,{n1,0,40},{n2,0,40-n1},{n3,0,40-n1-n2}]
= 17931735688870232246983662877718870163/19531250000000000000000000000000000000
= 0.918104867270156...

Booleの積を　Boole[Boole[n1>0]+Boole[n2>0]+Boole[n3>0]+Boole[n4>0]==3]　に置き換えると>>156に使えるが、牛刀

---

205: 2024/07/22(月)15:13 ID:hi/KRuYG(1/5) AAS
>>198
Multinomialって関数があるのか、他の人のコードを読むのは勉強になるなぁ。

---

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&];
省11

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.149s*