plot[T=e^-L +e^L+L+1, {L,0,5}]