home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol033 / rndn.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  384 b   |  10 lines
  1. 100 REM  subroutine RNDN.BAS - to calculate random normal variables x=0 var=1
  2. 105 '
  3. 110 V1.RND = (2!*RND(1))-1!
  4. 120 V2.RND = (2!*RND(1))-1!
  5. 130 S.RND = (V1.RND*V1.RND) + (V2.RND*V2.RND)
  6. 140 IF S.RND > 1! THEN 110
  7. 150 X1.RND = V1.RND * SQR(-2!*LOG(S.RND)/S.RND)
  8. 160 X2.RND = V2.RND * SQR(-2!*LOG(S.RND)/S.RND)
  9. 170 '  x1.rnd and x2.rnd are random normals
  10. RND * SQR(-2!*LOG(S.R