![标签图形受保护](https://linux22.com/image/1563262/%E6%A0%87%E7%AD%BE%E5%9B%BE%E5%BD%A2%E5%8F%97%E4%BF%9D%E6%8A%A4.png)
答案1
请重新启动 Mathematica 内核。你之前设置了一些错误符号,因为你的代码没有理由不能工作
f[x_] = (Cos[x])/(x^2 - 2*x - 3);
d = Plot[f[x], {x, -5, 8}];
e = ListPlot[{{1, f[1]}}, PlotStyle -> PointSize[0.02]];
Show[d, e]
请重新启动 Mathematica 内核。你之前设置了一些错误符号,因为你的代码没有理由不能工作
f[x_] = (Cos[x])/(x^2 - 2*x - 3);
d = Plot[f[x], {x, -5, 8}];
e = ListPlot[{{1, f[1]}}, PlotStyle -> PointSize[0.02]];
Show[d, e]