Advertisement
cx-R
CONTROL C H A R T - - - - - - - - - - - - - - - - - - - - - -
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"
Advertisement
