Sharp PC-E500/E500S Technikersoftware

T.412

t-Verteilung

T.412 (955 Bytes)

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

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

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