06-1350/Class Notes for Tuesday October 24

From Drorbn
Jump to navigationJump to search

What Cyclic Permutations Can't See

Believe or not, but the following questions are directly related to class material - specifically, to the determination of "The Envelope of The Alexander Polynomial".

Let [math]\displaystyle{ S_n }[/math] denote the permutation group on [math]\displaystyle{ n }[/math] letters and let [math]\displaystyle{ {\mathbb Q}S_n }[/math] denote its group ring. Let [math]\displaystyle{ c:{\mathbb Q}S_n\to{\mathbb Q} }[/math] be the linear functional defined via its definition on generators by [math]\displaystyle{ c(\sigma)=1 }[/math] if the permutation [math]\displaystyle{ \sigma }[/math] is cyclic, and [math]\displaystyle{ c(\sigma)=0 }[/math] otherwise. Turn [math]\displaystyle{ c }[/math] into a (symmetric!) bilinear form (also called [math]\displaystyle{ c }[/math]) on [math]\displaystyle{ {\mathbb Q}\otimes{\mathbb Q} }[/math] by setting [math]\displaystyle{ c(\tau,\sigma):=c(\tau^{-1}\sigma) }[/math].

Question 1. Determine the kernel [math]\displaystyle{ \ker c }[/math] of the bilinear form [math]\displaystyle{ c }[/math]. (Recall that the kernel of a bilinear form [math]\displaystyle{ \gamma }[/math] is [math]\displaystyle{ \{w:\forall v,\ \gamma(v,w)=0\} }[/math].

Question 2. For [math]\displaystyle{ n=4 }[/math], I know by a lengthy computation (see below) that [math]\displaystyle{ H }[/math] is in [math]\displaystyle{ \ker c }[/math], where

[math]\displaystyle{ H = [(12),[(13),(14)]]-(14)-(23)+(13)+(24) }[/math]
[math]\displaystyle{ \ \ = [2134,[3214,4231]]-4231-1324+3214+1432 }[/math]
[math]\displaystyle{ \ \ = 2341-2413-3142+4123-4231-1324+3214+1432 }[/math]

(here [math]\displaystyle{ (jk) }[/math] denotes the transposition of [math]\displaystyle{ j }[/math] and [math]\displaystyle{ k }[/math], [math]\displaystyle{ k_1k_2k_3k_4 }[/math] denotes the permutation for which [math]\displaystyle{ i\mapsto k_i }[/math], and the bracket is taken in the additive sense: [math]\displaystyle{ [\tau,\sigma]:=\tau\sigma-\sigma\tau }[/math]). Do you have quicker explanation?

Question 3. By another lengthy computation for [math]\displaystyle{ n=4 }[/math], I also know that [math]\displaystyle{ Y_4\in\ker c }[/math], where

[math]\displaystyle{ Y_4=[(12),(23)]-[(23),(34)]+[(34),(41)]-[(41),(12)] }[/math].

Do you have quicker explanation?

Question 4. I suspect that in some sense, though I'm not sure in which, [math]\displaystyle{ H }[/math] and [math]\displaystyle{ Y_4 }[/math] generate the whole kernel or at least some easily definable special part of the kernel of [math]\displaystyle{ c }[/math] for all [math]\displaystyle{ n }[/math]. Can you make sense of that?

The Lengthy Computations

The lengthy computation for [math]\displaystyle{ H }[/math] (and likewise for [math]\displaystyle{ Y_4 }[/math]) involves multiplying 24 "test permutations" against a linear combination of 8 permutations and counting cycles in the resulting 192 permutations. Here's a Mathematica session that does that:

In[1]:= S[n_] := (P @@@ Permutations[Range[n]]); c[p_P] := If[ Length[p] == Length[NestWhileList[p[[#]] &, p[[1]], # > 1 &]], 1, 0 ]; c[x_] := x /. p_P :> c[p]; Unprotect[NonCommutativeMultiply]; p1_P ** p2_P := p1 /. Thread[Rule[Range[Length[p2]], List @@ p2]]; p1_ ** (p2_ + p3_) := p1 ** p2 + p1 ** p3; (p1_ + p2_) ** p3_ := p1 ** p3 + p2 ** p3; p1_ ** (c_*p2_P) := c p1 ** p2; (c_*p1_P) ** p2_ := c p1 ** p2; b[a_, b_] := a ** b - b ** a;


In[2]:= H = b[P[2, 1, 3, 4], b[P[3, 2, 1, 4], P[4, 2, 3, 1]]] - P[1, 3, 2, 4] + P[1, 4, 3, 2] + P[3, 2, 1, 4] - P[4, 2, 3, 1]
Out[2]= -P[1, 3, 2, 4] + P[1, 4, 3, 2] + P[2, 3, 4, 1] - P[2, 4, 1, 3] - P[3, 1, 4, 2] + P[3, 2, 1, 4] + P[4, 1, 2, 3] - P[4, 2, 3, 1]


In[3]:= c[# ** H] & /@ S[4]
Out[3]= {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}


In[4]:= Y4 = b[P[2, 1, 3, 4], P[1, 3, 2, 4]] - b[P[1, 3, 2, 4], P[1, 2, 4, 3]] + b[P[1, 2, 4, 3], P[4, 2, 3, 1]] - b[P[4, 2, 3, 1], P[2, 1, 3, 4]]
Out[4]= P[1, 3, 4, 2] - P[1, 4, 2, 3] - P[2, 3, 1, 4] + P[2, 4, 3, 1] + P[3, 1, 2, 4] - P[3, 2, 4, 1] - P[4, 1, 3, 2] + P[4, 2, 1, 3]


In[5]:= c[# ** Y4] & /@ S[4]
Out[5]= {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}