Anonymous user
Talk:Entropy: Difference between revisions
m
→REXX (log2): removed some blank lines. -- ~~~~
m (→REXX (log2): removed some blank lines. -- ~~~~) |
|||
Line 57:
::: Here's a version of the (REXX) LOG2 function, unrolled and expatiated: -- [[User:Gerard Schildberger|Gerard Schildberger]] ([[User talk:Gerard Schildberger|talk]]) 23:47, 28 May 2013 (UTC)
<lang rexx>/*──────────────────────────────────LOG2 subroutine───────────────────────────*/
log2: procedure; parse arg x 1 xx
ig= x>1.5
is= 1 - 2*(ig\==1)
Line 64 ⟶ 63:
e=2.7182818284590452353602874713526624977572470936999595749669676277240766303535
ii=0
do while ig & xx>1.5 | \ig & xx<.5
_=e
do j=-1
Line 74 ⟶ 71:
izz=iz
end /*j*/
xx=izz
ii=ii + is* 2**j
end /*while*/
x=x * e**-ii -1
z=0
_=-1
p=z
do k=1
_=-_*x
Line 90 ⟶ 84:
p=z
end /*k*/
r=z+ii
if arg()==2 then return r
return r / log2(2,0)</lang>
|