Maximize[{-6x^6 18x^5-17.5x^4 5x^3 x,0<=x<=1},{x}]