From 0506Topology
| #
| Week of...
| Links (edit)
|
| Fall
|
| 1
| Sep 12
| About, Tue, Thu, Std2Disc
|
| 2
| Sep 19
| Tue, Thu, HW1, 14 Sets
|
| 3
| Sep 26
| Tue, Thu, Photo
|
| 4
| Oct 3
| Tue, Thu
|
| 5
| Oct 10
| HW2, Tue, Thu
|
| 6
| Oct 17
| Tue, Thu, HW3
|
| 7
| Oct 24
| Mon, Tue, Thu
|
| 8
| Oct 31
| Tue, Thu, HW4
|
| 9
| Nov 7
| TE1, Tue, Thu
|
| 10
| Nov 14
| Tue, Thu, HW5
|
| 11
| Nov 21
| Tue, Thu
|
| 12
| Nov 28
| Tue, Thu, HW6
|
| 13
| Dec 5
| Tue, Thu
|
| E
| Dec 12
| TE2
|
| Spring
|
| 14
| Jan 9
| Tue, IT83, Thu, HW7
|
| 15
| Jan 16
| Tue, Thu
|
| 16
| Jan 23
| Tue, HW8, Thu
|
| 17
| Jan 30
| Tue, Thu
|
| 18
| Feb 6
| TE3, Tue, Thu
|
| 19
| Feb 13
| Tue, Thu
|
| R
| Feb 20
|
|
| 20
| Feb 27
| Tue, Thu, HW9
|
| 21
| Mar 6
| Tue, Thu, HW10
|
| 22
| Mar 13
| Tue, Thu
|
| 23
| Mar 20
| Tue, Thu, HW11
|
| 24
| Mar 27
| Tue, Thu
|
| 25
| Apr 3
| Tue, Thu, HW12
|
| 26
| Apr 10
| Tue, Thu
|
| Study
| Apr 17
| Office Hours
|
| Exams
| Apr 24
| Final, PM
|
An Inflated Torus Knot
In[1]:=
| Get["KnotTheory`", Path -> "C:/drorbn/projects/KAtlas"]
|
Loading KnotTheory` (version of September 14, 2005, 13:37:36)...
In[2]:=
| Show[TubePlot[TorusKnot[8, 3]]]
|
|
| 
|
Out[2]=
| -Graphics-
|
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]:=
| Show[GraphicsArray[{{InflatedTorus[3,8,1], InflatedTorus[3,8,-1]}}]]
|
|
| 
|
Out[5]=
| -GraphicsArray-
|
