~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ ~ ~ ~ ~ ~ ~ ~ TORUS KNOT by Jarek Snuszka ~ ~ ~ ~ ~ ~ ~ ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

a=slider([1,20,19])

b=slider([1,20,19])

c=slider([1,3,200])

d=slider([0,3,300])

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

vector(x,y,z)=3*vector(cos([2*pi*u+pi])*[1+1*sin([pi*v+pi/2])],sin([2*pi*u+pi])*[1+1*sin([pi*v+pi/2])],[0.5]*cos([pi*v+pi/2]))

vector(x,y,z)=vector(cos([2*a*pi*t*n])*[c+d*sin(b*2*pi*t*n)],sin([2*a*pi*t*n])*[c+d*sin(b*2*pi*t*n)],0.3*cos([b*2*pi*t*n])*[c+d*sin(b*2*pi*t*n)]),'radius'=0.1,vector(h,s,v)=vector(t*n,1,1)

vector(x,y,z)=[0.048]*vector(cos([pi*u])*sin([2*pi*v]),sin([pi*u])*sin([2*pi*v]),cos([2*pi*v]))+vector(cos([2*a*pi*n])*[c+d*sin(b*2*pi*n)],sin([2*a*pi*n])*[c+d*sin(b*2*pi*n)],0.3*cos([b*2*pi*n])*[c+d*sin(b*2*pi*n)]),vector(h,s,v)=vector(n,1,1)

vector(x,y,z)=[0.048]*vector(cos([pi*u])*sin([2*pi*v]),sin([pi*u])*sin([2*pi*v]),cos([2*pi*v]))+vector(cos([0*a*pi*n])*[c+d*sin(b*0*pi*n)],sin([0*a*pi*n])*[c+d*sin(b*0*pi*n)],0.3*cos([b*0*pi*n])*[c+d*sin(b*0*pi*n)]),vector(h,s,v)=vector(1,1,1)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Graph of the formula

This file was created by Graphing Calculator 4.0.5.
Visit Pacific Tech to download the helper application to view and edit these equations live.