Sharp PC-1500 - Page 83

All and mo re about Sharp PC-1500 at htt p:l/ www.PC-1500.info
PR OGRAM
TITLE
X - R CONTROL CHART
[ Program List ]
10: "A":CLEAR:
WAIT :DJM Y<8,
I >
12: INPU T "D ATA CL
DAD? ( Y, N) "; AS
14: IF (A S=" Y" )+(A
S= "N'') <>I GOTO
12
15:WAJT 0
16:
IF AS="Y"GDTO
132
20: I NPUT "NO. OF
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)
+",DAT
A= ··
90: CLS :PR IN T A$;
J00 :J NP UT 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>
1
08: 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 : I NP UT "D
ATA C SAVE? < Y, N
>" ;A $
1 23: IF (A S •" Y ")•(A
s ="N" >< > IGO TO
122
124: WAIT 0: IF AS="
N
"GO TO 130
12
6: P RINT tl"X-R DA
TA' ";M, N
128: PR INT tl "X- R Dfl
TA"; X (" t )
13
0: CLS :ENO
Do not sale this PDF !!!
132;C L EAR ;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 DA
TA"; XO:>:
ENO
140: "B" :WAIT 0:
INPUT "V ER I FY,
CORR . ? <V , C> "
;Ns:GOTO
160
15 0: ENO
l60: 1F ( NS • " V" ) +(N
S
•"C" ><>!GOT O
140
170:JF NS= " V"GOTO
2.70
1 80 :1N PUT ":!:G ROUP•
'" ;A:GOTO 200
l90: GOTO 25 0
2
00 : JF <J<• A> • <A< •
N)( >2GOTO 180
220:1NPUT " No.~·;a
:GOTO 240
230 :GOTO 180
240: IF < J< • B) +<B <=
M ><>2GO TO 220
24
5: 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=0TO
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:N EX T B:X<M,A >•
X<M,A J /M
260: X <M+J,A> =Zl -22
:NEXT A:GOTO I
40
262: W AIT : INP UT "0
A TA CS AVE ? CY, N
) ,, ; A$
263: IF (A $=" Y" )+(A
S• "
N" >< >IG O TO
262
- 77 -
PROGRAM NO.
PS- B- 14
264:WA 1T 0:1F AS• "
N"ENO
265: PR INT tl "X - R DA
T A''; M, N
266 :PRINT tl "X- R DA
TA"; XO:) : EN O
2.70:•0R A=
0TO N-1
280:LF l!LPR!NT " '!:
GRO U P= " ;A+l
290
:FOR 8= 0T O M- 1
300: LPR INT US ING "
trn N" ; 9 .. 1;
305:USI NG :LPRJNT
X<B, A>
310:NEXT B
31S:LPRINT
"AVL";X
<M, i:l)
31 / : LPR INT " R " ; X
<M+J , A)
32 0: NE XT A
330:GOTO
262
340: '" C" : Y<0, 0>=1 . 8
80: Y<0, 1)•3. 26
.7
3S0: Y( J ,0 >=1 . 0 23: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
38 0: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
410: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: IF L<X<8 ,AlL ET
L= X<8, A)
4
60: IF S> X<B,A >LET
S=X<B, A>
4.7 0: NEXT 8
(To be continued)
6