An Arc Presentation
of a knot
(in "grid form", to be precise) is a planar (toroidal, to be precise) picture of the knot in which all arcs are either horizontal or vertical, in which the vertical arcs are alway "above" the horizontal arcs, and in which no two horizontal arcs have the same
-coordinate and no two vertical arcs have the same
-coordinate (read more at [1]). Without loss of generality, the
-coordinates of the vertical arcs in
are the integers
through
for some
, and the
-coordinates of the horizontal arcs in
are (also!) the integers
through
.
((5,2), (1,3), (2,4), (3,5), (4,1))
Thus for example, on the left is an arc presentation
of the trefoil knot. It can be represented numerically by the sequence of ordered pairs shown below it. This sequence reads: the lowest horizontal arc in
connects the 5th vertical arc with the 2nd; the next horizontal arc in
connects the 1st vertical with the 3rd, and so on. In general, an arc presentation involving
horizontal and
vertical arcs will be described in this way by a sequence of
ordered pairs of integers in the range between
and
.
Arc presentations are used extensively in the computation of Heegaard Floer Knot Homologies.
KnotTheory`
knows about arc presentations:
(For In[1] see Setup)
In[1]:=
|
?ArcPresentation
|
ArcPresentation[{a1,b1}, {a2, b2}, ..., {an,bn}] is an arc presentation of a knot (as often used in the realm of Heegaard-Floer homologies), where the horizontal arc at row i connects column ai to column bi. ArcPresentation[K] returns an arc presentation of the knot K. ArcPresentation[K, Reduce -> r] attemps at most r reduction steps (using a naive reduction algorithm) following a naive creation of some arc presentation for K.
|
|
In[2]:=
|
ap = ArcPresentation["K11n11"]
|
Out[2]=
|
ArcPresentation[{12, 2}, {1, 10}, {3, 9}, {5, 11}, {9, 12}, {4, 8},
{2, 5}, {11, 7}, {8, 6}, {7, 4}, {10, 3}, {6, 1}]
|
In[4]:=
|
Draw[ap]
|
|
|
Out[4]=
|
-Graphics-
|
In[5]:=
|
ap0 = ArcPresentation["K11n11", Reduce -> 0]
|
Out[5]=
|
ArcPresentation[{13, 19}, {20, 23}, {19, 22}, {15, 14}, {14, 2},
{1, 13}, {3, 12}, {2, 4}, {16, 18}, {17, 15}, {8, 16}, {12, 17},
{5, 7}, {4, 6}, {7, 11}, {6, 8}, {18, 10}, {11, 9}, {10, 21},
{9, 20}, {21, 5}, {22, 3}, {23, 1}]
|
In[6]:=
|
?Draw
|
Draw[ap] draws the Arc Presentation ap. Draw[ap, OverlayMatrix -> M] overlays the matrix M on top of that draw.
|
|
In[8]:=
|
Draw[ap0]
|
|
|
Out[8]=
|
-Graphics-
|
In[9]:=
|
Reflect[ap_ArcPresentation] := ArcPresentation @@ (
(Last /@ Sort[Reverse /@ Position[ap, #]]) & /@ Range[Length[ap]]
)
|
In[11]:=
|
Reflect[ap] // Draw
|
|
|
Out[11]=
|
-Graphics-
|
The Minesweeper Matrix
(name not generally accepted) of an arc presentation
of
rows/columns is the
matrix whose
entry is the rotation number of
around a point placed between the
and
rows of
and between the
and
column of
. Here's a little program to compute the minesweeper matrix of a given arc presentation, along with its output on the arc presentation of K11n11 that we have been studying above:
In[12]:=
|
MinesweeperMatrix[ap_ArcPresentation] := Module[
{l, CurrentRow, c1, c2, k, s},
l = Length[ap];
CurrentRow = Table[0, {l}];
Table[
{c1, c2} = Sort[ap[[k]]];
s = Sign[{-1, 1}.ap[[k]]];
Do[
CurrentRow[[c]] += s,
{c, c1, c2 - 1}
];
CurrentRow,
{k, l}
]
];
|
In[14]:=
|
Draw[ap, OverlayMatrix -> MinesweeperMatrix[ap]]
|
|
|
Out[14]=
|
-Graphics-
|
If
, it is known that the determinant of the matrix
is the Alexander polynomial of the knot presented by
, up to signs and powers of
and
. Let us check this in our case:
In[15]:=
|
{Det[t^MinesweeperMatrix[ap]], Alexander[ap][t]} // Factor
|
Out[15]=
|
11 2 2 3 4 5 6
{(-1 + t) t (1 - 5 t + 13 t - 17 t + 13 t - 5 t + t ),
2 3 4 5 6
1 - 5 t + 13 t - 17 t + 13 t - 5 t + t
-------------------------------------------}
3
t
|