D[Divide[Power[x,2]+3xSqrt[x],Sqrt[x]],x]