R程序修改求助

北山狼 发表于 2016-5-28 18:52
请求大神帮忙：x>=0&x=0&x3&x=0&x

x == 3 时的取值不明，我暂且归为第一个公式。

1. # 定义函数
   
2. fun_x <- function(x) {
   
3.   stopifnot(x >= 0 && x <= 6)
   
4.   if (x <= 3) return(3 * x + 2)
   
5.   else return(2 * x - 0.5 * x ^ 2)
   
6. }
   
7. #简要地画函数图
   
8. x <- seq(0, 6, length.out = 1000)
   
9. y <- vapply(x, fun_x, numeric(1))
   
10. plot(x, y, type = "line")

复制代码

很晚写的，未经细想，未经优化。