binary-entropy ( p -- h ) (original) (raw)

binary-entropy ( p -- h )

Vocabulary
math.statistics

Inputs

p an object

Outputs

h an object

Definition

USING: kernel math math.functions ;

IN: math.statistics

: binary-entropy ( p -- h )
[ dup log * ] [ 1 swap - dup log * ] bi + neg 2 log / ;