FactorTerms

FactorTerms[expr] factors out the constant term of expr, if any.

Attributes[FactorTerms] := {Protected}

Simple examples

In[1]:= FactorTerms[2*Sin[8*k]]
Out[1]= 2*Sin[8*k]

In[2]:= FactorTerms[(a)/(2) + (x)/(2)]
Out[2]= (1)/(2)*(a + x)

In[3]:= FactorTerms[a + x]
Out[3]= a + x