File: EXPON.FT of Tape: Various/ETH/eth11-1

(Source file text) 

---

C	SAMPLE MAIN PROGRAM FOR TRIPLE EXPONENTIAL SMOOTHING - EXPON
C	THE FOLLOWING DIMENSION MUST BE GREATER THAN OR EQUAL TO THE
C	NUMBER OF DATA POINTS IN A GIVEN TIME SERIES.
	DIMENSION X(1000),S(1000)
1	FORMAT(A4,A2,I4,F5.0,3F10.0)
2	FORMAT(12F6.0)
3	FORMAT(////34H TRIPLE EXPONENTIAL SMOOTHING.....,A4,A2//22H NUMBER
	1 OF DATA POINTS,I6/19H SMOOTHING CONSTANT,F9.3/)
4	FORMAT(//13H COEFFICIENTS,9X,1HA,14X,1HB,14X,1HC)
5	FORMAT(//9H ORIGINAL,F19.5,2F15.5)
6	FORMAT(//8H UPDATED,F20.5,2F15.5/)
7	FORMAT(//27X,13HSMOOTHED DATA/7X,10HINPUT DATA,12X,10H(FORECAST))
8	FORMAT(F17.5,8X,F15.5)
C  **INPUT CHANNEL IS MY
C  **OUTPUT CHANNEL IS MX
	MY=1
	MX=2
C	READ PARAMETER CARD
100	READ(MY,1) PR,PR1,NX,AL,A,B,C
	IF (NX.EQ.0) STOP
C	PR......PROBLEM NUMBER (MAY BE ALPHABETIC)
C	PR1.....PROBLEM NUMBER (CONTINUED)
C	NX......NUMBER OF DATA POINTS IN TIME SERIES
C	AL......SMOOTHING CONSTANT
C	A,B,C...COEFFICIENTS OF THE PREDICTION EQUATION
	WRITE(MX,3) PR,PR1,NX,AL
C	PRINT ORIGINAL COEFFICIENTS
	WRITE(MX,4)
	WRITE(MX,5) A,B,C
C	READ TIME SERIES DATA
	READ(MY,2) (X(I),I=1,NX)
	CALL EXSMO(X,NX,AL,A,B,C,S)
C	PRINT UPDATED COEFFICIENTS
	WRITE(MX,6) A,B,C
C	PRINT INPUT AND SMOOTHED DATA
	WRITE(MX,7)
	DO 200 I=1,NX
200	WRITE(MX,8) X(I),S(I)
	GO TO 100
	END

---