Perko Pair

Author

Eric W. Weisstein
May 16, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/KnotTheory/PerkoPair.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PerkoPair.html.

©2007 Wolfram Research, Inc. except for portions noted otherwise

Braid Word

KnotData[]

KnotData["PerkoPair"]

KnotData["PerkoPair","StandardName"]

KnotData["PerkoPair","AlexanderBriggsNotation"]//TraditionalForm

KnotData[{10,161},"BraidWordNotation"]//TraditionalForm

KnotData[{10,162},"BraidWordNotation"]//TraditionalForm

Figure

GraphicsGrid[{Graphics3D[{EdgeForm[],ClosedBraid[BraidWord[Link[{10,#}]],Style->TubeStyle][[1]]},Boxed->False,ViewPoint->{0,0,2}]&/@{161,162}}]