对于温度缺测值的插补方法的源代码~~希望对大家有所帮助

miss_timo · 发表于 2016-1-9 15:19:43

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

PROGRAM MAIN
PARAMETER (N1=44,N2=12,N3=31)
REAL X(N1,N2,N3)
INTEGER NAME,YEAR(N1),MONTH(N2)
REAL TONEYEAR(366)
OPEN(1,FILE='E:\温度数据--缺测插补\54342.txt')
DO I=1,N1
   DO J=1,N2
      READ(1,*) NAME,YEAR(I),MONTH(J),(X(I,J,K),K=1,N3)
   ENDDO
ENDDO
DO I=1,N1
   DO J=1,N2
DO K=1,N3
         IF(X(I,J,K).GT.30000) THEN

            X(I,J,K)=X(I,J,K-2)+X(I,J,K-1)+X(I,J,K)+X(I,J,K+1)+X(I,J,K+2)/FLOAT(5)
   ENDIF
   ENDDO
ENDDO
ENDDO

显示全部楼层 · 发表于 2016-1-11 15:42:20

提示: 作者被禁止或删除内容自动屏蔽

画长空 · 发表于 2017-9-22 19:29:01

周围站点求和的吗

		自动登录	找回密码
密码			立即注册

ciompdgx 该用户已被删除	发表于 2016-1-11 15:42:20 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
ciompdgx 该用户已被删除	密码修改失败请联系微信：mofangbao
	回复支持反对使用道具举报显身卡

[源代码] 对于温度缺测值的插补方法的源代码~~希望对大家有所帮助

登录后查看更多精彩内容~

浏览过的版块