A=sin(C/2),B=cos(C/2),C=atan(2),S=set(0,pi/4,2*pi/4,3*pi/4,4*pi/4,5*pi/4,6*pi/4,7*pi/4),g=0.7*t+0.4,h=0.7+0.4,k=13*pi/16

vector(x,y,z)=0.8*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),abs(0.1*cos(2*pi*u)))-vector(0,0,B)

vector(x,y,z)=0.4*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),abs(0.35*cos(2*pi*u)))-vector(0,0,B)

vector(x,y,z)=vector([0.8*B+0.03*cos(2*pi*u)]*[cos(2*pi*v)],[0.8*B+0.03*cos(2*pi*u)]*[sin(2*pi*v)],abs(0.04*sin(2*pi*u)))-vector(0,0,B)

vector(x,y,z)=0.83*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),0)-vector(0,0,B)

vector(x,y,z)=vector(0.035*sin(2*pi*u),0.035*cos(2*pi*u),v*2*B)-vector(0,0,B)

vector(x,y,z)=vector([0.6+0.04*cos(2*pi*u)]*[cos(2*pi*v)],[0.6+0.04*cos(2*pi*u)]*[sin(2*pi*v)],0.01*sin(2*pi*u))+vector(0,0,B)

vector(x,y,z)=vector([0.1+0.02*cos(2*pi*u)]*[cos(2*pi*v)],[0.1+0.02*cos(2*pi*u)]*[sin(2*pi*v)],0.005*sin(2*pi*u))+vector(0,0,0.75*B)

vector(x,y,z)=0.02*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0.1*cos([2*pi*n+w]),0.1*sin([2*pi*n+w]),B*0.75),in(w,S)

vector(x,y,z)=0.02*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0.15*cos([2*pi*n+w]),0.15*sin([2*pi*n+w]),B),in(w,S)

vector(x,y,z)=0.02*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0.3*cos([2*pi*n+w]),0.3*sin([2*pi*n+w]),B),in(w,S)

vector(x,y,z)=0.02*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0.6*cos([2*pi*n+w]),0.6*sin([2*pi*n+w]),B),in(w,S)

vector(x,y,z)=0.4*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),0.05*cos(2*pi*u))+vector(0,0,B)

vector(x,y,z)=0.2*B*vector(0.2*sin(2*pi*u)*sin(2*pi*v),0.2*sin(2*pi*u)*cos(2*pi*v),abs(cos(2*pi*u)))+vector(0,0,B)

vector(x,y,z)=0.15*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0,0,B)

vector(x,y,z)=0.1*B*vector(sin(2*pi*u)*sin(2*pi*v),sin(2*pi*u)*cos(2*pi*v),cos(2*pi*u))+vector(0,0,0.75*B)

vector(x,y,z)=vector(0.6*t*cos([2*pi*n+w]),0.6*t*sin([2*pi*n+w]),B),in(w,S)

vector(x,y,z)=vector(0.6*t*cos([2*pi*n+w]),0.6*t*sin([2*pi*n+w]),t*0.3*B+0.7*B),in(w,S)

vector(x,y,z)=vector(g*cos([2*pi*n])-(g*sin([2*pi*n])),g*cos([2*pi*n])+g*sin([2*pi*n]),B+t*sin([m*sin([6*pi*n])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n])-(h*sin([2*pi*n])),h*cos([2*pi*n])+h*sin([2*pi*n]),B+sin([m*sin([6*pi*n])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+pi/4])-(g*sin([2*pi*n+pi/4])),g*cos([2*pi*n+pi/4])+g*sin([2*pi*n+pi/4]),B+t*sin([m*sin([6*pi*n+pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+pi/4])-(h*sin([2*pi*n+pi/4])),h*cos([2*pi*n+pi/4])+h*sin([2*pi*n+pi/4]),B+sin([m*sin([6*pi*n+pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+2*pi/4])-(g*sin([2*pi*n+2*pi/4])),g*cos([2*pi*n+2*pi/4])+g*sin([2*pi*n+2*pi/4]),B+t*sin([m*sin([6*pi*n+2*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+2*pi/4])-(h*sin([2*pi*n+2*pi/4])),h*cos([2*pi*n+2*pi/4])+h*sin([2*pi*n+2*pi/4]),B+sin([m*sin([6*pi*n+2*pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+3*pi/4])-(g*sin([2*pi*n+3*pi/4])),g*cos([2*pi*n+3*pi/4])+g*sin([2*pi*n+3*pi/4]),B+t*sin([m*sin([6*pi*n+3*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+3*pi/4])-(h*sin([2*pi*n+3*pi/4])),h*cos([2*pi*n+3*pi/4])+h*sin([2*pi*n+3*pi/4]),B+sin([m*sin([6*pi*n+3*pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+4*pi/4])-(g*sin([2*pi*n+4*pi/4])),g*cos([2*pi*n+4*pi/4])+g*sin([2*pi*n+4*pi/4]),B+t*sin([m*sin([6*pi*n+4*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+4*pi/4])-(h*sin([2*pi*n+4*pi/4])),h*cos([2*pi*n+4*pi/4])+h*sin([2*pi*n+4*pi/4]),B+sin([m*sin([6*pi*n+4*pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+5*pi/4])-(g*sin([2*pi*n+5*pi/4])),g*cos([2*pi*n+5*pi/4])+g*sin([2*pi*n+5*pi/4]),B+t*sin([m*sin([6*pi*n+5*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+5*pi/4])-(h*sin([2*pi*n+5*pi/4])),h*cos([2*pi*n+5*pi/4])+h*sin([2*pi*n+5*pi/4]),B+sin([m*sin([6*pi*n+5*pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+6*pi/4])-(g*sin([2*pi*n+6*pi/4])),g*cos([2*pi*n+6*pi/4])+g*sin([2*pi*n+6*pi/4]),B+t*sin([m*sin([6*pi*n+6*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+6*pi/4])-(h*sin([2*pi*n+6*pi/4])),h*cos([2*pi*n+6*pi/4])+h*sin([2*pi*n+6*pi/4]),B+sin([m*sin([6*pi*n+6*pi/4])-k]))

vector(x,y,z)=vector(g*cos([2*pi*n+7*pi/4])-(g*sin([2*pi*n+7*pi/4])),g*cos([2*pi*n+7*pi/4])+g*sin([2*pi*n+7*pi/4]),B+t*sin([m*sin([6*pi*n+7*pi/4])-k]))

vector(x,y,z)=vector(h*cos([2*pi*n+7*pi/4])-(h*sin([2*pi*n+7*pi/4])),h*cos([2*pi*n+7*pi/4])+h*sin([2*pi*n+7*pi/4]),B+sin([m*sin([6*pi*n+7*pi/4])-k]))


Graph of the formula

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