The HOMFLY-PT Polynomial: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
No edit summary
 
(4 intermediate revisions by 3 users not shown)
Line 1: Line 1:
{{Manual TOC Sidebar}}
[http://itgurney.t35.com/view/new/video-duplicatore/ video duplicatore] [http://fawarfo.freeweb7.com/topic/jamo-e.htm jamo e500] [http://peter-land.somee.com/images/small/abbigliamento-bambino.htm abbigliamento bambino mirtillo] [http://rihelm.125mb.com/img/styles/chat-kosovo/ chat kosovo] [http://coarmago.freeweb7.com/library/html/sony-klvvae.htm sony klv-v32a10e lcd] [http://dj-deus.somee.com/lib/marito.htm marito] [http://luallard.t35.com/html/appartamento-affitto/ appartamento affitto venezia vacanza] [http://fawarfo.freeweb7.com/topic/ati-x.htm ati x300 256mb] [http://betheresa.t35.com/text/directory/e-tempo/ e tempo per ghost recon 2] [http://thegoogly.somee.com/view/new/crossover-.htm crossover 3 vie] [http://davelovesyou.somee.com/library/html/sim-ht/ sim ht300] [http://ouquaite.freeweb7.com/img/styles/auto-noleggio/ auto noleggio jerez de frontera] [http://dabeutle.t35.com/content/view/liner-piscina.htm liner piscina] [http://yourorus.somee.com/data/www-bmw.htm www bmw moto it] [http://trocterli.t35.com/img/styles/pamplona-colombia/ pamplona (colombia)] [http://dj-deus.somee.com/lib/we-live.htm we live together com] [http://lamcgie.125mb.com/html/elodie-frege.htm elodie frege nue] [http://yourorus.somee.com/data/christa-nicole.htm christa nicole] [http://madavid.t35.com/html/ricevitore-dvbt/ ricevitore dvb-t] [http://ouquaite.freeweb7.com/img/styles/www-ktm/ www ktm bikes at] [http://viemalin.freeweb7.com/resources/articles/ma-donalds.htm ma donalds] [http://fergus-mac.somee.com/description/lib/sottovoce/ sottovoce] [http://am-i-bird.somee.com/img/styles/tatangelo.htm tatangelo] [http://ouquaite.freeweb7.com/img/styles/klimt-e/ klimt e il bacio] [http://trocterli.t35.com/img/styles/ford-blues/ ford blues band in concert. ohne filter] [http://lamcgie.t35.com/web/il-gobbo.htm il gobbo di notredame] [http://peter-land.somee.com/images/small/teorie-della.htm teorie della traduzione] [http://fergus-mac.somee.com/description/lib/forno-inox/ forno inox] [http://fergus-mac.somee.com/description/lib/hp-ipaq/ hp ipaq rx3715 palmari] [http://peter-land.somee.com/images/small/motori-di.htm motori di ricerca hotel] [http://trocterli.t35.com/img/styles/il-postino/ il postino suona di nuovo alla porta] [http://am-i-bird.somee.com/img/styles/sexy-fotomontaggi.htm sexy fotomontaggi] [http://dabeutle.t35.com/content/view/killer-.htm killer 7 torna in video] [http://nairoz.somee.com/img/styles/samsung-psds/ samsung ps42d5s plasma] [http://nationavce.somee.com/library/html/atlantis-land/ atlantis land modem usb] [http://luallard.t35.com/html/bryn-terfel/ bryn terfel. live in concert. songs and arias] [http://rimarsh.t35.com/images/small/batteria-alcatel.htm batteria alcatel ot301] [http://itgurney.t35.com/view/new/biglietto-aereo/ biglietto aereo barcellona] [http://am-i-bird.somee.com/img/styles/screensaver-film.htm screensaver film] [http://quotes-girl.somee.com/content/view/lauri-volpi/ lauri volpi] [http://kiboukni.125mb.com/web/divide-et/ divide et impera] [http://lamcgie.125mb.com/html/credencial-del.htm credencial del camino de santiago] [http://dj-deus.somee.com/lib/opere-di.htm opere di giovanni pezzotta] [http://lakitsmi.freeweb7.com/web/eugenie-armstrong/ eugenie armstrong] [http://ouquaite.freeweb7.com/img/styles/fotografie-giapponesi/ fotografie giapponesi a roma] [http://quotes-girl.somee.com/content/view/annuncio-privati/ annuncio privati versilia] [http://de-der.somee.com/library/html/historia-de.htm historia de la musica pop] [http://trocterli.t35.com/img/styles/venta-de/ venta de c d en argentina] [http://coarmago.freeweb7.com/library/html/www-retecasa.htm www retecasa it] [http://jututor.125mb.com/lib/cuffie-senza/ cuffie senza filo radio] [http://coarmago.freeweb7.com/library/html/volano-po.htm volano, po di-] [http://luallard.t35.com/html/nike-shox/ nike shox 48 5] [http://trocterli.t35.com/img/styles/mcfly-obviously/ mcfly obviously] [http://lamcgie.125mb.com/html/bollo-auto.htm bollo auto] [http://lensman.somee.com/html/calcio-foot/ calcio foot bal] [http://coarmago.freeweb7.com/library/html/bloch-jeanrichard.htm bloch, jean-richard] [http://jututor.125mb.com/lib/il-deserto/ il deserto della paura] [http://fergus-mac.somee.com/description/lib/elisabetta-canalis/ elisabetta canalis nuda completamente] [http://luallard.t35.com/html/nikon-batteria/ nikon batteria en el-5] [http://quotes-girl.somee.com/content/view/bionicle-game/ bionicle game] [http://nationavce.somee.com/library/html/acer-tft/ acer tft multimediale] [http://dj-deus.somee.com/lib/yamaha.htm yamaha 150] [http://brrezab.freeweb7.com/img/styles/grease-lightnin.htm grease lightnin] [http://viemalin.freeweb7.com/resources/articles/lg-c.htm lg c3300 cellulari] [http://de-der.somee.com/library/html/maria-florencia.htm maria florencia gonzalez] [http://jututor.125mb.com/lib/gimnasia-ritmica/ gimnasia ritmica] [http://coarmago.freeweb7.com/library/html/perreo-del.htm perreo del momento] [http://de-der.somee.com/library/html/scommessa-ippica.htm scommessa ippica] [http://am-i-bird.somee.com/img/styles/hdmi-dvd.htm hdmi dvd hard disk recorder] [http://nairoz.somee.com/img/styles/yashica-af/ yashica af] [http://nationavce.somee.com/library/html/tutti-i/ tutti i frutti] [http://jedillar.125mb.com/resources/articles/radio-pmr/ radio pmr] [http://dj-deus.somee.com/lib/casse-.htm casse 1000 watt] [http://peter-land.somee.com/images/small/moore-edward.htm moore, edward] [http://viemalin.freeweb7.com/resources/articles/tu-scendi.htm tu scendi] [http://lakitsmi.freeweb7.com/web/rex-ri/ rex ri 1000 xc] [http://rihelm.125mb.com/img/styles/lampade-abbronzanti/ lampade abbronzanti philips] [http://nairoz.somee.com/img/styles/antenna-per/ antenna per tv amplificata] [http://fawarfo.freeweb7.com/topic/tushy.htm tushy] [http://am-i-bird.somee.com/img/styles/appartamento-vacanza.htm appartamento vacanza venezia] [http://dj-deus.somee.com/lib/toner-canon.htm toner canon np 1015] [http://jedillar.125mb.com/resources/articles/www-autori/ www autori latini it] [http://luallard.t35.com/html/direct-x/ direct x] [http://yourorus.somee.com/data/fujifilm-finepix.htm fujifilm finepix f420] [http://lamcgie.125mb.com/html/bada-boom.htm bada boom] [http://luallard.t35.com/html/formula-force/ formula force gp] [http://luallard.t35.com/html/nec-dvd/ nec dvd r 2 4x rw] [http://dabeutle.t35.com/content/view/woo-hoo.htm woo hoo] [http://lensman.somee.com/html/il-fidanzato/ il fidanzato di mia moglie] [http://rihelm.125mb.com/img/styles/hard-disk/ hard disk display lcd] [http://betheresa.t35.com/text/directory/affitto-ufficio/ affitto ufficio perugia] [http://yourorus.somee.com/data/batterie-per.htm batterie per panasonic] [http://lamcgie.125mb.com/html/acer-ram.htm acer ram ddr] [http://jututor.125mb.com/lib/desert-linx/ desert linx] [http://nationavce.somee.com/library/html/gladiator-soundtrack/ gladiator soundtrack] [http://peter-land.somee.com/images/small/il-signore.htm il signore degli anelli le due torri] [http://fergus-mac.somee.com/description/lib/download-free/ download free nu sinh ngo quyen] [http://fergus-mac.somee.com/description/lib/negozi-cinesi/ negozi cinesi] [http://madavid.t35.com/html/canon-powershot/ canon powershot s 50] [http://ouquaite.freeweb7.com/img/styles/phillipsite/ phillipsite] [http://lamcgie.t35.com/web/decapitati-iraq.htm decapitati iraq] [http://madavid.t35.com/html/adobe-creative/ adobe creative suite inglese] [http://quotes-girl.somee.com/content/view/traduttore-online/ traduttore online] [http://lensman.somee.com/html/mp-briganti/ mp3 briganti se more] [http://am-i-bird.somee.com/img/styles/profana.htm profana] [http://trocterli.t35.com/img/styles/nikon-d/ nikon d70 custodia] [http://jedillar.125mb.com/resources/articles/walton-and/ walton and weybridge] [http://davelovesyou.somee.com/library/html/cossacks-/ cossacks - european wars] [http://nationavce.somee.com/library/html/sanremo-/ sanremo 2004 midi] [http://fergus-mac.somee.com/description/lib/telo-proiettore/ telo proiettore] [http://jedillar.125mb.com/resources/articles/www-full/ www full x com] [http://betheresa.t35.com/text/directory/naked-news/ naked news] [http://lamcgie.t35.com/web/tv-combi.htm tv combi philips] [http://nairoz.somee.com/img/styles/satis/ satis] [http://nationavce.somee.com/library/html/lg-g/ lg g7110] [http://peter-land.somee.com/images/small/xsara-picasso.htm xsara picasso 2000 benzina] [http://madavid.t35.com/html/fax-brother/ fax brother multifunzione laser] [http://dabeutle.t35.com/content/view/marsupio-per.htm marsupio per bimbi] [http://rimarsh.t35.com/images/small/uso-di.htm uso di sostanze stupefacenti] [http://betheresa.t35.com/text/directory/dj-zone/ dj zone] [http://trocterli.t35.com/img/styles/adattatore-usbps/ adattatore usb-ps2] [http://lamcgie.t35.com/web/evoluzione-della.htm evoluzione della famiglia] [http://nationavce.somee.com/library/html/palmare-gps/ palmare gps bluetooth hp tomtom] [http://peter-land.somee.com/images/small/contrat-d.htm contrat d apprentissage] [http://dj-deus.somee.com/lib/ilary.htm ilary 22] [http://thegoogly.somee.com/view/new/il-braccio.htm il braccio violento della legge 3] [http://ouquaite.freeweb7.com/img/styles/effetti-terapeutici/ effetti terapeutici dei cannabinoidi] [http://quotes-girl.somee.com/content/view/wolkswagen-polo/ wolkswagen polo 1999] [http://trocterli.t35.com/img/styles/pinocchio-il/ pinocchio il musical] [http://luallard.t35.com/html/ginger-fred/ ginger fred] [http://nairoz.somee.com/img/styles/notting-hill/ notting hill cd] [http://dj-deus.somee.com/lib/tomtom-mobile.htm tomtom mobile 5 gps serie 80] [http://brrezab.freeweb7.com/img/styles/v.htm v 600] [http://coarmago.freeweb7.com/library/html/redmon-zip.htm redmon zip] [http://de-der.somee.com/library/html/preso.htm preso] [http://lensman.somee.com/html/legge/ legge 335 95] [http://nairoz.somee.com/img/styles/coppia-cornuto/ coppia cornuto] [http://fawarfo.freeweb7.com/topic/cerca-docente.htm cerca docente economia] [http://thegoogly.somee.com/view/new/adale.htm adale] [http://fergus-mac.somee.com/description/lib/media-mat/ media mat] [http://brrezab.freeweb7.com/img/styles/torino-guayaquil.htm torino guayaquil biglietti aerei] [http://am-i-bird.somee.com/img/styles/musica-winmx.htm musica winmx gratis] [http://lamcgie.t35.com/web/recetas.htm recetas] [http://kiboukni.125mb.com/web/tabuaeran/ tabuaeran] [http://quotes-girl.somee.com/content/view/la-frontiera/ la frontiera senza legge] [http://davelovesyou.somee.com/library/html/romanza/ romanza] [http://coarmago.freeweb7.com/library/html/www-viajes.htm www viajes com] [http://lakitsmi.freeweb7.com/web/usb-mp/ usb mp3 gb] [http://lakitsmi.freeweb7.com/web/nuovo-trailer/ nuovo trailer per act of war] [http://trocterli.t35.com/img/styles/ballerino-david/ ballerino david amici] [http://coarmago.freeweb7.com/library/html/calcio-mercato.htm calcio mercato diretta] [http://flheddina.t35.com/web/donna-creme/ donna creme] [http://brrezab.freeweb7.com/img/styles/russian-teen.htm russian teen] [http://dj-deus.somee.com/lib/olympus-camedia.htm olympus camedia 5500] [http://peter-land.somee.com/images/small/fotosprivadas.htm fotosprivadas] [http://rihelm.125mb.com/img/styles/ufficio-trapani/ ufficio trapani] [http://trocterli.t35.com/img/styles/o-zone/ o zone dragostea di] [http://lamcgie.125mb.com/html/slim-esterno.htm slim esterno] [http://lensman.somee.com/html/una-bambolina/ una bambolina che fa no no no] [http://kiboukni.125mb.com/web/codec-dx/ codec dx50] [http://flheddina.t35.com/web/monitor-lcd/ monitor lcd atlantis] [http://lensman.somee.com/html/bruno-martino/ bruno martino cd] [http://trocterli.t35.com/img/styles/scheda-madre/ scheda madre ddr2] [http://luallard.t35.com/html/humax-dtt/ humax dtt4000] [http://am-i-bird.somee.com/img/styles/catamarani.htm catamarani] [http://lakitsmi.freeweb7.com/web/amd-fx/ amd fx 57] [http://luallard.t35.com/html/starsky-et/ starsky et hutch] [http://lamcgie.125mb.com/html/blok.htm blok] [http://jututor.125mb.com/lib/giochi-infanzia/ giochi infanzia] [http://lamcgie.t35.com/web/djaja.htm djaja] [http://de-der.somee.com/library/html/optoma-h.htm optoma h78] [http://lamcgie.125mb.com/html/bologna-valencia.htm bologna valencia biglietti aerei] [http://dabeutle.t35.com/content/view/tribunale-di.htm tribunale di firenze] [http://nationavce.somee.com/library/html/roma-nun/ roma nun fa la stupida sta sera] [http://davelovesyou.somee.com/library/html/memorie-ddr/ memorie ddr] [http://yourorus.somee.com/data/runga.htm runga] [http://betheresa.t35.com/text/directory/kit-hd/ kit hd esterno] [http://flheddina.t35.com/web/franz-kafka/ franz kafka] [http://yourorus.somee.com/data/bassani-srl.htm bassani srl] [http://am-i-bird.somee.com/img/styles/tesina-maturita.htm tesina maturita classica] [http://am-i-bird.somee.com/img/styles/extasi.htm extasi] [http://lamcgie.125mb.com/html/donkey-kong.htm donkey kong] [http://fergus-mac.somee.com/description/lib/calciatori/ calciatori] [http://davelovesyou.somee.com/library/html/shantal/ shantal] [http://jututor.125mb.com/lib/dimonis/ dimonis] [http://kiboukni.125mb.com/web/date-ufficiali/ date ufficiali festivalbar 2004] [http://flheddina.t35.com/web/diarco/ diarco] [http://viemalin.freeweb7.com/resources/articles/daz.htm daz] [http://flheddina.t35.com/web/annuncio-auto/ annuncio auto usata privato] [http://davelovesyou.somee.com/library/html/generale-remix/ generale remix] [http://fawarfo.freeweb7.com/topic/racconti-erotici.htm racconti erotici farfallina] [http://itgurney.t35.com/view/new/prestito-san/ prestito san vito lo capo] [http://lakitsmi.freeweb7.com/web/cure-palliative/ cure palliative residenziali] [http://thegoogly.somee.com/view/new/il-bagatta.htm il bagatta] [http://lensman.somee.com/html/pavillion-computer/ pavillion computer] [http://trocterli.t35.com/img/styles/the-last/ the last legion] [http://peter-land.somee.com/images/small/torre-umana.htm torre umana] [http://davelovesyou.somee.com/library/html/catherine-millet/ catherine millet] [http://jututor.125mb.com/lib/curtius-georg/ curtius, georg] [http://coarmago.freeweb7.com/library/html/ricoh-r.htm ricoh r2] {{Manual TOC Sidebar}}


The ''HOMFLY-PT polynomial'' <math>H(L)(a,z)</math> (see {{ref|HOMFLY}} and {{ref|PT}}) of a knot or link <math>L</math> is defined by the skein relation
The ''HOMFLY-PT polynomial'' <math>H(L)(a,z)</math> (see {{ref|HOMFLY}} and {{ref|PT}}) of a knot or link <math>L</math> is defined by the skein relation
Line 15: Line 15:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{HelpAndAbout|
{{HelpAndAbout|
n = 1 |
n = 2 |
n1 = 2 |
n1 = 3 |
in = <nowiki>HOMFLYPT</nowiki> |
in = <nowiki>HOMFLYPT</nowiki> |
out= <nowiki>HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z.</nowiki> |
out= <nowiki>HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z.</nowiki> |
Line 26: Line 26:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{In|
{{In|
n = 3 |
n = 4 |
in = <nowiki>K = Knot[8, 1];</nowiki>}}
in = <nowiki>K = Knot[8, 1];</nowiki>}}
<!--END-->
<!--END-->
Line 33: Line 33:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 4 |
n = 5 |
in = <nowiki>HOMFLYPT[Knot[8, 1]][a, z]</nowiki> |
in = <nowiki>HOMFLYPT[Knot[8, 1]][a, z]</nowiki> |
out= <nowiki> -2 4 6 2 2 2 4 2
out= <nowiki> -2 4 6 2 2 2 4 2
a - a a - z - a z - a z</nowiki>}}
a - a + a - z - a z - a z</nowiki>}}
<!--END-->
<!--END-->


Line 44: Line 44:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 5 |
n = 6 |
in = <nowiki>Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]</nowiki> |
in = <nowiki>Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]</nowiki> |
out= <nowiki> -6 -5 -4 2 2 2 2
out= <nowiki> -6 -5 -4 2 2 2 2
2 q - q q - -- -- - - - q q
2 + q - q + q - -- + -- - - - q + q
3 2 q
3 2 q
q q</nowiki>}}
q q</nowiki>}}
Line 55: Line 55:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 6 |
n = 7 |
in = <nowiki>Jones[K][q]</nowiki> |
in = <nowiki>Jones[K][q]</nowiki> |
out= <nowiki> -6 -5 -4 2 2 2 2
out= <nowiki> -6 -5 -4 2 2 2 2
2 q - q q - -- -- - - - q q
2 + q - q + q - -- + -- - - - q + q
3 2 q
3 2 q
q q</nowiki>}}
q q</nowiki>}}
Line 66: Line 66:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 7 |
n = 8 |
in = <nowiki>{HOMFLYPT[K][1, z], Conway[K][z]}</nowiki> |
in = <nowiki>{HOMFLYPT[K][1, z], Conway[K][z]}</nowiki> |
out= <nowiki> 2 2
out= <nowiki> 2 2
Line 76: Line 76:
In our parametrization of the <math>A_2</math> link invariant, it satisfies
In our parametrization of the <math>A_2</math> link invariant, it satisfies


<center><math>A_2(L)(q) = (-1)^c(q^2 1 q^{-2})H(L)(q^{-3},\,q-q^{-1})</math>,</center>
<center><math>A_2(L)(q) = (-1)^c(q^2+1+q^{-2})H(L)(q^{-3},\,q-q^{-1})</math>,</center>


where <math>L</math> is some knot or link and where <math>c</math> is the number of components of <math>L</math>. Let us verify this fact for the Whitehead link, [[L5a1]]:
where <math>L</math> is some knot or link and where <math>c</math> is the number of components of <math>L</math>. Let us verify this fact for the Whitehead link, [[L5a1]]:
Line 83: Line 83:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{In|
{{In|
n = 8 |
n = 9 |
in = <nowiki>L = Link[5, Alternating, 1];</nowiki>}}
in = <nowiki>L = Link[5, Alternating, 1];</nowiki>}}
<!--END-->
<!--END-->


<!--$$Simplify[{
<!--$$Simplify[{
(-1)^(Length[Skeleton[L]]-1)(q^2 1 1/q^2)HOMFLYPT[L][1/q^3, q-1/q],
(-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q],
A2Invariant[L][q]
A2Invariant[L][q]
}]$$-->
}]$$-->
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 9 |
n = 10 |
in = <nowiki>Simplify[{
in = <nowiki>Simplify[{
(-1)^(Length[Skeleton[L]]-1)(q^2 1 1/q^2)HOMFLYPT[L][1/q^3, q-1/q],
(-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q],
A2Invariant[L][q]
A2Invariant[L][q]
}]</nowiki> |
}]</nowiki> |
out= <nowiki> -12 -8 -6 2 -2 2 4 6
out= <nowiki> -12 -8 -6 2 -2 2 4 6
{2 - q q q -- q q q q ,
{2 - q + q + q + -- + q + q + q + q ,
4
4
q
q
-12 -8 -6 2 -2 2 4 6
-12 -8 -6 2 -2 2 4 6
2 - q q q -- q q q q }
2 - q + q + q + -- + q + q + q + q }
4
4
q</nowiki>}}
q</nowiki>}}
Line 116: Line 116:
{{note|HOMFLY}} J. Hoste, A. Ocneanu, K. Millett, P. Freyd, W. B. R. Lickorish and D. Yetter, ''A new polynomial invariant of knots and links'', Bull. Amer. Math. Soc. '''12''' (1985) 239-246.
{{note|HOMFLY}} J. Hoste, A. Ocneanu, K. Millett, P. Freyd, W. B. R. Lickorish and D. Yetter, ''A new polynomial invariant of knots and links'', Bull. Amer. Math. Soc. '''12''' (1985) 239-246.


{{note|PT}} J. Przytycki and P. Traczyk, <math>Conway Algebras and Skein Equivalence of Links</math>, Proc. Amer. Math. Soc. '''100''' (1987) 744-748.
{{note|PT}} J. Przytycki and P. Traczyk, ''Conway Algebras and Skein Equivalence of Links'', Proc. Amer. Math. Soc. '''100''' (1987) 744-748.

Latest revision as of 19:56, 8 August 2013


The HOMFLY-PT polynomial (see [HOMFLY] and [PT]) of a knot or link is defined by the skein relation

Failed to parse (unknown function "\overcrossing"): {\displaystyle aH\left(\overcrossing\right)-a^{-1}H\left(\undercrossing\right)=zH\left(\smoothing\right) }

and by the initial condition =1.

KnotTheory` knows about the HOMFLY-PT polynomial:

(For In[1] see Setup)

In[2]:= ?HOMFLYPT
HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z.
In[3]:= HOMFLYPT::about
The HOMFLYPT program was written by Scott Morrison.

Thus, for example, here's the HOMFLY-PT polynomial of the knot 8_1:

In[4]:= K = Knot[8, 1];
In[5]:= HOMFLYPT[Knot[8, 1]][a, z]
Out[5]= -2 4 6 2 2 2 4 2 a - a + a - z - a z - a z

It is well known that HOMFLY-PT polynomial specializes to the Jones polynomial at and and to the Conway polynomial at . Indeed,

In[6]:= Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]
Out[6]= -6 -5 -4 2 2 2 2 2 + q - q + q - -- + -- - - - q + q 3 2 q q q
In[7]:= Jones[K][q]
Out[7]= -6 -5 -4 2 2 2 2 2 + q - q + q - -- + -- - - - q + q 3 2 q q q
In[8]:= {HOMFLYPT[K][1, z], Conway[K][z]}
Out[8]= 2 2 {1 - 3 z , 1 - 3 z }
8 1.gif
8_1
L5a1.gif
L5a1

In our parametrization of the link invariant, it satisfies

,

where is some knot or link and where is the number of components of . Let us verify this fact for the Whitehead link, L5a1:

In[9]:= L = Link[5, Alternating, 1];
In[10]:= Simplify[{ (-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q], A2Invariant[L][q] }]
Out[10]= -12 -8 -6 2 -2 2 4 6 {2 - q + q + q + -- + q + q + q + q , 4 q -12 -8 -6 2 -2 2 4 6 2 - q + q + q + -- + q + q + q + q } 4 q

Other Software to Compute the HOMFLY-PT Polynomial

A C-based program running under windows by M. Ochiai can compute the HOMFLY-PT polynomial of certain knots and links with up to hundreds of crossings using "base tangle decompositions". His program, bTd, is available at [1].

References

[HOMFLY] ^  J. Hoste, A. Ocneanu, K. Millett, P. Freyd, W. B. R. Lickorish and D. Yetter, A new polynomial invariant of knots and links, Bull. Amer. Math. Soc. 12 (1985) 239-246.

[PT] ^  J. Przytycki and P. Traczyk, Conway Algebras and Skein Equivalence of Links, Proc. Amer. Math. Soc. 100 (1987) 744-748.