<< KnotTheory`

BraidPlot[br=BR[2,{1,1,1,1,1}]]

Import["http://katlas.org/w/index.php?title=CableComponent.m&action=raw"];

(K=CableComponent[br,Knot[3,1]])//DrawMorseLink

Jones[K][q]