User:Zsuzsi/HW4

From Drorbn
Revision as of 16:43, 4 December 2006 by Zsuzsi (talk | contribs)
Jump to navigationJump to search

The Generators

Our generators are , , and :

Picture 06-1350-BPlus.svg
Generator
Perturbation

A low-tech completed version of this chart:

Chart.jpg

The Relations

The Reidemeister move R1

Reidemeister1.jpg

We cannot write this in the first notation, as the chords ending on both the second and third red line will end on the second pink line.

In the linearized functional notation, if I'm getting this right, it looks like this:

Where the negative sign is because the order of the chords is reversed as we slide them along the little loop.

The Reidemeister move R2

With three sides of the shielding removed, the picture is: Reidemeister2.jpg

This means:

Linearized and in functional form:

((The right side won't contribute anything, right?))

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, source:Andy

First version of R4:

06-1350-R4a.png

In formulas, this is

.

Linearized and written in functional form, this becomes

Second version:

06-1350-R4b.png

In formulas, this is

.

Linearized and written in functional form, this becomes

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

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