Wolfram Function Repository
Instant-use add-on functions for the Wolfram Language
Function Repository Resource:
Compute SO(3) representation tensor commutators and anti-commutators
| ResourceFunction["SO3TensorCommutators"][J,k1,q1,k2,q2,c] gives the commutators/anti-commutators of the SO(3) irreducible tensors T[J]k1, q1 and T[J]k2, q2. | 
The commutator of two irreducible tensors T[1/2]1,0 and T[1/2]1,-1 with angular momentum J=1/2 is given by:
| In[1]:= | ![ResourceFunction["SO3TensorCommutators"][1/2, 1, 0, 1, -1, -1]](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/37dce5e1e5c500ee.png) | 
| Out[1]= |  | 
The anti-commutator of the two tensors T[1/2]1,0 and T[1/2]1,-1 with angular momentum J=1/2 is given by:
| In[2]:= | ![ResourceFunction["SO3TensorCommutators"][1/2, 1, 0, 1, -1, 1]](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/7f4986d8cf3116ef.png) | 
| Out[2]= |  | 
The commutator of two irreducible tensors T[4]2,1 and T[4]3,-1 with large angular momentum J=4 is given by:
| In[3]:= | ![ResourceFunction["SO3TensorCommutators"][4, 2, 1, 3, -1, -1]](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/25e6ef229a998059.png) | 
| Out[3]= |  | 
The anti-commutator of two irreducible tensors T[4]2,1 and T[4]3,-1 with large angular momentum J=4 is given by:
| In[4]:= | ![ResourceFunction["SO3TensorCommutators"][4, 2, 1, 3, -1, 1]](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/22cc375a02c7e9c4.png) | 
| Out[4]= |  | 
All commutators  between two irreducible tensors
 between two irreducible tensors  and
 and  with large angular momentum J=1 are given by:
 with large angular momentum J=1 are given by:
| In[5]:= | ![Table[Subscript[
   StringReplace[ToString[Comm], "Comm" -> ""][\!\(TraditionalForm\`
\*SubscriptBox[\(T[1]\), \(1, i\)]\), \!\(TraditionalForm\`
\*SubscriptBox[\(T[1]\), \(1, j\)]\)], -1] == ResourceFunction["SO3TensorCommutators"][1, 1, i, 1, j, -1], {i, -1, 1}, {j, -1, 1}] // TableForm](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/3d5fd14921377919.png) | 
| Out[5]= |  | 
All commutators  between two irreducible tensors
 between two irreducible tensors  and
 and  with large angular momentum J=1 are given by:
 with large angular momentum J=1 are given by:
| In[6]:= | ![Table[Subscript[
   StringReplace[ToString[Comm], "Comm" -> ""][\!\(TraditionalForm\`
\*SubscriptBox[\(T[1]\), \(1, i\)]\), \!\(TraditionalForm\`
\*SubscriptBox[\(T[1]\), \(1, j\)]\)], 1] == ResourceFunction["SO3TensorCommutators"][1, 1, i, 1, j, 1], {i, -1,
    1}, {j, -1, 1}] // TableForm](https://www.wolframcloud.com/obj/resourcesystem/images/2f4/2f447c73-ea9e-40ac-b9cb-52aca8b455c3/3f37302f1fbd75de.png) | 
| Out[6]= |  | 
Wolfram Language 13.0 (December 2021) or above
This work is licensed under a Creative Commons Attribution 4.0 International License