0708-1300/Class notes for Thursday, January 17: Difference between revisions
From Drorbn
Jump to navigationJump to search
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
{{0708-1300/Navigation}} |
{{0708-1300/Navigation}} |
||
==Pictures for a Van-Kampen Computation== |
|||
{{In| |
|||
n = 1 | |
|||
in = <nowiki><< KnotTheory`</nowiki>}} |
|||
<tt>Loading KnotTheory` version of January 13, 2008, 20:30:12.1353.<br> |
|||
Read more at http://katlas.org/wiki/KnotTheory.</tt> |
|||
{{Graphics| |
|||
n = 2 | |
|||
in = <nowiki>TubePlot[TorusKnot[8, 3]]</nowiki> | |
|||
img= 0708-1300-T83.png}} |
|||
{{In| |
|||
n = 3 | |
|||
in = <nowiki>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] |
|||
};</nowiki>}} |
|||
{{In| |
|||
n = 4 | |
|||
in = <nowiki>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 |
|||
];</nowiki>}} |
|||
{{Graphics| |
|||
n = 5 | |
|||
in = <nowiki>GraphicsArray[{{InflatedTorus[3,8,1], InflatedTorus[3,8,-1]}}]</nowiki> | |
|||
img= 0708-1300-InflatedTori.png | |
|||
width = 640px}} |
|||
Revision as of 17:28, 21 January 2008
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
