是否可以在 R 中绘制有理函数？

【问题标题】：Is it possible to plot rational functions in R?是否可以在 R 中绘制有理函数？
【发布时间】：2012-04-29 05:23:18
【问题描述】：

是否可以在 R 中绘制有理函数？例如：

curve(((x+2)*(x-5))/((x-3)*(x+1)), from=-8,to=9) 给出不正确的图可能是因为该函数不能在 x=-1 和 x=4 处反函数

非常感谢

【问题讨论】：

您确实需要添加您尝试过的实际 R 代码。
这有点俗气，但对于num 的任何整数值，这应该可以工作：num <- 100; curve(((x+2)*(x-5))/((x-3)*(x+1)), from=-8,to=9,n=num*17+1,ylim=c(-20,20))

【解决方案1】：

R 似乎可以相当优雅地处理渐近爆炸：

curve( (x-5)*(x-3)/( (x+1)*(x-4) ), 3 ,5)

要处理不连续的情况，请增加n 并将“y”替换为高于阈值的 NA。

vals <- curve( (x-5)*(x-3)/( (x+1)*(x-4) ), -3 ,5, n=1000)
is.na(vals$y) <- abs(vals$y) > 100
plot(vals, type="l")

【讨论】：

不完全是。检查：curve( (x-5)*(x-3)/( (x+1)*(x-4) ), -3 ,5)
好吧，我给它的另一个测试是从 -10 到 10，在这种情况下它确实在 4 处留下了适当的差距。您还可以添加 n 参数以提高分辨率，如果您愿意，我们可以向您展示如何插入会在渐近线处中断的 NA。
好把戏。除非出现任何其他答案，否则就可以了。再次感谢