Mathematica图，排除端点？

Question

为什么下面给出了有关除以0的错误？

ParametricPlot[{1/Sin[t], t}, {t, 0, 3 Pi}, Exclusions -> Sin[t] == 0]
Power::infy: Infinite expression 1/0 encountered.

它确实成功地排除了Pi和2 Pi处的点，但没有成功地排除0和3 Pi处的点。如果我通过更改间隔排除端点...

ParametricPlot[{1/Sin[t], t}, {t, 0.001, 2.999 Pi}, Exclusions -> Sin[t] == 0]

我没有错误。

如何排除情节的终点？

感谢，
罗布

Answer 1

在这种特殊情况下，您可以使用Csc[t]而不是1/Sin[t]重新制作情节，事情似乎有效：

ParametricPlot[{Csc[t], t}, {t, 0, 3 Pi}, Exclusions -> {Sin[t] == 0}]

我怀疑1/Sin[t]的行为只是一个错误，并会以此形式报告。

作为更一般的解决方法，您可以使用Quiet包装原始表达式来压制错误消息：

Quiet[ParametricPlot[{1/Sin[t], t}, {t, 0, 3 Pi}, 
    Exclusions -> Sin[t] == 0], Power::infy]