Drawing with TubePlot

giochi di diverse carte lavatrici e lavasciuga aeg porte per cani furgone usato sin un beso temptation island ghandi forni ad incasso smeg sawaru made in wario corrida kamikaze a colori fack it imon m35 batteria tetrix arcade vir gilio huntington park trova fernando delgadillo casse subwoofer yamaha lexmark 1000 reality all estero froufrou trasformatore camper concessionario seat padova largo di mendelssohn www ginecology it garzigliana finanziamento abruzzo ms office sbe 2003 appunti diritto tributario luci e ombre per il tokyo game show autunnale mmc 512mb dual voltage langelo del ring sude mi capa rezza vengo dalla luna navigatore gps per nokia 6680 dj fish ford fiesta newport 1.3 fiore domicilio cam girls polmone del suino cinelli amd athlon 64 desktop computer hotel loira francia taiyo yuden cuffie senza filo sony www articolo 31 it nec lampada hp 5 pixel djm 600 daiji maria teresa ruta nuda volo rozzano henryson o henderson, robert il sito ufficiale di pro evolution soccer bcs 333 dobson, rosemary gerocarne er califfo panasonic lumix 30 felisia discoteca mesa que mas apla porsche 911 coupe la ultima cena rappresentanti per estero sabrina 19 caldaie ricambi napoli ball revamped 2 profumi baldessarini spy killer foto naziskin beep batteria per nokia 8810 volatili affittacamere ebbrezza bianca recupero dati the lion sleep s tonight tesine esame terza media kenwood w6531 tracce esami di stato timok iposte hotel 3 stelle lisbona giochi dei cartoni animati fiat barchetta 1 8 navigatore gps bluetooth canon batteria sigillo convertibili champagne in paradiso movimento cantautori stafania orlando d m n 142 brother inkjet multifunzione con fax albergo 3 stella chicago tatoo bracciali tribali pissing singole guardie giurate link porno cuckold lo spavaldo midnight hour pickett luciano ferro perdona dvd ally mc beal james legros foto pornor inno sovietico sorpassometro foto lilla for men tesi pubblicata rotliegendes ups apc smart 750 pny geforce 7800gtx 256 mb pci express memoria ram toshiba satellite 5100 cappello con visiera severina video www atene it buffer figli di pitagora dimagranti integratori blazer 4.3 grimaldi spa di navigazione scuola per estetista albergo bolzano situazione disperata, ma non seria designjet 30 www samsung hi fi com stampanti lbp matera mp3 free shrek savage 25 incluso desktop computer www relatieplanet nl www porno foto video yugoslavia it alessandro sposa rossane ricevitore gps blutooth benni satisfaction televisore lcd 20 monitor crt lg 19 la ballata dei fantasmi genova - roma gutter brothers operation - hit squad rockstar game denver cose fare daewoo nexia aika. disco 1 eleciones 2 usa fiat usata torino video 666 com trattori vega bci 3000 x press attentato ai tre grandi enterite bandiera gran bretagna lingo squad telefonini lg edge sonia morales ratzel, friedrich croste honda civic 1.4i 16v 5p. s superfighetto it lingeries globalsat gsm allevatori como portatile amd l oceano del silenzio baciata multipla jtd km 0 dynamic sony mpk modellino della uno turbo concessionarie per la campagnia la maledizione della prima luna il disco vincitore amico evangelion the end pig word behringer xm8500 apple 23 ieee 1394 dv foto giornaliste sexy nuova alfa romeo 147 gta video petra nemcova profeti www ceteco it giacomo leopardi foto philips 109b50 fiera del cioccolato in perugia canzone anni 70 conqueror 1086 a.d. workcentre pe120i mtaa 4513 v stampante laser colori cx11n this is love marron 5 lettore memory stick pro tacchi sexi il segreto di cristoforo colombo tamenghest hp psc2410 clarima banca v data 512 emmanuil, cesare

KnotTheory`/Navigation  The Mathematica Package KnotTheory` Acknowledgement Setup Naming and Enumeration Presentations Planar Diagrams Some further details Gauss Codes DT (Dowker-Thistlethwaite) Codes Braid Representatives MorseLink Presentations Arc Presentations Conway Notation Graphical Input Graphical Output Drawing Planar Diagrams How does it work? Drawing MorseLink Presentations Drawing Braids Structure and Operations Invariants Invariants from Braid Theory Three Dimensional Invariants The Alexander-Conway Polynomial The Multivariable Alexander Polynomial The Determinant and the Signature The Jones Polynomial How is the Jones polynomial computed? The Coloured Jones Polynomials The A2 Invariant Quantum knot invariants The HOMFLY-PT Polynomial The Kauffman Polynomial Finite Type (Vassiliev) Invariants Khovanov Homology Heegaard Floer Knot Homology R-Matrix Invariants Extras Included with KnotTheory` Drawing with TubePlot Standalone_TubePlot Using the LinKnot package WikiLink QuantumGroups` Lightly Documented Features A Sample KnotTheory` Session Further Usage Example Prime Links with a Non-Prime Component "Rubberband" Brunnian Links Identifying Knots within a List Cabling Burau's Theorem Further Knot Theory Software KnotPlot Knotscape Xknots Extending/Modifying KnotTheory` Bugs How to Edit this Manual...

(For In[1] see Setup)

In[1]:= ?TubePlot TubePlot[gamma, {t, t0, t1}, r, opts] plots the space curve gamma with the variable t running from t0 to t1, as a tube of radius r. The available options are TubeSubdivision, TubeFraming and TubePlotPrelude. All other options are passed on to Graphics3D. TubePlot[TorusKnot[m, n], opts] produces a tube plot of the (m,n) torus knot.

Thus here's a thin unknot:

In[3]:=	Show[TubePlot[{Cos[t], Sin[t], 0}, {t, 0, 2Pi}, 0.1]]
Out[3]=	-Graphics3D-

In[4]:= ?TubeSubdivision TubeSubdivision is an option for TubePlot. TubePlot[__, TubeSubdivision -> {l, m} draws the tube subdivided to l pieces lengthwise and m pieces around. The default is TubeSubdivision -> {50, 12}.

In[5]:= ?TubeFraming TubeFraming is an option for TubePlot. TubePlot[gamma, {t, __}, _, TubeFraming -> n] sets the framing of the tube (visible when TubeSubdivision -> {l, m} with small m) to be the vector n, which in itself may be a function of t. Thus TubeFraming -> {0,0,1} is "blackboard framing". TubeFraming -> Normal (default) uses the normal vector of the curve gamma.

In[6]:= ?TubePlotPrelude TubePlotPrelude is an option for TubePlot. Its value is passed to Graphics3D before the main part of the plot, allowing to set various graphics options. For example, TubePlotPrelude -> EdgeForm[{}] will suppress the drawing of edges between the polygons making up the tube. The default is TubePlotPrelude -> {}.

Here's the same unknot, made thicker and not as smooth:

In[8]:=	Show[TubePlot[ {Cos[t], Sin[t], 0}, {t, 0, 2Pi}, 0.3, TubeSubdivision -> {6, 3} ]]
Out[8]=	-Graphics3D-

Let's play with the framing now:

In[10]:=	Show[TubePlot[ {Cos[t], Sin[t], 0}, {t, 0, 2Pi}, 0.2, TubeSubdivision -> {50, 2}, TubeFraming -> {Cos[2t]Cos[t], Cos[2t]Sin[t], Sin[3t]} ]]
Out[10]=	-Graphics3D-

Here's an example that uses a prelude and passes options on to Graphics3D:

In[12]:=	Show[TubePlot[ {Cos[2t], Sin[2t], 0} 0.5{Cos[3t]Cos[2t], Cos[3t]Sin[2t], -Sin[3t]}, {t, 0, 2Pi}, 1/3, TubeSubdivision -> {280, 12}, TubeFraming -> {0,0,1}, TubePlotPrelude -> EdgeForm[{}], Boxed -> False, ViewPoint -> {0,0,1} ]]
Out[12]=	-Graphics3D-

The last example serves as the basis for the definition of TubePlot[TorusKnot[m, n]]. Here's a final example:

In[14]:=	Show[TubePlot[TorusKnot[3, 5]]]
Out[14]=	-Graphics3D-

Standalone TubePlot

There may be some independent interest in the routine TubePlot, and hence it is available also as an independent package. Here it is: TubePlot.m (File:TubePlot.m).