LogPlot[-(36*Exp[9*d/54992]+41*Exp[d/3437]-405)/(180*(Exp[9*d/54992]-1)),{d,0,7000}]