Link Splice Base - Revision history

Drorbn at 21:11, 18 September 2005

2005-09-18T21:11:55Z

@@ Line 15: / Line 15: @@
                       Images -> {"BraidPart0.gif", "BraidPart1.gif",
                      "BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> |
-khovanov_table  = <*TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]*> |
+khovanov_table  = <*TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]*>

Drorbn at 22:31, 2 September 2005

2005-09-02T22:31:01Z

← Older revision		Revision as of 18:31, 2 September 2005
Line 12:		Line 12:
	k = <k> \|		k = <k> \|
	KnotilusURL = <KnotilusURL[K]> \|		KnotilusURL = <KnotilusURL[K]> \|
			braid_table = <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki",
			Images -> {"BraidPart0.gif", "BraidPart1.gif",
			"BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> \|
	khovanov_table = <TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]> \|		khovanov_table = <TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]> \|
	computer_talk =		computer_talk =
Line 20:		Line 23:
	</tr>		</tr>
	<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>		<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>
⚫	</table>
	<InOut["Crossings[``]", K]>		<InOut["Crossings[``]", K]>
	<InOut["Length[Skeleton[``]]", K]>		<InOut["Length[Skeleton[``]]", K]>
	<InOut["PD[``]", K]>		<InOut["PD[``]", K]>
	<InOut["GaussCode[``]", K]>		<InOut["GaussCode[``]", K]>
			<InOut["BR[``]", K]>
	<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>		<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>
	<InOut["KnotSignature[`1`]", K]>		<InOut["KnotSignature[`1`]", K]>
Line 31:		Line 34:
	<InOut["HOMFLYPT[``][a, z]", K]>		<InOut["HOMFLYPT[``][a, z]", K]>
	<InOut["Kauffman[``][a, z]", K]>		<InOut["Kauffman[``][a, z]", K]>
	<InOut["Kh[``][q, t]", K]> }}		<InOut["Kh[``][q, t]", K]>
		⚫	</table> }}

Scott at 21:00, 1 September 2005

2005-09-01T21:00:08Z

← Older revision		Revision as of 17:00, 1 September 2005
Line 20:		Line 20:
	</tr>		</tr>
	<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>		<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>
		⚫	</table>
	<InOut["Crossings[``]", K]>		<InOut["Crossings[``]", K]>
	<InOut["Length[Skeleton[``]]", K]>		<InOut["Length[Skeleton[``]]", K]>
Line 30:		Line 31:
	<InOut["HOMFLYPT[``][a, z]", K]>		<InOut["HOMFLYPT[``][a, z]", K]>
	<InOut["Kauffman[``][a, z]", K]>		<InOut["Kauffman[``][a, z]", K]>
	<InOut["Kh[``][q, t]", K]>		<InOut["Kh[``][q, t]", K]> }}
⚫	</table> }}

Drorbn at 16:32, 31 August 2005

2005-08-31T16:32:39Z

← Older revision		Revision as of 12:32, 31 August 2005
Line 24:		Line 24:
	<InOut["PD[``]", K]>		<InOut["PD[``]", K]>
	<InOut["GaussCode[``]", K]>		<InOut["GaussCode[``]", K]>
	<InOut["BR[``]", K]>
	<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>		<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>
	<InOut["~~alex = Alexander~~[``~~][t~~]", K]>		<InOut["KnotSignature[`1`]", K]>
	<InOut["Conway[``][z]", K]>
	<InOut["Select[AllKnots[], (alex === Alexander[#][t])&]"]>
	<InOut["{KnotDet[`1`], KnotSignature[`1`]}", K]>
	<InOut["J=Jones[``][q]", K]>		<InOut["J=Jones[``][q]", K]>
	<InOut["A2Invariant[``][q]", K]>		<InOut["A2Invariant[``][q]", K]>
	<InOut["HOMFLYPT[``][a, z]", K]>		<InOut["HOMFLYPT[``][a, z]", K]>
	<InOut["Kauffman[``][a, z]", K]>		<InOut["Kauffman[``][a, z]", K]>
	<InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]>
	<InOut["Kh[``][q, t]", K]>		<InOut["Kh[``][q, t]", K]>
	</table> }}		</table> }}

Scott at 15:36, 31 August 2005

2005-08-31T15:36:22Z

← Older revision		Revision as of 11:36, 31 August 2005
Line 6:		Line 6:
	<!-- The text below simply calls [[Template:Link Page]] setting the values of all the parameters appropriately.		<!-- The text below simply calls [[Template:Link Page]] setting the values of all the parameters appropriately.
	<!-- This page itself was created by running [[Media:KnotPageSpliceRobot.nb]] on [[Link Splice Template]]. -->		<!-- This page itself was created by running [[Media:KnotPageSpliceRobot.nb]] on [[Link Splice Template]]. -->
	<!-- <~~K=Knot[ThisKnot];~~{n,k}=Drop[List@@K,{2}];> -->		<!-- <{n,k}=Drop[List@@K,{2}];> -->
	{{Link Page\|		{{Link Page\|
	n = <n> \|		n = <n> \|

Drorbn at 01:22, 31 August 2005

2005-08-31T01:22:24Z

← Older revision		Revision as of 21:22, 30 August 2005
Line 1:		Line 1:
	<!-- <* (* -->{{Splice ~~Template~~ Notice}}<!-- ) > -->		<!-- <* (* -->{{Splice Base Notice}}<!-- ) > -->
	<!-- <* (* --><!-- You can ignore this warning; it's for people trying to edit individual knot pages--><!-- ) > -->		<!-- <* (* --><!-- You can ignore this warning; it's for people trying to edit individual knot pages--><!-- ) > -->
	<!-- WARNING! WARNING! WARNING!		<!-- WARNING! WARNING! WARNING!

Scott at 19:05, 30 August 2005

2005-08-30T19:05:34Z

@@ Line 1: / Line 1: @@
-<!-- <* (* -->{{Splice Template Notice}}<!-- *) *> --> <!--
+<!-- <* (* -->{{Splice Template Notice}}<!-- *) *> -->
 {{Link Page|
 n = <*n*> |

Scott at 15:51, 30 August 2005

2005-08-30T15:51:02Z

← Older revision		Revision as of 11:51, 30 August 2005
Line 1:		Line 1:
	<!-- <* (* -->{{Splice Template Notice}}<!-- ) > -->		<!-- <* (* -->{{Splice Template Notice}}<!-- ) > --> <!--
		⚫	<K=Knot[ThisKnot];{n,k}=Drop[List@@K,{2}];> -->
	<!-- This knot page was produced from [[Link Splice Template]] -->
			{{Link Page\|
⚫	~~<!--~~ <K=Knot[ThisKnot];{n,k}=Drop[List@@K,{2}];> -->
			n = <n> \|
	<!-- -->
			t = <If[AlternatingQ[K],"a","n"]> \|
	<!-- provide an anchor so we can return to the top of the page -->
			k = <k> \|
	<span id="top"></span>
			KnotilusURL = <KnotilusURL[K]> \|
	<!-- -->
		⚫	khovanov_table = <TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]> \|
	<!-- this relies on transclusion for next and previous links -->
			computer_talk =
	{{Knot Navigation Links\|ext=gif}}
		⚫	<table>

		⚫	<tr valign=top>
	{{Link Page Header\|n=<n>\|t=<If[AlternatingQ[K],"a","n"]>\|k=<k>\|KnotilusURL=<KnotilusURL[K]>}}
		⚫	<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:=    </pre></td>

		⚫	<td align=left><pre style="color: red; border: 0px; padding: 0em"><< KnotTheory`</pre></td>
	<br style="clear:both" />
			</tr>

		⚫	<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>
	{{:{{PAGENAME}} Further Notes and Views}}
		⚫	<InOut["Crossings[``]", K]>

		⚫	<InOut["Length[Skeleton[``]]", K]>
	{{Link Presentations}}
		⚫	<InOut["PD[``]", K]>
	{{Link Polynomial Invariants}}
		⚫	<InOut["GaussCode[``]", K]>
	{{Vassiliev Invariants}}
		⚫	<InOut["BR[``]", K]>

			<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>
⚫	~~{{Khovanov~~ ~~Homology\|table~~=<TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]>}}
		⚫	<InOut["alex = Alexander[``][t]", K]>

		⚫	<InOut["Conway[``][z]", K]>
	{{Computer Talk Header}}
		⚫	<InOut["Select[AllKnots[], (alex === Alexander[#][t])&]"]>

		⚫	<InOut["{KnotDet[`1`], KnotSignature[`1`]}", K]>
⚫	<table>
		⚫	<InOut["J=Jones[``][q]", K]>
⚫	<tr valign=top>
		⚫	<InOut["A2Invariant[``][q]", K]>
⚫	<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:=    </pre></td>
			<InOut["HOMFLYPT[``][a, z]", K]>
⚫	<td align=left><pre style="color: red; border: 0px; padding: 0em"><< KnotTheory`</pre></td>
			<InOut["Kauffman[``][a, z]", K]>
	</tr>
		⚫	<InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]>
⚫	<tr valign=top><td colspan=2~~><pre style="border: 0px; padding: 0em"~~><InOut[1]; KnotTheoryWelcomeMessage[]~~></pre~~></td></tr>
	<InOut["~~Crossings~~[``]", K]>		<InOut["Kh[``][q, t]", K]>
			</table> }}
⚫	<InOut["PD[``]", K]>
⚫	<InOut["GaussCode[``]", K]>
⚫	<InOut["BR[``]", K]>
⚫	<InOut["alex = Alexander[``][t]", K]>
⚫	<InOut["~~Conway~~[``][z]", K]>
⚫	<InOut["Select[AllKnots[], (alex === Alexander[#][t])&]"]>
⚫	<InOut["{KnotDet[`1`], KnotSignature[`1`]}", K]>
⚫	<InOut["~~J=Jones~~[``][q]", K]>
	<*InOut[
	"Select[AllKnots[], (J === Jones[#][q] \|\| (J /. q-> 1/q) === Jones[#][q])&]"
	]*>
	<* If[Crossings[K]<=18, Include["ColouredJonesM.mhtml"] ,""] *>
⚫	<InOut["~~A2Invariant~~[``][q]", K]>
⚫	<InOut["~~Kauffman~~[``][~~a, z~~]", K]>
⚫	<InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]>
⚫	<InOut["Kh[``~~][q, t~~]", K]>
	</table>

	<* (* <!-- ) > [[Category:Knot Page]] <* (* --> ) >

Scott at 00:49, 29 August 2005

2005-08-29T00:49:28Z

← Older revision		Revision as of 20:49, 28 August 2005
Line 1:		Line 1:
	<!-- <* (* -->{{Splice Template Notice}}<!-- ) > -->		<!-- <* (* -->{{Splice Template Notice}}<!-- ) > -->
	<!-- This knot page was produced from [[Link Splice Template]] -->		<!-- This knot page was produced from [[Link Splice Template]] -->
	<!-- <K=Knot[ThisKnot];{n,t,k}=List@@K;> -->		<!-- <K=Knot[ThisKnot];{n,k}=Drop[List@@K,{2}];> -->
	<!-- -->		<!-- -->
	<!-- provide an anchor so we can return to the top of the page -->		<!-- provide an anchor so we can return to the top of the page -->

Scott at 00:39, 29 August 2005

2005-08-29T00:39:39Z

← Older revision		Revision as of 20:39, 28 August 2005
Line 1:		Line 1:
	<!-- <* (* -->{{Splice Template Notice}}<!-- ) > -->		<!-- <* (* -->{{Splice Template Notice}}<!-- ) > -->
	<!-- This knot page was produced from [[Link Splice Template]] -->		<!-- This knot page was produced from [[Link Splice Template]] -->
	<!-- <K=Knot[ThisKnot];{n,k}=List@@K;> -->		<!-- <K=Knot[ThisKnot];{n,t,k}=List@@K;> -->
	<!-- -->		<!-- -->
	<!-- provide an anchor so we can return to the top of the page -->		<!-- provide an anchor so we can return to the top of the page -->

← Older revision		Revision as of 18:31, 2 September 2005
Line 12:		Line 12:
	k = <k> \|		k = <k> \|
	KnotilusURL = <KnotilusURL[K]> \|		KnotilusURL = <KnotilusURL[K]> \|
			braid_table = <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki",
			Images -> {"BraidPart0.gif", "BraidPart1.gif",
			"BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> \|
	khovanov_table = <TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]> \|		khovanov_table = <TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]> \|
	computer_talk =		computer_talk =
Line 20:		Line 23:
	</tr>		</tr>
	<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>		<tr valign=top><td colspan=2><InOut[1]; KnotTheoryWelcomeMessage[]></td></tr>
⚫	</table>
	<InOut["Crossings[``]", K]>		<InOut["Crossings[``]", K]>
	<InOut["Length[Skeleton[``]]", K]>		<InOut["Length[Skeleton[``]]", K]>
	<InOut["PD[``]", K]>		<InOut["PD[``]", K]>
	<InOut["GaussCode[``]", K]>		<InOut["GaussCode[``]", K]>
			<InOut["BR[``]", K]>
	<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>		<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>
	<InOut["KnotSignature[`1`]", K]>		<InOut["KnotSignature[`1`]", K]>
Line 31:		Line 34:
	<InOut["HOMFLYPT[``][a, z]", K]>		<InOut["HOMFLYPT[``][a, z]", K]>
	<InOut["Kauffman[``][a, z]", K]>		<InOut["Kauffman[``][a, z]", K]>
	<InOut["Kh[``][q, t]", K]> }}		<InOut["Kh[``][q, t]", K]>
		⚫	</table> }}

← Older revision		Revision as of 12:32, 31 August 2005
Line 24:		Line 24:
	<InOut["PD[``]", K]>		<InOut["PD[``]", K]>
	<InOut["GaussCode[``]", K]>		<InOut["GaussCode[``]", K]>
	<InOut["BR[``]", K]>
	<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>		<GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", K]>
	<InOut["~~alex = Alexander~~[``~~][t~~]", K]>		<InOut["KnotSignature[`1`]", K]>
	<InOut["Conway[``][z]", K]>
	<InOut["Select[AllKnots[], (alex === Alexander[#][t])&]"]>
	<InOut["{KnotDet[`1`], KnotSignature[`1`]}", K]>
	<InOut["J=Jones[``][q]", K]>		<InOut["J=Jones[``][q]", K]>
	<InOut["A2Invariant[``][q]", K]>		<InOut["A2Invariant[``][q]", K]>
	<InOut["HOMFLYPT[``][a, z]", K]>		<InOut["HOMFLYPT[``][a, z]", K]>
	<InOut["Kauffman[``][a, z]", K]>		<InOut["Kauffman[``][a, z]", K]>
	<InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]>
	<InOut["Kh[``][q, t]", K]>		<InOut["Kh[``][q, t]", K]>
	</table> }}		</table> }}