MathGroup Archive 1998

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

Search the Archive

Re: Linearization

  • To: mathgroup at smc.vnet.net
  • Subject: [mg15130] Re: Linearization
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Wed, 16 Dec 1998 03:11:09 -0500
  • References: <754vm1$jgc@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Christoph,

Linearize[poly_, vars_] :=
  Module[{u},
    Expand[ poly, Alternatives@@vars] /. Thread[vars -> (vars u)] /.
      {u^n_ -> 0, u -> 1}]

Test:

Linearize[1 + u + (a + b)x + x u + x^2 + u^2, {x, u}]

1 + u + (a + b) x

Allan
---------------------
Allan Hayes
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565


Christoph wrote in message <754vm1$jgc at smc.vnet.net>...
> Howdy,
>
>is there any nice way to linearize an equation in Matematica?
>
>e.g.:
>i have a function
>
>f[x,y]
>
>if i do
>Normal[Series[f[x,y],{x,0,1},{y,0,1}]]
>
>i will still have a term containing x*y, but if x and y are small i can
>discard this term. Can mathematica discard term automaticly?
>
>
>Christoph
>
>PS:  THis is an example, I have a function with seven variables and
>don't wan't to pick the correct ones manualy.
>
>PPS: could you pleas also mail me?
>
>



  • Prev by Date: Re: Contour Plot
  • Next by Date: button to read in an external file
  • Previous by thread: Re: Contour Plot
  • Next by thread: Re: Linearization