绘制函数以限制R

Question

假设我有一个简单的数学函数n1=m1*n1，我想将此函数绘制为n1接近无穷大。有快速的方法吗？

m1=0.1

初始n1=0.1

或者我是否必须使用deSolve并设置微分方程？必须有一个快速的方法来做到这一点。

Answer 1

如果你的意思是这个等式中的下一个值取决于你设置的最后一个值：

m1 <- 0.1
x <- seq(0.1, 1000, 0.1)
y <- c(0.1, rep(NA, length(x)-1))

for(i in 2:length(x)){
  y[i] <- y[i-1] * m1
}

plot(y~x, type = "l" )