ID非公開

2021/7/25 19:18

11回答

Mathematicaに関する質問です。確率を用いて問題を解く上で q1を横軸にq2を縦軸にしたグラフを作りたいと思い、For文で以下のようにしました。 A0=○○ A1=○○ A2=○○

数学 | プログラミング14閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ID非公開

質問者2021/7/26 12:22

ご回答ありがとうございます。参考にさせていただき、試しに blue = {}; red = {}; For[i = 0, i < 100, i++, q1 = -0.1 + 0.1*RandomReal[] ; q2 = -0.5 + 0.5*RandomReal[] ; A = A0 + q1*A1 + q2*A2 Eigenvalues[%]; If[And @@ Thread[Re@% < 0], blue = Append[blue, {q1, q2}], red = Append[red, {q1, q2}] ]; ] ListPlot[{blue, red}, PlotStyle -> {Blue, Red}] としたところ、プロットされません。また、blueにだけ{q1,q2}が追加されて、条件式を満たさない{q1,q2}でもredには追加されません。

ThanksImg質問者からのお礼コメント

どうもありがとうございました!大変感謝しております。

お礼日時:7/29 15:08