Reducing Exp(a1 Ar[2,1] + a2 Ar[1,2])
December-29-08
11:02 AM
See [file].
Print /@ (Thread[
    Table[s[i], {i, Length[ins]}] == (ins /. Y[ijk__, _] :> Y[ijk])
    ]);
s[1]==Ar[0,1]
s[2]==Y[0,1,2]
s[3]==Y[0,2,1]
s[4]==Y[0,1,1]
s[5]==Y[0,2,2]
Print /@ (Thread[ins -> outs] /. Y[ijk__, h_] :> h Y[ijk] /. Thread[
     (ins /. Y[ijk__, _] :> Y[ijk]) -> Table[s[i], {i, Length[ins]}]
     ]);
s[1]->a2 s[2]-a1 s[3]
s[2]->a1 s[5] x[1]-a1 s[4] x[2]+s[2] (a2 x[1]-a1 x[2])
s[3]->-a2 s[5] x[1]+a2 s[4] x[2]+s[3] (-a2 x[1]+a1 x[2])
s[4]->-a2 s[2] x[1]+a1 s[3] x[1]
s[5]->a2 s[2] x[2]-a1 s[3] x[2]