Solve[D[A x^s e^(-s x/r),x]==0,x]