       three kinds of Euler angular unitary matrices

• To: mathgroup at smc.vnet.net
• Subject: [mg117383] three kinds of Euler angular unitary matrices
• From: Roger Bagula <roger.bagula at gmail.com>
• Date: Wed, 16 Mar 2011 06:31:07 -0500 (EST)

```These were inspired by the Cabbibo CKM matrix of flavor mixing.
They are a subset of SL(3) as unitary rotation matrix sets of three.

http://en.wikipedia.org/wiki/Neutrino_oscillations

(*Elliptic:(Real)*)
Clear[s, a]
s = {{Cos[a], Sin[a], 0},
{-Sin[a], Cos[a], 0},
{0, 0, 1}};
s = {{Cos[a], 0, Sin[a]},
{0, 1, 0},
{-Sin[a], 0, Cos[a]}};
s = {{1, 0, 0},
{0, Cos[a], Sin[a]},
{0, -Sin[a], Cos[a]}};
ExpandAll[s.s.s]
FullSimplify[%]
Table[FullSimplify[Det[s[i]]], {i, 1, 3}]

(*hyperbolic 1 :*(Real))
Clear[s, a]
s = {{Cosh[a], Sinh[a], 0},
{Sinh[a], Cosh[a], 0},
{0, 0, 1}};
s = {{Cosh[a], 0, Sinh[a]},
{0, 1, 0},
{Sinh[a], 0, Cosh[a]}};
s = {{1, 0, 0},
{0, Cosh[a], Sinh[a]},
{0, Sinh[a], Cosh[a]}};
ExpandAll[s.s.s]
FullSimplify[%]
Table[FullSimplify[Det[s[i]]], {i, 1, 3}]

(*hyperbolic 2 :Complex)*)
Clear[s, a]
s = {{Cosh[a], I*Sinh[a], 0},
{-I*Sinh[a], Cosh[a], 0},
{0, 0, 1}};
s = {{Cosh[a], 0, I*Sinh[a]},
{0, 1, 0},
{-I*Sinh[a], 0, Cosh[a]}};
s = {{1, 0, 0},
{0, Cosh[a], I*Sinh[a]},
{0, -I*Sinh[a], Cosh[a]}};
ExpandAll[s.s.s]
FullSimplify[%]
Table[FullSimplify[Det[s[i]]], {i, 1, 3}]

The result isn't the classical three mixing angles of Euler,
but 9 angles total.
They form a unitary group in analogy to U(1)*SU(3).

The problem is to find the Real {a,a,a} angle set for:
M={{0.97428, 0.2253, 0.00347},
{0.2252, 0.97345, 0.0410},
{0.00862, 0.0403, 0.999152}}
In any of the sets of three as the Cabbibo angle set
for quark interactions.

Clear[s, a, m0, m, t]
s = {{Cos[a], Sin[a], 0},
{-Sin[a], Cos[a], 0},
{0, 0, 1}};
s = {{Cos[a], 0, Sin[a]},
{0, 1, 0},
{-Sin[a], 0, Cos[a]}};
s = {{1, 0, 0},
{0, Cos[a], Sin[a]},
{0, -Sin[a], Cos[a]}};
m0 = s.s.s;
m = {{0.97428, 0.2253, 0.00347},
{0.2252, 0.97345, 0.0410},
{0.00862, 0.0403, 0.999152}};
t = m0 - m;
Flatten[Table[t[[n, m]] == 0, {n, 1, 3}, {m, 1, 3}]]
Solve[Flatten[Table[t[[n, m]] == 0, {
n, 1, 3}, {m, 1, 3}]], {a, a, a}]

Respectfully, Roger L. Bagula
11759 Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :