plot Log[ ( (n/e)^n ) * Sqrt(2 pi n) ] and Log[ n! ] and n Log[n] - n from 0 to 10