R语言练习（一）

b = seq(from=0, to=1, by=0.001)
#一次方
l1 = function(b){ b^1 }
y1 = l1(b)
#二次方
l2 = function(b){ b^2 }
y2 = l2(b)
#三次方
l3 = function(b){ b^3 }
y3 = l3(b)
#四次方
l4 = function(b){ b^4 }
y4 = l4(b)
#五次方
l5 = function(b){ b^5 }
y5 = l5(b)
#画图
#par(mar = c(5, 4, 8, 10) + 0.1, xpd = TRUE)
plot(b, y1, ylim = c(0, max(y1, y2, y3, y4, y5)), col='red', xlab = "x", ylab = "y",  )
points(b, y2, col='green')
points(b, y3, col='blue')
points(b, y4, col='cyan')
points(b, y5, col='yellow')