<<KnotTheory`
Import["http://katlas.org/w/index.php?title=CableComponent.m&action=raw"];
DrawMorseLink[KK0 = Knot["0 1"]]
DrawMorseLink[KK1 = Knot["3 1"]]
DrawMorseLink[KK2 = CableComponent[BR[2,{-1,-1,-1}],KK0]]
ColouredJones[KK1,1][q]
ColouredJones[KK2,1][q]

KK0 // PD

KK2 // PD