MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: simplifying complex polynomials


Daniel,

lets create a sum of terms:

fa:=Apply[Plus,Table[(-1)^Random[Integer,{0,1}]
y@@Table[Random[Integer,{-1, 1}],{3}] ,{36},{4}],1]

ad let's make a rule:
ruletwo=(  a_Plus /;!MatchQ[(Plus@@(a/. -q->q/.Plus->List/.
y->List)),{2,_,_}]
  ->{})
let's create a sample:

fa
(#/.ruletwo&)/@%
%~DeleteCases~{}

this gives the list fa cleaned up.

wouter


At 04:39 15-08-98 -0400, Daniel H. Steinberg wrote:
>A friend of mine is trying to simplify polynomials which are sums of
>monomials each of which is the product of terms which are y_[] and z_[]
>where the [] is a vector like [1,1,2,1,5].
>
>Her simplification rules are fairly straightforward -- but how do you
>get Mathematica to do it.
>



  • Prev by Date: Importing CSV (comma separated values) files?
  • Next by Date: Re: a^n*b^n != (a*b)^n
  • Previous by thread: Re: simplifying complex polynomials
  • Next by thread: Fourier Transform