高校数学の質問スレ Part434at MATH高校数学の質問スレ Part434 - 暇つぶし2ch726:132人目の素数さん 24/04/30 21:47:56.63 VcpWQbIP.net>>725 自己推敲 sim[] :=( item=0; L=0; While[L<10, p1p2=RandomVariate[DirichletDistribution[{1,1,1}]]; p={p1p2[[1]],p1p2[[2]],1-Total[p1p2]}; d=RandomChoice[p -> {-1,0,1}]; If[!(L==0 && d==-1), L=L+d]; item++]; item ) 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch