data=:+/\(-+/%#)?20#10 plot data,: 0.7 expsm data
NB. exponential smoothing expsm=:4 : 0 y0=.({.@],])y i=.0 sr=:Fr=:{.y0 label_L1. if.(#y)<:i=.>:i do. goto_OWARI. end. Fr=:((1-x)*Fr)+x*i{y sr=:sr,Fr goto_L1. label_OWARI. )
plot data ,: 3 mmave data
mave=:+/\%[ mmave=:[mave((<.@-:@[)#{.@]),],(<.@-:@[)#{:@]
wts=:(|.,}.)74 67 46 21 3 _5 _6 _3%320 locspen=:(+/ .*)&wts spencer=:15"_ locspen\(7:#{.),],7:#{:
plot data,: 7 henderson data
NB. Henderson Moving Average hpnt=:4 : 0 m=:-:x+3 nm=:315*(((m-1)^2)-*:y)*((m^2)-*:y)*(((m+1)^2)-*:y)*(((3**:m)-16)-11**:y) hi=:nm%8*m*((m^2)-1)*((4**:m)-1)*((4**:m)-9)*((4**:m)-25) ) henderson=:4 : 0 wt=:x hpnt i:-:<:x x(+/ .*)&wt\((<.@-:x)#{.y),y,(<.@-:x)#{:y )