KnotAtlasPath = "C:/drorbn/projects/KAtlas/";
AppendTo[$Path, KnotAtlasPath];
<< KnotTheory`
WikiLinkPath = KnotAtlasPath<>"WikiLink/";
Get[WikiLinkPath<>"WikiLink.m"];
SetJarPath[WikiLinkPath];
ScratchWorkDirectory=KnotAtlasPath<>"ScratchImages";
CreateWikiConnection[
"http://katlas.math.toronto.edu/w/index.php",
"DrorsRobot",
"***"
];
<< src/KnotTheoryExtra.m
<< WikiLink/ManagingKnotData.m

Ls=AllLinks[];

Length[Ls]

L=Ls[[1405]]

StringReplace[
ToString[MultivariableAlexander[L][t], WikiForm],
{
"t(1)" -> "u", "t(2)" -> "v", "t(3)" -> "w",
"t(4)" -> "x", "t(5)" -> "y", "t(6)" -> "y"
}
]

"Data:"<>NameString[L]<>"/Multivariable Alexander"

MVAUpload[L_] := WikiSetPageText[
"Data:"<>NameString[L]<>"/Multivariable_Alexander",
ToString[
MultivariableAlexander[L][t] /. t[i_] :> {u, v, w, x, y, z}[[i]],
WikiForm
]
]

(Print[out=(# -> MVAUpload[#])]; out)& /@ AllLinks[]

Plus @@ (Last /@ %)

pd1 =PD[Link[4, Alternating, 1]]

pd2 = PD[X[6,4,7,3],X[8,2,5,1],X[2, 6, 3, 5],X[4, 8, 1, 7]]

MultivariableAlexander[#][t]& /@ {pd1, pd2}

DrawMorseLink[pd1] // Show

DrawMorseLink[pd2] // Show

pd1=PD[Link[11, NonAlternating, 381]]

Skeleton[pd1]

pd2=PD[X[6,4,7,3],X[14,7,15,8],X[4,16,1,15],X[5,10,6,11],X[8,1,9,2],X[22,18,19,17],X[11,20,12,21],X[19,12,20,13],X[18,22,5,21],X[9,16,10,17],X[2,13,3,14]]

MultivariableAlexander[#][t]& /@ {pd1, pd2}