Casio FX-850P Scientific Library 116

6450

Normale Zufallszahlen

LIB6450 (198 Bytes)

10 MODE8:DIM:CLS:ANGLE1
20 x=RAN#(1):IFx=0 THEN20
25 y=RAN#(1):IFy=0 THEN25
30 x=SQR(-2*LNx):y=2*PI*y
40 z=x*COSy:GOSUB60
50 z=x*SINy:GOSUB60:GOTO20
60 PRINTTAB(0);z;:z$=INPUT$(1,@):RETURN

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

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