User:Andy/06-1350-HW4

From Drorbn
Revision as of 17:35, 5 December 2006 by Andy (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

The Generators

Our generators are , , and :

Picture 06-1350-BPlus.svg
Generator
Perturbation

The Relations

The Reidemeister Move R2

The following version of R2 was the easiest to use to build my original around syzygy:

06-1350-R2-weird.png

In formulas, this is

Linearized and written in functional form, this becomes

The Reidemeister Move R3

The picture (with three sides of the shielding removed) is

06-1350-R4.svg

In formulas, this is

.

Linearized and written in functional form, this becomes

The Reidemeister Move R4

To establish the syzygy below, I needed two versions of R4. First:

06-1350-R4a.png

In formulas, this is

.

Linearized and written in functional form, this becomes

Second:

06-1350-R4b.png

In formulas, this is

.

Linearized and written in functional form, this becomes

Are these independent, or can they be shown to be equivalent using other relations?

The Syzygies

The "B around B" Syzygy

The picture, with all shielding removed, is

06-1350-BAroundB.svg
(Drawn with Inkscape)
(note that lower quality pictures are also acceptable)

The functional form of this syzygy is

The " around B" Syzygy

The picture, with all shielding (and any other helpful notations) removed, is

06-1350-PhiAroundB.png
(Drawn with Asymptote, Syzygies in Asymptote)

The functional form of this syzygy is

The " around " Syzygy

The original syzygy is available at Image:06-1350-PhiAroundPhi.png. A cleaner, minimal picture is

06-1350-PhiAroundPhiClean.png
(Drawn with Asymptote, Syzygies in Asymptote)

The functional form of this syzygy is

A Mathematica Verification

The following simulated Mathematica session proves that for our single relation and single syzygy, . Copy paste it into a live Mathematica session to see that it's right!

In[1]:= d1 = { rho3[x1_, x2_, x3_, x4_] :> bp[x1, x2, x3] + bp[x1 + x3, x2, x4] + bp[x1, x3, x4] - bp[x1 + x2, x3, x4] - bp[x1, x2, x4] - bp[x1 + x4, x2, x3] }; d2 = { BAroundB[x1_, x2_, x3_, x4_, x5_] :> rho3[x1, x2, x3, x5] + rho3[x1 + x5, x2, x3, x4] - rho3[x1 + x2, x3, x4, x5] - rho3[x1, x2, x4, x5] - rho3[x1 + x4, x2, x3, x5] - rho3[x1, x2, x3, x4] + rho3[x1, x3, x4, x5] + rho3[x1 + x3, x2, x4, x5] };
In[3]:= BAroundB[x1, x2, x3, x4, x5] /. d2
Out[3]= - rho3[x1, x2, x3, x4] + rho3[x1, x2, x3, x5] - rho3[x1, x2, x4, x5] + rho3[x1, x3, x4, x5] - rho3[x1 + x2, x3, x4, x5] + rho3[x1 + x3, x2, x4, x5] - rho3[x1 + x4, x2, x3, x5] + rho3[x1 + x5, x2, x3, x4]
In[4]:= BAroundB[x1, x2, x3, x4, x5] /. d2 /. d1
Out[4]= 0