Question

求fortran大神指教！

u1到u30000都是已知的，u平均也是知道的，想求大神指教我怎么把29999个fuu算出来？
我的问题是那个循环的语句我不知道要怎么写 因为它后面随着i加1中括号里面的式子项数就会少一个

Answer 1

这各编程主要还是循环运算，不知道你需要解决什么问题，可否解释一下？

现在程序代码如下：
PROGRAM WORK_OUT_FUU
IMPLICIT NONE
REAL(8),ALLOCATABLE::FUU(:),U(:)
REAL(8)::U0,S
INTEGER(4)::N,I,J,K
OPEN(8,FILE="FUU.TXT")!创建一个装FUU数据的文档
N=30000!30000个
ALLOCATE(FUU(N-1),U(N))
!由于你没有U(1-30000)的数据，我自己创了一组
DO I=1,N
U(I)=SIN(2*3.1416*I/N)
ENDDO
!下面是你需要的代码
U0=SUM(U)/N
U=U-U0
DO I=1,N-1
S=0
DO J=1,N-I
S=S+U(J)*U(J+I)
ENDDO
FUU(I)=S/(N-I)
WRITE(8,200) I,FUU(I)
200 FORMAT("FUU(",I8,")=",ES13.5)
ENDDO
READ(*,*)K
END PROGRAM WORK_OUT_FUU

追问

好像不太对..我的问题是那个循环我想不出来要怎么写 因为那个式子i每加1后面就会少一项 所以我自己写的时候发现如果用三个循环也好像也不太对

追答

DO J=1,N-I
这就是为你减少的项数啊，I每增加一个，项数就减少一个，就这么简单，两次循环就可以了！
不要把我的I看成是1啊，I和1（大写的时候挺像的）