Sharp PC-E500/E500S Technikersoftware

NORMAL.411

Normalverteilung

NORMAL.411 (754 Bytes)

10 ' DFN.411 (Normal distribution)
15 CLEAR
20 MERGE "G:SBDF.42$":MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 ' Display menu
50 CLS :LOCATE 8,0:PRINT "*  NORMAL DISTRIBUTION  *"
60 LOCATE 6,2:PRINT "N(p)...1         N(x)...2"
70 ' Select menu number
80 Q9$=INKEY$ &1
90 IF Q9$="1" THEN 110
100 IF Q9$="2" THEN 190 ELSE 80
110 ' Calc N(p)
120 CLS
130 P3$="  p (0<p<1)= ":GOSUB 600
140 IF Q9$="" THEN 40 ELSE P6=Q9
150 IF P6>=1 OR P6<=0 THEN 130
160 R5=0:GOSUB *NP:IF R5 THEN 130
170 QXQ=QX:QYQ=-5:GOSUB *RNDN:QX=QXQ:PRINT "  x=";QX
180 GOTO 130
190 ' Calc N(x)
200 CLS
210 P3$="  x= ":GOSUB 600
220 IF Q9$="" THEN 40 ELSE QX=Q9
230 R5=0:GOSUB *NU:IF R5 THEN 210
240 QXQ=P6:QYQ=-5:GOSUB *RND:P6=QXQ:PRINT "  p=";P6
250 GOTO 210

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

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