Plot[{4x(1-x), x Log2[1/x] + (1-x) Log2[1/(1-x)], (4x(1-x))^(1/Log[4])}, {x,0,1}]