I have this simple piece of algebra I want to factor in the term (cw-cw1) as far as possible, with a minimal remainder of terms that do not factor. sw1j*(sw*cwj+cw*swj)*(1-cw1^2)+(-(1-cw^2)*swj+cwj*(cw-cw1)*sw-swj*cw*cw1)*cw1j*sw1+cw1*sw1j*sw*(-sw*swj+cwj*cw) Is there an easy way to do it?. I only ask because while it can be done fairly trivially by hand, I am finding it non-trivial to do in maple. Thanks in advance for suggestions.