WolframAlpha computational knowledge AI
plot (-p*ln(p)), (1-p^p) from p=0 to p=1