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