如何绘制y =max⁡{g（x），x}的图形

Question

我是R编程的新手，我遇到了一个我在R中无能为力的数学问题。

问题是要绘制y=max⁡{g(x),0.5x}的图表，其中x的10001值介于（和包括）-10和10之间

这是我迄今为止尝试过的例子：

first.func <- function(x) { 
if (x < 0){
return(x)
}

else if (x = 0){
return(0)
}

else
return(x)
}

second.func <- function(x) {
return(max(first.func(x), x * sin(1/x)))
}

x <- seq(-10, 10, length=10001)

y <- sapply(0.5 * x, second.func)

plot(y ~ x, type = 'l')

Answer 1

首先定义所需的功能。拥有它们之后，您可以将它们组合起来并找到y值。 Ill显示了一个不同的例子，因为它似乎是一个HW问题。

first.func <- function(x) { 
  if (x > 3) { 
    return(4)
  }
  if (x <= 3) { 
    return(5 * x)
  }
}

second.func <- function(x) {
  return(min(first.func(x), 3 * x^3))
}

x <- seq(-1, 4, 0.05)

y <- sapply(x, second.func)

plot(y ~ x, type = 'l')