wangming1993
commented
5 years ago k <- function(x){ 1 / (1 - x) }
# 绘画函数
curve(expr = k, from = -5, to = 5, col="red")
# 绘画直线
abline(h = 1, v = 1, col = "gray60")Open wangming1993 opened 5 years ago
wangming1993
commented
5 years ago k <- function(x){ 1 / (1 - x) }
# 绘画函数
curve(expr = k, from = -5, to = 5, col="red")
# 绘画直线
abline(h = 1, v = 1, col = "gray60")x <- seq(-10, 10)
y <- x
plot(x, y, type = "n")
k <- function(x){ 1 / (1 - x) }
curve(expr = k, from = -5, to = 5, col="red", xlab="x", ylab="y = 1 / (1-x)")
grid(equilogs=TRUE)
abline(h = 1, v = 1, col = "gray60")
https://www.r-project.org/
在线函数绘图