Few mathematica commands

• To: mathgroup at smc.vnet.net
• Subject: [mg3634] Few mathematica commands
• From: Vadim Kutsyy <kutsyy at ulf.uchicago.edu>
• Date: Sat, 30 Mar 1996 02:47:47 -0500
• Sender: owner-wri-mathgroup at wolfram.com

```Hi.
I am not member of Your mail Group, becouse we use Maple.
however, I need to rewrite one mathematica programm in Maple V
language, so I would apprishiete if someone could explane a few
mathemata commands:

s2 = Expand[ Cancel[ p^(-1) Normal[ Series[s1,{p,0,3}] ] ] ]

a[0] = s2 /. p->0
a[1] = Coefficient[s2,p] /. p->0
a[2] = Coefficient[s2,p^2] /. p->0

formlist[v_] :=
Block[{count}, v = {};
If[ i1>0 , Do[ v=Append[v,1] , {count,1,i1} ] , Null ];
If[ i2>0 , Do[ v=Append[v,2] , {count,1,i2} ] , Null ] ]

Do[ i2 = sum-i1;
If [ SameQ[a1[i1,i2],0], Null,
formlist[s];
aa1 = aa1 + a1[i1,i2] * e[ y[s[[1]]] * y[s[[2]]] ];
s =. ]
, {i1,0,sum} ]

Thank You.

kutsyy at galton.uchicago.edu
http://galton.uchicago.edu/~kutsyy

==== [MESSAGE SEPARATOR] ====

```

• Prev by Date: Re: Plot problem
• Next by Date: Re: packages
• Previous by thread: re:formatting output
• Next by thread: Signal & System Pack Problem