expr=a+b+c;
expr2=a*HoldForm[Evaluate[Expand[expr/a]]]
a (1+b/a+c/a)
expr2//ReleaseHold//Simplify
a+b+c
Bob Hanlon
On Tue, Apr 9, 2013 at 4:05 AM, <syzhaoyu at gmail.com> wrote:
> Let's say I have a polynomial:
> a+b+c
> Is there any way I can force mathematica to produce the following result:
> a*(1+b/a+c/a)
>
> I think such transformation of polynomials should be very common; however,
> I have been trying all day and still can not get mathematica to do so
> automatically.
>
>