# 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")
题一图: