Sharp PC-1500 Applications Manual page 104

All and more about Sharp PC-1500 at http:f/www.PC-1500.info
PROGRAM
HISTOGRAM
PROGRAM NO.
3
TITLE
PS- 0-7
[ Program L ist
I
[ Memory Contents
I
10: "A": CLEAR :
280:T=T/N:S=ST
TEXT :USING
290:COLOR 0:LPRINT
A
20:1 NPUT
" NO .
OF
" UAR I ANCE =", T
DATA="
i
N
300:LPRINT ''STD.
D
B
Sectional interval
30: INPUT
" INITIAL
EU.=";S
c
v
UALUE=";F
3J0:N=-i0"(98 >
40:JNPUT
"SECTION
320:FOR C=0TO M - 1
D
AL lNTERUAL=" ; 330: IF H<C>>NLET N
E
8
=H<C>
50: INPUT
"
NO. OF
340:NEXT C
F
Initial Value
SECTIONS=";M
350:GRAPH
G
v
60:0J M Al(N-l),H( 360: GLCURSOR
<50,0
M - 1)
):SORGN
H
70:FOR C=0TO M-1
370 :COLOR 0
Cla~~ No.
80:H ( C)= 0
380:
LINE (0, 0) - ()5
I
90:NEX T
c
0, 0>
J
l 00: INPUT
"KEY-JN? 390:
LINE <0, 0) - (0,
(Y, N)";AS
- 450)
K
I 10: IF AS= "N" GOTO
400:L=450/M:N=N/l5
L
170
0
115:Z=F•8*M-J:X=0
4J0:1-1=0:Q=F
M
No. of Sections
120:FOR C=0 TO N- 1
420:FOR C=0 TO M - 1
N
No. of Data
130: INPUT ''OATA-=
0
;
422: COLOR 2:
Al (C): G OTO
150
GLCURSOR
( -50,
0
140: GOTO
160
1-1- 15)
150:1F A! ( C>>ZGOTO
424: LPR I NT USI NG "
p
130
11111111 " ; Q
Q
..;
! ~2: IF A!<C>< FGOTO
430: CDLOR
I
!30
435:G=INT
<H(C)/N)
R
! 53: X=X•l
440:LJNE <0,W> -<G,
s
LAl(i).
YT
!55:NEXT C
1-1>-(G, 1-1-L)-<0 ,
!60:PRINT
MX, Al<* )
W-L)
T
I;
L(AI (i)-X)1
165:GQTO 180
450:W=W-L
I 70: I NP.UT
ffX,
Al<*>
470:Q=O•B
u
180:S=0:N=X
480: NEXT C
v
Mean Value
!90:FOR C=0TO N- 1
490:END
v
200:
l
= INT
«Al<C>-
w
F>.18>
x
No. of Effective Data
21 0; H ( I> =H < I) .. l
220: S=S+Al<C >
y
230:NEXT C
STATUS
J
M aximum Effective
24 0 :U=S.1N: T=0
844
z
250 :FOR C=0TO N-1
Value
260 :T=T•<Al<C>-U>"
AS
v
2
270:NEX T
c
A1(N- l
Data Table
HIM- U
Data Table for Cla~s
Do not sale this PDF !!!
- 98 -