<< KnotTheory`

BraidPlot[B=BR[3,{1,-2,1,-2,1,-2}]]

Jones[B][q]

MultivariableAlexander[B][t]

BraidPlot[B2=BR[3,{1,-2,1,-2,1,-2, 1,-2,1,-2,1,-2}]]

Jones[B2][q]

MultivariableAlexander[B2][t]