Re: series expansions in two variables problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg39547] Re: [mg39504] series expansions in two variables problem*From*: "Rolf Mertig" <rolf at mertig.com>*Date*: Sat, 22 Feb 2003 03:38:40 -0500 (EST)*Reply-to*: rolf at mertig.com*Sender*: owner-wri-mathgroup at wolfram.com

In[1]:= tay[x_, vars___] := Module[{s, t}, t = x /. (#1 -> s*#1 & ) /@ {vars}; Normal[Series[t, {s, 0, 1}]] /. s -> 1] In[2]:= tay[A + B*sigma + C*epsilon + D*sigma*epsilon + X epsilon^2, sigma, epsilon] Out[2]= A + C epsilon + B sigma Rolf Mertig Mertig Consulting http://www.mertig.com