**TI89**mainRmoveavg"Z() Prgm ClrIO Disp "span" Input k DelVar list1 DelVar list2 DelVar list3 dist[1]list1 For l,1,dim(list1)-k+1 sum(seq(list1[l+j],j,0,k-1))/klist2[l] EndFor seq(k,k,1,dim(list2))list3 NewData dist,list1,list2,list3 0xmin dim(list2)+1xmax (xmax-xmin)/10xscl min(list2)-.1*abs(min(list2))ymin max(list2)+.1*abs(max(list2))ymax (ymax-ymin)/10yscl FnOff PlotsOff PlotsOn 1 NewPlot 1,1,c3,c2,,,,1 OneVar c1 x:xS:minXm:maxXn OneVar c2 ClrIO Output 1,1,"mean" Output 1,40,x Output 10,1,"stdev" Output 10,40,s Output 20,1,"range" Output 20,40,m Output 20,90,n Output 35,1,"mean" Output 35,40, Output 45,1,"stdev" Output 45,40,x Output 55,1,"range" Output 55,40,minX Output 65,40,maxX EndPrgm ܉