Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0026/auto.ssp
There are 2 other files named auto.ssp in the archive. Click here to see a list.
C AUTO 10
C ..................................................................AUTO 20
C AUTO 30
C SUBROUTINE AUTO AUTO 40
C AUTO 50
C PURPOSE AUTO 60
C TO FIND AUTOCOVARIANCES OF SERIES A FOR LAGS 0 TO L-1. AUTO 70
C AUTO 80
C USAGE AUTO 90
C CALL AUTO (A,N,L,R) AUTO 100
C AUTO 110
C DESCRIPTION OF PARAMETERS AUTO 120
C A - INPUT VECTOR OF LENGTH N CONTAINING THE TIME SERIES AUTO 130
C WHOSE AUTOCOVARIANCE IS DESIRED. AUTO 140
C N - LENGTH OF THE VECTOR A. AUTO 150
C L - AUTOCOVARIANCE IS CALCULATED FOR LAGS OF 0, 1, 2,...,AUTO 160
C L-1. AUTO 170
C R - OUTPUT VECTOR OF LENGTH L CONTAINING AUTOCOVARIANCES AUTO 180
C OF SERIES A. AUTO 190
C AUTO 200
C REMARKS AUTO 210
C THE LENGTH OF R IS DIFFERENT FROM THE LENGTH OF A. N MUST AUTO 220
C BE GREATER THAN L. IF NOT, R(1) IS SET TO ZERO AND RETURN AUTO 230
C IS MADE TO THE CALLING PROGRAM. AUTO 240
C AUTO 250
C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED AUTO 260
C NONE AUTO 270
C AUTO 280
C METHOD AUTO 290
C DESCRIBED IN R.B. BLACKMAN AND J.W. TUKEY, 'THE MEASURMENT AUTO 300
C OF POWER SPECTRA', DOVER PUBLICATIONS INC., NEW YORK, 1959. AUTO 310
C AUTO 320
C ..................................................................AUTO 330
C AUTO 340
SUBROUTINE AUTO (A,N,L,R) AUTO 350
DIMENSION A(1),R(1) AUTO 360
C AUTO 370
C CALCULATE AVERAGE OF TIME SERIES A AUTO 380
C AUTO 390
AVER=0.0 AUTO 400
IF(N-L) 50,50,100 AUTO 410
50 R(1)=0.0 AUTO 420
RETURN AUTO 430
100 DO 110 I=1,N AUTO 440
110 AVER=AVER+A(I) AUTO 450
FN=N AUTO 460
AVER=AVER/FN AUTO 470
C AUTO 480
C CALCULATE AUTOCOVARIANCES AUTO 490
C AUTO 500
DO 130 J=1,L AUTO 510
NJ=N-J+1 AUTO 520
SUM=0.0 AUTO 530
DO 120 I=1,NJ AUTO 540
IJ=I+J-1 AUTO 550
120 SUM=SUM+(A(I)-AVER)*(A(IJ)-AVER) AUTO 560
FNJ=NJ AUTO 570
130 R(J)=SUM/FNJ AUTO 580
RETURN AUTO 590
END AUTO 600