文件名称：求互相关的fortran小程序
文件大小：1KB
文件格式：F90
更新时间：2018-09-03 17:17:36
互相关 fortran
do i=1,4 sumx=0; do ii=1,n read(i,*)ux(i,ii) sumx=sumx+ux(i,ii) end do ax(i)=sumx/n; sumx=0 do ii=1,n sumx=sumx+(ux(i,ii)-ax(i))**2 end do vx(i)=sqrt(sumx/(n-1)) end do do itao=-id,id ……