Mathematica覚え書き

Mathematicaはしばらく使っていないとすぐに忘れるので、忘れがちなのを覚え書き。

例えばCournot競争で、生産量を求めて、その解をyy1, yy2 と割り当てる時の注意：

Solve[{D[(a-b(y1+y2)) y1 -c1 y1, y1]==0, D[(a-b(y1+y2)) y2 -c2 y2, y2]==0}, {y1, y2}];
yy1=y1 /. % [[1]];
yy2=y2 /. %% [[1]];

ここで /. % の後に [[1]] をつけなければ、yy1にはリスト形式で数値が割当られてしまうので、後にReduceなどで不等式を解かせるときに問題が発生する。