Solve[D[ln(e^(-0.15x) 3x^(0.85))/x,x]==0,x]