<<KnotTheory`

Kh[PD@Mirror[Knot[3,1]]][q,t]

Kh[PD@Mirror[Knot[3,1]]][q,t] /. t->-1

Kh[PD@Knot[5,1]][q,t]
Kh[PD@Knot[10,132]][q,t]

Kh[PD@Knot[5,1]][q,t]/. t->-1
Kh[PD@Knot[10,132]][q,t]/. t->-1

stime=CurrentDate[];
Kh[PD@TorusKnot[7,6]][q,t]
CurrentDate[]-stime

Crossings[TorusKnot[7,6]]