Как построить график y = max⁡ {g (x), x}

Question

Я новичок в программировании на R и столкнулся с математической проблемой, которую я не могу решить в R.

Вопрос, заданный для построения графикаy=max⁡{g(x),0.5x} для 10001 значений x между (включая) -10 и 10

Это то, что я пробовал так далеко от примера tf:

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.Я покажу другой пример, так как это похоже на вопрос 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')