Plot[ D[ x^(6) (Sin[ 1/(x^6) ])^2, x ], { x, -1, 1 } ]