Entropy

Local $Bitstream = "01010101010101010101010101010101"

Local $n = StringLen($Bitstream), $i, $0 = 0, $1 = 0, $Entropy
For $i = 1 To $n
    Switch StringMid($Bitstream, $i, 1)
        Case "0"
            $0 += 1
        Case "1"
            $1 += 1
    EndSwitch
Next

$Entropy = -($0/$n)*Log2($0/$n) - ($1/$n)*Log2($1/$n)
ConsoleWrite(StringFormat("%s\n~ %s BIT(S) OF ENTROPY\n", $Bitstream, Abs($Entropy)))

Func Log2($n)
    If ($n = 0) Then Return 0
    Return Log($n)/Log(2)
EndFunc