高校数学の質問スレ Part437at MATH高校数学の質問スレ Part437 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト150:１３２人目の素数さん 24/07/21 07:00:33.13 iGZdMXnd.net >>139 100万回乱数発生させてシミュレーションしてみた。 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= p={4/10,3/10,2/10,1/10}; In[2]:= sim[]:=( For[li=RandomChoice[p->Range[4],8];cl=Counts@li;count=8, Length[cl]<4 || AnyTrue[cl,#<2&],count++, AppendTo[li,RandomChoice[p->Range[4],1]];li=Flatten@li;cl=Counts@li]; count ) In[3]:= N@Mean@Table[sim[],10^6] Out[3]= 22.3857 151:１３２人目の素数さん 24/07/21 08:07:56.29 yNeLjgJ4.net >>145 結局何もかも図星で何も言えなくなったみたいだねw 152:１３２人目の素数さん 24/07/21 08:16:23.31 Sm0Lj6hf.net >>135 移動中なのでスマホで計算。 https://i.imgur.com/3GNffkv.png 場合分けと集計をWolframにさせるだけ。 分数で答が出るのは気持ちいい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch