<< KnotTheory`

L=PD[X[1,23,2,22],X[3,24,4,17],X[4,12,5,11],X[6,13,7,14],X[9,3,10,2],X[12,20,13,19],X[14,21,15,22],X[15,8,16,1],X[17,11,18,10],X[18,5,19,6],X[20,8,21,7],X[23,16,24,9]]

DrawMorseLink[L]

mva=MultivariableAlexander[L][t]

AllLinks[{12,12}] // Length

PD[AllLinks[{12,12}] //First]

Select[AllLinks[{2,11}], (MultivariableAlexander[#][t]===mva)&]