逻辑问题，一直搞不懂

necrohan

这是个3*3的矩阵吧

necrohan

不知道你要的是不是这个意思

[Fortran] 纯文本查看 复制代码

program test
implicit none
integer i,j,n
real ex,ey,g,tmp

n=9;
ex=1;ey=1

do i=1,n-1
  tmp=g(i,ex,ey)-g(i+1,ex,ey)
  write(*,*)i,tmp
enddo

end

real function g(i,ex,ey)
implicit none
integer i
integer row,col
real ex,ey
row=mod(i,3)
col=i/3+1
if(row==0)then
  row=3
  col=col-1
endif
!write(*,*)i,row,col
g=row*ex+col*ey
end