Planar Diagrams: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
No edit summary
No edit summary
Line 14: Line 14:
<!--$$?PD$$-->
<!--$$?PD$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{HelpAndAbout1|n=2|s=PD}}
{| width=70% border=1 align=center
PD[v1, v2, ...] represents a planar diagram whose vertices are v1, v2, .... PD also acts as a "type caster", so for example, PD[K] where K is is a named knot (or link) returns the PD presentation of that knot.
|
{{HelpAndAbout2|n=3|s=PD}}
<font color=blue><tt>In[2]:=</tt></font><font color=red><code> ?PD</code></font>
The PD to GaussCode and to MorseLink conversions were written by Siddarth Sankaran at the University of Toronto in the summer of 2005.

{{HelpAndAbout3}}
<tt>PD[v1, v2, ...] represents a planar diagram whose vertices are v1, v2, .... PD also acts as a "type caster", so for example, PD[K] where K is is a named knot (or link) returns the PD presentation of that knot.</tt>
|
<font color=blue><tt>In[3]:=</tt></font><font color=red><code> PD::about</code></font>

<tt>The PD to GaussCode and to MorseLink conversions were written by Siddarth Sankaran at the University of Toronto in the summer of 2005.</tt>
|}
<!--END-->
<!--END-->


<!--$$?X$$-->
<!--$$?X$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{Help1|n=4|s=X}}
{| width=70% border=1 align=center
X[i,j,k,l] represents a crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counterclockwise through j, k and l. The (sometimes ambiguous) orientation of the upper strand is determined by the ordering of {j,l}.
|
{{Help2}}
<font color=blue><tt>In[4]:=</tt></font><font color=red><code> ?X</code></font>

<tt>X[i,j,k,l] represents a crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counterclockwise through j, k and l. The (sometimes ambiguous) orientation of the upper strand is determined by the ordering of {j,l}.</tt>
|}
<!--END-->
<!--END-->


Line 40: Line 32:
<!--$$K = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,12], X[9,4,10,5], X[11,7,12,6]];$$-->
<!--$$K = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,12], X[9,4,10,5], X[11,7,12,6]];$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{In1|n=5}}
{|
K = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,12], X[9,4,10,5], X[11,7,12,6]];
|<tt><font color=blue>In[5]:=</font></tt>
{{In2}}
|<code><font color=red> K = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,12], X[9,4,10,5], X[11,7,12,6]];</font></code>
|}
<!--END-->
<!--END-->


<!--$$Alexander[K][-1]$$-->
<!--$$Alexander[K][-1]$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{InOut1|n=6}}
{| style="color: red; font-family: courier"
Alexander[K][-1]
|<tt><font color=blue>In[6]:=</font></tt>
{{InOut2|n=6}}<pre style="border: 0px; padding: 0em">-11</pre>
|Alexander[K][-1]
{{InOut3}}
|- valign=top style="white-space: pre"
|<tt><font color=blue>Out[6]=</font></tt>
|
-11
q a
b c
|}
<!--END-->
<!--END-->


Line 66: Line 51:
<!--$$?Xp$$-->
<!--$$?Xp$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{Help1|n=7|s=Xp}}
{| width=70% border=1 align=center
Xp[i,j,k,l] represents a positive (right handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from l to j regardless of the ordering of {j,l}. Presently Xp is only lightly supported.
|
{{Help2}}
<font color=blue><tt>In[7]:=</tt></font><font color=red><code> ?Xp</code></font>

<tt>Xp[i,j,k,l] represents a positive (right handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from l to j regardless of the ordering of {j,l}. Presently Xp is only lightly supported.</tt>
|}
<!--END-->
<!--END-->


<!--$$?Xm$$-->
<!--$$?Xm$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{Help1|n=8|s=Xm}}
{| width=70% border=1 align=center
Xm[i,j,k,l] represents a negative (left handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from j to l regardless of the ordering of {j,l}. Presently Xm is only lightly supported.
|
{{Help2}}
<font color=blue><tt>In[8]:=</tt></font><font color=red><code> ?Xm</code></font>

<tt>Xm[i,j,k,l] represents a negative (left handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from j to l regardless of the ordering of {j,l}. Presently Xm is only lightly supported.</tt>
|}
<!--END-->
<!--END-->


<!--$$?P$$-->
<!--$$?P$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{Help1|n=9|s=P}}
{| width=70% border=1 align=center
P[i,j] represents a bivalent vertex whose adjacent edges are i and j (i.e., a "Point" between the segment i and the segment j). Presently P is only lightly supported.
|
{{Help2}}
<font color=blue><tt>In[9]:=</tt></font><font color=red><code> ?P</code></font>

<tt>P[i,j] represents a bivalent vertex whose adjacent edges are i and j (i.e., a "Point" between the segment i and the segment j). Presently P is only lightly supported.</tt>
|}
<!--END-->
<!--END-->


Line 98: Line 74:
<!--$$K1 = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,13], X[9,4,10,5], X[11,7,12,6], P[12,13]];$$-->
<!--$$K1 = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,13], X[9,4,10,5], X[11,7,12,6], P[12,13]];$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{In1|n=10}}
{|
K1 = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,13], X[9,4,10,5], X[11,7,12,6], P[12,13]];
|<tt><font color=blue>In[10]:=</font></tt>
{{In2}}
|<code><font color=red> K1 = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,13], X[9,4,10,5], X[11,7,12,6], P[12,13]];</font></code>
|}
<!--END-->
<!--END-->


Line 108: Line 83:
<!--$$Jones[K][q] == Jones[K1][q]$$-->
<!--$$Jones[K][q] == Jones[K1][q]$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{InOut1|n=11}}
{|
Jones[K][q] == Jones[K1][q]
|<tt><font color=blue>In[11]:=</font></tt>
{{InOut2|n=11}}<pre style="border: 0px; padding: 0em">True</pre>
|<code><font color=red> Jones[K][q] == Jones[K1][q]</font></code>
{{InOut3}}
|- valign=top
|<tt><font color=blue>Out[11]=</font></tt>
|<pre style="border: 0px; padding: 0em">True</pre>
|}
<!--END-->
<!--END-->


<!--$$?Loop$$-->
<!--$$?Loop$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{Help1|n=12|s=Loop}}
{| width=70% border=1 align=center
Loop[i] represents a crossingsless loop labeled i.
|
{{Help2}}
<font color=blue><tt>In[12]:=</tt></font><font color=red><code> ?Loop</code></font>

<tt>Loop[i] represents a crossingsless loop labeled i.</tt>
|}
<!--END-->
<!--END-->


Line 131: Line 100:
<!--$$A2Invariant[Loop[1]][q]$$-->
<!--$$A2Invariant[Loop[1]][q]$$-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
<!--The lines to END were generated by WikiSplice: do not edit; see manual.-->
{{InOut1|n=13}}
{|
A2Invariant[Loop[1]][q]
|<tt><font color=blue>In[13]:=</font></tt>
{{InOut2|n=13}}<pre style="border: 0px; padding: 0em"> -2 2
|<code><font color=red> A2Invariant[Loop[1]][q]</font></code>
|- valign=top
|<tt><font color=blue>Out[13]=</font></tt>
|<pre style="border: 0px; padding: 0em"> -2 2
1 + q + q</pre>
1 + q + q</pre>
{{InOut3}}
|}
<!--END-->
<!--END-->

Revision as of 12:14, 24 August 2005

The PD notation

In the "Planar Diagrams" (PD) presentation we present every knot or link diagram by labeling its edges (with natural numbers, 1,...,n, and with increasing labels as we go around each component) and by a list crossings presented as symbols where , , and are the labels of the edges around that crossing, starting from the incoming lower edge and proceeding counterclockwise. Thus for example, the PD presentation of the knot on the right is:

(This of course is the Miller Institute knot, the mirror image of the knot 6_2)


(For In[1] see Setup)

In[2]:= ?PD

PD[v1, v2, ...] represents a planar diagram whose vertices are v1, v2, .... PD also acts as a "type caster", so for example, PD[K] where K is is a named knot (or link) returns the PD presentation of that knot.

In[3]:= PD::about

The PD to GaussCode and to MorseLink conversions were written by Siddarth Sankaran at the University of Toronto in the summer of 2005.

In[4]:= ?X

X[i,j,k,l] represents a crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counterclockwise through j, k and l. The (sometimes ambiguous) orientation of the upper strand is determined by the ordering of {j,l}.

Thus, for example, let us compute the determinant of the above knot:

In[5]:=

K = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,12], X[9,4,10,5], X[11,7,12,6]];

In[6]:=

Alexander[K][-1]

Out[6]=
-11

Some further details

In[7]:= ?Xp

Xp[i,j,k,l] represents a positive (right handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from l to j regardless of the ordering of {j,l}. Presently Xp is only lightly supported.

In[8]:= ?Xm

Xm[i,j,k,l] represents a negative (left handed) crossing between the edges labeled i, j, k and l starting from the incoming lower strand i and going counter clockwise through j, k and l. The upper strand is therefore oriented from j to l regardless of the ordering of {j,l}. Presently Xm is only lightly supported.

In[9]:= ?P

P[i,j] represents a bivalent vertex whose adjacent edges are i and j (i.e., a "Point" between the segment i and the segment j). Presently P is only lightly supported.

For example, we could add an extra "point" on the Miller Institute knot, splitting edge 12 into two pieces, labeled 12 and 13:

In[10]:=

K1 = PD[X[1,9,2,8], X[3,10,4,11], X[5,3,6,2], X[7,1,8,13], X[9,4,10,5], X[11,7,12,6], P[12,13]];

At the moment, many of our routines do not know to ignore such "extra points". But some do:

In[11]:=

Jones[K][q] == Jones[K1][q]

Out[11]=
True
In[12]:= ?Loop

Loop[i] represents a crossingsless loop labeled i.

Hence we can verify that the A2 invariant of the unknot is :

In[13]:=

A2Invariant[Loop[1]][q]

Out[13]=
     -2    2
1 + q   + q