Name: Rolf Mertig Date: 11/13/13-03:11:05 PM Z


No.
There are just a few realtions which you can find in
HighEnergyPhysics/fcloops/PaVe.m :

(* ****************************************************************** *)
(* Notation : p10 = p1^2; p12 = (p1-p2)^2; etc. *)
(* ****************************************************************** *)
(* C2 –> C1, C22 –> C11, C002 –> C001, C222 –> C111, *)
(* if p10=p20 and m2=m3 *)
PaVe[2,{p10_,p12_,p10_},{m1_,m2_,m2_}] :=PaVe[1,{p10,p12,p10},{m1,m2,m2}];
PaVe[2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=PaVe[1,1,{p10,p12,p10},{m1,m2,m2}];
PaVe[0,0,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
   PaVe[0,0,1,{p10,p12,p10},{m1,m2,m2}];
PaVe[1,2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
   PaVe[1,1,2,{p10,p12,p10},{m1,m2,m2}];
PaVe[2,2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
   PaVe[1,1,1,{p10,p12,p10},{m1,m2,m2}];
(* a special case *)
 PaVe[ 2,{p10_, pp_,pp_},{m_,m_,m2_} ]:=
  - 2 PaVe[1,{p10,pp,pp},{m,m,m2}] - PaVe[0,{p10,pp,pp},{m,m,m2}];