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

---

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

---

726(1): 2024/04/30(火)21:47 ID:VcpWQbIP(13/15) AAS
>>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];
省3

---

728: 2024/04/30(火)22:29 ID:VcpWQbIP(14/15) AAS
>>726
可読性向上

sim[] :=(
item=0;
L=0;
While[L<10,
p1=RandomReal[]; (* runif(1) *)
p2=RandomReal[1-p1]; (* runif(1,0,1-p1) *)
p3=1-p1-p2;
d=RandomChoice[{p1,p2,p3} -> {-1,0,1}]; (* sample(c(-1,1,1),1,prob=c(p1,p2,p3)) *)
省5

---

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

---

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

---

ぬこの手 ぬこTOP 0.029s