Построение фазовой траектории в Mathematica

[Boris_Kov]

Какой наиболее экономный способ построения фазовых траекторий численных решений для систем нелинейных ДУ?

[12d3]

Что-то типа.

solution = NDSolve[equations,y,{x,x_min,x_max}]
ParametricPlot[Evaluate[{y[x], y'[x]} /. solution], {x, x_min, x_max}]

Можно, естественно, и в одну строчку все запихать, экономнее будет =)