Anonymous user
Random numbers: Difference between revisions
m
→{{header|REXX}}: added comment to R2R subroutine (function).
m (→{{header|REXX}}: optimized some of the REXX calculations.) |
m (→{{header|REXX}}: added comment to R2R subroutine (function).) |
||
Line 1,422:
e: e=2.7182818284590452353602874713526624977572470936999595749669676277240766303535; return e /*digs overkill*/
pi: pi=3.1415926535897932384626433832795028841971693993751058209749445923078164062862; return pi /* " " */
r2r: return arg(1) // (2*pi()) /*normalize ang*/
sqrt: procedure;parse arg x; if x=0 then return 0; d=digits(); numeric digits 11; numeric form; m.=11; p=d+d%4+2
parse value format(x,2,1,,0) 'E0' with g 'E' _ .; g=g*.5'E'_%2; do j=0 while p>9; m.j=p; p=p%2+1; end
| |||