06-1350/Class Notes for Tuesday October 24

06-1350/Navigation Panel   # Week of... Links 1 Sep 11 About, Tue, Thu 2 Sep 18 Tue, Kurlin(P), Thu 3 Sep 25 Tue, Photo, Thu 4 Oct 2 HW1, Tue, Thu 5 Oct 9 Tue(P), Thu(P) 6 Oct 16 HW2, Tue(P), Thu(P) 7 Oct 23 Tue(P), Thu 8 Oct 30 HW3, Tue, Thu 9 Nov 6 Tue ($\nu$), Thu 10 Nov 13 Tue, Thu 11 Nov 20 HW4(P), Thu 12 Nov 27 Thu 13 Dec 4 Syzygies in Asymptote, Final Jan 8 Grades Note. (P) means "contains a problem that Dror cares about". Add your name / see who's in! On to 07-1352

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 $S_{n}$ denote the permutation group on $n$ letters and let ${\mathbb {Q} }S_{n}$ denote its group ring. Let $c:{\mathbb {Q} }S_{n}\to {\mathbb {Q} }$ be the linear functional defined via its definition on generators by $c(\sigma )=1$ if the permutation $\sigma$ is cyclic, and $c(\sigma )=0$ otherwise. Turn $c$ into a (symmetric!) bilinear form (also called $c$) on ${\mathbb {Q} }\otimes {\mathbb {Q} }$ by setting $c(\tau ,\sigma ):=c(\tau ^{-1}\sigma )$.

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

Question 2. For $n=4$, I know by a lengthy computation (see below) that $H$ is in $\ker c$, where

$H=[(12),[(13),(14)]]-(14)-(23)+(13)+(24)$

$\ \ =[2134,[3214,4231]]-4231-1324+3214+1432$

$\ \ =2341-2413-3142+4123-4231-1324+3214+1432$

(here $(jk)$ denotes the transposition of $j$ and $k$, $k_{1}k_{2}k_{3}k_{4}$ denotes the permutation for which $i\mapsto k_{i}$, and the bracket is taken in the additive sense: $[\tau ,\sigma ]:=\tau \sigma -\sigma \tau )$. Do you have quicker explanation?

The Lengthy Computation

The lengthy computation 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}