Mathematica这是炸了吗

Plot[Sin[x], {x, 0, 4*Pi}];
Plot[Sin[x + 3*Pi], {x, 0, 4*Pi}];
Plot[(Sin[x] + Sin[x + 3*Pi]), {x, 0, 4*Pi}]

想问一下，问题出在哪了，咋解决

PlotPoints

2025-03-22 17:23广告

Show[Plot[Sin[x], {x, 0, 4*Pi}, PlotStyle -> Red],
Plot[Sin[x + 3*Pi], {x, 0, 4*Pi}, PlotStyle -> Green]]

浮点数精度问题，随便加个WorkingPrecision指定下就好
Plot[(Sin[x] + Sin[x + 3*Pi]), {x, 0, 4*Pi}, WorkingPrecision -> 10]

Plot[(Sin[x] + Sin[x + 3*Pi]), {x, 0, 4*Pi}, PlotRange -> {{0, 1}, {-1, 1}}]

Plot[(Sin[x] + Sin[x + 3*Pi]), {x, 0, 4*Pi}, PlotRange -> All]

Simplify[Sin[x] + Sin[x + 3*Pi]
一般这种可以先看看符号解

下载贴吧APP
看高清直播、视频！

分享到: