Sharp EL-9600, EL-9400 manual Hi =, = 1 + + M-1

EL-9600/9400 Graphing Calculator

Moving Average

Plot a moving average graph which helps to understand how the results change over a specified period. The progress of sales and amounts of consumption and production can also be seen.

Calculation

Hi =	Xi-(M-1) / 2		+ ... + Xi + ... Xi+(M-1) / 2
			M
( I = 1 +		M-1	, 2 + M-1	, ... , n +	M-1 )
		2	2		2

Hi : moving average

M: number of divisions Xi : data

n : number of data

FLOWCHART	PROGRAMME LIST
	(STAT MODE)

Start

	MAIN
Entry of number of divisions	Enter unit for calculating average.

Title : MVIN AVG

Label MAIN

Print "Input DIVISION

Input D

Y

M>=n

N

Setting of calculation range

Calculation

Gosub count

Returns to entry of no. of divisions if the number of divisions more than no. of data.

Range for graph set.

I = 0, K = int (M/2)

First calculation. Jumps to subroutine.

D M

1_Stats L1

If M≥n Goto MAIN

Rem RANGE

(xmax-xmin)/10 Yscl

0	Xmin
n	Xmax
1	Xscl
xmin Ymin

		LOOP1
	Gosub MOVINGSUM		Jumps to subroutine.
Y			Number of calculation times of moving sum judged.
		M>=J	Repeated until calculation of no. of divisions performed.
		N

xmax Ymax

0 I

int (M/2) K

Gosub COUNT

Label LOOP1

Gosub MOVINGSUM

If M≥J Goto LOOP1

	Gosub AVERAGE			COUNT
		LOOP2	X = K, Y = H
	Substitution
			Jumps to	I = I + 1, J = I, S = 0
	Gosub COUNT		subroutine.	Return
		LOOP3
			Jumps to
Gosub MOVINGSUM
			subroutine.
Y				MOVINGSUM
		(I+M)>J

Subroutine Setting of counter

Subroutine Calculation of moving sum

Gosub AVERAGE
Label LOOP2
K	X
H	Y
Gosub COUNT
Label LOOP3
Gosub MOVINGSUM
If (I+M)>J Goto LOOP3
Gosub AVERAGE
Line (X, Y, K, H)
If K≠(n-int (M/2))Goto LOOP2

N

Gosub AVERAGE

Display of line

YK≠ (n-int(M/2))

N

End

Calculation of moving sum

Jumps to

subroutine.Return

Line displayed.

AVERAGE

Judgment of end.

Calculation of moving average

Return

Subroutine Calculation of average

Wait
End
Label COUNT
I+1		I
I	J
0	S
Return
Label MOVINGSUM
S+L1(J) S
J+1		J
Return
Label AVERAGE
S/M		H
K+1		K
Return

16