R语言的科学编程与仿真-第三章答案

# R语言的科学编程与仿真-第三章习题解答
 #chapter 3

# problem 1
   if (x <= 0){
     y = -x^3
     } else if(x>0 & x<=1){
       y = x^2
     } else {
       y = sqrt(x)
     }
   # input
   x.values <- seq(-2,2,by=0.1)
   # for each x calculate y
   n <- length(x.values)
   y.values <- rep(0,n)
   for (i in 1:n){
     x <- x.values[i]
    # x <- 0.5
     # expression for y
     if (x <= 0){
       y = -x^3
     } else if(x>0 & x<=1){
       y = x^2
     } else {
       y = sqrt(x)
     }
     y.values[i] <- y
   } 
   # output
   plot(x.values,y.values,type = "l")

题一图：