我想在区间[-1,1]上绘制函数g,其中g是满足以下条件的函数:
对于x <0g(x)= x ^ 2 + 1
否则g(x)= - 4x-4
所以我定义了一个函数(g):
g = function(x)ifelse(x <0,x ^ 2 + 1,-…
垂直线跳跃是由0引起的 x == 0 你得到-4。解决方案可能是返回 NA 什么时候 x == 0 。
NA
x == 0
原始代码:
g <- function(x) ifelse(x<0, x^2+1, -4*x-4) curve(g, -1, 1, main = "Original")
删除0(返回NA):
g_no0 <- function(x) ifelse(x == 0, NA, ifelse(x<0, x^2+1, -4*x-4)) curve(g_no0, -1, 1, main = "No 0")