~ ~ ~ ~ ~ DUAL OF TRUNCATED DODECAHEDRON 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_1=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])))

C_2=vector(u*v*cos([2*m])*sin([2*n])-(u*v*cos([2*p])*sin([2*q])),u*sin([2*m])*sin([2*n])-(u*sin([2*p])*sin([2*q])),u*cos([2*n])-(u*cos([2*q]))),C_3=vector(u*cos([2*m])*sin([2*n])-(u*cos([2*p])*sin([2*q])),u*sin([2*m])*sin([2*n])-(u*sin([2*p])*sin([2*q])),u*v*cos([2*n])-(u*v*cos([2*q])))

D_1=vector(V_3*sin([2*pi*u]),V_3*cos([2*pi*u]),V_5*v),D_2=vector(V_3*sin([2*pi*u]),V_5*v,V_3*cos([2*pi*u])),D_3=vector(V_5*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)

D_4=vector(V_3*sin([2*pi*u]),V_3*cos([2*pi*u]),V_7*v),D_5=vector(V_3*sin([2*pi*u]),V_7*v,V_3*cos([2*pi*u])),D_6=vector(V_7*v,V_3*sin([2*pi*u]),V_3*cos([2*pi*u]))

D_7=vector(V_3*sin([2*pi*u]),V_3*cos([2*pi*u]),-(V_7*v)),D_8=vector(V_3*sin([2*pi*u]),V_7*v,V_3*cos([2*pi*u])),D_9=vector(V_7*v,V_3*sin([2*pi*u]),V_3*cos([2*pi*u]))

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.55,V_2=0.02,V_3=0.007,V_4=plusorminus(1),V_5=4/sqrt(10+2*sqrt(5)),V_6=asin([2/sqrt(10+2*sqrt(5))]),V_7=V_5/(2*cos([pi/6])),V_8=asin([V_5/(2*cos([pi/6]))])

S_1=set(0),S_2=set(pi/4),S_3=set(-pi/4,pi/4),S_4=set(0,pi/5,2*pi/5,3*pi/5,4*pi/5),S_5=set(pi/4+V_6/2),S_6=set(-pi/4),S_7=set(2*pi/5,3*pi/5,4*pi/5)

S_8=set(2*pi/5,3*pi/5),S_9=set(pi/2+V_6/2),S_10=set(pi/4-V_6/2),S_11=set(V_6/2),S_12=set(pi/4+V_6/2,pi/4-V_6/2),S_13=set(0,pi/2)

S_14=set([-2]*pi/10,2*pi/10),S_15=set(pi/4-V_6/2-V_8/2),S_16=set(pi/3,2*pi/3,3*pi/3),S_17=set(-pi/4+V_6/2+V_8/2),S_18=set(V_6/2+V_8/2),S_19=set(pi/2-V_6/2-V_8/2)

S_20=set(-pi/4+V_6/2),S_21=set(-pi/5,pi/5),S_22=set(pi/2-V_6/2)

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

vector(x,y,z)=I*V_4*C_1+V_4*B,in(m,S_3),in(n,S_11),in(p,S_1),in(q,S_15),in(g,S_1),in(h,S_15),in(b,S_16)

vector(x,y,z)=I*V_4*C_1+V_4*B,in(m,S_3),in(n,S_11),in(p,S_1),in(q,S_17),in(g,S_1),in(h,S_17),in(b,S_16)

vector(x,y,z)=I*V_4*C_2+V_4*B,in(m,S_12),in(n,S_2),in(p,S_2),in(q,S_18),in(g,S_2),in(h,S_18),in(b,S_16)

vector(x,y,z)=I*V_4*C_2+V_4*B,in(m,S_12),in(n,S_2),in(p,S_2),in(q,S_19),in(g,S_2),in(h,S_19),in(b,S_16)

vector(x,y,z)=I*V_4*C_3+V_4*B,in(m,S_1),in(n,S_12),in(p,S_15),in(q,S_2),in(g,S_15),in(h,S_2),in(b,S_16)

vector(x,y,z)=I*V_4*C_3+V_4*B,in(m,S_1),in(n,S_12),in(p,S_17),in(q,S_2),in(g,S_17),in(h,S_2),in(b,S_16)

vector(x,y,z)=I*V_4*C_3+I*V_4*B,in(m,S_1),in(n,S_12),in(p,S_15),in(q,S_2),in(g,S_10),in(h,S_2),in(b,S_21)

vector(x,y,z)=I*V_4*C_3+I*V_4*B,in(m,S_1),in(n,S_12),in(p,S_17),in(q,S_2),in(g,S_20),in(h,S_2),in(b,S_21)

vector(x,y,z)=I*V_4*C_2+I*V_4*B,in(m,S_12),in(n,S_2),in(p,S_2),in(q,S_18),in(g,S_2),in(h,S_11),in(b,S_21)

vector(x,y,z)=I*V_4*C_2+I*V_4*B,in(m,S_12),in(n,S_2),in(p,S_2),in(q,S_19),in(g,S_2),in(h,S_22),in(b,S_21)

vector(x,y,z)=I*V_4*C_1+I*V_4*B,in(m,S_3),in(n,S_11),in(p,S_1),in(q,S_15),in(g,S_1),in(h,S_10),in(b,S_21)

vector(x,y,z)=I*V_4*C_1+I*V_4*B,in(m,S_3),in(n,S_11),in(p,S_1),in(q,S_17),in(g,S_1),in(h,S_20),in(b,S_21)

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.