Sharp PC-1500 Applications Manual page 83

All and more about Sharp PC-1500 at http:l/www.PC-1500.info
PROGRAM
TITLE
X - R CONTROL CHART
[ Program List ]
10: " A" :CLEAR:
WAIT :DJM Y<8,
I
>
12: INPU T "DATA CL
DAD? ( Y, N) "; AS
14 : IF (AS=" Y" )+(A
S="N'') <>I GOTO
12
15:WAJT 0
16: IF AS="Y"GDTO
132
20:
INPUT
"NO. O F
D ATA
="
;M
30 : IF <2<=M >+<M< •
10><>2GOTO 20
50: INPUT "N0. OF
GROUPS =";N:
DIM X< M +l, N-1
>
60: FOR fl =0TO N- 1
65: 2 1=-1 0" 8: 22= 10
"8
.70: FQR B•0TO M-J
80:CLS :AS=" GROUP
="+STRS <A+I)
+",DATA= ··
90: CLS :PR IN T A$;
J00 :J NPUT X<B, A)
J05: X(M,A)=X(M,A)+
X<B, A>
10.7: IF Zl<X<B, A)
LET 2l=X<B,A>
108: IF 22>X<B, Al
LET 22=X<8, A)
Jl0 : NEXT B:CLS
Jl5 : X(M,A >=X< M , AJ/
M
ll.7:X(M+l,A> =Zl - Z2
120:NEXT A
122: WA I T : INPUT "D
ATA CSAVE? <Y, N
>" ;A$
123: IF (AS•" Y")•(A
s ="N" >< >IGOTO
122
124 : WAIT 0 : IF AS="
N"GOTO 130
126: PRINT tl"X-R DA
TA'";M, N
128: PR INT tl "X- R Dfl
TA"; X("t )
130: CLS :ENO
Do not sale this PDF !!!
132;CLEAR ;WAIT :
INPUT N"X- R DA
TA";M, N
134 :DIM X<M +l,N-J )
, Y(8, I >
136: INPU T tl"X- R D A
TA"; XO:>: ENO
140: "B" :WAIT 0:
INPUT "VER I FY,
CORR . ? <V, C> "
;Ns:GOTO 160
150: ENO
l 60 : 1F ( NS • " V" ) +( N
S•"C" ><>!GOT O
140
170:JF NS= "V"GOTO
2.70
180:1NPUT ":!:GROUP•
' " ;A:GOTO 200
l90: GOTO 250
200 : JF <J< • A> • <A< •
N)( >2GOTO 180
220:1NPUT " No.~·;a
:GOTO 240
230:GOTO 180
240: I F <J< • B) +<B <=
M><>2GO TO 220
245: INPUT "DATA=";
X<B-1, A- 1):
GOTO 220
250:FOR A=0TO N- 1
252 : X<M,A >• 0 : 2 J=-J
0"8: 22=10"8
254:FOR 8=0 TO M -1
256 :1F 21<X< 8,A)
LET 21=X<8,A>
25.7: IF Z2>X<8, A>
LET 22=X<8,AJ
258 :X(M,A> =X<M, A>+
X<8,A>
259:NEXT B:X<M,A >•
X<M,A J/M
260: X<M+J,A> =Zl -22
:NEXT A:GOTO
I
40
262: W AIT : INPUT
"0
ATA CSAVE? C Y , N
) ,, ; A$
263 : IF (A$="Y" )+(A
S• "N" >< >IGOTO
262
- 77 -
PROGRAM NO.
PS- B- 14
264:WA 1T 0:1F AS• "
N"ENO
265: PR INT tl "X- R DA
TA''; M, N
266 : PRI NT tl "X- R DA
TA"; XO: ) : ENO
2.70:•0R A=0TO N-1
280:LF l!LPR!NT
" '!:
GROU P= " ;A+l
290 :FOR 8= 0TO M- 1
300: LPR INT US I NG "
trn
N" ; 9 .. 1;
305:US ING :LPRJNT
X<B, A>
310:NEXT B
31S:LPRINT "AVL";X
<M,
i:l)
31 / : LPR INT " R " ; X
<M+J , A)
320: NEXT A
330:GOTO 262
340: ' " C" : Y<0, 0>=1 . 8
80: Y<0, 1)•3. 26
.7
3S0 : Y( J,0 >=1 . 023:Y
( I , I ) :2.
575:
Y(
2,0>=0 . .72S: Y<2
• IJ.=2 .282
360:Y(3,0>=0.5.7/:Y
(3,
I
>=2. l 15: Y<
4,0J=0.483: Y(4
, 1>=2. 004
3.70: Y(5,0J • 0.4l 9:Y
<S, l >= J. 924: Y<
6, 0>=0. 3.73:
Y(6
, 1 >=I. 864
380 :Y(.7
1
0)• 0.337:Y
<.7,
l
) • I .
8 16: Y(
8, 0>=0.308:Y <B
• l
)=I.
.7.7.7
390: LF I
400: H,.0:P=0
4 10:FOR A=0TO N-1
420:G=X<0,A> : L=X<0
, A>: S=X <0, A>
430: FOR B• lTD M- 1
440: G=G+ X<B,A>
450: I F L<X<8,AlL ET
L=X<8, A)
460: IF S>X<B,A >LET
S=X<B, A>
4.70 : NEXT 8
(To be continued)
6