[mg87013] Re: [mg86971] Collect coefficients of array variables during

[Bob Hanlon <hanlonr at cox.net>]

Off[Part::partd, Part::pspec];

eqn1 = 10. A[[1, 1]] + b A[[1, 1]] + c A[[1, 2]] + 3. A[[1, 2]];

eqn1 // Simplify

(b+10.) A[[1,1]]+(c+3.) A[[1,2]]

If Simplify doesn't work try FullSimplify or hit it with a hammer:

Collect[eqn1, Union[Cases[eqn1, A[[__]], Infinity]]]

(b+10.) A[[1,1]]+(c+3.) A[[1,2]]


Bob Hanlon

---- Gopinath Venkatesan <gopinathv at ou.edu> wrote: 
> Hello Mathematica Friends
> 
> If we have an array variable, and assuming after intermediate calculations, some equations are found to be below.
> 
> eqn1=10. A[[1,1]]+b A[[1,1]]+c A[[1,2]]+3. A[[1,2]] (only for illustration)
> 
> Simplify[] does not combine the coefficients under same array member, i.e. instead of (10.+b)A[[1,1]]+(c+3.)A[[1,2]], it is showing the earlier mentioned form.
> 
> Is there a way to collect them and simplify them. But when I checked for simple cases, Simplify[] seems to work.
> 
> Thanks for the suggestions.
> 
> Regards,
> Gopinath
> University of Oklahoma
>