- 积分
- 201
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-17
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-2-15 15:34:06
|
显示全部楼层
本帖最后由 realzly 于 2012-2-15 15:38 编辑
嗯,谢谢各位热心的大虾!半路出家搞气象,数理计算机知识还不过关,哎!难啊!多亏了有大家的帮助,不甚感激啊! 又遇到一个问题想要求助!
我用魏凤英老师的小波分析程序:
C THIS IS A PROGRAM OF WAVELET ANALYSIS BY USING
C GAUSS REAL OF MCXICAN HAT
PROGRAM WA
PARAMETER (N=40,M=2,NMAX=N*3,NS=0,KS=10) 注:n,m值我自己改过
DIMENSION F(M,N),X(N),XM(NMAX),IT(M)
REAL D,Y,Z
C *****************************************************
C * N: SAMPLE SIZE *
C * M: NUMBER OF TIME SCALE *
C * NS: STARTING SCALE *
C * KS: INTERVAL OF SCALE *
C * X: PRIMARY TIME SERIES *
C * F: WAVELET TRANSFORMATION COEFFICIENTS *
C * IT: EXPANDED AND CONTRACTED SCALES *
C *****************************************************
WAVE(Y)=(1.0-16.0*Y*Y)*EXP(-8.0*Y*Y)
OPEN(6,FILE='E:\WA\scdata.txt')
READ(6,*)(X(I),I=1,N)
DO 10 I=1,N
XM(I)=X(N+1-I)
XM(N+I)=X(I)
XM(2*N+I)=X(N+1-I)
10 CONTINUE
DO 20 I=1,M
IT(I)=I*KS+NS
20 CONTINUE
DO 30 J=1,N
F(I,J)=0.0 到这里老提示:array bounds exeeded
30 CONTINUE
我自己读程序也觉得不太对劲,这个F(I,J)定义为二维数组,这样赋值是怎么回事啊?
|
|