質問: 非線形力学系の連立微分方程式 x' x - y y' x の数値プロット(グラフ)をMathematicaで描いて
回答: 初期条件が書いてなかったので適当に。 ans = NDSolve[{x'[t] == x[t] - y[t], y'[t] == x[t], x[0] == 1, y[0] == 1}, {x[t], y[t]}, {t, 0, 1}] Plot[Evaluate[{x[t], y[t]} /. ans], {t, 0, 1}]