Sharp CE-125 - Page 45

953
480:LPRINT ••: LPRIHT YY
500:W=U / (K-1): USING
505:LPRIHT "NO. OF DATA=
•;K-1
510:LPRINT "MEAN VALUE=
"HI
520:LPRINT "STD. DEV.="
i.r<-Wotclil+V/(K-1 ) )
530:END
---"
;B;•+----+----+- - --+ 210:INPUT "DELETE DAT A = •
;x
230:IF (X< A)+ ( X ) B)=l
GOTO 2 1 0
2 35:LPRIN T " * * • ; x
240:N= INT < < X-A ) /D )
250:IF D(N ) -1<0 BEEP 2:
W AI T: PRINT "OVER-D
ELETED CHECK •
260:D <N ) =D<N)-1:K=K-1
265: U =U-X:V=V- X*X
270:GOTO 210
300: "C "F=2: WAIT 100
305:LPRINT • •: LPRINT ••
: LPRINT "HISTOGRAM"
r - - - - · nrr c C E:AR " : : · w · iH r - -- ~0 · 0 ~ · · - -- · -- ~ - ~ - ~10rF>=i: °i' Nfi i f f " " *;; · ~ T fi: .. - - - 1· 'i ' 'i , :
! 20: P R '. INT "RANGE ) A = < D · ~ ;·~ ;: : ;' LPRINT "*= ~ TP 1 \• · : i i C ' '! :
· j· - - - A1 A - ;;- < - f " - : -- rfii:> - o r - • "A =- - - - 3.2 0 . :LPRiift - - ,~- ~ . - -· - -- - .. : - - - - - . 1
1 •;A~·B=•;B : 330:LPRINTi · ' ' • ~ ; 1 ; USHIG : : ;, 1 · ') : :.:
~ - - - -- -- - - · .. · -- - -- .. -- - - 1 - - -- - - .. - - - -- · - -- -- - -- - - - · · - - .. · .. - - · .. - - - · _ _ [ _ · - 1
l 30: INPUT "SCALE 4NIT SI Ul# ~ HHS*P , H0•PUS * 1 -.:
L . _ _ zE= " - ; . o .
1
-- = -- P. ~ :.. - _:__ , :: _· _ ~ . , ~ . · - - _ -~' _ L~ - : - ·
i 40: C=B-A: E= INT < c /D ) _ , , · 340= · LPR1H ri " , :i;: ~ :.; ~ J. ...; ; : : ; · .
:- - -- - 60 · =- - D-IM D( - E - h B$ - ( 0 ) . *-24 - -- - - - _ : ~~ - · - · _ · : .:._.:.,f. .:. -;--+---· · - ' ~ - · - - - ~ '.'.._~ _ : __ ,
! 70•LPRI"'T "INPUT 1 DATA" -x , · · 34 · 5• · 11 · _....., . , ,., ' .. , . . , , .. _. . - .
I • l't I - • \ I • . -f"t ' ' , ' .' . ' . i. . :...; l . . ~ I .
: -- : - . a0:K= 1 r - wAIT i 0:F ~a- - - -- "3s0:FQR t='0 ' TO " E' - - - - -- ;- - -
! · .. ! i • • , • , • • • • : , , , , ' • I J J • ~ " ' ' . • • • - • I
I -. 1 : 90 . : ~ - A . " · USING : . · IF F>0 - " /." l 3£ ) 0: ' IF ' D ' ~U =0 · ' GOTO 4 4 · 0 , ! · ~ ;:
L,__ ,, ,_ l E l ' .F:0: . · · LPRI HT. ~ . : __3 _ 7..0J _ Q~ _ HH 1 rn <. u. 1.: e . lL !f ! _ . __ . :
! ,. , · • ; ,. I.PR IN T .. ~ lNP,UT i DATA ' D(U > Q : *P LET Q 3.Q f: '. k J ! : z -: .
' --- - 1 ~0= , ~'7--: E~~ ' : ; ~ ; .: : . : ) - : - - - · - ·. .. - 3a0: - 1F - Q ) · ta _-: l:: E L;' Q = t a- · :-- t. . .
! 1 : 1 · 0 .f IN°. U - T . ' · DAT ;. ,:;_v; g 390:B$(0)= i " .£:: · , :!! .: LJ I" - ; , ·· : ·
·. . .. · . .. .. r : \ . , . . . . . ., i i . , l .
i ~ ;" ; . ~ 1 20n c < ~ ~ A :>: ~ ,~ : ~ · )i ~ ~ =1 400:FOR M= J t TO Q:B$(0)=B
__ _ _ __ G _ O J O ' · . 100 · . .. : · : . _ _ __. _ $ _ ( 0) _ ~>1!.. " . : _ . . l)IE X. "L I'! . .t ;
I 12s:LPRINT : ~ , D~TA;: ' v; x 410:LPRINT 1 USING "lllfU" I
. J, / 1 l .. l 1 l • . . .
: _ .. J l~ _ : _ tt = Il'H . (~ X -:- ~ { !: P ) _ U :H . ~J _ · ·- - - .. ~.1 . . _ _
1 4 0 :D (N) =D(N ) +1 D<L )
1s0:u=U+ X :V=V+X*X 420:LPRINT B$ ( 0 )
160: K = K +l 430:GOTO 460
1 7 0 : G OTO 100 440: L PRINT USIN G " 111#1 "
2 00: " B" USING : IF F O t iHi • P
LET F=t: LPRINT '" : 450:LPRINT v 1 •
LPRINT " DELETED DA T A 460:H=H+D: NE X T L
v 470:LPRINT USING "1111# "
PROGRAM LIST
promsoft.com