Casio FP-200 - Page 86

rFREQUENCY DISTRIBUTION TABLE----------------
90
920 IF N>100 THEN N=INT(N/10):X=X+l:GOTO 920
930 IF N MOD 2)0 THEN N=N+l
940 IF N MOD I>0 OR N/1)10 THEN I=I+l:GOTO 940
950 N=N•10AX: IF ABS(10-I)>ABS(l0-N/l) THEN E=N/I
ELSE E=I
1000 ·---------- Frequency distribution table
1010 LPRINTCHR$(28);CHR$(37):LPRINT"Y0":LPRINT
11
Z2,
6":LPRINT
11
Q0
11
:LPRINT
11
B2":LPRINT"L0":LPRINT"J0
11
1020 LPRINT
11
S2
11
:
LPRINT"F'"; A$: LPRINT"S1": LPRINT"010
,-9(2)"
1030 LPR I NT
II
D0 , 80, 0, 0, 80 , 0"
1040 SC=80/E:T=N/80: IF LEN<STR$(M)))4 THEN S=0:8=7
ELSE S=l:8=3
1050 LPRINT"S";S:LPRINT
11
Ll"
112160 FOR I=E TO CZl STEP -1:Y=I*SC:N$=RIGHT$(" "+
STR$(F!X(Y*T> > ,B> :LPRINT"M-9,";Y:LPRINT"P";N$: IF I<
)0 THEN LPR I NT" DCZl, " ; Y; " , 80, " ; y
1070 NEXT I: LPR I NT" S 1": LPR I NT" J 1": LPR I NT
II
UZl": SC=80
/CL
1080 FOR I=l TO CL:X2=I*SC:Xl=X2-SC/2:Y=80/N*DS<I>
:IF Y<0.1 THEN Y=0
1090 Z$=MID$(STR$(!) ,2):YM=-4:FOR J=l TO LEN(Z$):L
PRINT"M
11
;
X2-SC/4; II,
11
; YM: LPRINT"P"; MID$ ( 2$, J, 1 >: YM=Y
M-3.6:NEXT J
110(2) LPR I NT
II
D
11
; X 1;
11
, 0,
11
;
X 1; " , "; y; " ,
11
; X2;
11
, "; y;
11
, ";
X2;",0
11
1110 NEXT I:LPRINT
11
H10":LF'RINT"J0"
1200 ·---------- Table
1210 LPRINTCHRS(28);CHR$(46)
1220 LPR I NTE$; "S2": LF'R INT MID$ <T$, 2, 11) ; TAB< 12) ; MI
OS <TS,26, 14): LPRINTE$; "S1" ~
1230 4-F'RINT"Class";TAB(13); "F"ange ";TAB(28); "Fn,!qu
ency": LF'RINTML$
1240 FOR I=l TO CL:LS=MIN+LE*<I-11:MS=LS+LE:LPRINT
USING"### ######.###"' ######.#tHt ###if#"; I;LS;MS;
DS(I):NEXT I
1250 LF'RINT ML$: LF'RINT TAB (::'.Sl: "ToL:d ";: LF'f~INT USI
NG "####tt";C
1260 LPRINT ES;"F3"
1270 LPRINT USING"Number of data:
1280 LPRINT USING"Ma:-: imum value
1290 LPRINT USING"Minimum vc.d.ue:
LPRINT E$; "F5"
1300 ·---·-------- Save data 0t1 lc.~pc
1310 CLS: INPUT"Do you ,:;ave~ dJt« un
# 4HHHttt " ; C
##4Ht#4L #1*#"; MAX
###tttrn. 1:t##"; MIN: