In[1]:=
In[4]:=
In[5]:=
Created by
Mathematica
(November 30, 2004)
![TC[r1_, t1_, r2_, t2_ ] := { (r1 + r2 Cos[2Pi t2]) Cos[2Pi t1], (r1 + r2 Cos[ ... 1; {t, 0, 1}, {s, 0, 1/(p^2 + q^2)}, PlotPoints {6 (p^2 + q^2) + 1, 7} ]](HTMLFiles/BlownTorus_1.gif)
![g2 = BlownTorus[3, 8, 1] ;](HTMLFiles/BlownTorus_2.gif){kind=small}
![[Graphics:HTMLFiles/BlownTorus_3.gif]](HTMLFiles/BlownTorus_3.gif)
![g3 = BlownTorus[3, 8, -1] ;](HTMLFiles/BlownTorus_4.gif){kind=small}
![[Graphics:HTMLFiles/BlownTorus_5.gif]](HTMLFiles/BlownTorus_5.gif)