The Alexander Polynomial for Tangles

Abstract

WExpand@expr_D := Expand@expr . w_W ¦ Signature@wD * Sort@wDD; WM@___, 0, ___D = 0; a_ ~WM~ b_ := WExpandADistribute@a ** bD . Ic1_. * w1_WM ** Ic2_. * w2_WM ¦ c1 c2 Join@w1, w2D E; WM@a_, b_, c__D := a ~WM~ WM@b, cD; IM@8<, expr_D := expr; IM@i_, w_WD := If@MemberQ@w, iD, -H-1L^Position@w, iD@@1, 1DD DeleteCases@w, iD, 0D; IM@8is___, i_<, w_WD := IM@8is<, IM@i, wDD; IM@is_List, expr_D := expr . w_W ¦ IM@is, wD

Cite this paper

@inproceedings{Archibald2009TheAP, title={The Alexander Polynomial for Tangles}, author={J . David Archibald}, year={2009} }