Casio FP-200 - Page 85

UTILITY
410 CLS:F'RINT T$:F'RINT"Input did:a fnJm tape. Pr·Hs
s RETURN key wh~n tape is n>.c.1.c1y."
420 IF INKEV$()CHR$(13) THEN 420
430 OPEN "CAS0: DOS DATA" FOF~ INPUT AS # 1
440 INPUT #1,AS,C
450 FOR I=l TO C:INPUT #1,IN(l):NEXT !:CLOSE #1
500 '···-···--·--·---- Carree.: ti on
510 CLS:PRINT TS
520 PRINT"Title :";AS:PRINT"Number of data:";C
530 PRINT"Do you wish to con·-pct data.";
540 ZS=INKEYS: IFZS="N" OR Z$==="n" THEN 600 ELSE IF
ZS="Y" OR ZS="y" THEN PRINTZS:GOTO 550ELSE GOTO 54
(Z)
550 INPUT" Data No. : " , Z: IF Z < 1. OR Z >C THEN 550
56121 F' R I NT " " ; I N ( Z > ; : I NF· UT " -- ·- > " , I N ( Z > : PR INT : GOT 0
53(2)
600 ·---------- Caliculation 1
61121 F'RINTZS:SUM=0:MAX=-1E99:MIN=1E99
620 FOR 1=1 TO C: F'RINT"-lj·";: SUM=:SLJM+IN (I): IF MAX< I
N(l) THENMAX=IN<I>
630 IF MIN> IN< I ) THEN MIN:::: IN< I )
640 NEXT I:F'RINT
700 ·---------- Input number of classes
710 CLS: PRINTT$;: PRINT"< "; A$: PRINT"Numbc:?r· of dat
a ":PRINTC
720 PRINT"Number of class ": INF'UT""; ZS: IF 2$="-"
THEN 500
73121 CL=VAL(ZS):IF CL<2 OR CL)1Ql THEN710
800 '---------- Frequency count
810 LE=CMAX-MIN)/CL
820 CLS: PR I NT "Ma:d mum value ": PR INTMAX: PR I NT "Mini
mum value ":F'RfNTMIN
823 PRINT:PRINT "<< Hit any key>>"
824 IF IM(EY$=
1111
THEN 824
825 CLS:F'RINT"Class width ":F'RINTLE
830 FOR I=1 TO 10:DS(I)=0:NEXT I
840 FOR I=1 TO C: Z=INT ( ( IN (I) --MIN) I <LE>··lE--·6)): IF
Z<CL THEN Z=Z+1
850 DSCZ)=DS(Z)+1:NEXT I
860 M==D~ < l )
870 FOR 1=2 TO CL:IF M<DS<I> THEN M=DS<Il
880 NEXT I
890 F'RINT"hi ghest fn2quenc:y ": F'RINTM
900 ·========== Caliculation 2
9112l N=M: X=0: I=l
89