- 积分
- 255
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-4-12
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 cashia371081 于 2013-5-14 11:00 编辑
mann-kendall突变检验法做的突变检验。从原始资料看,数据本身是逐年增加的(增加趋势稳定从0.01一直增加到1.1,由于数据比较保密,不敢放上来请大家见谅)。哪位高手帮忙分析一下这个结果。uk与ub的相交点不在临界线之间。而且统计值uk、ub普遍偏大,我看很多文献都是在-4~6之间。请大神帮忙解答下。程序是用的网上找到的一个程序(针对魏老师书中的错误,改程序作了改动)。
C THIS IS A PROGRAM FOR DETECTING ABRUPT CLIMATIC CHANGE
C BY USING MANN-KENDALL TECHNIQUE
PROGRAM MK
DIMENSION Y(1000),YY(1000),U(1000),UF(1000),UB(1000),
& M(1000),MD(1000)
WRITE(*,10)
10 FORMAT(2X,'N=?,NYEAR=?')
READ(*,*)N,NYEAR
C ***************************************************
C * N: SAMPLE SIZE *
C * NYEAR: FIRST YEAR OF THE TIME SERIES *
C * Y(N): ORIGINAL TIME SERIES *
C * UF(N): ORIGINAL SERIES OF U(LN) *
C * UB(N): COUNTER SERIES OF U(LN) *
C * A,B: CRITICAL VALUE 1.96 AND -1.96 *
C ***************************************************
OPEN(2,FILE='G:\发生面积率.txt')
READ(2,*)(Y(I),I=1,N)
CALL SMK(Y,M,MD,UF,N)
DO 20 I=1,N
20 YY(I)=Y(N+1-I)
CALL SMK(YY,M,MD,U,N)
DO 30 I=1,N
30 UB(I)=-U(N+1-I)
OPEN(3,FILE='G:\area_result_recversion.txt',STATUS='NEW')
A=1.96
B=-1.96
DO 40 I=1,N
WRITE(3,50)NYEAR+I-1,UF(I),UB(I),A,B
50 FORMAT(1X,I4,4F8.2)
40 CONTINUE
CLOSE(3)
STOP
END
C***********************************************************
SUBROUTINE SMK(Y,M,MD,U,N)
DIMENSION Y(N),M(N),MD(N),U(N)
M(1)=0
DO 10 I=2,N
M(I)=0
MD(I)=0
DO 20 J=1,I !将原版里的i-1改为i;
IF(Y(I).GT.Y(J))then !将原版里的LT情况下直接跳到下一循环改
M(I)=M(I)+1 !为GT情况执行累计数操作,特别强调:
end if !这两种情况在序列中存在相同数时是不一样的。
20 CONTINUE
MD(I)=MD(I-1)+M(I)
10 CONTINUE
U(1)=0.0
DO 30 I=2,N
E=I*(I-1)/4.00
VAR=I*(I-1)*(2*I+5)/72.00
U(I)=(MD(I)-E)/SQRT(VAR)
30 CONTINUE
RETURN
END
|
|