Quelle  1.6.10   Sprache: unbekannt

K:=PureCubicalKnot(11,1);;
gc:=GaussCodeOfPureCubicalKnot(K);
W:=WirtingerGroup(gc);;
Print(AlexanderPolynomial(W),"\n");

[ Dauer der Verarbeitung: 0.15 Sekunden  (vorverarbeitet)  ]