0708-1300/Class notes for Thursday, January 17

From Drorbn
Revision as of 10:46, 17 January 2008 by Drorbn (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Announcements go here
In[1]:= << KnotTheory`

Loading KnotTheory` version of January 13, 2008, 20:30:12.1353.
Read more at http://katlas.org/wiki/KnotTheory.

In[2]:= TubePlot[TorusKnot[8, 3]]
Out[2]= {{{width}}}
In[3]:= TC[r1_, t1_,r2_,t2_ ] := { (r1 +r2 Cos[2Pi t2])Cos[2Pi t1], (r1 +r2 Cos[2Pi t2])Sin[2Pi t1], r2 Sin[2Pi t2] };
In[4]:= InflatedTorus[p_, q_, b_] := ParametricPlot3D[ TC[ 2, p t - q s, 1 + b(p^2 + q^2)s(1 - (p^2 + q^2)s), q t + p s ], {t, 0, 1}, {s, 0, 1/(p^2 + q^2)}, PlotPoints -> {6(p^2 + q^2) + 1, 7}, DisplayFunction -> Identity ];
In[5]:= GraphicsArray[{{InflatedTorus[3,8,1], InflatedTorus[3,8,-1]}}]
Out[5]= {{{width}}}