*dim,unit,array,6,6,5000 *dim,te,array,6,6,5000 *dim,tst,array,6,6,5000 *do,i,1,10 *do,j,(i-1)*500+1,i*500 te(1,1,j)=m(i)*m(i),n(i)*n(i),0,0,0,-2*m(i)*n(i) te(1,2,j)=n(i)*n(i),m(i)*m(i),0,0,0,2*m(i)*n(i) te(1,3,j)=0,0,1,0,0,0 te(1,4,j)=0,0,0,m(i),n(i),0 te(1,5,j)=0,0,0,-n(i),m(i),0 te(1,6,j)=m(i)*n(i),-m(i)*n(i),0,0,0,m(i)*m(i)-n(i)*n(i) *enddo *enddo *do,i,1,5000 unit(1,1,i)=1,0,0,0,0,0 unit(1,2,i)=0,1,0,0,0,0 unit(1,3,i)=0,0,1,0,0,0 unit(1,4,i)=0,0,0,1,0,0 unit(1,5,i)=0,0,0,0,1,0 unit(1,6,i)=0,0,0,0,0,1 *enddo *do,i,1,5000 *moper,tst(1,1,i),te(1,1,i),solv,unit(1,1,i) *enddo 之前的do循环中都定义了多个列(1,2,,3,4,5,6),为何最后一个循环没有用到数组te和unit的2,3,4,5,6列呢?是不是数组te(1,1,i)中前面两个1代表从1开始,一直运算到6行6列呢? 哪位大神给点指点?万分感谢!
|