[過去ログ] 高校数学の質問スレ 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*