Moving Average

Gallery

Source Code

   5 PRINT "%M%O%V%I%N%G% %A%V%E%R%A%G%E"
   6 PRINT "CALC MEAN/STD DEV"
  10 LET K=0
 100 PRINT "HOW MANY NOS.?"
 110 INPUT N
 120 DIM X(N)
 200 LET K=K+1
 210 PRINT "NEXT NUMBER?";
 220 INPUT X(K)
 230 PRINT X(K)
 240 IF K<N THEN GOTO 200
 250 CLS 
 300 LET SX=0
 310 LET SS=0
 320 PRINT "LAST ";N;" NUMBERS",,,,
 330 FOR J=1 TO N
 340 LET SX=SX+X(J)
 350 LET SS=SS+X(J)**2
 360 PRINT "   ";X(J)
 370 IF J>1 THEN LET X(J-1)=X(J)
 380 NEXT J
 400 PRINT ,,"MEAN = ";SX/N
 410 PRINT ,,"STD DEV = ";SQR (SS/N-(SX/N)**2),,,,,
 420 GOTO 210
 500 SAVE "1004%0"
 510 RUN