Sharp PC-1500 - Page 104

All and more about Sharp PC-1500 at http :f /www .PC-1500.i nf o
PROGRAM
HISTOGRAM
P ROGRAM NO .
3
TITLE
PS - 0-7
[ Program List I
[ Memory Contents I
10: "A ": C LEAR :
280:T=T/N:S= ST
TE XT :US ING
29 0:COLOR 0:LPRINT A
20:1 NPUT
" NO . OF
" UAR I ANCE = ", T
DATA=" i N
300:LPRINT
''S TD.
D
B
Sec tio nal interval
30: INPUT
" INITIAL
EU.=";S
c
v
UALUE=";F
3J0 :N=-i0"(98 >
40:JNPUT
" SECTION
320:FOR C =0T O M- 1
D
AL
lNTERUAL=" ; 33 0: IF H<C>>NLET N
E
8
=H<C>
5 0: INPUT
" NO.
OF
340:NEXT C
F Initial Va lue
SECTION S=";M
350:GRAPH
G
v
60:0J M Al(N-l),H( 360: GLCURSOR
<5 0,0
M- 1)
):S ORGN
H
70 :FOR C= 0TO M-1
370 :COLOR 0
C la~~ No.
80:H (C)=0
380: LINE
(0, 0) - ()5
I
90:NEXT c
0, 0>
J
l 00: I NPUT
"K EY-JN? 390: LINE
<0, 0) - (0,
(Y, N)";AS
- 450)
K
I 1 0: 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
GLCUR SOR
( -50 ,
0
140: GOTO
160
1-1- 1 5)
15 0:1F A! ( C>>ZGO TO
424: LPR I NT USING "
p
1 30
11111111 " ; Q
Q ..;
! ~2: IF A!<C>< F GOTO
4 30: 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,
!6 0:PRIN T
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 =0T O N- 1
490:E ND
v
2 00: l = INT
«Al<C> -
w
F>.18>
x
No. of Effective Data
21 0; H ( I> =H < I) .. l
22 0: S=S+Al<C >
y
230:NEXT C
S
TATUS J
M aximum Effe ct ive
24 0 :U=S.1N : T=0
844
z
250 :FOR C=0 TO N-1
Value
26 0 :T=T•<Al<C>-U>"
AS
v
2
27 0:NEXT c
A1(N - l
Data Ta b le
H IM - U
Dat a Tabl e f or Cla~s
Do not sale this PDF !!!
- 98 -