
Re: Need to split function into terms and then plot
Posted:
Oct 29, 2013 1:46 AM


Hello Honza, Here are five methods.
originalList = {u1 (1 + 2 x^2/le^2  3 x/le) + u3 (2 x^2/le^2  x/le) + u2 (4 x^2/le^2 + 4 x/le)}
Map[Coefficient[originalList[[1]], #] &, {u1, u2, u3}]
Table[Coefficient[originalList[[1]], val], {val, {u1, u2, u3}}]
Through[{Coefficient[#, u1] &, Coefficient[#, u2] &, Coefficient[#, u1] &}[originalList[[1]]]]
extractCoeffs[list_, factorsList_] := Map[Coefficient[list, #] &, factorsList]
extractCoeffs[originalList, {u1, u2, u3}]
extractCoeffs[originalList[[1]], {u1, u2, u3}]
Kind Regards, WCC
On Oct 28, 13, at 20:22 PM, Honza Vorel wrote:
> #I'll get {u1(1+2x^2/le^23x/le)+u3(2x^2/le^2x/le)+u2(4x^2/le^2+4x/le)} > > #Now I need to separate the above like this (le=1.5): > > # n1=(1+2x^2/le^23x/le) > # n2=(4x^2/le^2+4x/le) > # n3=(2x^2/le^2x/le) > > # And I don't know how.

