Sharp PC-1500 Applications Manual page 62

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
MODIFIED MOVING AVERAGE
PROGRAM NO.
3
TITLE
PS-B-6
[ Program List
I
( Memory Contents )
10: "A" : CLEAR :
INPUT
"H=
" ;A
A n
20:E=0:0!M
X <A·-
J )
B n- 1
30: IF A< >INT
<A*0
c .J
.5>*2GOTO 130
<10 : FQR C=0TO A-1
D
x
50 : GOSUB 500
E
I:x
60:NEXT
c
/0:FOR
C=0TO A-l
F
80: INPUT
" X.::" ; O:
G
GOTO
90
H
BS: ENO
90:E=E+O :LPRINT
..
I
**
X=";
0
J
95 : LPRINT
11
M. V.
="
K
;<E-.S*<D+X<-C>
)).tA
L
J00 : E=E- X<C>:X<C> =
M
I')
I
I 0: NEXT
c
N
J20:GOTO 70
0
J30 : FOR
C=0 TO A- 2
p
!'10:GOSUB
500
J50:NEXT
c
a
160:8=A- l: INPUT
"x
R
=" ;X<B>
s
170: E=E+X<B> :
LPRJ NT
"**
X= "
T
;X <B>
u
180:LPRJNT
''M.U. = "
;E.tA
v
190:FOR C=0TO
B
w
200: INPUT
1
'X= 11 ;0:
x
GOTO 210
205 : ENO
y
2 J0: E=£- X<C>+D:X(C
z
>=O
220:LPR!NT
'"**
X="
X(n-1)
Data Table
;o
225 : LPR JNT
"M. U .
.="
;E.1A: NEXT
c
230:GOTO 190
500:J NPUT
"X= '' ;D
505 :LPR1NT
"**
X= n
;O
510 : E=E+O:X<C> =O:
RETURN
STATUS
l
'158
Do not sale this PDF !!!
- 56 -