~ ~ ~ ~ ~ TETRAHEDRON by J. Snuszka ~ ~ ~ ~ ~

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

A=vector(cos([2*pi*v])*sin([2*pi*u]),sin([2*pi*v])*sin([2*pi*u]),cos([2*pi*u])),B=vector(cos([2*p])*sin([2*q]),sin([2*p])*sin([2*q]),cos([2*q])),C=vector(u*cos([2*m])*sin([2*n])-(u*cos([2*p])*sin([2*q])),u*v*sin([2*m])*sin([2*n])-(u*v*sin([2*p])*sin([2*q])),u*cos([2*n])-(u*cos([2*q])))

D=vector(V_3*sin([2*pi*u]),-(V_4*v),V_3*cos([2*pi*u])),E=vector(-(V_4*v),V_3*sin([2*pi*u]),V_3*cos([2*pi*u])),I=matrix(3,3,a*X^2+M,a*X*Y-(N*Z),a*X*Z+N*Y,a*X*Y+N*Z,a*Y^2+M,a*Y*Z-(N*X),a*X*Z-(N*Y),a*Y*Z+N*X,a*Z^2+M)

a=1-cos([2*b]),X=cos([2*g])*sin([2*h]),Y=sin([2*g])*sin([2*h]),Z=cos([2*h]),M=cos([2*b]),N=sin([2*b])

V_1=0.33,V_2=0.02,V_3=0.007,V_4=2*sin([V_5]),V_5=1/2*acos([-1/3])

S_1=set(0,2*pi/3,4*pi/3),S_2=set(0,V_5),S_3=set(2*pi/3,[-2]*pi/3),S_4=set(0,pi/4,2*pi/4,3*pi/4)

S_5=set(0),S_6=set(V_5),S_7=set(pi/4),S_8=set(4*pi/3),S_9=set((V_5-pi)/2)

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

vector(x,y,z)=V_1*A

vector(x,y,z)=V_2*A+B,in(p,S_1),in(q,S_2)

vector(x,y,z)=I*C+I*B,in(m,S_3),in(n,S_6),in(p,S_5),in(q,S_6),in(g,S_3),in(h,S_6),in(b,S_1)

vector(x,y,z)=I*D+I*B,in(m,S_3),in(n,S_6),in(p,S_8),in(q,S_6),in(g,S_3),in(h,S_2),in(b,S_1)

vector(x,y,z)=I*E+B,in(m,S_5),in(n,S_6),in(p,S_5),in(q,S_5),in(g,S_7),in(h,S_7),in(b,S_9)

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.