Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/fcstst.tuk
There are 2 other files named fcstst.tuk in the archive. Click here to see a list.
1 PRINT "THIS PROGRAM SIMULATES A TIME SERIES AND STORES ITS OUTPUT"
2 PRINT "   IN TWO FILES:MON AND YEAR."
3 PRINT
4 PRINT
5 RANDOMIZE
10 DIM S(12),X(200),Z(200)
20 FILES MON;YEAR
42 SCRATCH #1
44 SCRATCH #2
45 PRINT "DO YOU WANT SEASONALS";
46 INPUT A$
47 IF A$ = "NO" THEN 152
48 PRINT
49 PRINT
50 PRINT "MONTH","SEASONAL INDEX"
90 LET V=W=0
100 FOR I = 1 TO 12
105  LET S = RND*.3-.15
110  LET S = INT(100*S)/100
120  LET S(I) = 1+S
122  LET V = V+S
125  IF I<12 THEN 140
130  LET S(I) = S(I)-V
140  PRINT I,S(I)
145  LET W = W+S(I)
150 NEXT I
151 GO TO 160
152 FOR I = 1 TO 12
153   LET S(I) = 1
154 NEXT I
155 GO TO 171
160 PRINT
170 PRINT "TOTAL",W
171 PRINT
172 PRINT
173 PRINT "ENTER FIGURES FOR:"
174 PRINT "   VALUE IN MONTH 0";
175 INPUT A
176 PRINT "   GROWTH IN EACH MONTH";
177 INPUT B
178 PRINT "   STANDARD DEVIATION OF RANDOM TERM";
179 INPUT U1
180 PRINT "   NUMBER OF YEARS TO BE GENERATED";
181 INPUT N1
183 PRINT
184 PRINT "DO YOU WANT A PRINT OUT OF DATA";
185 INPUT A$
186 IF A$="NO" THEN 210
187 PRINT
188 PRINT
190 PRINT "PERIOD","OBSERVATION"
210 LET J = 1
220 FOR Y = 1 TO N1
222  LET Z(Y) = 0
230  FOR I = 1 TO 12
235  LET U = ((-2*LOG(RND))^.5)*COS(6.283*(RND))
237  LET U = U*U1
240  LET X(J) = (A+B*J)*S(I)+U
242  IF A$="NO" THEN 255
250   PRINT J,X(J)
255   WRITE #1,X(J);
257   LET Z(Y) = Z(Y)+X(J)
260   LET J = J+1
270  NEXT I
275  WRITE #2,Z(Y)
280 NEXT Y
99999 END