Espinores 
Cálculos desarrollados en el Apéndice 3.3 de las Notas del Curso
			Teoría cinemática de Partículas Elementales con espín
***********************************************
 Espinores de espin 1/2 en la representacion bidimensional como vectores propios de W3 y de T3  segun las Notas (3.69)-(3.72) 
**********************************************)

Φ1=(Sqrt[2])(Cos[α/2]+I Cos[θ] Sin[α/2]);
Φ2=I(Sqrt[2])Sin[α/2] Sin[θ] E^(-I ϕ);
Φ3=I (Sqrt[2])Sin[α/2] Sin[θ] E^(I ϕ);
Φ4=(Sqrt[2])(Cos[α/2]-I Cos[θ] Sin[α/2]);

(* Sus complejas conjugados *)

Φ1c=(Sqrt[2])(Cos[α/2]-I Cos[θ] Sin[α/2]);
Φ2c=-I(Sqrt[2])Sin[α/2] Sin[θ] E^(I ϕ);
Φ3c=-I (Sqrt[2])Sin[α/2] Sin[θ] E^(-I ϕ);
Φ4c=(Sqrt[2])(Cos[α/2]+I Cos[θ] Sin[α/2]);

(******************************************************
 Operadores de espin sobre la orientacion W1, W2, W3  (p.149)
y (4.73) - (4.79)
*******************************************************)

w1[f_]:=(2 Sin[θ] Cos[ϕ] D[f,α]+(Cos[θ] Cos[ϕ]/Tan[α/2]-Sin[ϕ])D[f,θ]-(Sin[ϕ]/Tan[α/2]/Sin[θ]+Cos[θ] Cos[ϕ]/Sin[θ]) D[f,ϕ])/(2I);
w2[f_]:=(2 Sin[θ] Sin[ϕ] D[f,α]+(Cos[θ] Sin[ϕ]/Tan[α/2]+Cos[ϕ])D[f,θ]-(-Cos[ϕ]/Tan[α/2]/Sin[θ]+Cos[θ] Sin[ϕ]/Sin[θ]) D[f,ϕ])/(2I);
w3[f_]:=(2 Cos[θ]  D[f,α]-Sin[θ]/Tan[α/2]D[f,θ]+ D[f,ϕ])/(2I);

Acción de W3 sobre la base anterior como vectores propios de espin 1/2 y -1/2
w3[{Φ1,Φ2,Φ3,Φ4}]-{Φ1,-Φ2,Φ3,-Φ4}/2//TrigExpand

(******************************************************
Operadores de espin sobre la orientacion, al cuadrado  W^2 =T^2,  y acción sobre la base anterior como sus vectores propios  (p.149)
*******************************************************)

wQ[f_]:=-(D[f,{α,2}]+1/Tan[α/2]D[f,α]+1/Sin[α/2]^2/4(D[f,{θ,2}]+Cos[θ]/Sin[θ] D[f,θ]+1/Sin[θ]^2D[f,{ϕ,2}]));
wQ[{Φ1,Φ2,Φ3,Φ4}]-{Φ1,Φ2,Φ3,Φ4}(1/2+1)/2//TrigFactor

(*******************************************************
Operadores de espin sobre los ejes del cuerpo T1,T2,T3, (3.53) . 
Cambio de α por -α y cambio global de signo de los Operadores W1,W2,W3 (p.149) en la parametrizacion normal y en (4.80) - (4.82) 
************************************************)

t1[f_]:=(2 Sin[θ] Cos[ϕ] D[f,α]+(Cos[θ] Cos[ϕ]/Tan[α/2]+Sin[ϕ])D[f,θ]-(Sin[ϕ]/Tan[α/2]/Sin[θ]-Cos[θ] Cos[ϕ]/Sin[θ]) D[f,ϕ])/(2I);
t2[f_]:=(2 Sin[θ] Sin[ϕ] D[f,α]+(Cos[θ] Sin[ϕ]/Tan[α/2]-Cos[ϕ])D[f,θ]-(-Cos[ϕ]/Tan[α/2]/Sin[θ]-Cos[θ] Sin[ϕ]/Sin[θ]) D[f,ϕ])/(2I);
t3[f_]:=(2 Cos[θ]  D[f,α]-Sin[θ]/Tan[α/2]D[f,θ]- D[f,ϕ])/(2I);

Acción de T3 sobre la base anterior como vectores propios de espin 1/2 y -1/2
t3[{Φ1,Φ2,Φ3,Φ4}]-{Φ1,Φ2,-Φ3,-Φ4}/2//TrigExpand

(*******************************************************
medida normalizada (3.65) y ortogonalidad de la función 1 y las Φi
***********************************************)
Integrate[Sin[α/2]^2 Sin[θ]/(4 π^2) ,{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]
Integrate[ {Φ1,Φ2,Φ3,Φ4}Sin[α/2]^2 Sin[θ]/(4 π^2) ,{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

(*******************************************************
Ortogonalidad y normalizacion de los espinores base Φi, en la medida normalizada (3.65)
***********************************************)
Integrate[Φ1c {Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Φ2c {Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Φ3c {Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Φ4c {Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

(*******************************************************
Componentes matriciales de los operadores de espin Wi en la base Φi   (3.73)
*************************************************)

{Integrate[Φ1c  w1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  w1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  w1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  w1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  w2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  w2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  w2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  w2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  w3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  w3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  w3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  w3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
Componentes matriciales de los operadores de espin Ti en la base Φi, (3.74)
*******************************************************)

{Integrate[Φ1c  t1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  t1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  t1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  t1[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  t2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  t2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  t2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  t2[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  t3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c  t3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  t3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  t3[{Φ1,Φ2,Φ3,Φ4}] Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
 Componentes de los vectores unidad del sistema del cuerpo  (p.144)  
*******************************************************)

e11=Cos[α]+Sin[θ]^2 Cos[ϕ]^2(1-Cos[α]);
e12=Cos[θ]Sin[α]+Sin[θ]^2 Sin[ϕ] Cos[ϕ](1-Cos[α]);
e13=-Sin[θ]Sin[ϕ]Sin[α]+Sin[θ] Cos[θ] Cos[ϕ](1-Cos[α]);
e21=-Cos[θ]Sin[α]+Sin[θ]^2 Sin[ϕ] Cos[ϕ](1-Cos[α]);
e22=Cos[α]+Sin[θ]^2 Sin[ϕ]^2(1-Cos[α]);
e23=Sin[θ]Cos[ϕ]Sin[α]+Sin[θ] Cos[θ] Sin[ϕ](1-Cos[α]);
e31=Sin[θ]Sin[ϕ]Sin[α]+Sin[θ] Cos[θ] Cos[ϕ](1-Cos[α]);
e32=-Sin[θ]Cos[ϕ]Sin[α]+Sin[θ] Cos[θ] Sin[ϕ](1-Cos[α]);
e33=Cos[α]+Cos[θ]^2(1-Cos[α]);

(*******************************************************
Componentes matriciales de los vectores unidad de los ejes del cuerpo  (3.75) en la base Φi, (3.74)
****************************************************)

{Integrate[Φ1c  e11{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e11{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e11{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e11{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e12{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e12{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e12{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e12{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e13{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e13{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e13{Φ1,Φ2,Φ3,Φ4}Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e13{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e21{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e21{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e21{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e21{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e22{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e22{Φ1,Φ2,Φ3,Φ4}Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e22{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e22{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e23{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e23{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e23{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e23{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e31{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e31{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e31{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e31{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e32{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e32{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e32{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e32{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Φ1c  e33{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ2c e33{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ3c  e33{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Φ4c  e33{Φ1,Φ2,Φ3,Φ4} Sin[α/2]^2 Sin[θ] /(4 π^2),{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(****************************************** 
Accion de T- =T1-iT2 y T+=T1+iT2 sobre los espinores base Φi  (p.151)
****************************************************)
{t1[Φ1]-I t2[Φ1],
t1[Φ2]-I t2[Φ2],
t1[Φ3]-I t2[Φ3]-Φ1,
t1[Φ4]-I t2[Φ4]-Φ2}//TrigExpand
{t1[Φ3]+I t2[Φ3],
t1[Φ4]+I t2[Φ4],
t1[Φ1]+I t2[Φ1]-Φ3,
t1[Φ2]+I t2[Φ2]-Φ4}//TrigExpand

(*************************************
Accion de W-=W1-iW2 y W+=W1+iW2 sobre los espinores base Φi  (p.151)
*****************************************)
{w1[Φ1]-I w2[Φ1]-Φ2,
w1[Φ3]-I w2[Φ3]-Φ4,
w1[Φ2]-I w2[Φ2],
w1[Φ4]-I w2[Φ4]}//TrigExpand
{w1[Φ1]+I w2[Φ1],
w1[Φ3]+I w2[Φ3],
w1[Φ2]+I w2[Φ2]-Φ1,
w1[Φ4]+I w2[Φ4]-Φ3}//TrigExpand

(***************************************
Armónicos esféricos en la orientación de la velocidad Ylm(β,λ) (3.78-3.80)
*********************************)

Y11=-(Sqrt[3/2])Sin[β]E^(I λ);
Y10=(Sqrt[3])Cos[β];
Y1m=(Sqrt[3/2])Sin[β]E^(-I λ);

(* Sus complejos conjugados*)

Y11c=-(Sqrt[3/2])Sin[β]E^(-I λ);
Y10c=(Sqrt[3])Cos[β];
Y1mc=(Sqrt[3/2])Sin[β]E^(I λ);

(*******************************************************
 Medida invariante normalizada de los Armonicos esfericos (3.58)
*******************************************************)
Integrate[ Sin[β]/(4 Pi),{β,0,Pi},{λ,0,2 Pi}]

(*******************************************************
 Ortogonalidad y normalizacion de los Armonicos esfericos 
*******************************************************)

Integrate[Y11c {Y11,Y10,Y1m} Sin[β]/(4 Pi),{β,0,Pi},{λ,0,2 Pi}]

Integrate[Y10c {Y11,Y10,Y1m} Sin[β]/(4 Pi),{β,0,Pi},{λ,0,2 Pi}]

Integrate[Y1mc {Y11,Y10,Y1m} Sin[β]/(4 Pi),{β,0,Pi},{λ,0,2 Pi}]

(*******************************************************
 Operadores de espin sobre la orientacion de la velocidad (β,λ), operadores Z1,Z2,Z3 , (3.56)
*******************************************************)

z1[f_]:=(Sin[λ] D[f,β]+Cos[β]/ Sin[β] Cos[λ]D[f,λ])I;
z2[f_]:=-(Cos[λ] D[f,β]-Cos[β]/ Sin[β] Sin[λ]D[f,λ])I;
z3[f_]:=-D[f,λ]I;
zQ[f_]:=-(D[f,{β,2}]+Cos[β]/Sin[β]D[f,β]+1/Sin[β]^2 D[f,{λ,2}]);

(*******************************************************
Operadores de espin con respecto al centro de carga S1=Z1+W1, etc
******************************************************)

s1[f_]:=z1[f]+w1[f];
s2[f_]:=z2[f]+w2[f];
s3[f_]:=z3[f]+w3[f];

(*******************************************************
Espinores de espin 1/2 que son vectores propios de S^2 =1/2, S3 y T3.
Son los que se denominan como vectores Ψi (3.81)-(3.84)   y  (4.87)-(4.90)
*******************************************************)
Ψ1=(Y10 Φ1 -(Sqrt[2]) Y11 Φ2)/(Sqrt[3]);
Ψ2=(-Y10 Φ2 +(Sqrt[2]) Y1m Φ1)/(Sqrt[3]);
Ψ3=(Y10 Φ3 -(Sqrt[2]) Y11 Φ4)/(Sqrt[3]);
Ψ4=(-Y10 Φ4 +(Sqrt[2]) Y1m Φ3)/(Sqrt[3]);

(* Sus complejos conjugados*)

Ψ1c=(Y10c Φ1c -(Sqrt[2]) Y11c Φ2c)/(Sqrt[3]);
Ψ2c=(-Y10c Φ2c +(Sqrt[2]) Y1mc Φ1c)/(Sqrt[3]);
Ψ3c=(Y10c Φ3c -(Sqrt[2]) Y11c Φ4c)/(Sqrt[3]);
Ψ4c=(-Y10c Φ4c +(Sqrt[2]) Y1mc Φ3c)/(Sqrt[3]);

(********************************************************
Medida invariante y normalizada de los espinores  Ψi  (p. 188)
*******************************************************)
Integrate[ Sin[α/2]^2 Sin[θ]  Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

(********************************************************
Ortogonalidad y normalizacion de los espinores base  Ψi 
*******************************************************)
Integrate[Ψ1c {Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]  Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Ψ2c {Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]  Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Ψ3c {Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]  Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

Integrate[Ψ4c {Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]  Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

(*******************************************************
 Operador de espin Z^2, y representacion matricial en la base Ψi  (3.84) 
*******************************************************)
zQ[{Ψ1,Ψ2,Ψ3,Ψ4}]-2{Ψ1,Ψ2,Ψ3,Ψ4}//TrigFactor
{Integrate[Ψ1c  zQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  zQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  zQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  zQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
 Operador de espin W^2, y representacion matricial en la base Ψi  (3.84) 
*******************************************************)

wQ[{Ψ1,Ψ2,Ψ3,Ψ4}]-3/4{Ψ1,Ψ2,Ψ3,Ψ4}//TrigFactor
{Integrate[Ψ1c  wQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  wQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  wQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  wQ[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

Operador W3 
w3[ Ψ1]-Ψ1/2//TrigFactor
Integrate[Ψ1c w3[Ψ1] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]
Integrate[Ψ2c w3[Ψ1] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]

(*******************************************************
 Operadores de espin respecto al centro de carga S1=Z1+W1, etc, representacion matricial en la base Ψi , (3.85) 
*******************************************************)

{Integrate[Ψ1c  s1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  s1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  s1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  s1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  s2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]  /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  s2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β]  /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  s2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  s2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β]  /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  s3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  s3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  s3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  s3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
 Operadores de espin respecto al centro de carga Z1,Z2,Z3, etc  y representacion matricial  en la base Ψi  (3.86) 
*******************************************************)

{Integrate[Ψ1c  z1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  z1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  z1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  z1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  z2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  z2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  z2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  z2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  z3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  z3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  z3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  z3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
Operadores de espin de la rotacion de los ejes del cuerpo W1,W2,W3, representacion matricial en la base Ψi  (3.86)  
******************************************************)

{Integrate[Ψ1c  w1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  w1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  w1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  w1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  w2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  w2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  w2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  w2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  w3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  w3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  w3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  w3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
 Operadores de espin respecto a los ejes del cuerpo T1, T2, T3, y representacion matricial en la base Ψi   (3.87)
*******************************************************)

{Integrate[Ψ1c  t1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  t1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  t1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  t1[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  t2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  t2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  t2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  t2[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  t3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  t3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  t3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  t3[{Ψ1,Ψ2,Ψ3,Ψ4}] Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

(*******************************************************
Componentes matriciales de los ejes del cuerpo en la base Ψi,    (3.88)   
*******************************************************)
{Integrate[Ψ1c  e11{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e11{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e11{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e11{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e12{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e12{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e12{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e12{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e13{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e13{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e13{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e13{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e21{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e21{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e21{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e21{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e22{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e22{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e22{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e22{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e23{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e23{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e23{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e23{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e31{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e31{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e31{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e31{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e32{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e32{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e32{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e32{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm

{Integrate[Ψ1c  e33{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ2c  e33{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ3c  e33{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ] Sin[β]/(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}],
Integrate[Ψ4c  e33{Ψ1,Ψ2,Ψ3,Ψ4} Sin[α/2]^2 Sin[θ]Sin[β] /(16 π^3),{β,0,π},{λ, 0,2π},{ϕ,0, 2π},{θ, 0,π},{α,0,2π}]}//MatrixForm