<<KnotTheory`

K=PD[X[1,10,2,11],X[3,13,4,12],X[4,7,5,8],X[6,14,7,13],X[9,2,10,3],X[11,9,12,8],X[14,6,1,5]]

DrawPD[K]

Jones[K][q]

Jones[K//Mirror][q]

(#->Jones[#][q])& /@ AllKnots[{0,6}]