R中的100点离散网格答案

【问题标题】：100 Point discrete grid in RR中的100点离散网格
【发布时间】：2014-07-08 02:45:31
【问题描述】：

我正在尝试使用 for 循环来解决 100 点离散网格，但它现在完全吓坏了。

代码：

space<-c(1:100)
A<- 4
alpha<-0.3
beta<-0.98
vprime<-c(rep(0,100))
t_vj<-c(rep(0,100))
iterater<-function(space){
  for(i in space){
    for(j in space){
       t_vj[j+1] <- log(A*i^alpha-j)+ beta*tv_j[j] 
    }
    vprime[i]<-max(t_vj)
  }
plot(vprime)
}

 Error: object 'tv_j' not found

为什么这个 for 循环不起作用？谢谢！

【问题讨论】：

你的意思不是t_vj，而是在你的第10行。如果不是，你必须定义tv_j

标签： r for-loop vector discrete-mathematics discrete-space

【解决方案1】：

您是否正在尝试这样的事情：

space<-c(1:100)
A<- 4
alpha<-0.3
beta<-0.98
vprime<-c(rep(0,100))
t_vj<-c(rep(0,100))
t1 <- NULL
#iterater<-function(space){
for(i in space){
  for(j in space){
    t1[j] <- log(A*i^(alpha-j)) + beta*t_vj[j] 
  }
  vprime[i]<- max(t1)
}
plot(1:100, vprime)

【讨论】：