哪里错了呢,有轴没图像
mathematica吧
全部回复
仅看楼主
level 2
溯流光XY 楼主
duff[lbk]\[lbk]Tau[rbk]_[rbk] = NDSolve[lbk]{x''[lbk]\[lbk]Tau[rbk][rbk] + 0.75 x'[lbk]\[lbk]Tau[rbk][rbk] - x[lbk]\[lbk]Tau[rbk][rbk] + x[lbk]\[lbk]Tau[rbk][rbk]^3 == Cos[lbk]0.8 \[lbk]Tau[rbk][rbk], x[lbk]0[rbk] == 0, x'[lbk]0[rbk] == 1}, x, {\[lbk]Tau[rbk], 0, 500}[rbk][lbk][lbk]1, 1, 2[rbk][rbk];
Plot[lbk]duff[lbk]\[lbk]Tau[rbk][rbk], {\[lbk]Tau[rbk], 0, 500},AxesLabel -> {Style[lbk]"\[lbk]Tau[rbk]", Large[rbk], Style[lbk]"x", Large[rbk]},AxesStyle -> Directive[lbk]22[rbk], AspectRatio -> 0.2, PlotRange -> All[rbk]ParametricPlot[lbk]{duff[lbk]𝜏[rbk], duff'[lbk]𝜏[rbk]}, {𝜏, 0, 500},AxesLabel -> {Style[lbk]"x", Large[rbk], Style[lbk]"dx/d\[lbk]Tau[rbk]", Large[rbk]},AspectRatio -> 0.7, AxesStyle -> Directive[lbk]22[rbk][rbk]
deepseek检查说没问题,fw大学生实验作业要完不成了
2025年09月15日 14点09分 1
level 2
溯流光XY 楼主
duff[\[Tau]_] =
NDSolve[{x''[\[Tau]] + 0.75 x'[\[Tau]] - x[\[Tau]] + x[\[Tau]]^3 ==
Cos[0.8 \[Tau]], x[0] == 0, x'[0] == 1},
x, {\[Tau], 0, 500}][[1, 1, 2]];
Plot[duff[\[Tau]], {\[Tau], 0, 500},
AxesLabel -> {Style["\[Tau]", Large], Style["x", Large]},
AxesStyle -> Directive[22], AspectRatio -> 0.2, PlotRange -> All]
ParametricPlot[{duff[𝜏], duff'[𝜏]}, {𝜏, 0, 500},
AxesLabel -> {Style["x", Large], Style["dx/d\[Tau]", Large]},
AspectRatio -> 0.7, AxesStyle -> Directive[22]]
2025年09月15日 14点09分 2
吧务
level 15
duff[\[Tau]_] = 改 duff = 。如果你想学Mathematica的话就去把精品区《为什么y=y[x]会出错?你分得清函数关系和函数吗?》那帖看看。
还有,你这代码哪抄的我不知道,但是请注意你这ParametricPlot里面的 𝜏 是 U+1D70F ,虽然在这里没有引发问题,但是,这个字符和通常所用的 τ (U+03C4, 也就是上文里的 \[Tau] )不是同一个。
2025年09月16日 00点09分 3
改完问题解决了,感谢吧主🙏🏻
2025年09月16日 01点09分
1