

MASTER=Table[Table[Table[Table[Table[0,{13}],{13}],{13}],{13}],{13}];

Do[{
a1=LQ[[j,1,1]]+1;
a2=LQ[[j,1,2]]+1;
a3=LQ[[j,1,3]]+1;
a4=LQ[[j,1,4]]+1;
a5=LQ[[j,1,5]]+1;
MASTER[[a1,a2,a3,a4,a5]]=LQ[[j,2]]},{j,1,Length[LQ]}]

Posdom[a2_,b2_,c2_,d2_,e2_]:=(
total=Sum[Sum[Sum[Sum[Sum[MASTER[[aa,bb,cc,dd,ee]],{aa,1,a2+1}],{bb,1,b2+1}],{cc,1,c2+1}],{dd,1,d2+1}],{ee,1,e2+1}];
total)

PosdomX[a2_,b2_,c2_,d2_,e2_]:=(
total=Table[Table[Table[Table[Table[MASTER[[aa,bb,cc,dd,ee]],{aa,1,a2+1}],{bb,1,b2+1}],{cc,1,c2+1}],{dd,1,d2+1}],{ee,1,e2+1}];
total)

(*
UU=Sign[Table[Table[Table[Table[Table[Posdom[aa,bb,cc,dd,ee],{aa,0,12}],{bb,0,10}],{cc,0,6}],{dd,0,10}],{ee,0,6}]]
*)

UU=Sign[Table[Table[Table[Table[Table[Posdom[ee,dd,cc,bb,aa],{aa,0,5}],{bb,0,5}],{cc,0,5}],{dd,0,5}],{ee,0,5}]]



Union[Flatten[UU]]
