I have to compute all possible contractions of 4 6-rank tensors T[a,b,c,d,e,f] which have a definite symmetry(look the definition in the code).
I do the following
<< xAct`xTras`
DefTensor[T[a, b, c, d, e, f], M, TableauSymmetric[{{a, b, c}, {d, e, f}}]]
If I compute all possible contractions for 2 tensors,
AllContractions[ Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]] Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]]] // Timing
I get the answer in 0.128567 seconds.
Now, I wanto to compute
list = AllContractions[ Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]] Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]] Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]] Module[{a, b, c, d, e, f}, T[a, b, c, d, e, f]]]
Is there a way to compute the expected running time for this command? I know that this is not an speed task, but I want to understand how much time I have to wait.
If the time is too big, is there a way to speed up the command?? Thank you