Guest User

Untitled

a guest
Jun 19th, 2018
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. $Assumptions = {
  2. Element[t1, Arrays[{3, 3, 3}, Reals, Antisymmetric[{1, 2, 3}]]]
  3. , Element[t2, Arrays[{3, 3}, Reals, Symmetric[{1, 2}]]]
  4. };
  5. t = TensorProduct[t1, t2, t2];
  6. ts = TensorSymmetry@t
  7.  
  8. p = Permutations@Range@TensorRank@t;
  9.  
  10. pli = Select[p,
  11. Not[TensorReduce@TensorTranspose[t, #] === t ||
  12. TensorReduce@TensorTranspose[t, #] === -t] &];
  13.  
  14. Length@p
  15. Length@pli
Add Comment
Please, Sign In to add comment