**TI86** o `MOVEAVG`^ClLCDÖDisp "SPAN"ÖInput KÖOneVar xStatÖËX:ÇxS:minXM:maxXNÖxStatL1Ö0dimL LWÖFor(L,1,(dimL xStat)-K+1)Ösum(seq(xStat(L+J),J,0,K-1))/KLW(L)ÖEndÖOneVar LWÖLWyStatÖseq(K,K,1,dimL yStat)fStatÖL1xStatÖ0xMinÖdimL yStat+1xMaxÖ(xMax-xMin)/10xSclÖmin(yStat)-.1*abs(min(yStat))yMinÖmax(yStat)+.1*abs(max(yStat))yMaxÖ(yMax-yMin)/10ySclÖFnOff ÖPlOff ÖPlot1(1,fStat,yStat,1)ÖClLCDÖOutpt(1,2,"MEAN")ÖOutpt(1,8,X)ÖOutpt(2,1,"STDEV")ÖOutpt(2,8,S)ÖOutpt(3,1,"RANGE")ÖOutpt(3,8,M)ÖOutpt(4,8,N)ÖOutpt(5,2,"MEAN")ÖOutpt(5,8,Ë)ÖOutpt(6,1,"STDEV")ÖOutpt(6,8,Çx)ÖOutpt(7,1,"RANGE")ÖOutpt(7,8,minX)ÖOutpt(8,8,maxX)ÖÊÒ