; ***************** 
; Master Library 17
; *****************
; Moving Averages


#EMULATOR c:\ti-59\ml\17\ML-17.t59

#LISTING c:\ti-59\ml\17\ML-17.LST

#AZEMULATOR c:\ti-59\ml\17\ML-17.TI


lbl iff                                 ;000
rcl 5 st* 1 sum 4 1 sum 1 ( rcl 4
/ x%t ) rtn

lbl b                                   ;018
sto 5 iff 1 pi 1 sum 3 rcl 3 x%t
rcl 2 ge iff 6 sto 1 stf 1

lbl pi                                  ;040
rc* 1 inv sum 4 rcl 5 sum 4 st* 1 
1 sum 1 rcl 1 x%t ( rcl 2 + 5 ) ge
ge 6 sto 1

lbl ge                                  ;070
( rcl 4 / rcl 2 ) rtn

lbl mean                                ;080
0 1/x rtn

lbl e'                                  ;085
inv stf 1 6 sto 1 0 sto 3 sto 4 rtn

lbl a                                   ;099
cp eq mean inv ge mean sto 2 x%t rcl 2
int inv eq mean rtn                        


#end 
