File r38/packages/susy2/susy2.rlg artifact 9830e69c38 part of check-in f2fda60abd


Tue Feb 10 12:29:14 2004 run on Linux
on list;


on errcont;



% 1.) Example of ordering of objects such as fer,bos,axp;
axp(bos(f,0,0))*bos(g,3,1)*fer(k,1,0);


fer(k,1,0)*bos(g,3,1)*axp(bos(f,0,0))

%fer(k,1,0)*bos(g,3,1)*axp(bos(f,0,0));

% 2.) Example of ordering of fer and fer objects
fer(f,1,2)*fer(f,1,2);


0

% 0
fer(f,1,2)*fer(g,2,3);



-fer(g,2,3)*fer(f,1,2)

% -fer(g,2,3)*fer(f,1,2);
fer(f,1,2)*fer(f,1,3);



-fer(f,1,3)*fer(f,1,2)

% - fer(f,1,3)*fer(f,1,2);
fer(f,1,2)*fer(f,2,2);



-fer(f,2,2)*fer(f,1,2)

% - fer(f,2,2)*fer(f,1,2);

% 3.) Example of ordering of bos and bos objects;
bos(f,3,0)*bos(g,0,4);


bos(g,0,4)*bos(f,3,0)

%bos(g,0,4)*bos(f,3,0);
bos(f,3,0)*bos(f,0,0);


bos(f,3,0)*bos(f,0,0)

%bos(f,3,0)*bos(f,0,0);
bos(f,3,2)*bos(f,3,5);


bos(f,3,5)*bos(f,3,2)

%bos(f,3,5)*bos(f,3,2);

% 4.) ordering of inverse superfunctions;
% last index in bos objects denotes powers;
bos(f,0,3)*bos(k,0,2)*bos(zz,0,3,-1)*bos(k,0,2,-1);


bos(zz,0,3,-1)*bos(f,0,3)

%bos(zz,0,3,-1)*bos(f,0,3);
bos(c,0,3)*bos(b,0,2)*bos(a,0,3,-1)*bos(b,0,2,-1);


bos(c,0,3)*bos(a,0,3,-1)

%bos(c,0,3)*bos(a,0,3,-1);

% 5.) Demostration of inverse rule;
let inverse;


bos(f,0,3)**3*bos(k,3,1)**40*bos(f,0,3,-2);


bos(k,3,1,40)*bos(f,0,3,1)

%bos(k,3,1,40)*bos(f,0,3,1);
clearrules inverse;




% 6.) Demonstration of (susy) derivative operators;
% Up to now we did not decided on the chirality assumption
% so let us check first the tradicional algebra os susy derivative;
let trad;



%first susy derivative
der(1)*fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0));


bos(g,3,1)*bos(f,0,3)*axp(bos(h,0,0))

-fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0))*der(1)

+fer(g,2,2)*fer(f,1,2)*axp(bos(h,0,0))

+fer(h,1,0)*fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0))


fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))*del(1);


bos(g,3,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

+2*fer(g,2,1)*fer(f,1,2)*bos(f,0,2,-3)*axp(fer(k,1,2)*fer(h,2,1))

+fer(h,2,1)*fer(g,2,1)*bos(k,0,3)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

-fer(k,1,2)*fer(g,2,1)*bos(h,3,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

-del(1)*fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

sub(del=der,ws);


fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))*der(1)


%second susy derivative
der(2)*fer(g,2,3)*bos(kk,0,3)*axp(bos(f,3,0));


bos(kk,0,3)*bos(g,0,4)*axp(bos(f,3,0))

-fer(g,2,3)*bos(kk,0,3)*axp(bos(f,3,0))*der(2)

+fer(g,2,3)*fer(f,1,1)*bos(kk,0,3)*axp(bos(f,3,0))

+fer(kk,2,3)*fer(g,2,3)*axp(bos(f,3,0))


fer(r,2,1)*bos(kk,3,4,-4)*axp(fer(f,1,2)*fer(g,2,1))*del(2);


bos(r,0,2)*bos(kk,3,4,-4)*axp( - fer(g,2,1)*fer(f,1,2))

+fer(r,2,1)*fer(f,1,2)*bos(kk,3,4,-4)*bos(g,0,2)*axp( - fer(g,2,1)*fer(f,1,2))

+fer(r,2,1)*fer(g,2,1)*bos(kk,3,4,-4)*bos(f,3,2)*axp( - fer(g,2,1)*fer(f,1,2))

-4*fer(r,2,1)*fer(kk,1,5)*bos(kk,3,4,-5)*axp( - fer(g,2,1)*fer(f,1,2))

-del(2)*fer(r,2,1)*bos(kk,3,4,-4)*axp( - fer(g,2,1)*fer(f,1,2))

sub(del=der,ws);


fer(r,2,1)*bos(kk,3,4,-4)*axp( - fer(g,2,1)*fer(f,1,2))*der(2)


%usual derivative;
d(1)*fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0));


fer(f,1,3)*bos(g,3,1)*axp(bos(h,0,0))

+fer(f,1,2)*bos(g,3,2)*axp(bos(h,0,0))

+fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0))*d(1)

+fer(f,1,2)*bos(h,0,1)*bos(g,3,1)*axp(bos(h,0,0))

fer(g,2,1)*bos(f,0,2,-2)*axp(fer(h,1,2)*fer(k,2,1))*d(2);



-fer(g,2,2)*bos(f,0,2,-2)*axp( - fer(k,2,1)*fer(h,1,2))

+2*fer(g,2,1)*bos(f,0,3,1)*bos(f,0,2,-3)*axp( - fer(k,2,1)*fer(h,1,2))

+fer(k,2,2)*fer(h,1,2)*fer(g,2,1)*bos(f,0,2,-2)*axp( - fer(k,2,1)*fer(h,1,2))

+fer(k,2,1)*fer(h,1,3)*fer(g,2,1)*bos(f,0,2,-2)*axp( - fer(k,2,1)*fer(h,1,2))

+d(2)*fer(g,2,1)*bos(f,0,2,-2)*axp( - fer(k,2,1)*fer(h,1,2))

sub(d(2)=d(1),ws);


fer(g,2,1)*bos(f,0,2,-2)*axp( - fer(k,2,1)*fer(h,1,2))*d(1)


% 7.) the value of action of (susy) derivative;

xxx:=fer(f,1,2)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3));


xxx := fer(f,1,2)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

yyy:=fer(g,2,3)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3));


yyy := fer(g,2,3)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3))


%first susy derivative

pr(1,xxx);


bos(k,0,2,-2)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-2)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,1,2)*fer(f,1,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

pr(1,yyy);


bos(kk,3,1,-3)*bos(g,3,3)*axp(bos(f,0,2,-3))

+3*fer(g,2,3)*fer(f,1,2)*bos(kk,3,1,-3)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

-3*fer(kk,2,2)*fer(g,2,3)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))


%second susy2 derivative;
pr(2,xxx);



-bos(k,0,2,-2)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-2)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,2,2)*fer(f,1,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

pr(2,yyy);


bos(kk,3,1,-3)*bos(g,0,4)*axp(bos(f,0,2,-3))

+3*fer(g,2,3)*fer(f,2,2)*bos(kk,3,1,-3)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

+3*fer(kk,1,2)*fer(g,2,3)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))


% third susy2 derivative;

pr(3,xxx);



-fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(f,2,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(f,1,2)*bos(k,3,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(f,1,2)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(f,1,2)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*bos(k,0,2,-2)*bos(f,3,2)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(h,2,0)*bos(k,0,2,-2)*bos(f,0,3)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,2,4)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)

*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,0,4)

*axp(fer(h,2,0)*fer(aa,1,3))

-fer(h,1,1)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

+2*fer(k,2,2)*bos(k,0,2,-3)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,2,2)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-3)*bos(h,3,0)

*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,2,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,0,4)

*axp(fer(h,2,0)*fer(aa,1,3))

-6*fer(k,2,2)*fer(k,1,2)*fer(f,1,2)*bos(k,0,2,-4)*axp(fer(h,2,0)*fer(aa,1,3))

+2*fer(k,1,2)*bos(k,0,2,-3)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

+2*fer(k,1,2)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-3)*bos(h,0,1)

*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,1,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,3,3)

*axp(fer(h,2,0)*fer(aa,1,3))

pr(3,yyy);


3*fer(f,2,2)*bos(kk,3,1,-3)*bos(g,3,3)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

-3*fer(f,1,2)*bos(kk,3,1,-3)*bos(g,0,4)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

-3*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,3,2)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

+3*fer(g,2,3)*bos(kk,3,1,-4)*bos(kk,0,3)*axp(bos(f,0,2,-3))

-12*fer(g,2,3)*fer(f,2,2)*fer(f,1,2)*bos(kk,3,1,-3)*bos(f,0,2,-5)

*axp(bos(f,0,2,-3))

-9*fer(g,2,3)*fer(f,2,2)*fer(f,1,2)*bos(kk,3,1,-3)*bos(f,0,2,-8)

*axp(bos(f,0,2,-3))

+fer(g,1,4)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3))

-3*fer(kk,2,2)*bos(kk,3,1,-4)*bos(g,0,4)*axp(bos(f,0,2,-3))

-9*fer(kk,2,2)*fer(g,2,3)*fer(f,2,2)*bos(kk,3,1,-4)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))

-12*fer(kk,2,2)*fer(kk,1,2)*fer(g,2,3)*bos(kk,3,1,-5)*axp(bos(f,0,2,-3))

-3*fer(kk,1,2)*bos(kk,3,1,-4)*bos(g,3,3)*axp(bos(f,0,2,-3))

-9*fer(kk,1,2)*fer(g,2,3)*fer(f,1,2)*bos(kk,3,1,-4)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))


clearrules trad;


let chiral;


pr(3,xxx);



-fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(f,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(f,1,2)*bos(k,3,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(f,1,2)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(f,1,2)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,1,4)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)

*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,0,4)

*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,2,2)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-3)*bos(h,3,0)

*axp(fer(h,2,0)*fer(aa,1,3))

-6*fer(k,2,2)*fer(k,1,2)*fer(f,1,2)*bos(k,0,2,-4)*axp(fer(h,2,0)*fer(aa,1,3))

+2*fer(k,1,2)*bos(k,0,2,-3)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

+2*fer(k,1,2)*bos(k,0,2,-3)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,1,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,3,3)

*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,1,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,0,4)

*axp(fer(h,2,0)*fer(aa,1,3))

clearrules chiral;


let chiral1;


pr(3,xxx);


(

 -fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

 -fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

 +fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

 +fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

 -2*fer(f,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

 -4*fer(f,1,2)*bos(k,3,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

 +fer(f,1,2)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

 +fer(f,1,2)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

 -fer(f,1,2)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

 -fer(f,1,2)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

 -2*fer(h,2,1)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

 +2*fer(h,2,0)*fer(f,1,2)*fer(aa,1,4)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

 +fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,3,3)

 *axp(fer(h,2,0)*fer(aa,1,3))

 +fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*bos(aa,0,4)

 *axp(fer(h,2,0)*fer(aa,1,3))

 -fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,3,3)

 *axp(fer(h,2,0)*fer(aa,1,3))

 -fer(h,2,0)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,0,1)*bos(aa,0,4)

 *axp(fer(h,2,0)*fer(aa,1,3))

 -4*fer(k,2,2)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-3)*bos(h,3,0)

 *axp(fer(h,2,0)*fer(aa,1,3))

 +4*fer(k,2,2)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-3)*bos(h,0,1)

 *axp(fer(h,2,0)*fer(aa,1,3))

 -24*fer(k,2,2)*fer(k,1,2)*fer(f,1,2)*bos(k,0,2,-4)*axp(fer(h,2,0)*fer(aa,1,3))

 +4*fer(k,1,2)*bos(k,0,2,-3)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

 +4*fer(k,1,2)*bos(k,0,2,-3)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

 -4*fer(k,1,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,3,3)

 *axp(fer(h,2,0)*fer(aa,1,3))

 -4*fer(k,1,2)*fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-3)*bos(aa,0,4)

 *axp(fer(h,2,0)*fer(aa,1,3)))/2


clearrules chiral1;


let trad;


% usual derivative
pg(1,xxx);


fer(f,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(f,1,2)*bos(k,0,3,1)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(h,2,1)*fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

-fer(h,2,0)*fer(f,1,2)*fer(aa,1,4)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

pg(3,yyy);


fer(g,2,6)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3))

-9*fer(g,2,5)*bos(kk,3,2,1)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))

-9*fer(g,2,5)*bos(kk,3,1,-3)*bos(f,0,3,1)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

-9*fer(g,2,4)*bos(kk,3,3,1)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))

+36*fer(g,2,4)*bos(kk,3,2,2)*bos(kk,3,1,-5)*axp(bos(f,0,2,-3))

+54*fer(g,2,4)*bos(kk,3,2,1)*bos(kk,3,1,-4)*bos(f,0,3,1)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))

-9*fer(g,2,4)*bos(kk,3,1,-3)*bos(f,0,4,1)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

+36*fer(g,2,4)*bos(kk,3,1,-3)*bos(f,0,3,2)*bos(f,0,2,-5)*axp(bos(f,0,2,-3))

+27*fer(g,2,4)*bos(kk,3,1,-3)*bos(f,0,3,2)*bos(f,0,2,-8)*axp(bos(f,0,2,-3))

-3*fer(g,2,3)*bos(kk,3,4,1)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))

+36*fer(g,2,3)*bos(kk,3,3,1)*bos(kk,3,2,1)*bos(kk,3,1,-5)*axp(bos(f,0,2,-3))

+27*fer(g,2,3)*bos(kk,3,3,1)*bos(kk,3,1,-4)*bos(f,0,3,1)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))

-60*fer(g,2,3)*bos(kk,3,2,3)*bos(kk,3,1,-6)*axp(bos(f,0,2,-3))

-108*fer(g,2,3)*bos(kk,3,2,2)*bos(kk,3,1,-5)*bos(f,0,3,1)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))

+27*fer(g,2,3)*bos(kk,3,2,1)*bos(kk,3,1,-4)*bos(f,0,4,1)*bos(f,0,2,-4)

*axp(bos(f,0,2,-3))

-108*fer(g,2,3)*bos(kk,3,2,1)*bos(kk,3,1,-4)*bos(f,0,3,2)*bos(f,0,2,-5)

*axp(bos(f,0,2,-3))

-81*fer(g,2,3)*bos(kk,3,2,1)*bos(kk,3,1,-4)*bos(f,0,3,2)*bos(f,0,2,-8)

*axp(bos(f,0,2,-3))

-3*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,5,1)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

+36*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,4,1)*bos(f,0,3,1)*bos(f,0,2,-5)

*axp(bos(f,0,2,-3))

+27*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,4,1)*bos(f,0,3,1)*bos(f,0,2,-8)

*axp(bos(f,0,2,-3))

-60*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,3,3)*bos(f,0,2,-6)*axp(bos(f,0,2,-3))

-108*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,3,3)*bos(f,0,2,-9)*axp(bos(f,0,2,-3))

-27*fer(g,2,3)*bos(kk,3,1,-3)*bos(f,0,3,3)*bos(f,0,2,-12)*axp(bos(f,0,2,-3))


clear xxx,yyy;



% 8.)
% And now let us change traditional algebra on the chiral algebra;
clearrules trad;


let chiral;


% And now we compute the same derivative but in the chiral
% representation;

%first susy derivative
der(1)*fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0));



-fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0))*der(1)

+fer(h,1,0)*fer(f,1,2)*bos(g,3,1)*axp(bos(h,0,0))


fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))*del(1);


bos(g,3,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

+2*fer(g,2,1)*fer(f,1,2)*bos(f,0,2,-3)*axp(fer(k,1,2)*fer(h,2,1))

-fer(k,1,2)*fer(g,2,1)*bos(h,3,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

-del(1)*fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))

sub(del=der,ws);


fer(g,2,1)*bos(f,0,2,-2)*axp(fer(k,1,2)*fer(h,2,1))*der(1)


%second susy derivative
der(2)*fer(g,2,3)*bos(kk,0,3)*axp(bos(f,3,0));



-fer(g,2,3)*bos(kk,0,3)*axp(bos(f,3,0))*der(2)

+fer(g,2,3)*fer(f,2,1)*bos(kk,0,3)*axp(bos(f,3,0))

+fer(kk,2,3)*fer(g,2,3)*axp(bos(f,3,0))


fer(r,2,1)*bos(kk,3,4,-4)*axp(fer(f,1,2)*fer(g,2,1))*del(2);


fer(r,2,1)*fer(g,2,1)*bos(kk,3,4,-4)*bos(f,3,2)*axp( - fer(g,2,1)*fer(f,1,2))

+fer(r,2,1)*fer(g,2,1)*bos(kk,3,4,-4)*bos(f,0,3)*axp( - fer(g,2,1)*fer(f,1,2))

-4*fer(r,2,1)*fer(kk,2,5)*bos(kk,3,4,-5)*axp( - fer(g,2,1)*fer(f,1,2))

-del(2)*fer(r,2,1)*bos(kk,3,4,-4)*axp( - fer(g,2,1)*fer(f,1,2))

sub(del=der,ws);


fer(r,2,1)*bos(kk,3,4,-4)*axp( - fer(g,2,1)*fer(f,1,2))*der(2)

;



% 9.) the value of action of (susy) derivative;

xxx:=fer(f,1,2)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3));


xxx := fer(f,1,2)*bos(k,0,2,-2)*axp(fer(h,2,0)*fer(aa,1,3))

yyy:=fer(g,2,3)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3));


yyy := fer(g,2,3)*bos(kk,3,1,-3)*axp(bos(f,0,2,-3))


%first susy derivative

pr(1,xxx);



-fer(f,1,2)*fer(aa,1,3)*bos(k,0,2,-2)*bos(h,3,0)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,1,2)*fer(f,1,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

pr(1,yyy);


bos(kk,3,1,-3)*bos(g,3,3)*axp(bos(f,0,2,-3))

+3*fer(g,2,3)*fer(f,1,2)*bos(kk,3,1,-3)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))


%second susy2 derivative;
pr(2,xxx);



-bos(k,0,2,-2)*bos(f,3,2)*axp(fer(h,2,0)*fer(aa,1,3))

-bos(k,0,2,-2)*bos(f,0,3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-2)*bos(aa,3,3)*axp(fer(h,2,0)*fer(aa,1,3))

+fer(h,2,0)*fer(f,1,2)*bos(k,0,2,-2)*bos(aa,0,4)*axp(fer(h,2,0)*fer(aa,1,3))

-2*fer(k,2,2)*fer(f,1,2)*bos(k,0,2,-3)*axp(fer(h,2,0)*fer(aa,1,3))

pr(2,yyy);


3*fer(g,2,3)*fer(f,2,2)*bos(kk,3,1,-3)*bos(f,0,2,-4)*axp(bos(f,0,2,-3))

+3*fer(kk,2,2)*fer(g,2,3)*bos(kk,3,1,-4)*axp(bos(f,0,2,-3))


clear xxx,yyy;


% We return back to the traditional algebra;

clearrules chiral;


let trad;



% 10.) The components of super-objects;

xxx:=fer(f,2,3)*bos(g,3,2,2);


xxx := fer(f,2,3)*bos(g,3,2,2)


% all components;
fpart(xxx);


{gras(ff2,3)*fun(g1,2,2),

 fun(g1,2,2)*fun(f1,3)

 +2*gras(g2,3)*gras(ff2,3)*fun(g1,2,1),

 fun(g1,2,2)*fun(f0,4)

 -2*gras(g1,3)*gras(ff2,3)*fun(g1,2,1),

 gras(ff1,4)*fun(g1,2,2)

 -2*gras(ff2,3)*fun(g1,2,1)*fun(g0,3,1)

 +2*gras(g1,3)*fun(g1,2,1)*fun(f1,3)

 +2*gras(g2,3)*fun(g1,2,1)*fun(f0,4)

 -2*gras(g2,3)*gras(g1,3)*gras(ff2,3)}


%bosonic sector;
bpart(xxx);


{0,fun(g1,2,2)*fun(f1,3),fun(g1,2,2)*fun(f0,4),0}


%the given component
bf_part(xxx,0);


gras(ff2,3)*fun(g1,2,2)


%the given component in the bosonic sector;

b_part(xxx,0);


0

b_part(xxx,1);


fun(g1,2,2)*fun(f1,3)




clear zzz;


clearrules trad;


let chiral;


zzz:=bos(f,3,1,-1)*bos(g,0,1,2);


zzz := bos(g,0,1,2)*bos(f,3,1,-1)

b_part(zzz,0);


fun(g0,1,2)*fun(f1,1,f0,2,-1)

b_part(zzz,3);


(

 -fun(g0,1,2)*fun(f0,3,1)*fun(f1,1,f0,2,-2)

 +2*fun(g0,1,2)*fun(f1,2,1)*fun(f1,1,f0,2,-2)

 +8*fun(g1,1,1)*fun(g0,1,1)*fun(f1,1,f0,2,-1))/4

clearrules chiral;


let chiral1;


b_part(zzz,0);


(fun(g0,1,2)*fun(f1,1,-1))/2

b_part(zzz,3);


(

 -fun(g0,1,2)*fun(f1,1,-2)*fun(f0,3,1)

 +8*fun(g1,1,1)*fun(g0,1,1)*fun(f1,1,-1))/8

clearrules chiral1;


let trad;



%11 matrix represenattion of operators;
lax:=der(1)*der(2)+bos(u,0,0);


lax := bos(u,0,0)

       +der(1)*der(2)


macierz(lax,b,b);


mat((fun(u0,0),0,0,1),

    (0,0,0,0),

    (0,0,0,0),

    (fun(u1,0)

          2
     -d(1) ,0,0,fun(u0,0)))


macierz(lax,f,b);


mat((0,0,0,0),

    (fun(u0,0),0,0,d(1)),

    (

     -d(1),0,0,fun(u0,0)),

    (0,0,0,0))


macierz(lax,b,f);


mat((fun(u0,0),0,0,1),

    (gras(uu1,0),fun(u0,0),d(1),0),

    (gras(uu2,0),

                 -d(1),fun(u0,0),0),

    (fun(u1,0)

          2
     -d(1) ,

            -gras(uu2,0),gras(uu1,0),fun(u0,0)))


macierz(lax,f,f);


mat((0,fun(u0,0),1,0),

    (fun(u0,0),gras(uu1,0),0,d(1)),

    (

     -d(1),gras(uu2,0),0,fun(u0,0)),

    (

     -gras(uu2,0),fun(u1,0)

                       2
                  -d(1) ,fun(u0,0),gras(uu1,0)))



% 12.) Demonstration of chirality properties;
clearrules trad;


let chiral;


b_chiral:={f0};


b_chiral := {f0}

b_antychiral:={f1};


b_antychiral := {f1}

f_chiral:={f2};


f_chiral := {f2}

f_antychiral:={f3};


f_antychiral := {f3}

for k:=0:3 do  write fer(f0,k,0);


fer(f0,0,0)

0

fer(f0,2,0)

fer(f0,3,0)

for k:=0:3 do  write fer(f1,k,0);


fer(f1,0,0)

fer(f1,1,0)

0

fer(f1,3,0)

for k:=0:3 do  write fer(f2,k,0);


fer(f2,0,0)

fer(f2,1,0)

fer(f2,2,0)


-fer(f2,0,1)

for k:=0:3 do  write fer(f3,k,0);


fer(f3,0,0)

fer(f3,1,0)

fer(f3,2,0)

0

for k:=0:3 do  write bos(f1,k,0);


bos(f1,0,0)

bos(f1,1,0)

bos(f1,2,0)

0

for k:=0:3 do  write bos(f2,k,0);


bos(f2,0,0)

0

bos(f2,2,0)

bos(f2,3,0)

for k:=0:3 do  write bos(f2,k,0);


bos(f2,0,0)

0

bos(f2,2,0)

bos(f2,3,0)

for k:=0:3 do  write bos(f3,k,0);


bos(f3,0,0)

bos(f3,1,0)

0

bos(f3,3,0)


% 13.) Integrations;

d(-1)*xxx;


***** introduce the precision e.g. give the value of ww > 0 


%we have to declare ww;
ww:=2;


ww := 2


d(-1)*xxx;



                                6
-2*fer(f,2,4)*bos(g,3,4,2)*d(-1)

                                             5
+4*fer(f,2,4)*bos(g,3,4,1)*bos(g,3,3,1)*d(-1)

                                             4
-2*fer(f,2,4)*bos(g,3,4,1)*bos(g,3,2,1)*d(-1)

                                4
-2*fer(f,2,4)*bos(g,3,3,2)*d(-1)

                                             3
+4*fer(f,2,4)*bos(g,3,3,1)*bos(g,3,2,1)*d(-1)

                              2
-fer(f,2,4)*bos(g,3,2,2)*d(-1)

                                             2
-2*fer(f,2,3)*bos(g,3,3,1)*bos(g,3,2,1)*d(-1)

+fer(f,2,3)*bos(g,3,2,2)*d(-1)

xxx*d(-2);


       4
2*d(-2) *fer(f,2,5)*bos(g,3,3,1)*bos(g,3,2,1)

        3
+4*d(-2) *fer(f,2,4)*bos(g,3,3,1)*bos(g,3,2,1)

      2
+d(-2) *fer(f,2,4)*bos(g,3,2,2)

        2
+2*d(-2) *fer(f,2,3)*bos(g,3,3,1)*bos(g,3,2,1)

+d(-2)*fer(f,2,3)*bos(g,3,2,2)

d(-3)*xxx;


d(-3)*fer(f,2,3)*bos(g,3,2,2)


ww:=4;


ww := 4

d(-1)**5:=0;


     5
d(-1)  := 0
d(-2)**5:=0;


     5
d(-2)  := 0


d(-1)*yyy;


yyy*d(-1)

yyy*d(-2);


yyy*d(-2)


clear d(-1)**5,d(-2)**5;




on list;



% 14.) The accelerations of integrations;

clear ww;


ww:=3;


ww := 3

let drr;


let cutoff;


cut:=4;


cut := 4

d(-1)*xxx;



-fer(f,2,6)*bos(g,3,2,2)*dr(-4)

-6*fer(f,2,5)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-4)

+fer(f,2,5)*bos(g,3,2,2)*dr(-3)

-6*fer(f,2,4)*bos(g,3,4,1)*bos(g,3,2,1)*dr(-4)

-6*fer(f,2,4)*bos(g,3,3,2)*dr(-4)

+4*fer(f,2,4)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-3)

-fer(f,2,4)*bos(g,3,2,2)*dr(-2)

-2*fer(f,2,3)*bos(g,3,5,1)*bos(g,3,2,1)*dr(-4)

-6*fer(f,2,3)*bos(g,3,4,1)*bos(g,3,3,1)*dr(-4)

+2*fer(f,2,3)*bos(g,3,4,1)*bos(g,3,2,1)*dr(-3)

+2*fer(f,2,3)*bos(g,3,3,2)*dr(-3)

-2*fer(f,2,3)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-2)

+fer(f,2,3)*bos(g,3,2,2)*dr(-1)

d(-1)**2*yyy;


yyy*dr(-2)

clear ww,cut;


ww:=4;


ww := 4

cut:=5;


cut := 5

d(-1)**3*yyy;


yyy*dr(-3)

d(-1)*xxx;


fer(f,2,7)*bos(g,3,2,2)*dr(-5)

+8*fer(f,2,6)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-5)

-fer(f,2,6)*bos(g,3,2,2)*dr(-4)

+12*fer(f,2,5)*bos(g,3,4,1)*bos(g,3,2,1)*dr(-5)

+12*fer(f,2,5)*bos(g,3,3,2)*dr(-5)

-6*fer(f,2,5)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-4)

+fer(f,2,5)*bos(g,3,2,2)*dr(-3)

+8*fer(f,2,4)*bos(g,3,5,1)*bos(g,3,2,1)*dr(-5)

+24*fer(f,2,4)*bos(g,3,4,1)*bos(g,3,3,1)*dr(-5)

-6*fer(f,2,4)*bos(g,3,4,1)*bos(g,3,2,1)*dr(-4)

-6*fer(f,2,4)*bos(g,3,3,2)*dr(-4)

+4*fer(f,2,4)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-3)

-fer(f,2,4)*bos(g,3,2,2)*dr(-2)

+2*fer(f,2,3)*bos(g,3,6,1)*bos(g,3,2,1)*dr(-5)

+8*fer(f,2,3)*bos(g,3,5,1)*bos(g,3,3,1)*dr(-5)

-2*fer(f,2,3)*bos(g,3,5,1)*bos(g,3,2,1)*dr(-4)

+6*fer(f,2,3)*bos(g,3,4,2)*dr(-5)

-6*fer(f,2,3)*bos(g,3,4,1)*bos(g,3,3,1)*dr(-4)

+2*fer(f,2,3)*bos(g,3,4,1)*bos(g,3,2,1)*dr(-3)

+2*fer(f,2,3)*bos(g,3,3,2)*dr(-3)

-2*fer(f,2,3)*bos(g,3,3,1)*bos(g,3,2,1)*dr(-2)

+fer(f,2,3)*bos(g,3,2,2)*dr(-1)


clearrules cutoff;

clearrules drr;


clear cut,ww;



% it is possible to use directly accelerated integrations oprators dr;
ww:=4;


ww := 4

dr(-2)*fer(f,1,2)*bos(kk,0,2);


630*fer(f,1,6)*bos(kk,0,6)*dr(-10)

-280*fer(f,1,6)*bos(kk,0,5)*dr(-9)

+105*fer(f,1,6)*bos(kk,0,4)*dr(-8)

-30*fer(f,1,6)*bos(kk,0,3)*dr(-7)

+5*fer(f,1,6)*bos(kk,0,2)*dr(-6)

-280*fer(f,1,5)*bos(kk,0,6)*dr(-9)

+140*fer(f,1,5)*bos(kk,0,5)*dr(-8)

-60*fer(f,1,5)*bos(kk,0,4)*dr(-7)

+20*fer(f,1,5)*bos(kk,0,3)*dr(-6)

-4*fer(f,1,5)*bos(kk,0,2)*dr(-5)

+105*fer(f,1,4)*bos(kk,0,6)*dr(-8)

-60*fer(f,1,4)*bos(kk,0,5)*dr(-7)

+30*fer(f,1,4)*bos(kk,0,4)*dr(-6)

-12*fer(f,1,4)*bos(kk,0,3)*dr(-5)

+3*fer(f,1,4)*bos(kk,0,2)*dr(-4)

-30*fer(f,1,3)*bos(kk,0,6)*dr(-7)

+20*fer(f,1,3)*bos(kk,0,5)*dr(-6)

-12*fer(f,1,3)*bos(kk,0,4)*dr(-5)

+6*fer(f,1,3)*bos(kk,0,3)*dr(-4)

-2*fer(f,1,3)*bos(kk,0,2)*dr(-3)

+5*fer(f,1,2)*bos(kk,0,6)*dr(-6)

-4*fer(f,1,2)*bos(kk,0,5)*dr(-5)

+3*fer(f,1,2)*bos(kk,0,4)*dr(-4)

-2*fer(f,1,2)*bos(kk,0,3)*dr(-3)

+fer(f,1,2)*bos(kk,0,2)*dr(-2)


on time;


Time: 2370 ms  plus GC time: 30 ms

showtime;


Time: 0 ms

Time: 0 ms


dr(-3)*bos(g,3,1)*bos(ff,3,2);


3150*bos(g,3,5)*bos(ff,3,6)*dr(-11)

-1260*bos(g,3,5)*bos(ff,3,5)*dr(-10)

+420*bos(g,3,5)*bos(ff,3,4)*dr(-9)

-105*bos(g,3,5)*bos(ff,3,3)*dr(-8)

+15*bos(g,3,5)*bos(ff,3,2)*dr(-7)

-1260*bos(g,3,4)*bos(ff,3,6)*dr(-10)

+560*bos(g,3,4)*bos(ff,3,5)*dr(-9)

-210*bos(g,3,4)*bos(ff,3,4)*dr(-8)

+60*bos(g,3,4)*bos(ff,3,3)*dr(-7)

-10*bos(g,3,4)*bos(ff,3,2)*dr(-6)

+420*bos(g,3,3)*bos(ff,3,6)*dr(-9)

-210*bos(g,3,3)*bos(ff,3,5)*dr(-8)

+90*bos(g,3,3)*bos(ff,3,4)*dr(-7)

-30*bos(g,3,3)*bos(ff,3,3)*dr(-6)

+6*bos(g,3,3)*bos(ff,3,2)*dr(-5)

-105*bos(g,3,2)*bos(ff,3,6)*dr(-8)

+60*bos(g,3,2)*bos(ff,3,5)*dr(-7)

-30*bos(g,3,2)*bos(ff,3,4)*dr(-6)

+12*bos(g,3,2)*bos(ff,3,3)*dr(-5)

-3*bos(g,3,2)*bos(ff,3,2)*dr(-4)

+15*bos(g,3,1)*bos(ff,3,6)*dr(-7)

-10*bos(g,3,1)*bos(ff,3,5)*dr(-6)

+6*bos(g,3,1)*bos(ff,3,4)*dr(-5)

-3*bos(g,3,1)*bos(ff,3,3)*dr(-4)

+bos(g,3,1)*bos(ff,3,2)*dr(-3)

Time: 50 ms


showtime;


Time: 0 ms

Time: 0 ms

%if you try usual integration

d(-1)**3*bos(g,3,1)*bos(ff,3,2);



                               48
-bos(g,3,10)*bos(ff,3,38)*d(-1)

                                  47
+12*bos(g,3,10)*bos(ff,3,37)*d(-1)

                                  46
-78*bos(g,3,10)*bos(ff,3,36)*d(-1)

                                   45
+364*bos(g,3,10)*bos(ff,3,35)*d(-1)

                                    44
-1353*bos(g,3,10)*bos(ff,3,34)*d(-1)

                                    43
+4224*bos(g,3,10)*bos(ff,3,33)*d(-1)

                                     42
-11440*bos(g,3,10)*bos(ff,3,32)*d(-1)

                                     41
+27456*bos(g,3,10)*bos(ff,3,31)*d(-1)

                                     40
-59268*bos(g,3,10)*bos(ff,3,30)*d(-1)

                                      39
+116336*bos(g,3,10)*bos(ff,3,29)*d(-1)

                                      38
-209352*bos(g,3,10)*bos(ff,3,28)*d(-1)

                                      37
+347568*bos(g,3,10)*bos(ff,3,27)*d(-1)

                                      36
-534964*bos(g,3,10)*bos(ff,3,26)*d(-1)

                                      35
+766272*bos(g,3,10)*bos(ff,3,25)*d(-1)

                                       34
-1024464*bos(g,3,10)*bos(ff,3,24)*d(-1)

                                       33
+1281280*bos(g,3,10)*bos(ff,3,23)*d(-1)

                                       32
-1501566*bos(g,3,10)*bos(ff,3,22)*d(-1)

                                       31
+1650792*bos(g,3,10)*bos(ff,3,21)*d(-1)

                                       30
-1703636*bos(g,3,10)*bos(ff,3,20)*d(-1)

                                       29
+1650792*bos(g,3,10)*bos(ff,3,19)*d(-1)

                                       28
-1501566*bos(g,3,10)*bos(ff,3,18)*d(-1)

                                       27
+1281280*bos(g,3,10)*bos(ff,3,17)*d(-1)

                                       26
-1024464*bos(g,3,10)*bos(ff,3,16)*d(-1)

                                      25
+766272*bos(g,3,10)*bos(ff,3,15)*d(-1)

                                      24
-534964*bos(g,3,10)*bos(ff,3,14)*d(-1)

                                      23
+347568*bos(g,3,10)*bos(ff,3,13)*d(-1)

                                      22
-209352*bos(g,3,10)*bos(ff,3,12)*d(-1)

                                      21
+116336*bos(g,3,10)*bos(ff,3,11)*d(-1)

                                     20
-59268*bos(g,3,10)*bos(ff,3,10)*d(-1)

                                    19
+27456*bos(g,3,10)*bos(ff,3,9)*d(-1)

                                    18
-11440*bos(g,3,10)*bos(ff,3,8)*d(-1)

                                   17
+4224*bos(g,3,10)*bos(ff,3,7)*d(-1)

                                   16
-1353*bos(g,3,10)*bos(ff,3,6)*d(-1)

                                  15
+364*bos(g,3,10)*bos(ff,3,5)*d(-1)

                                 14
-78*bos(g,3,10)*bos(ff,3,4)*d(-1)

                                 13
+12*bos(g,3,10)*bos(ff,3,3)*d(-1)

                              12
-bos(g,3,10)*bos(ff,3,2)*d(-1)

                                44
-3*bos(g,3,9)*bos(ff,3,35)*d(-1)

                                 43
+33*bos(g,3,9)*bos(ff,3,34)*d(-1)

                                  42
-198*bos(g,3,9)*bos(ff,3,33)*d(-1)

                                  41
+858*bos(g,3,9)*bos(ff,3,32)*d(-1)

                                   40
-2970*bos(g,3,9)*bos(ff,3,31)*d(-1)

                                   39
+8646*bos(g,3,9)*bos(ff,3,30)*d(-1)

                                    38
-21846*bos(g,3,9)*bos(ff,3,29)*d(-1)

                                    37
+48906*bos(g,3,9)*bos(ff,3,28)*d(-1)

                                    36
-98406*bos(g,3,9)*bos(ff,3,27)*d(-1)

                                     35
+179850*bos(g,3,9)*bos(ff,3,26)*d(-1)

                                     34
-300894*bos(g,3,9)*bos(ff,3,25)*d(-1)

                                     33
+463554*bos(g,3,9)*bos(ff,3,24)*d(-1)

                                     32
-660594*bos(g,3,9)*bos(ff,3,23)*d(-1)

                                     31
+873774*bos(g,3,9)*bos(ff,3,22)*d(-1)

                                      30
-1075470*bos(g,3,9)*bos(ff,3,21)*d(-1)

                                      29
+1234002*bos(g,3,9)*bos(ff,3,20)*d(-1)

                                      28
-1321452*bos(g,3,9)*bos(ff,3,19)*d(-1)

                                      27
+1321452*bos(g,3,9)*bos(ff,3,18)*d(-1)

                                      26
-1234002*bos(g,3,9)*bos(ff,3,17)*d(-1)

                                      25
+1075470*bos(g,3,9)*bos(ff,3,16)*d(-1)

                                     24
-873774*bos(g,3,9)*bos(ff,3,15)*d(-1)

                                     23
+660594*bos(g,3,9)*bos(ff,3,14)*d(-1)

                                     22
-463554*bos(g,3,9)*bos(ff,3,13)*d(-1)

                                     21
+300894*bos(g,3,9)*bos(ff,3,12)*d(-1)

                                     20
-179850*bos(g,3,9)*bos(ff,3,11)*d(-1)

                                    19
+98406*bos(g,3,9)*bos(ff,3,10)*d(-1)

                                   18
-48906*bos(g,3,9)*bos(ff,3,9)*d(-1)

                                   17
+21846*bos(g,3,9)*bos(ff,3,8)*d(-1)

                                  16
-8646*bos(g,3,9)*bos(ff,3,7)*d(-1)

                                  15
+2970*bos(g,3,9)*bos(ff,3,6)*d(-1)

                                 14
-858*bos(g,3,9)*bos(ff,3,5)*d(-1)

                                 13
+198*bos(g,3,9)*bos(ff,3,4)*d(-1)

                                12
-33*bos(g,3,9)*bos(ff,3,3)*d(-1)

                               11
+3*bos(g,3,9)*bos(ff,3,2)*d(-1)

                                40
-6*bos(g,3,8)*bos(ff,3,32)*d(-1)

                                 39
+60*bos(g,3,8)*bos(ff,3,31)*d(-1)

                                  38
-330*bos(g,3,8)*bos(ff,3,30)*d(-1)

                                   37
+1320*bos(g,3,8)*bos(ff,3,29)*d(-1)

                                   36
-4230*bos(g,3,8)*bos(ff,3,28)*d(-1)

                                    35
+11412*bos(g,3,8)*bos(ff,3,27)*d(-1)

                                    34
-26730*bos(g,3,8)*bos(ff,3,26)*d(-1)

                                    33
+55440*bos(g,3,8)*bos(ff,3,25)*d(-1)

                                     32
-103230*bos(g,3,8)*bos(ff,3,24)*d(-1)

                                     31
+174300*bos(g,3,8)*bos(ff,3,23)*d(-1)

                                     30
-268818*bos(g,3,8)*bos(ff,3,22)*d(-1)

                                     29
+380760*bos(g,3,8)*bos(ff,3,21)*d(-1)

                                     28
-497310*bos(g,3,8)*bos(ff,3,20)*d(-1)

                                     27
+600660*bos(g,3,8)*bos(ff,3,19)*d(-1)

                                     26
-672210*bos(g,3,8)*bos(ff,3,18)*d(-1)

                                     25
+697824*bos(g,3,8)*bos(ff,3,17)*d(-1)

                                     24
-672210*bos(g,3,8)*bos(ff,3,16)*d(-1)

                                     23
+600660*bos(g,3,8)*bos(ff,3,15)*d(-1)

                                     22
-497310*bos(g,3,8)*bos(ff,3,14)*d(-1)

                                     21
+380760*bos(g,3,8)*bos(ff,3,13)*d(-1)

                                     20
-268818*bos(g,3,8)*bos(ff,3,12)*d(-1)

                                     19
+174300*bos(g,3,8)*bos(ff,3,11)*d(-1)

                                     18
-103230*bos(g,3,8)*bos(ff,3,10)*d(-1)

                                   17
+55440*bos(g,3,8)*bos(ff,3,9)*d(-1)

                                   16
-26730*bos(g,3,8)*bos(ff,3,8)*d(-1)

                                   15
+11412*bos(g,3,8)*bos(ff,3,7)*d(-1)

                                  14
-4230*bos(g,3,8)*bos(ff,3,6)*d(-1)

                                  13
+1320*bos(g,3,8)*bos(ff,3,5)*d(-1)

                                 12
-330*bos(g,3,8)*bos(ff,3,4)*d(-1)

                                11
+60*bos(g,3,8)*bos(ff,3,3)*d(-1)

                               10
-6*bos(g,3,8)*bos(ff,3,2)*d(-1)

                                 36
-10*bos(g,3,7)*bos(ff,3,29)*d(-1)

                                 35
+90*bos(g,3,7)*bos(ff,3,28)*d(-1)

                                  34
-450*bos(g,3,7)*bos(ff,3,27)*d(-1)

                                   33
+1650*bos(g,3,7)*bos(ff,3,26)*d(-1)

                                   32
-4860*bos(g,3,7)*bos(ff,3,25)*d(-1)

                                    31
+12060*bos(g,3,7)*bos(ff,3,24)*d(-1)

                                    30
-25980*bos(g,3,7)*bos(ff,3,23)*d(-1)

                                    29
+49500*bos(g,3,7)*bos(ff,3,22)*d(-1)

                                    28
-84510*bos(g,3,7)*bos(ff,3,21)*d(-1)

                                     27
+130510*bos(g,3,7)*bos(ff,3,20)*d(-1)

                                     26
-183510*bos(g,3,7)*bos(ff,3,19)*d(-1)

                                     25
+236070*bos(g,3,7)*bos(ff,3,18)*d(-1)

                                     24
-278760*bos(g,3,7)*bos(ff,3,17)*d(-1)

                                     23
+302760*bos(g,3,7)*bos(ff,3,16)*d(-1)

                                     22
-302760*bos(g,3,7)*bos(ff,3,15)*d(-1)

                                     21
+278760*bos(g,3,7)*bos(ff,3,14)*d(-1)

                                     20
-236070*bos(g,3,7)*bos(ff,3,13)*d(-1)

                                     19
+183510*bos(g,3,7)*bos(ff,3,12)*d(-1)

                                     18
-130510*bos(g,3,7)*bos(ff,3,11)*d(-1)

                                    17
+84510*bos(g,3,7)*bos(ff,3,10)*d(-1)

                                   16
-49500*bos(g,3,7)*bos(ff,3,9)*d(-1)

                                   15
+25980*bos(g,3,7)*bos(ff,3,8)*d(-1)

                                   14
-12060*bos(g,3,7)*bos(ff,3,7)*d(-1)

                                  13
+4860*bos(g,3,7)*bos(ff,3,6)*d(-1)

                                  12
-1650*bos(g,3,7)*bos(ff,3,5)*d(-1)

                                 11
+450*bos(g,3,7)*bos(ff,3,4)*d(-1)

                                10
-90*bos(g,3,7)*bos(ff,3,3)*d(-1)

                                9
+10*bos(g,3,7)*bos(ff,3,2)*d(-1)

                                 32
-12*bos(g,3,6)*bos(ff,3,26)*d(-1)

                                 31
+96*bos(g,3,6)*bos(ff,3,25)*d(-1)

                                  30
-432*bos(g,3,6)*bos(ff,3,24)*d(-1)

                                   29
+1440*bos(g,3,6)*bos(ff,3,23)*d(-1)

                                   28
-3864*bos(g,3,6)*bos(ff,3,22)*d(-1)

                                   27
+8736*bos(g,3,6)*bos(ff,3,21)*d(-1)

                                    26
-17136*bos(g,3,6)*bos(ff,3,20)*d(-1)

                                    25
+29664*bos(g,3,6)*bos(ff,3,19)*d(-1)

                                    24
-45876*bos(g,3,6)*bos(ff,3,18)*d(-1)

                                    23
+63936*bos(g,3,6)*bos(ff,3,17)*d(-1)

                                    22
-80736*bos(g,3,6)*bos(ff,3,16)*d(-1)

                                    21
+92736*bos(g,3,6)*bos(ff,3,15)*d(-1)

                                    20
-97104*bos(g,3,6)*bos(ff,3,14)*d(-1)

                                    19
+92736*bos(g,3,6)*bos(ff,3,13)*d(-1)

                                    18
-80736*bos(g,3,6)*bos(ff,3,12)*d(-1)

                                    17
+63936*bos(g,3,6)*bos(ff,3,11)*d(-1)

                                    16
-45876*bos(g,3,6)*bos(ff,3,10)*d(-1)

                                   15
+29664*bos(g,3,6)*bos(ff,3,9)*d(-1)

                                   14
-17136*bos(g,3,6)*bos(ff,3,8)*d(-1)

                                  13
+8736*bos(g,3,6)*bos(ff,3,7)*d(-1)

                                  12
-3864*bos(g,3,6)*bos(ff,3,6)*d(-1)

                                  11
+1440*bos(g,3,6)*bos(ff,3,5)*d(-1)

                                 10
-432*bos(g,3,6)*bos(ff,3,4)*d(-1)

                                9
+96*bos(g,3,6)*bos(ff,3,3)*d(-1)

                                8
-12*bos(g,3,6)*bos(ff,3,2)*d(-1)

                                 28
-12*bos(g,3,5)*bos(ff,3,23)*d(-1)

                                 27
+84*bos(g,3,5)*bos(ff,3,22)*d(-1)

                                  26
-336*bos(g,3,5)*bos(ff,3,21)*d(-1)

                                   25
+1008*bos(g,3,5)*bos(ff,3,20)*d(-1)

                                   24
-2436*bos(g,3,5)*bos(ff,3,19)*d(-1)

                                   23
+4956*bos(g,3,5)*bos(ff,3,18)*d(-1)

                                   22
-8736*bos(g,3,5)*bos(ff,3,17)*d(-1)

                                    21
+13536*bos(g,3,5)*bos(ff,3,16)*d(-1)

                                    20
-18648*bos(g,3,5)*bos(ff,3,15)*d(-1)

                                    19
+23016*bos(g,3,5)*bos(ff,3,14)*d(-1)

                                    18
-25536*bos(g,3,5)*bos(ff,3,13)*d(-1)

                                    17
+25536*bos(g,3,5)*bos(ff,3,12)*d(-1)

                                    16
-23016*bos(g,3,5)*bos(ff,3,11)*d(-1)

                                    15
+18648*bos(g,3,5)*bos(ff,3,10)*d(-1)

                                   14
-13536*bos(g,3,5)*bos(ff,3,9)*d(-1)

                                  13
+8736*bos(g,3,5)*bos(ff,3,8)*d(-1)

                                  12
-4956*bos(g,3,5)*bos(ff,3,7)*d(-1)

                                  11
+2436*bos(g,3,5)*bos(ff,3,6)*d(-1)

                                  10
-1008*bos(g,3,5)*bos(ff,3,5)*d(-1)

                                 9
+336*bos(g,3,5)*bos(ff,3,4)*d(-1)

                                8
-84*bos(g,3,5)*bos(ff,3,3)*d(-1)

                                7
+12*bos(g,3,5)*bos(ff,3,2)*d(-1)

                                 24
-10*bos(g,3,4)*bos(ff,3,20)*d(-1)

                                 23
+60*bos(g,3,4)*bos(ff,3,19)*d(-1)

                                  22
-210*bos(g,3,4)*bos(ff,3,18)*d(-1)

                                  21
+560*bos(g,3,4)*bos(ff,3,17)*d(-1)

                                   20
-1200*bos(g,3,4)*bos(ff,3,16)*d(-1)

                                   19
+2160*bos(g,3,4)*bos(ff,3,15)*d(-1)

                                   18
-3360*bos(g,3,4)*bos(ff,3,14)*d(-1)

                                   17
+4560*bos(g,3,4)*bos(ff,3,13)*d(-1)

                                   16
-5460*bos(g,3,4)*bos(ff,3,12)*d(-1)

                                   15
+5800*bos(g,3,4)*bos(ff,3,11)*d(-1)

                                   14
-5460*bos(g,3,4)*bos(ff,3,10)*d(-1)

                                  13
+4560*bos(g,3,4)*bos(ff,3,9)*d(-1)

                                  12
-3360*bos(g,3,4)*bos(ff,3,8)*d(-1)

                                  11
+2160*bos(g,3,4)*bos(ff,3,7)*d(-1)

                                  10
-1200*bos(g,3,4)*bos(ff,3,6)*d(-1)

                                 9
+560*bos(g,3,4)*bos(ff,3,5)*d(-1)

                                 8
-210*bos(g,3,4)*bos(ff,3,4)*d(-1)

                                7
+60*bos(g,3,4)*bos(ff,3,3)*d(-1)

                                6
-10*bos(g,3,4)*bos(ff,3,2)*d(-1)

                                20
-6*bos(g,3,3)*bos(ff,3,17)*d(-1)

                                 19
+30*bos(g,3,3)*bos(ff,3,16)*d(-1)

                                 18
-90*bos(g,3,3)*bos(ff,3,15)*d(-1)

                                  17
+210*bos(g,3,3)*bos(ff,3,14)*d(-1)

                                  16
-390*bos(g,3,3)*bos(ff,3,13)*d(-1)

                                  15
+606*bos(g,3,3)*bos(ff,3,12)*d(-1)

                                  14
-810*bos(g,3,3)*bos(ff,3,11)*d(-1)

                                  13
+930*bos(g,3,3)*bos(ff,3,10)*d(-1)

                                 12
-930*bos(g,3,3)*bos(ff,3,9)*d(-1)

                                 11
+810*bos(g,3,3)*bos(ff,3,8)*d(-1)

                                 10
-606*bos(g,3,3)*bos(ff,3,7)*d(-1)

                                 9
+390*bos(g,3,3)*bos(ff,3,6)*d(-1)

                                 8
-210*bos(g,3,3)*bos(ff,3,5)*d(-1)

                                7
+90*bos(g,3,3)*bos(ff,3,4)*d(-1)

                                6
-30*bos(g,3,3)*bos(ff,3,3)*d(-1)

                               5
+6*bos(g,3,3)*bos(ff,3,2)*d(-1)

                                16
-3*bos(g,3,2)*bos(ff,3,14)*d(-1)

                                 15
+12*bos(g,3,2)*bos(ff,3,13)*d(-1)

                                 14
-30*bos(g,3,2)*bos(ff,3,12)*d(-1)

                                 13
+60*bos(g,3,2)*bos(ff,3,11)*d(-1)

                                 12
-93*bos(g,3,2)*bos(ff,3,10)*d(-1)

                                 11
+120*bos(g,3,2)*bos(ff,3,9)*d(-1)

                                 10
-132*bos(g,3,2)*bos(ff,3,8)*d(-1)

                                 9
+120*bos(g,3,2)*bos(ff,3,7)*d(-1)

                                8
-93*bos(g,3,2)*bos(ff,3,6)*d(-1)

                                7
+60*bos(g,3,2)*bos(ff,3,5)*d(-1)

                                6
-30*bos(g,3,2)*bos(ff,3,4)*d(-1)

                                5
+12*bos(g,3,2)*bos(ff,3,3)*d(-1)

                               4
-3*bos(g,3,2)*bos(ff,3,2)*d(-1)

                              12
-bos(g,3,1)*bos(ff,3,11)*d(-1)

                                11
+3*bos(g,3,1)*bos(ff,3,10)*d(-1)

                               10
-6*bos(g,3,1)*bos(ff,3,9)*d(-1)

                                9
+10*bos(g,3,1)*bos(ff,3,8)*d(-1)

                                8
-12*bos(g,3,1)*bos(ff,3,7)*d(-1)

                                7
+12*bos(g,3,1)*bos(ff,3,6)*d(-1)

                                6
-10*bos(g,3,1)*bos(ff,3,5)*d(-1)

                               5
+6*bos(g,3,1)*bos(ff,3,4)*d(-1)

                               4
-3*bos(g,3,1)*bos(ff,3,3)*d(-1)

                             3
+bos(g,3,1)*bos(ff,3,2)*d(-1)

Time: 290 ms  plus GC time: 10 ms


showtime;


Time: 0 ms

Time: 0 ms


% then the time - diffrences is evident. In this example d(-1)
% integration is 10 times slower then  dr integrations.

off time;



let cutoff;


cut:=5;


cut := 5

dr(-2)*fer(f,1,2)*bos(aa,0,1);



-4*fer(f,1,5)*bos(aa,0,1)*dr(-5)

-12*fer(f,1,4)*bos(aa,0,2)*dr(-5)

+3*fer(f,1,4)*bos(aa,0,1)*dr(-4)

-12*fer(f,1,3)*bos(aa,0,3)*dr(-5)

+6*fer(f,1,3)*bos(aa,0,2)*dr(-4)

-2*fer(f,1,3)*bos(aa,0,1)*dr(-3)

-4*fer(f,1,2)*bos(aa,0,4)*dr(-5)

+3*fer(f,1,2)*bos(aa,0,3)*dr(-4)

-2*fer(f,1,2)*bos(aa,0,2)*dr(-3)

+fer(f,1,2)*bos(aa,0,1)*dr(-2)

dr(-3)*bos(g,3,1)*bos(bb,0,3);


6*bos(g,3,3)*bos(bb,0,3)*dr(-5)

+12*bos(g,3,2)*bos(bb,0,4)*dr(-5)

-3*bos(g,3,2)*bos(bb,0,3)*dr(-4)

+6*bos(g,3,1)*bos(bb,0,5)*dr(-5)

-3*bos(g,3,1)*bos(bb,0,4)*dr(-4)

+bos(g,3,1)*bos(bb,0,3)*dr(-3)

clear ww,cut;


ww:=6;


ww := 6

cut:=7;


cut := 7

dr(-3)*fer(k,2,3)*bos(h,0,2);


15*fer(k,2,7)*bos(h,0,2)*dr(-7)

+60*fer(k,2,6)*bos(h,0,3)*dr(-7)

-10*fer(k,2,6)*bos(h,0,2)*dr(-6)

+90*fer(k,2,5)*bos(h,0,4)*dr(-7)

-30*fer(k,2,5)*bos(h,0,3)*dr(-6)

+6*fer(k,2,5)*bos(h,0,2)*dr(-5)

+60*fer(k,2,4)*bos(h,0,5)*dr(-7)

-30*fer(k,2,4)*bos(h,0,4)*dr(-6)

+12*fer(k,2,4)*bos(h,0,3)*dr(-5)

-3*fer(k,2,4)*bos(h,0,2)*dr(-4)

+15*fer(k,2,3)*bos(h,0,6)*dr(-7)

-10*fer(k,2,3)*bos(h,0,5)*dr(-6)

+6*fer(k,2,3)*bos(h,0,4)*dr(-5)

-3*fer(k,2,3)*bos(h,0,3)*dr(-4)

+fer(k,2,3)*bos(h,0,2)*dr(-3)

dr(-4)*bos(h,0,3)*bos(k,0,2);



-20*bos(k,0,5)*bos(h,0,3)*dr(-7)

-60*bos(k,0,4)*bos(h,0,4)*dr(-7)

+10*bos(k,0,4)*bos(h,0,3)*dr(-6)

-60*bos(k,0,3)*bos(h,0,5)*dr(-7)

+20*bos(k,0,3)*bos(h,0,4)*dr(-6)

-4*bos(k,0,3)*bos(h,0,3)*dr(-5)

-20*bos(k,0,2)*bos(h,0,6)*dr(-7)

+10*bos(k,0,2)*bos(h,0,5)*dr(-6)

-4*bos(k,0,2)*bos(h,0,4)*dr(-5)

+bos(k,0,2)*bos(h,0,3)*dr(-4)


clear ww,cut;


clearrules cutoff;



% 15.) The combinations

%the combinations of dim 7 constructed from fields of
% the 2 ,3 dimensions, free  parameters are numerated by "a";

w_comb({{f,2,b},{g,3,b}},7,a,b);


a1*bos(f,3,4)

+a2*bos(f,3,2)*bos(f,0,0)

+a3*bos(f,3,1)*bos(f,3,0)

+a4*bos(f,3,1)*bos(f,0,1)

+a5*bos(f,3,0)*bos(f,0,2)

                         2
+a6*bos(f,3,0)*bos(f,0,0)

+a7*bos(f,0,5)

+a8*bos(f,0,3)*bos(f,0,0)

+a9*bos(f,0,2)*bos(f,0,1)

                          2
+a10*bos(f,0,1)*bos(f,0,0)

+a11*bos(g,3,3)

+a12*bos(g,3,1)*bos(f,0,0)

+a13*bos(g,3,0)*bos(f,3,0)

+a14*bos(g,3,0)*bos(f,0,1)

+a15*bos(g,3,0)*bos(g,0,0)

+a16*bos(g,0,4)

+a17*bos(g,0,2)*bos(f,0,0)

+a18*bos(g,0,1)*bos(f,3,0)

+a19*bos(g,0,1)*bos(f,0,1)

+a20*bos(g,0,1)*bos(g,0,0)

+a21*bos(g,0,0)*bos(f,3,1)

+a22*bos(g,0,0)*bos(f,0,2)

                          2
+a23*bos(g,0,0)*bos(f,0,0)

+a24*fer(f,2,2)*fer(f,2,0)

+a25*fer(f,2,2)*fer(f,1,0)

+a26*fer(f,2,1)*fer(f,1,1)

+a27*fer(f,2,0)*fer(f,1,2)

+a28*fer(f,2,0)*fer(f,1,0)*bos(f,0,0)

+a29*fer(f,1,2)*fer(f,1,0)

+a30*fer(g,2,1)*fer(f,2,0)

+a31*fer(g,2,1)*fer(f,1,0)

+a32*fer(g,2,0)*fer(f,2,1)

+a33*fer(g,2,0)*fer(f,1,1)

+a34*fer(g,2,0)*fer(g,1,0)

+a35*fer(g,1,1)*fer(f,2,0)

+a36*fer(g,1,1)*fer(f,1,0)

+a37*fer(g,1,0)*fer(f,2,1)

+a38*fer(g,1,0)*fer(f,1,1)

w_comb({{f,2,f},{g,3,f}},4,s,f);


s1*fer(f,3,1)

+s2*fer(f,0,2)

+s3*fer(g,3,0)

+s4*fer(g,0,1)


% and now compute the last example but withouth the (susy)divergence
%terms;

fcomb({{f,2,b},{g,3,b}},5,c,b);


c(1)*bos(f,3,0)*bos(f,0,0)

+c(2)*bos(f,0,1)*bos(f,0,0)

+c(3)*bos(g,0,0)*bos(f,0,0)

fcomb({{f,1,f}},4,r,f);


                          2
r(1)*fer(f,0,0)*bos(f,2,0)

+r(2)*fer(f,0,0)*bos(f,2,0)*bos(f,1,0)

                           2
+r(3)*fer(f,0,0)*bos(f,1,0)



% 16.) The element of pseudo - susy -differential algebra;

pse_ele(2,{{f,2,b}},c);


*** c already defined as operator 

c(2)*bos(f,0,0)

          2
+c(0)*d(1)

+c(1)*d(1)*der(1)*der(2)

pse_ele(3,{{f,2,b}},c);


*** c already defined as operator 

c(2)*bos(f,3,0)

+c(3)*bos(f,0,1)

+c(4)*bos(f,0,0)*d(1)

+c(5)*bos(f,0,0)*der(1)*der(2)

          3
+c(0)*d(1)

          2
+c(1)*d(1) *der(1)*der(2)

+c(6)*fer(f,2,0)*der(2)

+c(7)*fer(f,2,0)*der(1)

+c(8)*fer(f,1,0)*der(2)

+c(9)*fer(f,1,0)*der(1)

pse_ele(4,{{f,2,b}},c);


*** c already defined as operator 

c(2)*bos(f,3,1)

+bos(f,3,0)*(d(1)*c(3)

             +der(1)*der(2)*c(4))

+c(5)*bos(f,0,2)

+bos(f,0,1)*(d(1)*c(6)

             +der(1)*der(2)*c(7))

                2
+c(8)*bos(f,0,0)

                 2
+bos(f,0,0)*(d(1) *c(9)

             +d(1)*der(1)*der(2)*c(10))

+fer(f,2,1)*(der(2)*c(11)

             +der(1)*c(12))

+fer(f,2,0)*(d(1)*der(2)*c(13)

             +d(1)*der(1)*c(14))

+fer(f,1,1)*(der(2)*c(15)

             +der(1)*c(16))

+fer(f,1,0)*(d(1)*der(2)*c(17)

             +d(1)*der(1)*c(18))

     4
+d(1) *c(0)

     3
+d(1) *der(1)*der(2)*c(1)

pse_ele(3,{{f,1,b},{g,2,b}},r);


*** r already defined as operator 

r(2)*bos(f,3,1)

+r(3)*bos(f,3,0)*bos(f,0,0)

+bos(f,3,0)*(d(1)*r(4)

             +der(1)*der(2)*r(5))

+r(6)*bos(f,0,2)

+r(7)*bos(f,0,1)*bos(f,0,0)

+bos(f,0,1)*(d(1)*r(8)

             +der(1)*der(2)*r(9))

                 3
+r(10)*bos(f,0,0)

           2
+bos(f,0,0) *(d(1)*r(11)

              +der(1)*der(2)*r(12))

                 2
+bos(f,0,0)*(d(1) *r(13)

             +d(1)*der(1)*der(2)*r(14))

+r(15)*bos(g,3,0)

+r(16)*bos(g,0,1)

+r(17)*bos(g,0,0)*bos(f,0,0)

+bos(g,0,0)*(d(1)*r(18)

             +der(1)*der(2)*r(19))

+fer(f,2,1)*(der(2)*r(20)

             +der(1)*r(21))

+fer(f,2,0)*bos(f,0,0)*(der(2)*r(22)

   +der(1)*r(23))

+r(26)*fer(f,2,0)*fer(f,1,0)

+fer(f,2,0)*(d(1)*der(2)*r(24)

             +d(1)*der(1)*r(25))

+fer(f,1,1)*(der(2)*r(27)

             +der(1)*r(28))

+fer(f,1,0)*bos(f,0,0)*(der(2)*r(29)

   +der(1)*r(30))

+fer(f,1,0)*(d(1)*der(2)*r(31)

             +d(1)*der(1)*r(32))

+fer(g,2,0)*(der(2)*r(33)

             +der(1)*r(34))

+fer(g,1,0)*(der(2)*r(35)

             +der(1)*r(36))

     3
+d(1) *r(0)

     2
+d(1) *der(1)*der(2)*r(1)


% The components of the elements of pseudo - susy - differential algebra;

xxx:=pse_ele(2,{{f,1,b},{g,2,b}},r);


*** r already defined as operator 

xxx := r(2)*bos(f,3,0)

       +r(3)*bos(f,0,1)

                       2
       +r(4)*bos(f,0,0)

       +r(5)*bos(f,0,0)*d(1)

       +r(6)*bos(f,0,0)*der(1)*der(2)

       +r(7)*bos(g,0,0)

                 2
       +r(0)*d(1)

       +r(1)*d(1)*der(1)*der(2)

       +r(8)*fer(f,2,0)*der(2)

       +r(9)*fer(f,2,0)*der(1)

       +r(10)*fer(f,1,0)*der(2)

       +r(11)*fer(f,1,0)*der(1)


for k:=0:3 do write s_part(xxx,k);


r(2)*bos(f,3,0)

+r(3)*bos(f,0,1)

                2
+r(4)*bos(f,0,0)

+r(5)*bos(f,0,0)*d(1)

+r(7)*bos(g,0,0)

          2
+r(0)*d(1)

r(9)*fer(f,2,0)

+r(11)*fer(f,1,0)

r(8)*fer(f,2,0)

+r(10)*fer(f,1,0)

r(6)*bos(f,0,0)

+r(1)*d(1)


for k:=0:2 do write d_part(xxx,k);


r(2)*bos(f,3,0)

+r(3)*bos(f,0,1)

                2
+r(4)*bos(f,0,0)

+r(6)*bos(f,0,0)*der(1)*der(2)

+r(7)*bos(g,0,0)

+r(8)*fer(f,2,0)*der(2)

+r(9)*fer(f,2,0)*der(1)

+r(10)*fer(f,1,0)*der(2)

+r(11)*fer(f,1,0)*der(1)

r(5)*bos(f,0,0)

+r(1)*der(1)*der(2)

r(0)


for k:=0:2 do for l:=0:3 do write sd_part(xxx,l,k);


r(2)*bos(f,3,0)

+r(3)*bos(f,0,1)

                2
+r(4)*bos(f,0,0)

+r(7)*bos(g,0,0)

r(9)*fer(f,2,0)

+r(11)*fer(f,1,0)

r(8)*fer(f,2,0)

+r(10)*fer(f,1,0)

r(6)*bos(f,0,0)

r(5)*bos(f,0,0)

0

0

r(1)

r(0)

0

0

0


clear xxx;



% 17.) Projection onto invariant subspace;

xxx:=
w_comb({{f,1,b}},2,a,b)*d(1)+
w_comb({{f,1,b}},3,b,b)*der(1)*der(2)+
w_comb({{f,1,b}},5/2,c,b)*der(1)+
w_comb({{f,1,b}},3,ee,b)*d(1)^2+
w_comb({{f,1,b}},7/2,fe,b)*d(1)*der(2)+
w_comb({{f,1,b}},3,g,b)*der(1)*der(2)*d(1);


                       2
xxx := bos(f,3,1)*(d(1) *ee1

          +d(1)*der(1)*der(2)*g1

          +der(1)*der(2)*b1)

                                   2
       +bos(f,3,0)*bos(f,0,0)*(d(1) *ee2

          +d(1)*der(1)*der(2)*g2

          +der(1)*der(2)*b2)

       +a1*bos(f,3,0)*d(1)

                        2
       +bos(f,0,2)*(d(1) *ee3

          +d(1)*der(1)*der(2)*g3

          +der(1)*der(2)*b3)

                                   2
       +bos(f,0,1)*bos(f,0,0)*(d(1) *ee4

          +d(1)*der(1)*der(2)*g4

          +der(1)*der(2)*b4)

       +a2*bos(f,0,1)*d(1)

                  3      2
       +bos(f,0,0) *(d(1) *ee5

          +d(1)*der(1)*der(2)*g5

          +der(1)*der(2)*b5)

                     2
       +a3*bos(f,0,0) *d(1)

                                   2
       +fer(f,2,0)*fer(f,1,0)*(d(1) *ee6

          +d(1)*der(1)*der(2)*g6

          +der(1)*der(2)*b6)


for k:=0:2 do write rzut(xxx,k);


                2
bos(f,3,1)*(d(1) *ee1

            +d(1)*der(1)*der(2)*g1

            +der(1)*der(2)*b1)

                            2
+bos(f,3,0)*bos(f,0,0)*(d(1) *ee2

   +d(1)*der(1)*der(2)*g2

   +der(1)*der(2)*b2)

+a1*bos(f,3,0)*d(1)

                 2
+bos(f,0,2)*(d(1) *ee3

             +d(1)*der(1)*der(2)*g3

             +der(1)*der(2)*b3)

                            2
+bos(f,0,1)*bos(f,0,0)*(d(1) *ee4

   +d(1)*der(1)*der(2)*g4

   +der(1)*der(2)*b4)

+a2*bos(f,0,1)*d(1)

           3      2
+bos(f,0,0) *(d(1) *ee5

              +d(1)*der(1)*der(2)*g5

              +der(1)*der(2)*b5)

              2
+a3*bos(f,0,0) *d(1)

                            2
+fer(f,2,0)*fer(f,1,0)*(d(1) *ee6

   +d(1)*der(1)*der(2)*g6

   +der(1)*der(2)*b6)

                2
bos(f,3,1)*(d(1) *ee1

            +d(1)*der(1)*der(2)*g1

            +der(1)*der(2)*b1)

                            2
+bos(f,3,0)*bos(f,0,0)*(d(1) *ee2

   +d(1)*der(1)*der(2)*g2

   +der(1)*der(2)*b2)

+a1*bos(f,3,0)*d(1)

                 2
+bos(f,0,2)*(d(1) *ee3

             +d(1)*der(1)*der(2)*g3

             +der(1)*der(2)*b3)

                            2
+bos(f,0,1)*bos(f,0,0)*(d(1) *ee4

   +d(1)*der(1)*der(2)*g4

   +der(1)*der(2)*b4)

+a2*bos(f,0,1)*d(1)

           3      2
+bos(f,0,0) *(d(1) *ee5

              +d(1)*der(1)*der(2)*g5

              +der(1)*der(2)*b5)

              2
+a3*bos(f,0,0) *d(1)

                            2
+fer(f,2,0)*fer(f,1,0)*(d(1) *ee6

   +d(1)*der(1)*der(2)*g6

   +der(1)*der(2)*b6)

                2
bos(f,3,1)*(d(1) *ee1

            +d(1)*der(1)*der(2)*g1

            +der(1)*der(2)*b1)

                            2
+bos(f,3,0)*bos(f,0,0)*(d(1) *ee2

   +d(1)*der(1)*der(2)*g2

   +der(1)*der(2)*b2)

                 2
+bos(f,0,2)*(d(1) *ee3

             +d(1)*der(1)*der(2)*g3

             +der(1)*der(2)*b3)

                            2
+bos(f,0,1)*bos(f,0,0)*(d(1) *ee4

   +d(1)*der(1)*der(2)*g4

   +der(1)*der(2)*b4)

           3      2
+bos(f,0,0) *(d(1) *ee5

              +d(1)*der(1)*der(2)*g5

              +der(1)*der(2)*b5)

                            2
+fer(f,2,0)*fer(f,1,0)*(d(1) *ee6

   +d(1)*der(1)*der(2)*g6

   +der(1)*der(2)*b6)


clear xxx;



% 18.) Test for the adjoint operators;

cp(der(1));


*** d not found 

*** der not found 

*** del not found 


-der(1)

cp(der(1)*der(2));


d(1)

+der(1)*der(2)

clearrules trad;


let chiral1;


cp(der(3));


*** d not found 

*** der not found 

*** del not found 

der(3)

cp(der(1)*d(1));


d(1)*der(1)

clearrules chiral1;


let trad;


cp(d(1));


*** d not found 

*** der not found 

*** del not found 


-d(1)

cp(d(2));


*** d not found 

*** der not found 

*** del not found 


-d(2)

as:=fer(f,1,0)*d(-3)*fer(g,2,0)+fer(h,1,2)*d(-3)*fer(kk,2,1);


as := fer(f,1,0)*d(-3)*fer(g,2,0)

      +fer(h,1,2)*d(-3)*fer(kk,2,1)

cp(as);


*** d not found 

*** der not found 

*** del not found 

fer(g,2,0)*d(-3)*fer(f,1,0)

+fer(kk,2,1)*d(-3)*fer(h,1,2)

cp(as*as);


*** d not found 

*** der not found 

*** del not found 


-fer(g,2,0)*(d(-3)*fer(g,2,0)*fer(f,1,0)*d(-3)*fer(f,1,0)

             +d(-3)*fer(kk,2,1)*fer(f,1,0)*d(-3)*fer(h,1,2))

+fer(kk,2,1)*(d(-3)*fer(h,1,2)*fer(g,2,0)*d(-3)*fer(f,1,0)

              -d(-3)*fer(kk,2,1)*fer(h,1,2)*d(-3)*fer(h,1,2))


as:=fer(f,1,0);


as := fer(f,1,0)

cp(as);


fer(f,1,0)

cp(ws);


fer(f,1,0)


clear as;



as:=bos(f,0,0);


as := bos(f,0,0)

as1:=as*der(1);


as1 := bos(f,0,0)*der(1)

cp(as1);



-bos(f,0,0)*der(1)

-fer(f,1,0)

cp(ws);


*** d not found 

*** der not found 

*** del not found 

bos(f,0,0)*der(1)

cp(as1)+der(1)*as;


0


as2:=as*der(1)*der(2);


as2 := bos(f,0,0)*der(1)*der(2)

cp(as2);


bos(f,3,0)

+bos(f,0,0)*der(1)*der(2)

-fer(f,2,0)*der(1)

+fer(f,1,0)*der(2)

cp(ws);


*** d not found 

*** der not found 

*** del not found 

bos(f,0,0)*der(1)*der(2)

cp(as2) - der(1)*der(2)*as;


0



clear as;


as:=mat((fer(f,1,0)*der(1),bos(g,0,0)*d(-3)*bos(h,0,0)),
(fer(h,2,1),fer(h,1,2)*d(-3)*fer(k,2,3)));


      [fer(f,1,0)*der(1)  bos(g,0,0)*d(-3)*bos(h,0,0)]
as := [                                              ]
      [   fer(h,2,1)      fer(h,1,2)*d(-3)*fer(k,2,3)]


cp(as);


*** fer(h,2,1) not found 

mat((bos(f,0,1)

     -fer(f,1,0)*der(1),fer(h,2,1)),

    (

     -bos(h,0,0)*d(-3)*bos(g,0,0),fer(k,2,3)*d(-3)*fer(h,1,2)))


clear as;




% 19.) Analog of coeff

xxx:=pse_ele(2,{{f,1,b}},a);


xxx := a(2)*bos(f,3,0)

       +a(3)*bos(f,0,1)

                       2
       +a(4)*bos(f,0,0)

       +a(5)*bos(f,0,0)*d(1)

       +a(6)*bos(f,0,0)*der(1)*der(2)

                 2
       +a(0)*d(1)

       +a(1)*d(1)*der(1)*der(2)

       +a(7)*fer(f,2,0)*der(2)

       +a(8)*fer(f,2,0)*der(1)

       +a(9)*fer(f,1,0)*der(2)

       +a(10)*fer(f,1,0)*der(1)

yyy:=lyst(xxx);


yyy := {a(2)*bos(f,3,0),

        a(3)*bos(f,0,1),

                       2
        a(4)*bos(f,0,0) ,

        a(5)*bos(f,0,0)*d(1),

        a(6)*bos(f,0,0)*der(1)*der(2),

                 2
        a(0)*d(1) ,

        a(1)*d(1)*der(1)*der(2),

        a(7)*fer(f,2,0)*der(2),

        a(8)*fer(f,2,0)*der(1),

        a(9)*fer(f,1,0)*der(2),

        a(10)*fer(f,1,0)*der(1)}

zzz:=lyst1(xxx);


zzz := {a(2),

        a(3),

        a(4),

        a(5)*d(1),

        a(6)*der(1)*der(2),

                 2
        a(0)*d(1) ,

        a(1)*d(1)*der(1)*der(2),

        a(7)*der(2),

        a(8)*der(1),

        a(9)*der(2),

        a(10)*der(1)}

yyy:=lyst2(xxx);


yyy := {a(2),

        a(3),

        a(4),

        a(5),

        a(6),

        a(0),

        a(1),

        a(7),

        a(8),

        a(9),

        a(10)}

clear xxx,yyy,zzz;



% 20.) Simplifications;

% we would like to compute third generalizations of the SUSY KdV
% equation
% example from Z.Popowicz Phys.Lett.A.174 (1993) p.87

lax:=d(1)+d(-3)*der(1)*der(2)*bos(u,0,0);


lax := d(1)

       +d(-3)*bos(u,3,0)

       +d(-3)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*fer(u,2,0)*der(1)

       +d(-3)*fer(u,1,0)*der(2)

lb2:=lax^2;


lb2 := bos(u,3,0)

       +bos(u,0,0)*der(1)*der(2)

       -fer(u,2,0)*der(1)

       +fer(u,1,0)*der(2)

            2
       +d(1)

       +d(-3)*bos(u,3,0)*d(1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*der(1)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*der(2)

       +d(-3)*bos(u,0,0)*d(1)*der(1)*der(2)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -2*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

                                              2
       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

       -d(-3)*fer(u,2,0)*d(1)*der(1)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(1)

       +d(-3)*fer(u,1,0)*d(1)*der(2)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(1)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*d(1)

la2:=chan(lb2);


la2 := 2*bos(u,3,0)

                  2
       -bos(u,0,0)

       +2*bos(u,0,0)*der(1)*der(2)

       -2*fer(u,2,0)*der(1)

       +2*fer(u,1,0)*der(2)

            2
       +d(1)

       -d(-3)*bos(u,3,1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*der(1)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*der(2)

       +d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,0,1)*der(1)*der(2)

       +d(-3)*fer(u,2,1)*der(1)

       -d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -d(-3)*fer(u,1,1)*der(2)

       -d(-3)*fer(u,1,0)*bos(u,0,0)*der(1)

lb3:=lax*la2;


lb3 := bos(u,3,1)

       +bos(u,3,0)*(2*d(1)

          +d(-3)*bos(u,3,0)

          +d(-3)*bos(u,0,0)*der(1)*der(2)

          -d(-3)*fer(u,2,0)*der(1)

          +d(-3)*fer(u,1,0)*der(2))

       -bos(u,0,1)*bos(u,0,0)

       +bos(u,0,1)*der(1)*der(2)

                  2
       -bos(u,0,0) *d(1)

       +2*bos(u,0,0)*d(1)*der(1)*der(2)

       -fer(u,2,1)*der(1)

       -fer(u,2,0)*bos(u,0,0)*der(2)

       -2*fer(u,2,0)*d(1)*der(1)

       +fer(u,1,1)*der(2)

       -fer(u,1,0)*bos(u,0,0)*der(1)

       +2*fer(u,1,0)*d(1)*der(2)

            3
       +d(1)

                          2
       +2*d(-3)*bos(u,3,0)

                                     2
       -3*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(1)*der(2)

                             2
       +d(-3)*bos(u,3,0)*d(1)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*der(1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*der(2)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(1)*der(2)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*der(1)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(1)

       -2*d(-3)*bos(u,0,2)*bos(u,0,0)

       -4*d(-3)*bos(u,0,1)*bos(u,0,0)*d(1)

                        3
       -d(-3)*bos(u,0,0) *der(1)*der(2)

                          2     2
       -2*d(-3)*bos(u,0,0) *d(1)

                             2
       +d(-3)*bos(u,0,0)*d(1) *der(1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       +d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)

       -2*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*d(1)

                                                               2
       -d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

       +d(-3)*bos(u,0,0)*d(-3)*bos(u,0,3)

       +2*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(1)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*bos(u,3,0)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*der(1)*der(2)

                                              2
       +d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,1)*fer(u,1,0)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(1)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,1,1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,1,0)*d(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,1)

       -2*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(1)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*d(1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,1)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*d(1)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)*der(2)

       +2*d(-3)*fer(u,2,1)*fer(u,2,0)

       -2*d(-3)*fer(u,2,0)*bos(u,3,0)*der(1)

       -2*d(-3)*fer(u,2,0)*bos(u,0,1)*der(2)

                                     2
       +3*d(-3)*fer(u,2,0)*bos(u,0,0) *der(1)

       -2*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)*der(2)

       +6*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

                             2
       -d(-3)*fer(u,2,0)*d(1) *der(1)

       +d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

       -d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(1)

       +d(-3)*fer(u,2,0)*d(-3)*bos(u,0,2)*der(2)

       +d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*d(1)*der(2)

       +d(-3)*fer(u,2,0)*d(-3)*fer(u,2,2)

       +d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(1)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,3,0)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)

       +2*d(-3)*fer(u,1,0)*bos(u,3,0)*der(2)

       -2*d(-3)*fer(u,1,0)*bos(u,0,1)*der(1)

                                     2
       -3*d(-3)*fer(u,1,0)*bos(u,0,0) *der(2)

       -2*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)*der(1)

                             2
       +d(-3)*fer(u,1,0)*d(1) *der(2)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)

       -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(1)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*der(1)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(1)*der(1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*der(1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(1)*der(2)

la3:=chan(lb3);


la3 := bos(u,3,0)*(3*d(1)

          +d(-3)*bos(u,3,0)

          +d(-3)*bos(u,0,0)*der(1)*der(2)

          -d(-3)*fer(u,2,0)*der(1)

          +d(-3)*fer(u,1,0)*der(2))

                    2
       -3*bos(u,0,0) *d(1)

       +3*bos(u,0,0)*d(1)*der(1)*der(2)

       -3*fer(u,2,0)*bos(u,0,0)*der(2)

       -3*fer(u,2,0)*d(1)*der(1)

       -3*fer(u,1,0)*bos(u,0,0)*der(1)

       +3*fer(u,1,0)*d(1)*der(2)

            3
       +d(1)

       +d(-3)*bos(u,3,2)

                          2
       +2*d(-3)*bos(u,3,0)

                                     2
       -2*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*der(1)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*der(2)

       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(1)*der(2)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*der(1)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*der(2)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(1)

       -2*d(-3)*bos(u,0,2)*bos(u,0,0)

       +d(-3)*bos(u,0,2)*der(1)*der(2)

                        2
       -d(-3)*bos(u,0,1)

                        3
       -d(-3)*bos(u,0,0) *der(1)*der(2)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*bos(u,3,0)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*der(1)

       -d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*der(2)

       -d(-3)*fer(u,2,2)*der(1)

       +2*d(-3)*fer(u,2,1)*bos(u,0,0)*der(2)

       +d(-3)*fer(u,2,1)*fer(u,2,0)

       -2*d(-3)*fer(u,2,0)*bos(u,3,0)*der(1)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*der(2)

                                     2
       +2*d(-3)*fer(u,2,0)*bos(u,0,0) *der(1)

       +2*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,3,0)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(1)*der(2)

       -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*der(2)

       +d(-3)*fer(u,1,2)*der(2)

       +2*d(-3)*fer(u,1,1)*bos(u,0,0)*der(1)

       +d(-3)*fer(u,1,1)*fer(u,1,0)

       +2*d(-3)*fer(u,1,0)*bos(u,3,0)*der(2)

       +d(-3)*fer(u,1,0)*bos(u,0,1)*der(1)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *der(2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(1)*der(2)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*der(1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*der(2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,3,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(1)*der(2)

lax3:=rzut(la3,1);


lax3 := 3*bos(u,3,0)*d(1)

                     2
        -3*bos(u,0,0) *d(1)

        +3*bos(u,0,0)*d(1)*der(1)*der(2)

        -3*fer(u,2,0)*bos(u,0,0)*der(2)

        -3*fer(u,2,0)*d(1)*der(1)

        -3*fer(u,1,0)*bos(u,0,0)*der(1)

        +3*fer(u,1,0)*d(1)*der(2)

             3
        +d(1)

comm:=lax*lax3 - lax3*lax;


comm := 

        -bos(u,3,2)

        +bos(u,3,1)*d(1)

                     2
        -3*bos(u,3,0)

                                2
        +3*bos(u,3,0)*bos(u,0,0)

        -3*bos(u,3,0)*bos(u,0,0)*der(1)*der(2)

                        2
        -bos(u,3,0)*d(1)

        +3*bos(u,0,2)*bos(u,0,0)

        -bos(u,0,2)*der(1)*der(2)

        +bos(u,0,1)*d(1)*der(1)*der(2)

                     3
        +3*bos(u,0,0) *der(1)*der(2)

                     2     2
        +3*bos(u,0,0) *d(1)

                        2
        -bos(u,0,0)*d(1) *der(1)*der(2)

        +fer(u,2,2)*der(1)

        -3*fer(u,2,1)*bos(u,0,0)*der(2)

        -3*fer(u,2,1)*fer(u,2,0)

        -fer(u,2,1)*d(1)*der(1)

        +3*fer(u,2,0)*bos(u,3,0)*der(1)

                                2
        -3*fer(u,2,0)*bos(u,0,0) *der(1)

        +3*fer(u,2,0)*bos(u,0,0)*(d(1)*der(2)

           -d(-3)*bos(u,0,1)*der(1)

           -d(-3)*bos(u,0,0)*d(1)*der(1)

           -d(-3)*fer(u,1,1)

           -d(-3)*fer(u,1,0)*d(1))

                        2
        +fer(u,2,0)*d(1) *der(1)

        -fer(u,1,2)*der(2)

        -3*fer(u,1,1)*bos(u,0,0)*der(1)

        -3*fer(u,1,1)*fer(u,1,0)

        +fer(u,1,1)*d(1)*der(2)

        -3*fer(u,1,0)*bos(u,3,0)*der(2)

                                2
        +3*fer(u,1,0)*bos(u,0,0) *der(2)

        +3*fer(u,1,0)*bos(u,0,0)*(d(1)*der(1)

           +d(-3)*bos(u,0,1)*der(2)

           +d(-3)*bos(u,0,0)*d(1)*der(2)

           +d(-3)*fer(u,2,1)

           +d(-3)*fer(u,2,0)*d(1))

                        2
        -fer(u,1,0)*d(1) *der(2)

                           2
        +3*d(-3)*bos(u,3,0) *d(1)

                                      2
        -3*d(-3)*bos(u,3,0)*bos(u,0,0) *d(1)

        +3*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)*der(1)*der(2)

                              3
        +d(-3)*bos(u,3,0)*d(1)

        -3*d(-3)*bos(u,0,2)*bos(u,0,0)*d(1)

                                      2
        -6*d(-3)*bos(u,0,1)*bos(u,0,0) *der(1)*der(2)

                                           2
        -6*d(-3)*bos(u,0,1)*bos(u,0,0)*d(1)

                           3
        -3*d(-3)*bos(u,0,0) *d(1)*der(1)*der(2)

                           2     3
        -3*d(-3)*bos(u,0,0) *d(1)

                              3
        +d(-3)*bos(u,0,0)*d(1) *der(1)*der(2)

                                      2
        +3*d(-3)*fer(u,2,1)*bos(u,0,0) *der(1)

        +3*d(-3)*fer(u,2,1)*fer(u,2,0)*d(1)

        -3*d(-3)*fer(u,2,0)*bos(u,3,0)*d(1)*der(1)

        +6*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*der(1)

        -3*d(-3)*fer(u,2,0)*bos(u,0,1)*d(1)*der(2)

                                      2
        +6*d(-3)*fer(u,2,0)*bos(u,0,0) *d(1)*der(1)

                                           2
        -3*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1) *der(2)

        +6*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(1)

                              3
        -d(-3)*fer(u,2,0)*d(1) *der(1)

                                      2
        -3*d(-3)*fer(u,1,1)*bos(u,0,0) *der(2)

        +3*d(-3)*fer(u,1,1)*fer(u,1,0)*d(1)

        +3*d(-3)*fer(u,1,0)*bos(u,3,0)*d(1)*der(2)

        -6*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*der(2)

        -3*d(-3)*fer(u,1,0)*bos(u,0,1)*d(1)*der(1)

                                      2
        -6*d(-3)*fer(u,1,0)*bos(u,0,0) *d(1)*der(2)

                                           2
        -3*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1) *der(1)

                              3
        +d(-3)*fer(u,1,0)*d(1) *der(2)

com:=chan(comm);


com := 

       -d(-3)*bos(u,3,3)

       -6*d(-3)*bos(u,3,1)*bos(u,3,0)

                                     2
       +3*d(-3)*bos(u,3,1)*bos(u,0,0)

       -3*d(-3)*bos(u,3,1)*bos(u,0,0)*der(1)*der(2)

       +6*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)

       -3*d(-3)*bos(u,3,0)*bos(u,0,1)*der(1)*der(2)

       +3*d(-3)*bos(u,0,3)*bos(u,0,0)

       -d(-3)*bos(u,0,3)*der(1)*der(2)

       +3*d(-3)*bos(u,0,2)*bos(u,0,1)

                                     2
       +3*d(-3)*bos(u,0,1)*bos(u,0,0) *der(1)*der(2)

       +d(-3)*fer(u,2,3)*der(1)

       -3*d(-3)*fer(u,2,2)*bos(u,0,0)*der(2)

       -3*d(-3)*fer(u,2,2)*fer(u,2,0)

       +3*d(-3)*fer(u,2,1)*bos(u,3,0)*der(1)

       -3*d(-3)*fer(u,2,1)*bos(u,0,1)*der(2)

                                     2
       -3*d(-3)*fer(u,2,1)*bos(u,0,0) *der(1)

       -6*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)

       +3*d(-3)*fer(u,2,0)*bos(u,3,1)*der(1)

       -6*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*der(1)

       -6*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)

       -6*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)

       -d(-3)*fer(u,1,3)*der(2)

       -3*d(-3)*fer(u,1,2)*bos(u,0,0)*der(1)

       -3*d(-3)*fer(u,1,2)*fer(u,1,0)

       -3*d(-3)*fer(u,1,1)*bos(u,3,0)*der(2)

       -3*d(-3)*fer(u,1,1)*bos(u,0,1)*der(1)

                                     2
       +3*d(-3)*fer(u,1,1)*bos(u,0,0) *der(2)

       -3*d(-3)*fer(u,1,0)*bos(u,3,1)*der(2)

       +6*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*der(2)

result:=sub(der=del,com);


result := 

          -3*del(1)*del(2)*d(-3)*bos(u,3,1)*bos(u,0,0)

          -3*del(1)*del(2)*d(-3)*bos(u,3,0)*bos(u,0,1)

          -del(1)*del(2)*d(-3)*bos(u,0,3)

                                                      2
          +3*del(1)*del(2)*d(-3)*bos(u,0,1)*bos(u,0,0)

%the equation is
equ:=sub(del(1)=1,del(2)=1,d(-3)=1,result);


equ := 

       -3*bos(u,3,1)*bos(u,0,0)

       -3*bos(u,3,0)*bos(u,0,1)

       -bos(u,0,3)

                               2
       +3*bos(u,0,1)*bos(u,0,0)


clear lax,lb2,la2,lb3,la3,lax3,comm,com,result;



% we now compute the same but starting from
% different realizations of susy algebra
%
clearrules trad;


let chiral1;


lax:=d(1)+d(-3)*del(3)*bos(u,0,0);


lax := d(1)

       +del(3)*d(-3)*bos(u,0,0)

la2:=chan(lax^2);


la2 := bos(u,0,1)*d(-3)*bos(u,0,0)

                  2
       +bos(u,0,0)

            2
       +d(1)

       +2*del(3)*bos(u,0,0)

       +del(3)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -del(3)*d(-3)*bos(u,0,1)

       +2*del(2)*fer(u,1,0)*d(-3)*bos(u,0,0)

       +2*del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)

la3:=rzut(chan(lax*la2),0);


la3 := 6*bos(u,0,1)*bos(u,0,0)

                    2
       +3*bos(u,0,0) *d(1)

            3
       +d(1)

       +3*del(3)*bos(u,0,0)*d(1)

       +6*del(2)*fer(u,1,0)*bos(u,0,0)

       +6*del(1)*fer(u,2,0)*bos(u,0,0)

com:=chan(lax*la3-la3*lax);


com := 

       -3*del(3)*d(-3)*bos(u,3,1)*bos(u,0,0)

       -3*del(3)*d(-3)*bos(u,3,0)*bos(u,0,1)

       -del(3)*d(-3)*bos(u,0,3)

                                            2
       -3*del(3)*d(-3)*bos(u,0,1)*bos(u,0,0)

equ_chiral1:=sub(d(-3)=1,del(3)=1,com);


equ_chiral1 := 

               -3*bos(u,3,1)*bos(u,0,0)

               -3*bos(u,3,0)*bos(u,0,1)

               -bos(u,0,3)

                                       2
               -3*bos(u,0,1)*bos(u,0,0)

clear lax,lb2,la2,lb3,la3,lax3,lax,comm,com,result;


clearrules chiral1;


let trad;



% 21.) Conservation laws;
% we would like to check the conservations laws for our third
%generalization of susy kdv equation;
%

ham:=fcomb({{u,1,b}},3,a,b);


*** a already defined as operator 

ham := a(1)*bos(u,3,0)*bos(u,0,0)

                       3
       +a(2)*bos(u,0,0)


conserv:=dot_ham({{u,equ}},ham);


conserv := 

           -a(1)*bos(u,3,3)*bos(u,0,0)

           -9*a(1)*bos(u,3,1)*bos(u,3,0)*bos(u,0,0)

                                   3
           +3*bos(u,3,1)*bos(u,0,0) *(

              -3*a(2)

              +a(1))

                             2
           -3*a(1)*bos(u,3,0) *bos(u,0,1)

           -a(1)*bos(u,3,0)*bos(u,0,3)

                                              2
           +9*bos(u,3,0)*bos(u,0,1)*bos(u,0,0) *(

              -a(2)

              +a(1))

                                   2
           +3*bos(u,0,3)*bos(u,0,0) *(

              -a(2)

              +a(1))

           +3*a(1)*(bos(u,0,2)*bos(u,0,1)*bos(u,0,0))

                                         4
           +9*a(2)*(bos(u,0,1)*bos(u,0,0) )

           -3*a(1)*fer(u,2,2)*fer(u,2,0)*bos(u,0,0)

                                                   2
           -6*a(1)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)

                                                   2
           -6*a(1)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)

           -6*a(1)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)

           -3*a(1)*fer(u,1,2)*fer(u,1,0)*bos(u,0,0)

% we check now on susy-divergence behaviour;
%
az:=war(conserv,u);


az := {12*(3*a(2)

           +a(1)),

       6*(3*a(2)

          +a(1)),

       12*(

           -3*a(2)

           -a(1)),

       12*(

           -3*a(2)

           -a(1)),

       12*(

           -3*a(2)

           -a(1))}

solve(az);


Unknowns: {a(2),a(1)}

{{a(2)=(

        -arbcomplex(1))/3,a(1)=arbcomplex(1)}}

clear equ,ha,conserv,az;



% 22.) The residue of Lax operator
% we would like to find conservation laws for Lax susy KdV
% equation considered in the previous example
%
lax:=d(1)-d(-3)*del(1)*der(2)*bos(u,0,0);


lax := d(1)

       -del(1)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,0)

lb2:=lax^2;


lb2 := 

       -bos(u,0,0)*(d(-3)*bos(u,0,1)

          +d(-3)*bos(u,0,0)*d(1))

       -fer(u,2,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

            2
       +d(1)

       -del(1)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*d(-3)*bos(u,0,0)*d(1)*der(2)

       -del(1)*d(-3)*fer(u,2,0)*d(1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(1)

la2:=chan(lb2);


la2 := 

                  2
       -bos(u,0,0)

       -fer(u,2,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

            2
       +d(1)

       -2*del(1)*bos(u,0,0)*der(2)

       -2*del(1)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)

lb4:=la2^2;


lb4 := 

                               2
       -2*bos(u,3,0)*bos(u,0,0)

       +2*bos(u,3,0)*bos(u,0,0)*(d(-3)*bos(u,0,1)

          +d(-3)*bos(u,0,0)*d(1))

       -4*bos(u,0,2)*bos(u,0,0)

                    2
       -4*bos(u,0,1)

       -12*bos(u,0,1)*bos(u,0,0)*d(1)

       +bos(u,0,1)*(

          -d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

          +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

          +d(-3)*bos(u,0,2)

          +d(-3)*bos(u,0,1)*d(1)

          +d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          -d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

                  4
       +bos(u,0,0)

                    2     2
       -6*bos(u,0,0) *d(1)

       -fer(u,2,2)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -4*fer(u,2,1)*bos(u,0,0)*der(2)

       -fer(u,2,1)*fer(u,2,0)

       +fer(u,2,1)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +2*fer(u,2,0)*bos(u,3,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -3*fer(u,2,0)*bos(u,0,1)*der(2)

                             2
       +fer(u,2,0)*bos(u,0,0) *(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -5*fer(u,2,0)*bos(u,0,0)*d(1)*der(2)

       +6*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*(2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                           3
          +d(-3)*bos(u,0,0) *der(2)

                                2
          -d(-3)*bos(u,0,0)*d(1) *der(2)

          +2*d(-3)*fer(u,2,0)*bos(u,3,0)

                                        2
          +3*d(-3)*fer(u,2,0)*bos(u,0,0)

          -d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

          -d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

                                2
          -d(-3)*fer(u,2,0)*d(1)

          +2*d(-3)*fer(u,1,0)*bos(u,0,1)

          +2*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

          +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

          -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

          -d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

          -d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)

          -d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(1)

          -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

       -2*fer(u,1,1)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

                               2
       -4*fer(u,1,0)*bos(u,0,0) *der(2)

       +fer(u,1,0)*bos(u,0,0)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

            4
       +d(1)

       +del(1)*bos(u,3,1)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*bos(u,3,1)*d(-3)*fer(u,2,0)

       +5*del(1)*bos(u,3,0)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,2,1)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -del(1)*bos(u,0,2)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -3*del(1)*bos(u,0,1)*d(1)*der(2)

                           3
       +4*del(1)*bos(u,0,0) *der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,0,1)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,2,1)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                2
       -4*del(1)*bos(u,0,0)*d(1) *der(2)

       -del(1)*fer(u,2,2)

       -3*del(1)*fer(u,2,1)*d(1)

       +5*del(1)*fer(u,2,0)*bos(u,3,0)

                                      2
       +8*del(1)*fer(u,2,0)*bos(u,0,0)

       -2*del(1)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       -2*del(1)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

                                2
       -4*del(1)*fer(u,2,0)*d(1)

       +2*del(1)*fer(u,2,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

                                            2
       +2*del(1)*fer(u,2,0)*d(-3)*bos(u,0,0) *d(1)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *d(1)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*fer(u,1,1)*bos(u,0,0)

       +5*del(1)*fer(u,1,0)*bos(u,0,1)

       +5*del(1)*fer(u,1,0)*bos(u,0,0)*d(1)

       +2*del(1)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -2*del(1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       -2*del(1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

       -2*del(1)*fer(u,1,0)*d(-3)*bos(u,0,2)

       -2*del(1)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(1)

       -2*del(1)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -2*del(1)*d(-3)*bos(u,3,1)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)

       *fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                                3
       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

                                                     2
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1) *der(2)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                             2
       -3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       *d(1)

                                                     2
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(1)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*d(1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)

       *fer(u,2,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                            2
       -3*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                                    2
       +del(1)*d(-3)*bos(u,0,1)*d(1) *der(2)

                                          2
       -del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

                                    2
       +del(1)*d(-3)*fer(u,2,1)*d(1)

       -2*del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

                                                  2
       -2*del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0) *d(1)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)

       *fer(u,2,0)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *der(2)

       -2*del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)

       *fer(u,2,0)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*d(-3)*fer(u,2,0)*bos(u,3,1)

       -4*del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -2*del(1)*d(-3)*fer(u,1,1)*bos(u,0,1)

       -2*del(1)*d(-3)*fer(u,1,1)*bos(u,0,0)*d(1)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)*d(1)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

                                          3
       -del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)

                                               2
       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

kxk^3:=0;


   3
kxk  := 0

la4:=chan(lb4);


la4 := 

       -4*bos(u,0,2)*bos(u,0,0)

                    2
       -3*bos(u,0,1)

       -12*bos(u,0,1)*bos(u,0,0)*d(1)

       +bos(u,0,1)*(d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          -d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

                  4
       +bos(u,0,0)

                    2     2
       -6*bos(u,0,0) *d(1)

       -fer(u,2,2)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -4*fer(u,2,1)*bos(u,0,0)*der(2)

       -2*fer(u,2,1)*fer(u,2,0)

       +fer(u,2,1)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +2*fer(u,2,0)*bos(u,3,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -2*fer(u,2,0)*bos(u,0,1)*der(2)

                             2
       +fer(u,2,0)*bos(u,0,0) *(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -6*fer(u,2,0)*bos(u,0,0)*d(1)*der(2)

       +8*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*(2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*bos(u,0,2)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                           3
          +d(-3)*bos(u,0,0) *der(2)

          -d(-3)*fer(u,2,2)

          +2*d(-3)*fer(u,2,0)*bos(u,3,0)

                                        2
          +2*d(-3)*fer(u,2,0)*bos(u,0,0)

          -2*d(-3)*fer(u,1,1)*bos(u,0,0)

          -d(-3)*fer(u,1,0)*bos(u,0,1)

          -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

       -2*fer(u,1,1)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

                               2
       -4*fer(u,1,0)*bos(u,0,0) *der(2)

       +fer(u,1,0)*bos(u,0,0)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

            4
       +d(1)

       +del(1)*bos(u,3,1)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*bos(u,3,1)*d(-3)*fer(u,2,0)

       +6*del(1)*bos(u,3,0)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,2,1)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*bos(u,0,2)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -2*del(1)*bos(u,0,1)*d(1)*der(2)

                           3
       +4*del(1)*bos(u,0,0) *der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,0,1)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,2,1)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                2
       -4*del(1)*bos(u,0,0)*d(1) *der(2)

       -2*del(1)*fer(u,2,2)

       -2*del(1)*fer(u,2,1)*d(1)

       +6*del(1)*fer(u,2,0)*bos(u,3,0)

                                      2
       +8*del(1)*fer(u,2,0)*bos(u,0,0)

                                2
       -4*del(1)*fer(u,2,0)*d(1)

       -3*del(1)*fer(u,2,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*fer(u,1,1)*bos(u,0,0)

       +2*del(1)*fer(u,1,0)*bos(u,0,1)

       +6*del(1)*fer(u,1,0)*bos(u,0,0)*d(1)

       -2*del(1)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -3*del(1)*d(-3)*bos(u,3,1)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,1)*der(2)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)

       *fer(u,2,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                                3
       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,2)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                             2
       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)

       *fer(u,2,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*bos(u,0,3)*der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                            2
       -3*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,3)

       -2*del(1)*d(-3)*fer(u,2,1)*bos(u,3,0)

                                            2
       -3*del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

       +3*del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)

       *fer(u,2,0)

       -del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *der(2)

       -2*del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)

       *fer(u,2,0)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -3*del(1)*d(-3)*fer(u,2,0)*bos(u,3,1)

       -3*del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

       +3*del(1)*d(-3)*fer(u,1,2)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,1,1)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,2)

                                          3
       -del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)

lc4:=sub(kxk=1,qq=-3,sub(d(-3)=kxk*d(qq),la4));


lc4 := 

       -4*bos(u,0,2)*bos(u,0,0)

                    2
       -3*bos(u,0,1)

       -12*bos(u,0,1)*bos(u,0,0)*d(1)

       +bos(u,0,1)*(d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          -d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

                  4
       +bos(u,0,0)

                    2     2
       -6*bos(u,0,0) *d(1)

       -fer(u,2,2)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -4*fer(u,2,1)*bos(u,0,0)*der(2)

       -2*fer(u,2,1)*fer(u,2,0)

       +fer(u,2,1)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +2*fer(u,2,0)*bos(u,3,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -2*fer(u,2,0)*bos(u,0,1)*der(2)

                             2
       +fer(u,2,0)*bos(u,0,0) *(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -6*fer(u,2,0)*bos(u,0,0)*d(1)*der(2)

       +8*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*(2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*bos(u,0,2)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                           3
          +d(-3)*bos(u,0,0) *der(2)

          -d(-3)*fer(u,2,2)

          +2*d(-3)*fer(u,2,0)*bos(u,3,0)

                                        2
          +2*d(-3)*fer(u,2,0)*bos(u,0,0)

          -2*d(-3)*fer(u,1,1)*bos(u,0,0)

          -d(-3)*fer(u,1,0)*bos(u,0,1)

          -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

       -2*fer(u,1,1)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

                               2
       -4*fer(u,1,0)*bos(u,0,0) *der(2)

       +fer(u,1,0)*bos(u,0,0)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

            4
       +d(1)

       +del(1)*bos(u,3,1)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*bos(u,3,1)*d(-3)*fer(u,2,0)

       +6*del(1)*bos(u,3,0)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,2,1)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*bos(u,0,2)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -2*del(1)*bos(u,0,1)*d(1)*der(2)

                           3
       +4*del(1)*bos(u,0,0) *der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

                         2
       -del(1)*bos(u,0,0) *d(-3)*bos(u,0,1)*der(2)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,2,1)

                         2
       -del(1)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                2
       -4*del(1)*bos(u,0,0)*d(1) *der(2)

       -2*del(1)*fer(u,2,2)

       -2*del(1)*fer(u,2,1)*d(1)

       +6*del(1)*fer(u,2,0)*bos(u,3,0)

                                      2
       +8*del(1)*fer(u,2,0)*bos(u,0,0)

                                2
       -4*del(1)*fer(u,2,0)*d(1)

       -3*del(1)*fer(u,2,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       -del(1)*fer(u,2,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*fer(u,1,1)*bos(u,0,0)

       +2*del(1)*fer(u,1,0)*bos(u,0,1)

       +6*del(1)*fer(u,1,0)*bos(u,0,0)*d(1)

       -2*del(1)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +2*del(1)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -3*del(1)*d(-3)*bos(u,3,1)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,1)*der(2)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*der(2)

                                                3
       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,2)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                             2
       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +del(1)*d(-3)*bos(u,0,3)*der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                               2
       -del(1)*d(-3)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                            2
       -3*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,3)

       -2*del(1)*d(-3)*fer(u,2,1)*bos(u,3,0)

                                            2
       -3*del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

       +3*del(1)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -2*del(1)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       -3*del(1)*d(-3)*fer(u,2,0)*bos(u,3,1)

       -3*del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

       +3*del(1)*d(-3)*fer(u,1,2)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,1,1)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -del(1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,2)

                                          3
       -del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)

lb5:=lax*lc4;


                              2
lb5 := 2*bos(u,3,1)*bos(u,0,0)

       +bos(u,3,1)*bos(u,0,0)*(d(-3)*bos(u,0,1)

          +d(-3)*bos(u,0,0)*d(1))

       +4*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)

       +2*bos(u,3,0)*bos(u,0,0)*(d(-3)*bos(u,3,0)*bos(u,0,0)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

          -d(-3)*bos(u,0,2)

          -d(-3)*bos(u,0,1)*d(1))

       -6*bos(u,0,3)*bos(u,0,0)

       -10*bos(u,0,2)*bos(u,0,1)

       -20*bos(u,0,2)*bos(u,0,0)*d(1)

       +bos(u,0,2)*(d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          -d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

                     2
       -15*bos(u,0,1) *d(1)

                                3
       +12*bos(u,0,1)*bos(u,0,0)

                               2
       +2*bos(u,0,1)*bos(u,0,0) *(d(-3)*bos(u,0,1)

          +d(-3)*bos(u,0,0)*d(1))

       +bos(u,0,1)*bos(u,0,0)*(

                  2
          -30*d(1)

          -3*d(-3)*bos(u,0,1)*bos(u,0,0)

          -d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

          +2*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

          -d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0))

                    4
       +5*bos(u,0,0) *d(1)

                  3
       +bos(u,0,0) *(d(-3)*bos(u,3,0)*bos(u,0,0)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(1)

          -d(-3)*bos(u,0,2)

          -d(-3)*bos(u,0,1)*d(1)

          -d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          +d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

                     2     3
       -10*bos(u,0,0) *d(1)

       +bos(u,0,0)*(

          -3*d(-3)*bos(u,3,2)*bos(u,0,0)

          -6*d(-3)*bos(u,3,1)*bos(u,0,1)

          -3*d(-3)*bos(u,3,1)*bos(u,0,0)*d(1)

          -d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,3,1)*d(-3)*bos(u,0,2)

          +d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*d(1)

                             2
          +2*d(-3)*bos(u,3,0) *bos(u,0,0)

          -3*d(-3)*bos(u,3,0)*bos(u,0,2)

          -2*d(-3)*bos(u,3,0)*bos(u,0,1)*d(1)

                                      3
          +d(-3)*bos(u,3,0)*bos(u,0,0)

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

          -3*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)

          +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)

          +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*d(1)

                                                         2
          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

                                            3
          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *d(1)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,1,0)

                                                       2
          -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0) *der(2)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*der(2)

          +d(-3)*bos(u,0,4)

          +d(-3)*bos(u,0,3)*d(1)

                                        2
          -3*d(-3)*bos(u,0,2)*bos(u,0,0)

          +3*d(-3)*bos(u,0,2)*d(-3)*bos(u,0,1)*bos(u,0,0)

          -2*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

                             2
          -3*d(-3)*bos(u,0,1) *bos(u,0,0)

                           2
          -d(-3)*bos(u,0,1) *d(-3)*bos(u,0,1)

                           2
          -d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*d(1)

                                        2
          -3*d(-3)*bos(u,0,1)*bos(u,0,0) *d(1)

          -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,2)*fer(u,1,0)

          -d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*fer(u,2,0)

          +d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

          +d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          +3*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

          -d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)

          -d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*d(1)

          +d(-3)*fer(u,2,1)*fer(u,1,1)

          -d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)*der(2)

          -3*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,1)*bos(u,0,0)

          -3*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,1)

          -2*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)

          +d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

          -d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*fer(u,2,0)

          -3*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,2,1)

          +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -2*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,3,0)

                                                   2
          -3*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

          +d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

          +d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

          -d(-3)*fer(u,1,2)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*fer(u,1,2)*d(-3)*fer(u,2,1)

          -d(-3)*fer(u,1,2)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*fer(u,1,1)*bos(u,0,1)*der(2)

          +2*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

          +d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)*der(2)

                                            3
          +d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0) *der(2)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,2,2)

          +d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                         2
          +2*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

          -2*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*bos(u,0,0)

          -2*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,1)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

          +2*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,1,0)*bos(u,0,2)*der(2)

          +d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                      3
          +d(-3)*fer(u,1,0)*bos(u,0,0) *der(2))

       -fer(u,2,3)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -5*fer(u,2,2)*bos(u,0,0)*der(2)

       +fer(u,2,2)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +3*fer(u,2,1)*bos(u,3,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -5*fer(u,2,1)*bos(u,0,1)*der(2)

                               2
       +3*fer(u,2,1)*bos(u,0,0) *(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -10*fer(u,2,1)*bos(u,0,0)*d(1)*der(2)

       +10*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,1)*(2*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*der(2)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

          -d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*bos(u,0,2)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

                           3
          +d(-3)*bos(u,0,0) *der(2)

          -d(-3)*fer(u,2,2)

          +2*d(-3)*fer(u,2,0)*bos(u,3,0)

                                        2
          +2*d(-3)*fer(u,2,0)*bos(u,0,0)

          -2*d(-3)*fer(u,1,1)*bos(u,0,0)

          -d(-3)*fer(u,1,0)*bos(u,0,1)

          -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

          +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

       +3*fer(u,2,0)*bos(u,3,1)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       +10*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*der(2)

       +fer(u,2,0)*bos(u,3,0)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          -2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          -3*d(-3)*bos(u,0,1)*der(2)

          -3*d(-3)*fer(u,2,1)

          -3*d(-3)*fer(u,1,0)*bos(u,0,0))

       -5*fer(u,2,0)*bos(u,0,2)*der(2)

       +7*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -10*fer(u,2,0)*bos(u,0,1)*d(1)*der(2)

                                3
       +10*fer(u,2,0)*bos(u,0,0) *der(2)

                               2
       -3*fer(u,2,0)*bos(u,0,0) *(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +fer(u,2,0)*bos(u,0,0)*(

                  2
          -10*d(1) *der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,1)*d(-3)*bos(u,0,1)*der(2)

          +d(-3)*bos(u,0,1)*d(-3)*fer(u,2,1)

          +d(-3)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

          +d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

          +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

          +d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

          +3*d(-3)*fer(u,2,1)*bos(u,0,0)

          +3*d(-3)*fer(u,2,0)*bos(u,0,1)

          +2*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)

          +d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,2)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*d(1))

       +10*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)

       +10*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)

       +20*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(1)

       +fer(u,2,0)*fer(u,1,0)*(

          -3*d(-3)*fer(u,2,0)*fer(u,1,0)

          +2*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

          +2*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

          +3*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2))

       +fer(u,2,0)*(

          -3*d(-3)*bos(u,3,1)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

          +d(-3)*bos(u,3,1)*d(-3)*fer(u,2,1)

          +d(-3)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -2*d(-3)*bos(u,3,0)*bos(u,0,1)*der(2)

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*der(2)

                                            3
          -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,2)

          -2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                         2
          -2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

          +2*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

          +d(-3)*bos(u,0,3)*der(2)

                           2
          -d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                           2
          -d(-3)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                        2
          -3*d(-3)*bos(u,0,1)*bos(u,0,0) *der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

          +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          +d(-3)*fer(u,2,3)

          -2*d(-3)*fer(u,2,1)*bos(u,3,0)

                                        2
          -3*d(-3)*fer(u,2,1)*bos(u,0,0)

          -d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

          -d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

          +3*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

          -2*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

          -3*d(-3)*fer(u,2,0)*bos(u,3,1)

          -3*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

          +d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

          +3*d(-3)*fer(u,1,2)*bos(u,0,0)

          +3*d(-3)*fer(u,1,1)*bos(u,0,1)

          +d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

          -d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

          -2*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*fer(u,1,0)*bos(u,0,2)

                                      3
          -d(-3)*fer(u,1,0)*bos(u,0,0) )

       -3*fer(u,1,2)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -3*fer(u,1,1)*bos(u,0,1)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

                                2
       -10*fer(u,1,1)*bos(u,0,0) *der(2)

       +3*fer(u,1,1)*bos(u,0,0)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +fer(u,1,0)*bos(u,3,0)*bos(u,0,0)*(d(-3)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0))

       -10*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*der(2)

       +fer(u,1,0)*bos(u,0,1)*(d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,0,1)*der(2)

          +d(-3)*fer(u,2,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

                                2
       -10*fer(u,1,0)*bos(u,0,0) *d(1)*der(2)

       +2*fer(u,1,0)*bos(u,0,0)*(d(-3)*bos(u,3,1)*d(-3)*bos(u,0,0)*der(2)

          +d(-3)*bos(u,3,1)*d(-3)*fer(u,2,0)

          +d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

          +d(-3)*fer(u,2,0)*bos(u,3,0)

          +d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

          +d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*d(1)

          +d(-3)*fer(u,1,0)*bos(u,0,1)

          +d(-3)*fer(u,1,0)*bos(u,0,0)*d(1))

            5
       +d(1)

       +del(1)*bos(u,3,2)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*bos(u,3,2)*d(-3)*fer(u,2,0)

       +4*del(1)*bos(u,3,1)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,3,1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*bos(u,3,1)*d(-3)*fer(u,2,1)

       -del(1)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

                           2
       -2*del(1)*bos(u,3,0) *d(-3)*bos(u,0,0)*der(2)

                           2
       -2*del(1)*bos(u,3,0) *d(-3)*fer(u,2,0)

       +2*del(1)*bos(u,3,0)*bos(u,0,1)*der(2)

                                    2
       -del(1)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,0)*der(2)

                                    2
       -del(1)*bos(u,3,0)*bos(u,0,0) *d(-3)*fer(u,2,0)

       +6*del(1)*bos(u,3,0)*bos(u,0,0)*d(1)*der(2)

       -2*del(1)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*bos(u,3,0)*d(-3)*bos(u,0,2)*der(2)

                                          3
       -del(1)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

       +del(1)*bos(u,3,0)*d(-3)*fer(u,2,2)

       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                       2
       -2*del(1)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +2*del(1)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       +del(1)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       -del(1)*bos(u,0,3)*der(2)

       +2*del(1)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*bos(u,0,2)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -4*del(1)*bos(u,0,2)*d(1)*der(2)

                         2
       +del(1)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                         2
       +del(1)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                       2
       +10*del(1)*bos(u,0,1)*bos(u,0,0) *der(2)

       -2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       -del(1)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                                2
       -6*del(1)*bos(u,0,1)*d(1) *der(2)

                           3
       +4*del(1)*bos(u,0,0) *d(1)*der(2)

                                3
       -4*del(1)*bos(u,0,0)*d(1) *der(2)

       -del(1)*fer(u,2,3)

       -4*del(1)*fer(u,2,2)*d(1)

       +2*del(1)*fer(u,2,1)*bos(u,3,0)

                                      2
       +4*del(1)*fer(u,2,1)*bos(u,0,0)

       -del(1)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

                                2
       -6*del(1)*fer(u,2,1)*d(1)

       -del(1)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*fer(u,2,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -del(1)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       -del(1)*fer(u,2,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +4*del(1)*fer(u,2,0)*bos(u,3,1)

       +6*del(1)*fer(u,2,0)*bos(u,3,0)*d(1)

       +12*del(1)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

                                      2
       +8*del(1)*fer(u,2,0)*bos(u,0,0) *d(1)

       -del(1)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       +del(1)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                3
       -4*del(1)*fer(u,2,0)*d(1)

       +del(1)*fer(u,1,2)*bos(u,0,0)

       +3*del(1)*fer(u,1,1)*bos(u,0,1)

       +4*del(1)*fer(u,1,1)*bos(u,0,0)*d(1)

       -2*del(1)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,0)*der(2)

       -2*del(1)*fer(u,1,1)*fer(u,1,0)*d(-3)*fer(u,2,0)

       -del(1)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +2*del(1)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*fer(u,1,1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +del(1)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       -4*del(1)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +3*del(1)*fer(u,1,0)*bos(u,0,2)

       +8*del(1)*fer(u,1,0)*bos(u,0,1)*d(1)

                                      3
       -2*del(1)*fer(u,1,0)*bos(u,0,0)

                                           2
       +6*del(1)*fer(u,1,0)*bos(u,0,0)*d(1)

       -del(1)*d(-3)*bos(u,3,1)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,3,1)*bos(u,3,0)*d(-3)*fer(u,2,0)

                                            2
       -2*del(1)*d(-3)*bos(u,3,1)*bos(u,0,0) *d(-3)*bos(u,0,0)*der(2)

                                            2
       -2*del(1)*d(-3)*bos(u,3,1)*bos(u,0,0) *d(-3)*fer(u,2,0)

                                 2
       -6*del(1)*d(-3)*bos(u,3,0) *bos(u,0,0)*der(2)

                                 2
       +2*del(1)*d(-3)*bos(u,3,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)*der(2)

                                 2
       +2*del(1)*d(-3)*bos(u,3,0) *d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

                                 2
       +2*del(1)*d(-3)*bos(u,3,0) *d(-3)*bos(u,0,1)*der(2)

                                 2
       +2*del(1)*d(-3)*bos(u,3,0) *d(-3)*fer(u,2,1)

                                 2
       +2*del(1)*d(-3)*bos(u,3,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,2)*der(2)

       -4*del(1)*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       -4*del(1)*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,1)*d(1)*der(2)

                                            3
       -8*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *der(2)

                                            2
       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

                                            2
       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

                                            2
       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,1)*der(2)

                                            2
       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*fer(u,2,1)

                                            2
       +2*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                                 2
       +4*del(1)*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1) *der(2)

       +3*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*fer(u,2,1)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)*der(2)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*der(2)

                                                                 3
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,2)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                                              2
       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       -2*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)*der(2)

                                                2
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*der(2)

                                                2
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1) *d(-3)*fer(u,2,0)

                                                             2
       +3*del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0) *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       *der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,3)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*bos(u,3,0)

                                                             2
       +3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,0)

       -3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       *der(2)

       +3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,3,1)

       +3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)

       *fer(u,2,0)

       -3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,2)*bos(u,0,0)

       -3*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*bos(u,0,1)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *der(2)

       +2*del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       -del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,2)

                                                           3
       +del(1)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*d(-3)*bos(u,0,3)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,0,3)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                            2
       +8*del(1)*d(-3)*bos(u,0,2)*bos(u,0,0) *der(2)

       -del(1)*d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       -del(1)*d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       -del(1)*d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*fer(u,2,1)

       -del(1)*d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                                 2
       +5*del(1)*d(-3)*bos(u,0,1) *bos(u,0,0)*der(2)

                                          3
       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *d(-3)*bos(u,0,0)*der(2)

                                          3
       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *d(-3)*fer(u,2,0)

                                             2
       +18*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0) *d(1)*der(2)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,0)

       *der(2)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,1)*d(-3)*fer(u,2,0)

       -3*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)*der(2)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *fer(u,2,0)

                                                           3
       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,2)

       -3*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                                        2
       -2*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +2*del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,1)*bos(u,0,0)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *d(1)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)

       *fer(u,1,0)

       -del(1)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*der(2)

                               5
       -del(1)*d(-3)*bos(u,0,0) *der(2)

                                 3     2
       +6*del(1)*d(-3)*bos(u,0,0) *d(1) *der(2)

                                    4
       -del(1)*d(-3)*bos(u,0,0)*d(1) *der(2)

       +2*del(1)*d(-3)*fer(u,2,2)*bos(u,3,0)

                                            2
       +4*del(1)*d(-3)*fer(u,2,2)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,2)*bos(u,0,0)*d(-3)*bos(u,0,1)

       -del(1)*d(-3)*fer(u,2,2)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

       -del(1)*d(-3)*fer(u,2,2)*fer(u,2,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,2,2)*fer(u,2,0)*d(-3)*fer(u,2,0)

       +2*del(1)*d(-3)*fer(u,2,1)*bos(u,3,0)*d(1)

       +4*del(1)*d(-3)*fer(u,2,1)*bos(u,0,1)*bos(u,0,0)

                                            2
       +8*del(1)*d(-3)*fer(u,2,1)*bos(u,0,0) *d(1)

       -del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *d(1)

       +del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

       +del(1)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*d(1)

       -4*del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,0)

                                            2
       -6*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                        2
       -16*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

                                                 2
       +4*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(1)

       +3*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)

       *fer(u,1,0)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*der(2)

       -2*del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       *der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +10*del(1)*d(-3)*fer(u,2,0)*bos(u,0,2)*bos(u,0,0)

                                            2
       +3*del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)

       +22*del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*d(1)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*fer(u,1,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

                                            4
       -5*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)

                                          3
       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0) *d(-3)*bos(u,0,1)

                                          3
       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0) *d(-3)*bos(u,0,0)*d(1)

                                             2     2
       +12*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0) *d(1)

       +2*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)

       *bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       *d(1)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,3)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,2)*d(1)

                                                                        2
       +2*del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*d(1)

                                                           3
       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*bos(u,0,0) *d(1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)

       *fer(u,2,0)

       -del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*fer(u,1,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)

       *fer(u,2,0)

                                                                      2
       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

       *der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)

       *bos(u,3,0)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)

       *bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*d(1)

       +2*del(1)*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,1)*fer(u,1,0)

       +2*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*der(2)

       +2*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)

                                                       2
       +8*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0) *der(2)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)*der(2)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *fer(u,2,0)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,1)*der(2)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,2,1)

       -4*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*bos(u,0,1)

       *der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)

       *bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)

       *bos(u,3,0)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,1)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*d(1)

       +3*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,3,0)

       *bos(u,0,0)

       -del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,2)

       -del(1)*d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       *d(1)

                                    4
       -del(1)*d(-3)*fer(u,2,0)*d(1)

       -del(1)*d(-3)*fer(u,1,2)*fer(u,1,0)*d(-3)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,2)*fer(u,1,0)*d(-3)*fer(u,2,0)

       +2*del(1)*d(-3)*fer(u,1,1)*bos(u,3,0)*bos(u,0,0)

                                            2
       -2*del(1)*d(-3)*fer(u,1,1)*bos(u,0,0) *d(-3)*bos(u,0,1)

                                            2
       -2*del(1)*d(-3)*fer(u,1,1)*bos(u,0,0) *d(-3)*bos(u,0,0)*d(1)

       -4*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)*der(2)

       +2*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *der(2)

       +2*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)

       +2*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,1)*der(2)

       +2*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*fer(u,2,1)

       +2*del(1)*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,1)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,1,0)*bos(u,3,1)*d(-3)*bos(u,0,1)

       -del(1)*d(-3)*fer(u,1,0)*bos(u,3,1)*d(-3)*bos(u,0,0)*d(1)

       -6*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,1)

       -6*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)*d(1)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *d(1)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*bos(u,0,2)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*bos(u,0,1)*d(1)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *der(2)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,3)

       +4*del(1)*d(-3)*fer(u,1,0)*bos(u,0,2)*d(1)

                                                        2
       -16*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)*d(1)

                                                 2
       +6*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(1)

       +3*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,2,0)

       *fer(u,1,0)

       -del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*der(2)

       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       *der(2)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

                                            3
       -8*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(1)

                                            2
       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*bos(u,0,0)

                                            2
       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

                                            2
       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       *d(1)

                                            2
       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*bos(u,0,2)

                                            2
       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*bos(u,0,1)*d(1)

                                            2
       +2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,2,0)*fer(u,1,0)

                                            2
       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       *der(2)

                                            2
       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)

                                            2
       -2*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)*der(2)

                                                 3
       +4*del(1)*d(-3)*fer(u,1,0)*bos(u,0,0)*d(1)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,2)*bos(u,0,0)

       +6*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,1)*bos(u,0,1)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,1)*bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)*d(1)

                                                  2
       -2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0) *bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,2)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,1)*d(1)

                                                           3
       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       *d(1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)*d(1)

                                                                              2
       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

                                                                 3
       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0) *d(1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,1,0)

                                                                            2
       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       *der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,4)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,3)*d(1)

                                                             2
       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*bos(u,0,0)

       -3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*bos(u,0,0)

       *der(2)

                                                  2
       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1) *bos(u,0,0)

                                                2
       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,1)

                                                2
       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)*d(1)

                                                             2
       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0) *d(1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)

       *bos(u,0,0)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       *d(1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,2,0)

       *fer(u,1,0)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,2)*fer(u,1,0)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*fer(u,2,0)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       *der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*fer(u,2,1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       -3*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       *d(1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*fer(u,1,1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       *der(2)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,1)*bos(u,0,0)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,1)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       *d(1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)

       *fer(u,2,0)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*fer(u,2,0)

       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)

       *der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,2,1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)

       *bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,3,0)

                                                                        2
       +3*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)

       *bos(u,0,1)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*d(1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*bos(u,0,1)*der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*fer(u,2,1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*bos(u,0,1)*der(2)

       -2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       *der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)*der(2)

                                                                 3
       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0) *der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*bos(u,3,0)

                                                                              2
       -2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,1)*bos(u,0,0)

       +2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       *d(1)

       -2*del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)*der(2)

       +del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,2)*der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *bos(u,0,0)*der(2)

       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)

       *fer(u,2,0)

                                                           3
       -del(1)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0) *der(2)

lc5:=s_part(lb5,3);


lc5 := bos(u,3,2)*d(-3)*bos(u,0,0)

       +4*bos(u,3,1)*bos(u,0,0)

       +bos(u,3,1)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

                    2
       -2*bos(u,3,0) *d(-3)*bos(u,0,0)

       +2*bos(u,3,0)*bos(u,0,1)

                             2
       -bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,0)

       +6*bos(u,3,0)*bos(u,0,0)*d(1)

       +bos(u,3,0)*(

          -2*d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,0,2)

                           3
          -d(-3)*bos(u,0,0) )

       -bos(u,0,3)

       +2*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -4*bos(u,0,2)*d(1)

                  2
       +bos(u,0,1) *d(-3)*bos(u,0,0)

                                2
       +10*bos(u,0,1)*bos(u,0,0)

       +bos(u,0,1)*bos(u,0,0)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

                         2
       -6*bos(u,0,1)*d(1)

                    3
       +4*bos(u,0,0) *d(1)

                         3
       -4*bos(u,0,0)*d(1)

       -fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +fer(u,2,1)*(d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1))

       +fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -2*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,0)

       +fer(u,1,1)*(2*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       -d(-3)*bos(u,3,1)*bos(u,3,0)*d(-3)*bos(u,0,0)

                                     2
       -2*d(-3)*bos(u,3,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

                          2
       -6*d(-3)*bos(u,3,0) *bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*bos(u,0,2)

       -4*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*bos(u,0,1)*d(1)

                                     3
       -8*d(-3)*bos(u,3,0)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,1)

                                          2
       +4*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)

       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)

                                                          3
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)

                                         2
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)

                                                      2
       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*bos(u,0,3)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                     2
       +8*d(-3)*bos(u,0,2)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,1)

                          2
       +5*d(-3)*bos(u,0,1) *bos(u,0,0)

                                   3
       -d(-3)*bos(u,0,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

                                      2
       +18*d(-3)*bos(u,0,1)*bos(u,0,0) *d(1)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,0)

       -3*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                        5
       -d(-3)*bos(u,0,0)

                          3     2
       +6*d(-3)*bos(u,0,0) *d(1)

                             4
       -d(-3)*bos(u,0,0)*d(1)

       -d(-3)*fer(u,2,2)*fer(u,2,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +2*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                               2
       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                2
       +8*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*fer(u,1,2)*fer(u,1,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,1)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                                                     2
       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +2*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*bos(u,0,0)

       +3*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*bos(u,0,1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)

                                                          3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

la5:=lc5-sub(d(-3)=0,lc5);


la5 := bos(u,3,2)*d(-3)*bos(u,0,0)

       +bos(u,3,1)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

                    2
       -2*bos(u,3,0) *d(-3)*bos(u,0,0)

                             2
       -bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,0)

       +bos(u,3,0)*(

          -2*d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,0,2)

                           3
          -d(-3)*bos(u,0,0) )

       +2*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,0)

                  2
       +bos(u,0,1) *d(-3)*bos(u,0,0)

       +bos(u,0,1)*bos(u,0,0)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

       -fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +fer(u,2,1)*(d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1))

       +fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -2*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,0)

       +fer(u,1,1)*(2*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       -d(-3)*bos(u,3,1)*bos(u,3,0)*d(-3)*bos(u,0,0)

                                     2
       -2*d(-3)*bos(u,3,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

                          2
       -6*d(-3)*bos(u,3,0) *bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*bos(u,0,2)

       -4*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*bos(u,0,1)*d(1)

                                     3
       -8*d(-3)*bos(u,3,0)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,1)

                                          2
       +4*d(-3)*bos(u,3,0)*bos(u,0,0)*d(1)

       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)

                                                          3
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)

                                         2
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)

                                                      2
       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*bos(u,0,3)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                     2
       +8*d(-3)*bos(u,0,2)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,1)

                          2
       +5*d(-3)*bos(u,0,1) *bos(u,0,0)

                                   3
       -d(-3)*bos(u,0,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

                                      2
       +18*d(-3)*bos(u,0,1)*bos(u,0,0) *d(1)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,0)

       -3*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                        5
       -d(-3)*bos(u,0,0)

                          3     2
       +6*d(-3)*bos(u,0,0) *d(1)

                             4
       -d(-3)*bos(u,0,0)*d(1)

       -d(-3)*fer(u,2,2)*fer(u,2,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +2*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                               2
       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                2
       +8*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*fer(u,1,2)*fer(u,1,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,1)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                                                     2
       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +2*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*bos(u,0,0)

       +3*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*bos(u,0,1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)

                                                          3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

ld5:=chan(la5);


ld5 := bos(u,3,2)*d(-3)*bos(u,0,0)

       -4*bos(u,3,1)*bos(u,0,0)

       +bos(u,3,1)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

                    2
       -2*bos(u,3,0) *d(-3)*bos(u,0,0)

       -2*bos(u,3,0)*bos(u,0,1)

                             2
       -bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,0)

       +4*bos(u,3,0)*bos(u,0,0)*d(1)

       +bos(u,3,0)*(

          -2*d(-3)*bos(u,3,0)*bos(u,0,0)

          +d(-3)*bos(u,0,2)

                           3
          -d(-3)*bos(u,0,0) )

       +bos(u,0,3)

       +2*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -bos(u,0,2)*d(1)

                  2
       +bos(u,0,1) *d(-3)*bos(u,0,0)

       +bos(u,0,1)*bos(u,0,0)*(

          -2*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

          -d(-3)*bos(u,0,1))

                       2
       +bos(u,0,1)*d(1)

                    3
       +6*bos(u,0,0) *d(1)

                       3
       -bos(u,0,0)*d(1)

       -fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +fer(u,2,1)*(d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

          -d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1))

       +fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -2*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,0)

       +fer(u,1,1)*(2*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

          +d(-3)*fer(u,1,0)*bos(u,0,0))

       +4*d(-3)*bos(u,3,2)*bos(u,0,0)

       -d(-3)*bos(u,3,1)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +6*d(-3)*bos(u,3,1)*bos(u,0,1)

                                     2
       -2*d(-3)*bos(u,3,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

                          2
       -6*d(-3)*bos(u,3,0) *bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                          2
       +2*d(-3)*bos(u,3,0) *d(-3)*bos(u,0,1)

       +4*d(-3)*bos(u,3,0)*bos(u,0,2)

       -4*d(-3)*bos(u,3,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                     3
       -8*d(-3)*bos(u,3,0)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

                                     2
       +2*d(-3)*bos(u,3,0)*bos(u,0,0) *d(-3)*bos(u,0,1)

       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,1)

       +2*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,2)

                                                          3
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,3)

                                         2
       +d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1) *d(-3)*bos(u,0,0)

                                                      2
       +3*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       -d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -d(-3)*bos(u,0,4)

       +d(-3)*bos(u,0,3)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                     2
       +8*d(-3)*bos(u,0,2)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,2)*bos(u,0,0)*d(-3)*bos(u,0,1)

                          2
       +5*d(-3)*bos(u,0,1) *bos(u,0,0)

                                   3
       -d(-3)*bos(u,0,1)*bos(u,0,0) *d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,1)*d(-3)*bos(u,0,0)

       -3*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,1)

       +d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,2)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

                        5
       -d(-3)*bos(u,0,0)

       -d(-3)*fer(u,2,2)*fer(u,2,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,1)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +2*d(-3)*fer(u,2,1)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,3,0)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                               2
       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*bos(u,0,0)*d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)

                                                2
       +8*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,3,0)*d(-3)

       *bos(u,0,0)

       -4*d(-3)*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,2,0)*fer(u,1,0)*d(-3)*bos(u,0,0)*d(-3)*bos(u,3,0)*bos(u,0,0)

       -d(-3)*fer(u,1,2)*fer(u,1,0)*d(-3)*bos(u,0,0)

       -4*d(-3)*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*bos(u,0,0)

       +2*d(-3)*fer(u,1,1)*fer(u,1,0)*d(-3)*bos(u,0,1)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*bos(u,0,1)*d(-3)*fer(u,2,0)*d(-3)*bos(u,0,1)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

                                     2
       -2*d(-3)*fer(u,1,0)*bos(u,0,0) *d(-3)*fer(u,1,0)*bos(u,0,0)

                                                                     2
       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,3,0)*d(-3)*fer(u,1,0)*bos(u,0,1)

       +2*d(-3)*fer(u,1,0)*d(-3)*bos(u,0,2)*d(-3)*fer(u,2,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*bos(u,0,1)*bos(u,0,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,1)*d(-3)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*bos(u,0,0)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,1)*d(-3)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,3,0)*bos(u,0,0)*d(-3)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,2)*d(-3)*bos(u,0,0)

       +3*d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*bos(u,0,0)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,2,0)*bos(u,0,1)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,2)*d(-3)*bos(u,0,1)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*bos(u,0,1)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,2)

                                                          3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,1)*d(-3)*bos(u,0,0)

       -2*d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,3,0)*bos(u,0,0)

       +d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,2)

       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,1)*bos(u,0,0)*d(-3)*bos(u,0,0)

                                                    3
       -d(-3)*fer(u,1,0)*d(-3)*fer(u,1,0)*bos(u,0,0)

konserv:=sub(d(-3)=1,d_part(ld5,-1));


konserv := 5*bos(u,3,2)*bos(u,0,0)

           +5*bos(u,3,1)*bos(u,0,1)

                         2
           -10*bos(u,3,0) *bos(u,0,0)

           +5*bos(u,3,0)*bos(u,0,2)

                                    3
           -10*bos(u,3,0)*bos(u,0,0)

           -bos(u,0,4)

                                    2
           +10*bos(u,0,2)*bos(u,0,0)

                        2
           +5*bos(u,0,1) *bos(u,0,0)

                      5
           -bos(u,0,0)

           -5*fer(u,2,1)*fer(u,2,0)*bos(u,0,0)

                                               2
           +10*fer(u,2,0)*fer(u,1,0)*bos(u,0,0)

           -5*fer(u,1,1)*fer(u,1,0)*bos(u,0,0)

clear lax,lb2,la2,lb4,kxk,la4,lc4,lb5,lc5,la5,konserv;



%22.) The N=2 SuSy Boussinesq equation
% example from Z.Popowicz Phys.LettB.319 (1993) 478-484

clearrules trad;


let chiral;



lax:=del(1)*(d(1)^2+bos(j,0,0)*d(1)+bos(tt,0,0))*der(2);


lax := del(1)*bos(j,0,0)*d(1)*der(2)

       +del(1)*bos(tt,0,0)*der(2)

                   2
       +del(1)*d(1) *der(2)

la2:=del(1)*(d(1)+2*bos(j,0,0)/3)*der(2);


la2 := (2*del(1)*bos(j,0,0)*der(2)

        +3*del(1)*d(1)*der(2))/3

com:=sub(del(1)=1,der(2)=1,lax*la2-la2*lax);


com := (

        -2*bos(j,0,3)

        -2*bos(j,0,2)*bos(j,0,0)

        -3*bos(j,0,2)*d(1)

        -2*bos(j,0,1)*bos(j,0,0)*d(1)

        +3*bos(tt,0,2)

        +2*bos(tt,0,1)*bos(j,0,0)

        +6*bos(tt,0,1)*d(1)

        -2*bos(tt,0,0)*bos(j,0,1)

        -2*fer(j,2,1)*fer(j,1,0)

        +2*fer(tt,2,0)*fer(j,1,0)

        +2*fer(tt,1,0)*fer(j,2,0))/3

operator boss;


boss(j,t):=d_part(com,1);


boss(j,t) := (

              -3*bos(j,0,2)

              -2*bos(j,0,1)*bos(j,0,0)

              +6*bos(tt,0,1))/3

boss(tt,t):=d_part(com,0);


boss(tt,t) := (

               -2*bos(j,0,3)

               -2*bos(j,0,2)*bos(j,0,0)

               +3*bos(tt,0,2)

               +2*bos(tt,0,1)*bos(j,0,0)

               -2*bos(tt,0,0)*bos(j,0,1)

               -2*fer(j,2,1)*fer(j,1,0)

               +2*fer(tt,2,0)*fer(j,1,0)

               +2*fer(tt,1,0)*fer(j,2,0))/3


% let us shift bos(tt,0,0) to

bos(tt,0,0):=bos(tx,0,0)/2+bos(j,0,0)**2/6 + bos(j,0,1)/2;


bos(tt,0,0) := (3*bos(j,0,1)

                           2
                +bos(j,0,0)

                +3*bos(tx,0,0))/6

bos(tt,0,1):=pg(1,bos(tt,0,0));


bos(tt,0,1) := (3*bos(j,0,2)

                +2*bos(j,0,1)*bos(j,0,0)

                +3*bos(tx,0,1))/6

bos(tt,0,2):=pg(1,bos(tt,0,1));


bos(tt,0,2) := (3*bos(j,0,3)

                +2*bos(j,0,2)*bos(j,0,0)

                             2
                +2*bos(j,0,1)

                +3*bos(tx,0,2))/6

fer(tt,1,0):=pr(1,bos(tt,0,0));


fer(tt,1,0) := (3*fer(j,1,1)

                +2*fer(j,1,0)*bos(j,0,0)

                +3*fer(tx,1,0))/6

fer(tt,2,0):=pr(2,bos(tt,0,0));


fer(tt,2,0) := (3*fer(j,2,1)

                +2*fer(j,2,0)*bos(j,0,0)

                +3*fer(tx,2,0))/6


% then the equations of motion are;

bos(j,t):=boss(j,t);


bos(j,t) := bos(tx,0,1)

bos(tx,t):=2*(boss(tt,t) - boss(j,t)*bos(j,0,0)/3-
            pg(1,boss(j,t))/2);


bos(tx,t) := (

              -3*bos(j,0,3)

                                      2
              +2*bos(j,0,1)*bos(j,0,0)

              -6*bos(tx,0,0)*bos(j,0,1)

              -6*fer(j,2,1)*fer(j,1,0)

              -6*fer(j,2,0)*fer(j,1,1)

              +6*fer(tx,2,0)*fer(j,1,0)

              +6*fer(tx,1,0)*fer(j,2,0))/9


clear lax,la2;


clearrules chiral;


let trad;



%23.) the Jacobi identity;
% we will find the N=2 susy extension of the Virasoro algebra.
% First we found the most general form of the susy-pseudo-differential
% element of the dimension two.

vira:=pse_ele(2,{{f,1,b}},a);


*** a already defined as operator 

vira := a(2)*bos(f,3,0)

        +a(3)*bos(f,0,1)

                        2
        +a(4)*bos(f,0,0)

        +a(5)*bos(f,0,0)*d(1)

        +a(6)*bos(f,0,0)*der(1)*der(2)

                  2
        +a(0)*d(1)

        +a(1)*d(1)*der(1)*der(2)

        +a(7)*fer(f,2,0)*der(2)

        +a(8)*fer(f,2,0)*der(1)

        +a(9)*fer(f,1,0)*der(2)

        +a(10)*fer(f,1,0)*der(1)


% This vira should be antisymmetrical so we found

ewa:=vira+cp(vira);


*** d not found 

*** der not found 

*** del not found 

ewa := bos(f,3,0)*(

          -a(9)

          +a(8)

          +a(6)

          +2*a(2))

       +bos(f,0,1)*(a(10)

          +a(7)

          -a(5)

          +2*a(3))

                         2
       +2*a(4)*bos(f,0,0)

       +2*a(6)*(bos(f,0,0)*der(1)*der(2))

       -a(6)*fer(f,2,0)*der(1)

       +a(6)*fer(f,1,0)*der(2)

                   2
       +2*a(0)*d(1)


%we first solve ewa in order to found free coefficients;

load_package groebner;


adam:=groesolve(sub(der(1)=1,der(2)=1,d(1)=1,lyst1(ewa)));


adam := {{a(10)=

                -a(7)

                +a(5)

                -2*a(3),

          a(9)=a(8)

               +2*a(2),

          a(4)=0,

          a(0)=0,

          a(6)=0}}


% we define now the most general antisymmetrical susy-pseudo-symmetrical
% element of conformal dimension two.

vira:=sub(adam,vira);


vira := a(2)*bos(f,3,0)

        +a(3)*bos(f,0,1)

        +a(5)*bos(f,0,0)*d(1)

        +fer(f,2,0)*(der(2)*a(7)

           +der(1)*a(8))

        +fer(f,1,0)*(der(2)*a(8)

           +2*der(2)*a(2)

           -der(1)*a(7)

           +der(1)*a(5)

           -2*der(1)*a(3))

        +a(1)*d(1)*der(1)*der(2)


% we make additional assumption that our Poisson tensor vira should be O(2)
% invariant under the change of susy derivatives;

dad:=odwa(vira)-vira;


dad := fer(f,2,0)*(

          -2*der(2)*a(7)

          +der(2)*a(5)

          -2*der(2)*a(3)

          -2*der(1)*a(8)

          -2*der(1)*a(2))

       +fer(f,1,0)*(

          -2*der(2)*a(8)

          -2*der(2)*a(2)

          +2*der(1)*a(7)

          -der(1)*a(5)

          +2*der(1)*a(3))

factor der;


wyr1:=sub(der(1)=1,der(2)=1,lyst1(dad));


wyr1 := {

         -2*a(7)

         +a(5)

         -2*a(3),


         -2*(a(8)

             +a(2)),


         -2*(a(8)

             +a(2)),

         2*a(7)

         -a(5)

         +2*a(3)}

remfac der;


*** der not found 

dad:=groesolve(wyr1);


dad := {{a(8)=

              -a(2),a(7)=(a(5)

            -2*a(3))/2}}

vira:=sub(dad,vira);


vira := (2*a(2)*bos(f,3,0)

         +2*a(3)*bos(f,0,1)

         +2*a(5)*(bos(f,0,0)*d(1))

         +fer(f,2,0)*(der(2)*a(5)

            -2*der(2)*a(3)

            -2*der(1)*a(2))

         +fer(f,1,0)*(2*der(2)*a(2)

            +der(1)*a(5)

            -2*der(1)*a(3))

         +2*a(1)*(d(1)*der(1)*der(2)))/2

% we check wheather it is really O(2) invariant;
vira-odwa(vira);


0

% O.K
%so
%now we check the Jacobi identity

jjacob:=fjacob(vira,f);


jjacob := (4*a(3)*a(1)*(bos(#c,3,2)*bos(#b,0,0)*bos(#a,0,0))

           +4*a(5)*a(1)*(bos(#c,3,1)*bos(#b,0,1)*bos(#a,0,0))

           -4*a(2)*a(1)*bos(#c,0,3)*bos(#b,0,0)*bos(#a,0,0)

           +4*a(5)*a(1)*(bos(#c,0,1)*bos(#b,0,0)*bos(#a,3,1))

           +4*a(3)*a(1)*(bos(#c,0,0)*bos(#b,3,2)*bos(#a,0,0))

           +4*a(5)*a(1)*(bos(#c,0,0)*bos(#b,3,1)*bos(#a,0,1))

           -4*a(2)*a(1)*bos(#c,0,0)*bos(#b,0,3)*bos(#a,0,0)

           +4*a(3)*a(1)*(bos(#c,0,0)*bos(#b,0,0)*bos(#a,3,2))

           -4*a(2)*a(1)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,3)

           +24*a(3)*a(2)*(bos(f,3,1)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,0))

                  2
           -4*a(2) *bos(f,3,0)*bos(#c,3,0)*bos(#b,0,0)*bos(#a,0,0)

           +4*bos(f,3,0)*bos(#c,0,1)*bos(#b,0,0)*bos(#a,0,0)*a(2)*(a(5)

              +3*a(3))

                  2
           -4*a(2) *bos(f,3,0)*bos(#c,0,0)*bos(#b,3,0)*bos(#a,0,0)

           +4*bos(f,3,0)*bos(#c,0,0)*bos(#b,0,1)*bos(#a,0,0)*a(2)*(a(5)

              +3*a(3))

                  2
           -4*a(2) *bos(f,3,0)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,3,0)

           +4*bos(f,3,0)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,1)*a(2)*(a(5)

              +3*a(3))

                                                                   2
           +12*bos(f,0,2)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,0)*(a(3)

                   2
              -a(2) )

           +4*bos(f,0,1)*bos(#c,3,0)*bos(#b,0,0)*bos(#a,0,0)*a(2)*(a(5)

              -a(3))

           +4*bos(f,0,1)*bos(#c,0,1)*bos(#b,0,0)*bos(#a,0,0)*(2*a(5)*a(3)

                   2
              +a(3)

                     2
              -2*a(2) )

           +4*bos(f,0,1)*bos(#c,0,0)*bos(#b,3,0)*bos(#a,0,0)*a(2)*(a(5)

              -a(3))

           +4*bos(f,0,1)*bos(#c,0,0)*bos(#b,0,1)*bos(#a,0,0)*(2*a(5)*a(3)

                   2
              +a(3)

                     2
              -2*a(2) )

           +4*bos(f,0,1)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,3,0)*a(2)*(a(5)

              -a(3))

           +4*bos(f,0,1)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,1)*(2*a(5)*a(3)

                   2
              +a(3)

                     2
              -2*a(2) )

           +4*a(5)*a(2)*(bos(f,0,0)*bos(#c,3,1)*bos(#b,0,0)*bos(#a,0,0))

           +4*a(5)*a(3)*(bos(f,0,0)*bos(#c,0,2)*bos(#b,0,0)*bos(#a,0,0))

                  2
           +4*a(5) *(bos(f,0,0)*bos(#c,0,1)*bos(#b,0,1)*bos(#a,0,0))

                  2
           +4*a(5) *(bos(f,0,0)*bos(#c,0,1)*bos(#b,0,0)*bos(#a,0,1))

           +4*a(5)*a(2)*(bos(f,0,0)*bos(#c,0,0)*bos(#b,3,1)*bos(#a,0,0))

           +4*a(5)*a(3)*(bos(f,0,0)*bos(#c,0,0)*bos(#b,0,2)*bos(#a,0,0))

                  2
           +4*a(5) *(bos(f,0,0)*bos(#c,0,0)*bos(#b,0,1)*bos(#a,0,1))

           +4*a(5)*a(2)*(bos(f,0,0)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,3,1))

           +4*a(5)*a(3)*(bos(f,0,0)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,2))

           +4*a(2)*a(1)*(fer(#b,2,2)*fer(#a,2,0)*bos(#c,0,0))

           +2*fer(#b,2,2)*fer(#a,1,0)*bos(#c,0,0)*a(1)*(a(5)

              -2*a(3))

           +2*fer(#b,2,1)*fer(#a,2,0)*bos(f,0,0)*bos(#c,0,0)*a(5)*(a(5)

              -2*a(3))

           -4*a(5)*a(2)*fer(#b,2,1)*fer(#a,1,0)*bos(f,0,0)*bos(#c,0,0)

           +2*fer(#b,2,0)*fer(#a,2,0)*bos(f,3,0)*bos(#c,0,0)*a(2)*(a(5)

              -2*a(3))

                                                                2
           +fer(#b,2,0)*fer(#a,2,0)*bos(f,0,1)*bos(#c,0,0)*(a(5)

              -2*a(5)*a(3)

                     2
              +4*a(2) )

                                                                2
           +fer(#b,2,0)*fer(#a,1,0)*bos(f,3,0)*bos(#c,0,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3) )

           -4*a(3)*a(2)*fer(#b,2,0)*fer(#a,1,0)*bos(f,0,1)*bos(#c,0,0)

           +2*fer(#b,1,2)*fer(#a,2,0)*bos(#c,0,0)*a(1)*(

              -a(5)

              +2*a(3))

           +4*a(2)*a(1)*(fer(#b,1,2)*fer(#a,1,0)*bos(#c,0,0))

           +4*a(5)*a(2)*(fer(#b,1,1)*fer(#a,2,0)*bos(f,0,0)*bos(#c,0,0))

           +2*fer(#b,1,1)*fer(#a,1,0)*bos(f,0,0)*bos(#c,0,0)*a(5)*(a(5)

              -2*a(3))

           +fer(#b,1,0)*fer(#a,2,0)*bos(f,3,0)*bos(#c,0,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3) )

           +4*a(3)*a(2)*(fer(#b,1,0)*fer(#a,2,0)*bos(f,0,1)*bos(#c,0,0))

           +2*fer(#b,1,0)*fer(#a,1,0)*bos(f,3,0)*bos(#c,0,0)*a(2)*(a(5)

              -2*a(3))

                                                                2
           +fer(#b,1,0)*fer(#a,1,0)*bos(f,0,1)*bos(#c,0,0)*(a(5)

              -2*a(5)*a(3)

                     2
              +4*a(2) )

           +4*a(2)*a(1)*(fer(#c,2,2)*fer(#b,2,0)*bos(#a,0,0))

           +2*fer(#c,2,2)*fer(#b,1,0)*bos(#a,0,0)*a(1)*(a(5)

              -2*a(3))

           +2*fer(#c,2,1)*fer(#b,2,0)*bos(f,0,0)*bos(#a,0,0)*a(5)*(a(5)

              -2*a(3))

           -4*a(5)*a(2)*fer(#c,2,1)*fer(#b,1,0)*bos(f,0,0)*bos(#a,0,0)

           -4*a(2)*a(1)*fer(#c,2,0)*fer(#a,2,2)*bos(#b,0,0)

           +2*fer(#c,2,0)*fer(#a,2,1)*bos(f,0,0)*bos(#b,0,0)*a(5)*(

              -a(5)

              +2*a(3))

           +2*fer(#c,2,0)*fer(#a,2,0)*bos(f,3,0)*bos(#b,0,0)*a(2)*(

              -a(5)

              +2*a(3))

           +fer(#c,2,0)*fer(#a,2,0)*bos(f,0,1)*bos(#b,0,0)*(

                   2
              -a(5)

              +2*a(5)*a(3)

                     2
              -4*a(2) )

           +2*fer(#c,2,0)*fer(#a,1,2)*bos(#b,0,0)*a(1)*(a(5)

              -2*a(3))

           -4*a(5)*a(2)*fer(#c,2,0)*fer(#a,1,1)*bos(f,0,0)*bos(#b,0,0)

                                                                2
           +fer(#c,2,0)*fer(#a,1,0)*bos(f,3,0)*bos(#b,0,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3) )

           -4*a(3)*a(2)*fer(#c,2,0)*fer(#a,1,0)*bos(f,0,1)*bos(#b,0,0)

           +2*fer(#c,2,0)*fer(#b,2,0)*bos(f,3,0)*bos(#a,0,0)*a(2)*(a(5)

              -2*a(3))

                                                                2
           +fer(#c,2,0)*fer(#b,2,0)*bos(f,0,1)*bos(#a,0,0)*(a(5)

              -2*a(5)*a(3)

                     2
              +4*a(2) )

                                                                2
           +fer(#c,2,0)*fer(#b,1,0)*bos(f,3,0)*bos(#a,0,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3) )

           -4*a(3)*a(2)*fer(#c,2,0)*fer(#b,1,0)*bos(f,0,1)*bos(#a,0,0)

           +2*fer(#c,1,2)*fer(#b,2,0)*bos(#a,0,0)*a(1)*(

              -a(5)

              +2*a(3))

           +4*a(2)*a(1)*(fer(#c,1,2)*fer(#b,1,0)*bos(#a,0,0))

           +4*a(5)*a(2)*(fer(#c,1,1)*fer(#b,2,0)*bos(f,0,0)*bos(#a,0,0))

           +2*fer(#c,1,1)*fer(#b,1,0)*bos(f,0,0)*bos(#a,0,0)*a(5)*(a(5)

              -2*a(3))

           +2*fer(#c,1,0)*fer(#a,2,2)*bos(#b,0,0)*a(1)*(

              -a(5)

              +2*a(3))

           +4*a(5)*a(2)*(fer(#c,1,0)*fer(#a,2,1)*bos(f,0,0)*bos(#b,0,0))

           +fer(#c,1,0)*fer(#a,2,0)*bos(f,3,0)*bos(#b,0,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3) )

           +4*a(3)*a(2)*(fer(#c,1,0)*fer(#a,2,0)*bos(f,0,1)*bos(#b,0,0))

           -4*a(2)*a(1)*fer(#c,1,0)*fer(#a,1,2)*bos(#b,0,0)

           +2*fer(#c,1,0)*fer(#a,1,1)*bos(f,0,0)*bos(#b,0,0)*a(5)*(

              -a(5)

              +2*a(3))

           +2*fer(#c,1,0)*fer(#a,1,0)*bos(f,3,0)*bos(#b,0,0)*a(2)*(

              -a(5)

              +2*a(3))

           +fer(#c,1,0)*fer(#a,1,0)*bos(f,0,1)*bos(#b,0,0)*(

                   2
              -a(5)

              +2*a(5)*a(3)

                     2
              -4*a(2) )

           +fer(#c,1,0)*fer(#b,2,0)*bos(f,3,0)*bos(#a,0,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3) )

           +4*a(3)*a(2)*(fer(#c,1,0)*fer(#b,2,0)*bos(f,0,1)*bos(#a,0,0))

           +2*fer(#c,1,0)*fer(#b,1,0)*bos(f,3,0)*bos(#a,0,0)*a(2)*(a(5)

              -2*a(3))

                                                                2
           +fer(#c,1,0)*fer(#b,1,0)*bos(f,0,1)*bos(#a,0,0)*(a(5)

              -2*a(5)*a(3)

                     2
              +4*a(2) )

           +4*fer(f,2,1)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           -12*a(3)*a(2)*fer(f,2,1)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,0)

           +4*fer(f,2,1)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           -12*a(3)*a(2)*fer(f,2,1)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,0)

           +4*fer(f,2,1)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           -12*a(3)*a(2)*fer(f,2,1)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,0)

           +2*fer(f,2,0)*fer(#a,2,1)*bos(#c,0,0)*bos(#b,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +2*fer(f,2,0)*fer(#a,2,0)*bos(#c,0,1)*bos(#b,0,0)*a(5)*(a(5)

              -2*a(3))

           +4*fer(f,2,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,3,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,2,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,1)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           +2*fer(f,2,0)*fer(#a,1,1)*bos(#c,0,0)*bos(#b,0,0)*a(2)*(

              -a(5)

              -4*a(3))

           -4*a(5)*a(2)*fer(f,2,0)*fer(#a,1,0)*bos(#c,0,1)*bos(#b,0,0)

           +fer(f,2,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,3,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           -8*a(3)*a(2)*fer(f,2,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,1)

           +2*fer(f,2,0)*fer(#b,2,1)*bos(#c,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +4*fer(f,2,0)*fer(#b,2,0)*bos(#c,3,0)*bos(#a,0,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,2,0)*fer(#b,2,0)*bos(#c,0,1)*bos(#a,0,0)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           +2*fer(f,2,0)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,1)*a(5)*(a(5)

              -2*a(3))

           +2*fer(f,2,0)*fer(#b,1,1)*bos(#c,0,0)*bos(#a,0,0)*a(2)*(

              -a(5)

              -4*a(3))

           +fer(f,2,0)*fer(#b,1,0)*bos(#c,3,0)*bos(#a,0,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           -8*a(3)*a(2)*fer(f,2,0)*fer(#b,1,0)*bos(#c,0,1)*bos(#a,0,0)

           -4*a(5)*a(2)*fer(f,2,0)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,1)

           +2*fer(f,2,0)*fer(#c,2,1)*bos(#b,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +2*fer(f,2,0)*fer(#c,2,0)*bos(#b,0,1)*bos(#a,0,0)*a(5)*(a(5)

              -2*a(3))

           +4*fer(f,2,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,3,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,2,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,1)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           +2*fer(f,2,0)*fer(#c,1,1)*bos(#b,0,0)*bos(#a,0,0)*a(2)*(

              -a(5)

              -4*a(3))

           -4*a(5)*a(2)*fer(f,2,0)*fer(#c,1,0)*bos(#b,0,1)*bos(#a,0,0)

           +fer(f,2,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,3,0)*(

                   2
              -a(5)

              +4*a(5)*a(3)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           -8*a(3)*a(2)*fer(f,2,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,1)

           +12*a(3)*a(2)*(fer(f,1,1)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,0))

           +4*fer(f,1,1)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           +12*a(3)*a(2)*(fer(f,1,1)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,0))

           +4*fer(f,1,1)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           +12*a(3)*a(2)*(fer(f,1,1)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,0))

           +4*fer(f,1,1)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                   2
              +a(2) )

           +2*fer(f,1,0)*fer(#a,2,1)*bos(#c,0,0)*bos(#b,0,0)*a(2)*(a(5)

              +4*a(3))

           +4*a(5)*a(2)*(fer(f,1,0)*fer(#a,2,0)*bos(#c,0,1)*bos(#b,0,0))

                                                                2
           +fer(f,1,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,3,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3)

                     2
              -4*a(2) )

           +8*a(3)*a(2)*(fer(f,1,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,1))

           +2*fer(f,1,0)*fer(#a,1,1)*bos(#c,0,0)*bos(#b,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +2*fer(f,1,0)*fer(#a,1,0)*bos(#c,0,1)*bos(#b,0,0)*a(5)*(a(5)

              -2*a(3))

           +4*fer(f,1,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,3,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,1,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,1)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           +2*fer(f,1,0)*fer(#b,2,1)*bos(#c,0,0)*bos(#a,0,0)*a(2)*(a(5)

              +4*a(3))

                                                                2
           +fer(f,1,0)*fer(#b,2,0)*bos(#c,3,0)*bos(#a,0,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3)

                     2
              -4*a(2) )

           +8*a(3)*a(2)*(fer(f,1,0)*fer(#b,2,0)*bos(#c,0,1)*bos(#a,0,0))

           +4*a(5)*a(2)*(fer(f,1,0)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,1))

           +2*fer(f,1,0)*fer(#b,1,1)*bos(#c,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +4*fer(f,1,0)*fer(#b,1,0)*bos(#c,3,0)*bos(#a,0,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,1,0)*fer(#b,1,0)*bos(#c,0,1)*bos(#a,0,0)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) )

           +2*fer(f,1,0)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,1)*a(5)*(a(5)

              -2*a(3))

           +2*fer(f,1,0)*fer(#c,2,1)*bos(#b,0,0)*bos(#a,0,0)*a(2)*(a(5)

              +4*a(3))

           +4*a(5)*a(2)*(fer(f,1,0)*fer(#c,2,0)*bos(#b,0,1)*bos(#a,0,0))

                                                                2
           +fer(f,1,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,3,0)*(a(5)

              -4*a(5)*a(3)

                     2
              +4*a(3)

                     2
              -4*a(2) )

           +8*a(3)*a(2)*(fer(f,1,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,1))

           +2*fer(f,1,0)*fer(#c,1,1)*bos(#b,0,0)*bos(#a,0,0)*(a(5)*a(3)

                     2
              -2*a(3)

                     2
              +2*a(2) )

           +2*fer(f,1,0)*fer(#c,1,0)*bos(#b,0,1)*bos(#a,0,0)*a(5)*(a(5)

              -2*a(3))

           +4*fer(f,1,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,3,0)*a(2)*(

              -a(5)

              +2*a(3))

                                                                2
           +fer(f,1,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,1)*(a(5)

                     2
              -4*a(3)

                     2
              +4*a(2) ))/4


% we now check jjacob on the susy-divergence behaviour w.r. to the test
% superfunction !#a;

az:=war(jjacob,!#a);


az := {2*a(1)*(a(5)

               -a(3)),

       a(1)*(a(5)

             -a(3)),


       -2*a(2)*a(1),

       a(1)*(

             -a(5)

             +a(3)),


       -a(2)*a(1),

       2*a(1)*(

               -a(5)

               +a(3)),

       a(2)*a(1),

       2*a(2)*a(1),

       a(2)*(

             -a(5)

             +2*a(3)),

       a(2)*(a(5)

             -2*a(3)),

       a(5)*a(2),


              2
       -2*a(2) ,


       -a(5)*a(2),

             2
       2*a(2) ,

       2*a(5)*a(2),

       a(5)*a(2),


       -a(5)*a(2),


       -2*a(5)*a(2),

       2*a(2)*a(1),

       a(1)*(a(5)

             -a(3)),

       2*a(2)*a(1),


       -a(5)*a(2),

       2*a(2)*a(1),

       (a(2)*(a(5)

              -2*a(3)))/2,

            2
       (a(5)

        -3*a(5)*a(3)

               2
        +2*a(3)

               2
        +4*a(2) )/2,

       a(1)*(

             -a(5)

             +a(3)),

       a(5)*a(2),

       a(1)*(

             -a(5)

             +a(3)),

       2*a(2)*a(1),

       a(5)*a(2),

       2*a(2)*a(1),

       a(1)*(a(5)

             -a(3)),


       -a(5)*a(2),

       2*a(2)*a(1),

       (a(2)*(a(5)

              -2*a(3)))/2,

            2
       (a(5)

        -3*a(5)*a(3)

               2
        +2*a(3)

               2
        +4*a(2) )/2,

           2
       a(2) ,

       a(2)*(a(5)

             -a(3)),


            2
       -a(2) ,

       a(2)*(

             -a(5)

             +a(3)),

       (

             2
        -a(5)

        +3*a(5)*a(3)

               2
        -2*a(3)

               2
        +2*a(2) )/2,

       a(5)*a(2),

       (a(2)*(3*a(5)

              -4*a(3)))/2,

            2
       (a(5)

        -3*a(5)*a(3)

               2
        +2*a(3)

               2
        -2*a(2) )/2,


       -a(5)*a(2),

       (a(2)*(

              -3*a(5)

              +4*a(3)))/2,

       a(2)*(

             -a(5)

             +a(3)),

           2
       a(2) ,

       a(2)*(a(5)

             -a(3)),


            2
       -a(2) ,


       -a(5)*a(2),

       (a(2)*(

              -3*a(5)

              +4*a(3)))/2,

       (

             2
        -a(5)

        +3*a(5)*a(3)

               2
        -2*a(3)

               2
        +2*a(2) )/2,

       a(5)*a(2),

       (a(2)*(3*a(5)

              -4*a(3)))/2,

            2
       (a(5)

        -3*a(5)*a(3)

               2
        +2*a(3)

               2
        -2*a(2) )/2}

as:=groesolve(az);


as := {{a(1)=0,a(3)=a(5)/2,a(2)=0},

       {a(3)=a(5),a(2)=0,a(1)=arbcomplex(2)}}

array ew(3);



for k:=1:2 do ew(k):=part(as,k);



% as we see we have two different solutions
% first give us classical realizations of the Virasoro algebra
% (without the center term)  which is

sub(ew(1),vira);


(a(5)*bos(f,0,1)

 +2*a(5)*(bos(f,0,0)*d(1)))/2



% the second solution give us desired susy generalizations of
% Virasoro algebra

sub(ew(2),vira);


(2*a(5)*bos(f,0,1)

 +2*a(5)*(bos(f,0,0)*d(1))

 -a(5)*fer(f,2,0)*der(2)

 -a(5)*fer(f,1,0)*der(1)

 +2*arbcomplex(2)*(d(1)*der(1)*der(2)))/2


% the coefficient "a" could be absorbed by redefinations of
% bos(f,0,0)
% we check that previous result satisfies the antisymmetric requirements

ws + cp(ws);


*** d not found 

*** der not found 

*** del not found 

0


clearrules trad;


let chiral1 ;



% We check that for chiral1 realization the following operator
vira:=der(3)*d(1)+bos(j,0,1)+bos(j,0,0)*d(1)+
        fer(j,1,0)*der(2)+fer(j,2,0)*der(1);


vira := bos(j,0,1)

        +bos(j,0,0)*d(1)

        +fer(j,2,0)*der(1)

        +fer(j,1,0)*der(2)

        +d(1)*der(3)

% satisfy the Jacobi identity;
jjacob:=fjacob(vira,j);


jjacob := (2*bos(#c,3,2)*bos(#b,0,0)*bos(#a,0,0)

           +2*bos(#c,3,1)*bos(#b,0,1)*bos(#a,0,0)

           +2*bos(#c,0,1)*bos(#b,0,0)*bos(#a,3,1)

           +2*bos(#c,0,0)*bos(#b,3,2)*bos(#a,0,0)

           +2*bos(#c,0,0)*bos(#b,3,1)*bos(#a,0,1)

           +2*bos(#c,0,0)*bos(#b,0,0)*bos(#a,3,2)

           +6*bos(j,0,2)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,0)

           +6*bos(j,0,1)*bos(#c,0,1)*bos(#b,0,0)*bos(#a,0,0)

           +6*bos(j,0,1)*bos(#c,0,0)*bos(#b,0,1)*bos(#a,0,0)

           +6*bos(j,0,1)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,1)

           +2*bos(j,0,0)*bos(#c,0,2)*bos(#b,0,0)*bos(#a,0,0)

           +2*bos(j,0,0)*bos(#c,0,1)*bos(#b,0,1)*bos(#a,0,0)

           +2*bos(j,0,0)*bos(#c,0,1)*bos(#b,0,0)*bos(#a,0,1)

           +2*bos(j,0,0)*bos(#c,0,0)*bos(#b,0,2)*bos(#a,0,0)

           +2*bos(j,0,0)*bos(#c,0,0)*bos(#b,0,1)*bos(#a,0,1)

           +2*bos(j,0,0)*bos(#c,0,0)*bos(#b,0,0)*bos(#a,0,2)

           -2*fer(#b,2,2)*fer(#a,1,0)*bos(#c,0,0)

           +2*fer(#b,2,1)*fer(#a,1,0)*bos(j,0,0)*bos(#c,0,0)

           -fer(#b,2,0)*fer(#a,1,0)*bos(j,3,0)*bos(#c,0,0)

           +fer(#b,2,0)*fer(#a,1,0)*bos(j,0,1)*bos(#c,0,0)

           +2*fer(#b,1,2)*fer(#a,2,0)*bos(#c,0,0)

           +2*fer(#b,1,1)*fer(#a,2,0)*bos(j,0,0)*bos(#c,0,0)

           +fer(#b,1,0)*fer(#a,2,0)*bos(j,3,0)*bos(#c,0,0)

           +fer(#b,1,0)*fer(#a,2,0)*bos(j,0,1)*bos(#c,0,0)

           -2*fer(#c,2,2)*fer(#b,1,0)*bos(#a,0,0)

           +2*fer(#c,2,1)*fer(#b,1,0)*bos(j,0,0)*bos(#a,0,0)

           -2*fer(#c,2,0)*fer(#a,1,2)*bos(#b,0,0)

           -2*fer(#c,2,0)*fer(#a,1,1)*bos(j,0,0)*bos(#b,0,0)

           -fer(#c,2,0)*fer(#a,1,0)*bos(j,3,0)*bos(#b,0,0)

           -fer(#c,2,0)*fer(#a,1,0)*bos(j,0,1)*bos(#b,0,0)

           -fer(#c,2,0)*fer(#b,1,0)*bos(j,3,0)*bos(#a,0,0)

           +fer(#c,2,0)*fer(#b,1,0)*bos(j,0,1)*bos(#a,0,0)

           +2*fer(#c,1,2)*fer(#b,2,0)*bos(#a,0,0)

           +2*fer(#c,1,1)*fer(#b,2,0)*bos(j,0,0)*bos(#a,0,0)

           +2*fer(#c,1,0)*fer(#a,2,2)*bos(#b,0,0)

           -2*fer(#c,1,0)*fer(#a,2,1)*bos(j,0,0)*bos(#b,0,0)

           +fer(#c,1,0)*fer(#a,2,0)*bos(j,3,0)*bos(#b,0,0)

           -fer(#c,1,0)*fer(#a,2,0)*bos(j,0,1)*bos(#b,0,0)

           +fer(#c,1,0)*fer(#b,2,0)*bos(j,3,0)*bos(#a,0,0)

           +fer(#c,1,0)*fer(#b,2,0)*bos(j,0,1)*bos(#a,0,0)

           +4*fer(j,2,1)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,0)

           +4*fer(j,2,1)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,0)

           +4*fer(j,2,1)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,0)

           +2*fer(j,2,0)*fer(#a,1,1)*bos(#c,0,0)*bos(#b,0,0)

           +2*fer(j,2,0)*fer(#a,1,0)*bos(#c,0,1)*bos(#b,0,0)

           +fer(j,2,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,3,0)

           +3*fer(j,2,0)*fer(#a,1,0)*bos(#c,0,0)*bos(#b,0,1)

           +2*fer(j,2,0)*fer(#b,1,1)*bos(#c,0,0)*bos(#a,0,0)

           +fer(j,2,0)*fer(#b,1,0)*bos(#c,3,0)*bos(#a,0,0)

           +3*fer(j,2,0)*fer(#b,1,0)*bos(#c,0,1)*bos(#a,0,0)

           +2*fer(j,2,0)*fer(#b,1,0)*bos(#c,0,0)*bos(#a,0,1)

           +2*fer(j,2,0)*fer(#c,1,1)*bos(#b,0,0)*bos(#a,0,0)

           +2*fer(j,2,0)*fer(#c,1,0)*bos(#b,0,1)*bos(#a,0,0)

           +fer(j,2,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,3,0)

           +3*fer(j,2,0)*fer(#c,1,0)*bos(#b,0,0)*bos(#a,0,1)

           +4*fer(j,1,1)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,0)

           +4*fer(j,1,1)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,0)

           +4*fer(j,1,1)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,0)

           +2*fer(j,1,0)*fer(#a,2,1)*bos(#c,0,0)*bos(#b,0,0)

           +2*fer(j,1,0)*fer(#a,2,0)*bos(#c,0,1)*bos(#b,0,0)

           -fer(j,1,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,3,0)

           +3*fer(j,1,0)*fer(#a,2,0)*bos(#c,0,0)*bos(#b,0,1)

           +2*fer(j,1,0)*fer(#b,2,1)*bos(#c,0,0)*bos(#a,0,0)

           -fer(j,1,0)*fer(#b,2,0)*bos(#c,3,0)*bos(#a,0,0)

           +3*fer(j,1,0)*fer(#b,2,0)*bos(#c,0,1)*bos(#a,0,0)

           +2*fer(j,1,0)*fer(#b,2,0)*bos(#c,0,0)*bos(#a,0,1)

           +2*fer(j,1,0)*fer(#c,2,1)*bos(#b,0,0)*bos(#a,0,0)

           +2*fer(j,1,0)*fer(#c,2,0)*bos(#b,0,1)*bos(#a,0,0)

           -fer(j,1,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,3,0)

           +3*fer(j,1,0)*fer(#c,2,0)*bos(#b,0,0)*bos(#a,0,1))/2


az:=war(jjacob,!#a);


az := 0


%24 superintegration
clearrules chiral1;


let trad;




as:=s_int(0,bos(f,3,0)^2-bos(f,0,1)^2,{f});


as := 

      -bos(f,0,1)*bos(f,0,0)

                       2
      +d(-3)*bos(f,3,0)

      +d(-3)*bos(f,0,2)*bos(f,0,0)

as1:=sub(d(-3)=0,ws);


as1 := 

       -bos(f,0,1)*bos(f,0,0)

as2:=sub(d(-3)=1,as-as1);


                 2
as2 := bos(f,3,0)

       +bos(f,0,2)*bos(f,0,0)

as3:=s_int(1,as2,{f});


as3 := fer(f,2,0)*bos(f,3,0)

       +del(-1)*bos(f,0,2)*bos(f,0,0)

       -del(-1)*fer(f,2,1)*fer(f,2,0)

as4:=sub(del(-1)=0,ws);


as4 := fer(f,2,0)*bos(f,3,0)

as4:=sub(del(-1)=1,as3-as4);


as4 := bos(f,0,2)*bos(f,0,0)

       -fer(f,2,1)*fer(f,2,0)

as5:=s_int(2,as4,{f});


as5 := fer(f,2,1)*bos(f,0,0)


end;


Time for test: 28730 ms, plus GC time: 430 ms


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]