Plot[Log[x^x]/ProductLog[ln(x^x)], {x, 0, 1}]