Difference between revisions of "0708-1300/Class notes for Thursday, January 17"

From Drorbn
Jump to: navigation, search
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 |
out= <nowiki>-GraphicsArray-</nowiki>}}
+
width = 720px}}

Revision as of 09:53, 17 January 2008

Announcements go here

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]= {{{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]= 0708-1300-InflatedTori.png