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 navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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}}}