MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: matrix substitution-> theta1 minimal Pisot quotient group


Polynomial modular quotiennt groups for the groups associate with
Pisot numbers seems an interesting technical number theory topic.

Theta1 Minimal Pisot quotient  group:
c = Table[x^n, {n, 0, 3}]
b = Table[PolynomialMod[c[[n]]*c[[m]], x^4 - x^3 - 1], {n, 1, 4}, {m, 1, 
4}];
MatrixForm[b]

4by4 Matrix solution found by Artur Jasinski in True Number egroup at yahoo:
(*e ->*)
a[0] = {{1, 0, 0, 0},
{0, 1, 0, 0},
{0, 0, 1, 0},
{0, 0, 0, 1}}
(*i ->*)
a[1] = {{0, 0, 0, 1},
{1, 0, 0, 0},
{0, 1, 0, 0},
{0, 0, 1, 1}}
(*j ->*)
a[2] = {{0, 0, 1, 1},
{0, 0, 0, 1},
{1, 0, 0, 0},
{0, 1, 1, 1}}
(*k ->*)
a[3] = {{0, 1, 1, 1},
{0, 0, 1, 1},
{0, 0, 0, 1},
{1, 1, 1, 1}}
aa = Table[a[n].a[m], {n, 0, 3}, {m, 0, 3}];
MatrixForm[aa]

It seems to check. I have no idea what use this manifold my have in 
physical terms:
in polynomial terms it is nearer to a Galois field based on x^4+1+1
than to a quaternion group.

>
>  
>


  • Prev by Date: Re: SetAccuracy formatting question
  • Next by Date: Re: using a previous result
  • Previous by thread: Plot problem with overwritting: White background of text fields?
  • Next by thread: Re: matrix substitution--> Gell-Mann su(3) as a real 6by6 matrix group by substitution