Mathematica矢量图***保持***

Mathematica矢量图***保持***,math,wolfram-mathematica,wolframalpha,Math,Wolfram Mathematica,Wolframalpha,我需要求解并绘制方程y'=cos(y)-1的斜率场 我得到一个空的图表。有什么帮助吗?如评论中所建议的,您应该在Mathematica中使用Cos[]而不是Cos() 您可以解算ode,并将矢量图与解算曲线结合起来,如下所示 soln[y0_?NumericQ] :=First@DSolve[{y'[x] == -1 + Cos[y[x]], y[0] == y0}, {y}, {x, 0,10}]; vp = VectorPlot[{1, (-1 + Cos[y])}, {x, -3, 3},

我需要求解并绘制方程y'=cos(y)-1的斜率场


我得到一个空的图表。有什么帮助吗?

如评论中所建议的,您应该在Mathematica中使用
Cos[]
而不是
Cos()

您可以解算ode,并将
矢量图
与解算曲线结合起来,如下所示

soln[y0_?NumericQ] :=First@DSolve[{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[]
而不是
Cos()

您可以解算ode,并将
矢量图
与解算曲线结合起来,如下所示

soln[y0_?NumericQ] :=First@DSolve[{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[y]
mathematica函数始终使用方括号,
Cos[y]