Мне нужно решить и построить поле наклона для уравнения y '= cos (y) -1.Mathematica VectorPlot *** Hold ***
DSolve[{y'[x] == -1 + Cos[y[x]]}, y[x], x]
VectorPlot[{1, (-1 + Cos (y))}, {x, -3, 3}, {y, -3, 3}]
Я получаю пустой граф. Любая помощь?
Как было предложено в комментарии, вы предполагается использовать Cos[] не Cos() в Mathematica.
Вы можете решить оду и объединить VectorPlot с кривыми решения, как этого
soln[y0_?NumericQ] :[email protected][{y'[x] == -1 + Cos[y[x]], y[0] == y0}, {y}, {x, 0,10}];
vp = VectorPlot[{1, (-1 + Cos[y])}, {x, -3, 3}, {y, -3, 3}];
Show[vp, Plot[
Evaluate[{y[x]} /. soln[#] & /@ Range[-20, 20, 0.3]], {x, -3, 3},
PlotRange -> All, MaxRecursion -> 8, AxesLabel -> {"x", "y"}]]
функций Mathematica использовать квадратные скобки всегда, 'Cos [у]' – agentp