User:Zak/06-1350-HW4

From Drorbn
Jump to: navigation, search

Contents

Disclaimer

This page has nothing new yet! I've just copied Dror's page. If this page can't be smart maybe it can look good. I've made some SVG files of the generators mimicking Dror's BPlus. Feel free to copy them so I don't feel bad about copying you.

The Generators

Our generators are T, R, \Phi and B^{\pm}:

Picture 06-1350-T.svg 06-1350-R.svg 06-1350-Phi.svg 06-1350-BPlus.svg 06-1350-BMinus.svg
Generator T R \Phi B^+ B^-
Perturbation t r \varphi b^+ b^-

The Relations

The Reidemeister Move R3

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

06-1350-R4.svg

In formulas, this is

(1230)^\star B^+ (1213)^\star B^+ (1023)^\star B^+ = (1123)^\star B^+ (1203)^\star B^+ (1231)^\star B^+.

Linearized and written in functional form, this becomes

\rho_3(x_1, x_2, x_3, x_4) = b^+(x_1,x_2,x_3) + b^+(x_1+x_3,x_2,x_4) + b^+(x_1,x_3,x_4)
- b^+(x_1+x_2,x_3,x_4) - b^+(x_1,x_2,x_4) - b^+(x_1+x_4,x_2,x_3).

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

BB(x_1,x_2,x_3,x_4,x_5) = \rho_3(x_1, x_2, x_3, x_5) + \rho_3(x_1 + x_5, x_2, x_3, x_4) - \rho_3(x_1 + x_2, x_3, x_4, x_5)
- \rho_3(x_1, x_2, x_4, x_5) - \rho_3(x_1 + x_4, x_2, x_3, x_5) - \rho_3(x_1, x_2, x_3, x_4)
+ \rho_3(x_1, x_3, x_4, x_5) + \rho_3(x_1 + x_3, x_2, x_4, x_5).

A Mathematica Verification

The following simulated Mathematica session proves that for our single relation and single syzygy, d^2=0. 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