Sharp PC-E500/E500S Technikersoftware

CHI.413

CHI-Quadrat-Verteilung

CHI.413 (1.012 Bytes)

10 ' DFX.413 (x2-distribution)
15 CLEAR
20 MERGE "G:SBDF.42$":MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 GOSUB *CG:QKI$=CHR$ &B6+CHR$ &C3
50 ' Display menu
60 CLS :LOCATE 5,0:PRINT "* CHI-SQUARE DISTRIBUTION *"
70 LOCATE 6,2:PRINT QKI$;"(p)...1         ";QKI$;"(x)...2"
80 ' Select menu number
90 Q9$=INKEY$ &1
100 IF Q9$="1" THEN 120
110 IF Q9$="2" THEN 230 ELSE 90
120 ' Calc t(p)
130 CLS
140 P3$="  n= ":GOSUB 600
150 IF Q9$="" THEN 50 ELSE Q5=Q9
160 IF Q5-INT Q5<>0 OR Q5<=0 THEN 140
170 P3$="  p (0<p"+CHR$ &E5+"1)= ":GOSUB 600
180 IF Q9$="" THEN 50 ELSE P6=Q9
190 IF P6>1 OR P6<=0 THEN 170
200 R5=0:GOSUB *CP:IF R5 THEN 140
210 QXQ=QX:QYQ=-4:GOSUB *RNDN:QX=QXQ:PRINT "  x=";QX
220 GOTO 140
230 ' Calc. t(x)
240 CLS
250 P3$="  n= ":GOSUB 600
260 IF Q9$="" THEN 50 ELSE Q5=Q9
270 IF Q5-INT Q5<>0 OR Q5<=0 THEN 250
280 P3$="  x= ":GOSUB 600
290 IF Q9$="" THEN 50 ELSE QX=Q9
300 R5=0:GOSUB *CU:IF R5 THEN 250
310 QXQ=P6:QYQ=-5:GOSUB *RND:P6=QXQ:PRINT "  p=";P6
320 GOTO 250

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net