1  PRINT
2  PRINT
3  PRINT " THE STANDARD DEVIATION IS THE ROOT MEAN SQUARE OF THE"
4  PRINT " DEVIATIONS FROM THE MEAN."
5  PRINT
6  PRINT " THE STANDARD DEVIATION IS CONSIDERED THE BEST MEASURE"
7  PRINT " OF DISPERSION."
8  PRINT
9  PRINT
30  DIM R[50],S[50],T[50]
40  LET Y=0
41  LET T=0
43  LET K=0
45  LET D=0
46  LET E=0
50  PRINT " TYPE NUMBER OF CASES MAXIMUM  OF 50"
60  INPUT N
65  LET B=0
70  PRINT "TYPE IN THE VALUSE  THE EXACT NUMBER OF CASES"
80  FOR K=1 TO (N)
90  INPUT S[K]
100  LET R[K]=S[K]
110  NEXT K
111  PRINT
112  PRINT
113  PRINT
114  PRINT
115  PRINT "THE INPUT DATA IS"
120  FOR I=1 TO (N)
130  PRINT R[I]
135  LET Y=Y+R[I]
140  NEXT I
145  PRINT
146  PRINT
160  PRINT "SUM OF THE X'S  RAW SCORES",Y
165  PRINT
166  PRINT
170  LET Z=Y/N
180  PRINT "THE CALCULATED MEAN IS",Z
182  PRINT
183  PRINT
185  PRINT "THE X PRIMES ARE"
190  FOR J=1 TO (N)
200  LET T[J]=R[J]-Z
210  LET E=E+T[J]
220  PRINT T[J]
230  NEXT J
232  PRINT
233  PRINT
235  PRINT " THE SUM OF THE X PRIMES IS",E
237  PRINT
238  PRINT
240  FOR L=1 TO (N)
250  LET T[L]=T[L]^2
255  LET D=D+T[L]
260  NEXT L
270  PRINT " THE X PRIMES SQUARED ARE"
280  FOR M=1 TO (N)
300  PRINT T[M]
310  NEXT M
312  PRINT
313  PRINT
315  PRINT " THE SUM OF THE X PRIMES SQUARED IS",D
317  PRINT
318  PRINT
320  LET B=N*(N-1)
340  LET G=SQR((N*D-E^2)/B)
350  PRINT " THE STANDARD DEVIATION IS",G
400  END