Блог

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

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

Это то, что я пробовал до сих пор из t.f примера:

 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')
  

Вы начинаете с определения необходимых вам функций. После того, как они у вас будут, вы можете объединить их и найти значение 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')