lingtnt 发表于 2016-7-11 18:02 
对的,谢谢指教!以前做理论的,现在才开始摸这些,幸得各位指导啊!我是想生成空间格子点!
m
没听过空间格子,抱歉,没从你的程序里看出你的目的> m<-10
> for(i in 1:(m-1)){
+ ui<-(i-1)%%m #得到0到m-2
+ vi<- floor((i-1)/m) #都是0
+ ai<-c(ui,vi)
+ }
> a<-diag(ai)
> a
[,1] [,2]
[1,] 8 0
[2,] 0 0
我觉得你应该不是要这样的结果
改成这样出来的结果也很奇怪,你预计得到的a应该是长啥样的?