Casio FP-200 - Page 42

cx-R CONTROL CHART----------------------
46
23(2) PRINT "Oat.a input method":PRINT " •<eyboard":
PRINT " Tape ":PRINT "< select Kor· T >"
240 Z$=INVEYS:IF Z$="V" OR Z$="k" THEN GOSUB 11211210
:GOTO 31121
250 IF Z$="T" OR Z$="t" THEN GOSUB 1100 ELSE GOTO
240
30(2) '
310 CLS:PRINT TI$
320 PRINT "Correcting data":LOCATE 8,2:PRINT"(Y o
r N):";
330 Z$=INKEY$:IF Z$="Y" OR Z$="y" THEN PRINT CHR$
(14);Z$:GOTO 350
340 IF Z$="N" OR Z$="n" THEN 400 ELSE 330
350 INPUT "Gr·oup Number- :",GT:IF GT<'.1 OR GT>f< T
HEN 350
360 INPUT "Measured datc.-1 number : ", XT: IF XT< l OR
XT>N THEN 360
370 PR5NT X(GT,XT>;:INPUT "-->",X(GT,XT>:PRINT CH
R$(14):GOTO 320
400 '
II •
'
410 CLS:PRINT Tl$:F'RINT "Being computed"
420 XSUM=0:RSUM=0:LM=0:MM=X<1,1)
430 FDR I=l TD K:SX=0:t1AX=X<I,1>:MIN=MAX:PRINT "*
440 FDR J=1 TO N:L=0;SX=SX+X<I,J)
450 IF MAX<X<I,J> THEN MAX=X<I,J)
460 IF MIN>X<I,J) THEN MIN=X(I,J)
470 IF FRAC(X(I,J)*10AL)()0 THEN L=L+l:GOTO 470
480 IF LM<L THEN LM=L
490 NEX1T J
500 XM(I)=SX/N:R<I>=MAX-MIN:IF MM<MAX THEN MM=MAX
510 NEXT I:LM=-(LM+U :PRINT ">"
520 FOR 1=1 TD K:XMCI)=ROUND<XM(I) ,LM-1>:XSUM=XSU
M+XM(I):R(I)=ROUND(R(I) ,LM-1>:RSUM=RSUM+R<I>:NEXT I
530 RM=ROUNDCRSUM/K,LM-3):RL=RM:RUCL=D4CN>*RM
540 XM=ROUNOCXSUM/K,LM-3):XCL=XM:XUCL=XM+A2CN>*RM
:XLCL=XM-A2(N)*RM
6!ZHZl
610 PHINT "Print out":GOSUB l.300
620 LPRINT "00,-10":l_F'RINT "L0":LPRINT "010,0, 1C2l,
-··50": LF'R I NT "D 10, --25, 90, -25"
630 LF'RINT "82":LF'RINT ."Ll":LPRINT "090,--40,10,-4
12)" : LF'R I NT "D lti'l, - 10, 90, -10"