Plot[{Log[1/p],1-p},{p,0.01,1}]