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.
Vadim Kutsyy
kutsyy at galton.uchicago.edu
http://galton.uchicago.edu/~kutsyy
==== [MESSAGE SEPARATOR] ====