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 12: | Line 12: | ||
n = 2 | |
n = 2 | |
||
in = <nowiki>TubePlot[TorusKnot[8, 3]]</nowiki> | |
in = <nowiki>TubePlot[TorusKnot[8, 3]]</nowiki> | |
||
img= 0708-1300-T83.png |
img= 0708-1300-T83.png}} |
||
out= <nowiki>-Graphics-</nowiki>}} |
|||
{{In| |
{{In| |
||
Line 39: | Line 38: | ||
in = <nowiki>GraphicsArray[{{InflatedTorus[3,8,1], InflatedTorus[3,8,-1]}}]</nowiki> | |
in = <nowiki>GraphicsArray[{{InflatedTorus[3,8,1], InflatedTorus[3,8,-1]}}]</nowiki> | |
||
img= 0708-1300-InflatedTori.png | |
img= 0708-1300-InflatedTori.png | |
||
width = 720px}} |
|||
out= <nowiki>-GraphicsArray-</nowiki>}} |
Revision as of 09:53, 17 January 2008
|
Pictures for a Van-Kampen Computation
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]=
|
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]=
|