SubLink.m - Revision history

Drorbn at 19:08, 20 October 2013

2013-10-20T19:08:53Z

← Older revision		Revision as of 15:08, 20 October 2013
Line 1:		Line 1:
	(*		(*

	The program <code>SubLink</code>, documented in the page on [[Prime Links with a Non-Prime Component]]. It is not part of the package <code>KnotTheory`</code> but is designed to work with it. Use <code><nowiki>Import["http://katlas.org/~~wiki~~/SubLink.m&action=raw"]</nowiki></code> to download into a mathematica session, or copy-paste the text below ignoring the <code>)</code> on the first line and the <code>(</code> on the last.		The program <code>SubLink</code>, documented in the page on [[Prime Links with a Non-Prime Component]]. It is not part of the package <code>KnotTheory`</code> but is designed to work with it. Use <code><nowiki>Import["http://katlas.org/w/index.php?title=SubLink.m&action=raw"]</nowiki></code> to download into a mathematica session, or copy-paste the text below ignoring the <code>)</code> on the first line and the <code>(</code> on the last.
	<pre>		<pre>
	*)		*)

IvaH at 19:13, 28 August 2010

2010-08-28T19:13:57Z

@@ Line 4: / Line 4: @@
 <pre>
 *)
 SubLink[pd_PD, js_List] := Module[
-  {k, t0, t, t1, t2, S, P},
+   {k, t0, t, t1, t2, s0, s1},
-  t0 = Flatten[List @@@ Skeleton[pd][[js]]];
+   s0 = Skeleton[pd];
-  t = DeleteCases[t, X[]];
+   t0 = Flatten[List @@@ s0[[js]]];
-     t = Delete[t, k] /. (Rule @@ t[[k]]), ++k];
+   t = DeleteCases[t, X[] | Loop[]];
    ];
 SubLink[pd_PD, j_] := SubLink[pd, {j}];
 SubLink[L_, js_] := SubLink[PD[L], js];

IvaH: New page: (* The program `SubLink`, documented in the page on Prime Links with a Non-Prime Component. It is not part of the package KnotTheory` but is designed to work w...

2007-11-19T00:58:43Z

New page: (* The program <code>SubLink</code>, documented in the page on Prime Links with a Non-Prime Component. It is not part of the package <code>KnotTheory`</code> but is designed to work w...

New page

(*

The program <code>SubLink</code>, documented in the page on [[Prime Links with a Non-Prime Component]]. It is not part of the package <code>KnotTheory`</code> but is designed to work with it. Use <code><nowiki>Import["http://katlas.org/wiki/SubLink.m&action=raw"]</nowiki></code> to download into a mathematica session, or copy-paste the text below ignoring the <code>*)</code> on the first line and the <code>(*</code> on the last.
<pre>
*)
SubLink[pd_PD, js_List] := Module[
{k, t0, t, t1, t2, S, P},
t0 = Flatten[List @@@ Skeleton[pd][[js]]];
t = pd /. x_X :> Select[x, MemberQ[t0, #] &];
t = DeleteCases[t, X[]];
k = 1;
While[
k <= Length[t],
If[ Length[t[[k]]] < 4,
t = Delete[t, k] /. (Rule @@ t[[k]]), ++k];
];
t1 = List @@ Union @@ t;
t2 = Thread[(t1) -> Range[Length[t1]]];
S = t /. t2;
P = If[S != PD[] && Length[S] >= 3, S, PD[Knot[0, 1]], S]
];
SubLink[pd_PD, j_] := SubLink[pd, {j}];
SubLink[L_, js_] := SubLink[PD[L], js];
(* </pre> *)

SubLink.m - Revision history

Drorbn at 19:08, 20 October 2013

IvaH at 19:13, 28 August 2010

IvaH: New page: (* The program SubLink, documented in the page on Prime Links with a Non-Prime Component. It is not part of the package KnotTheory` but is designed to work w...

IvaH: New page: (* The program `SubLink`, documented in the page on Prime Links with a Non-Prime Component. It is not part of the package KnotTheory` but is designed to work w...