GraphingCalculator 3.2; SignificantDigits 14; FontName "Monaco"; FontSizes 12 9 9; BackgroundColor 192 192 192; Slider 0 1; SliderSteps 20; SliderControlValue 0; 3D.X -0.25 1.25; 3D.Y -0.25 1.25; 3D.Z -0.25 1.25; 3D.Axes 0; 3D.Depth 1.376545487148573; 3D.View -0.8347588377962905 0.5505939625376595 -0.004896032896706979 -0.4592708562658606 -0.7011531170267898 -0.5453939741769587 -0.3037234981127909 -0.4530238348042538 0.8381655217159981; 3D.Rotation 1 0 0 0 1 0 0 0 1; Text ""; Expr g=0.5/cos([pi/5]),d=[1-g]/2,h=sqrt([0.5*tan([pi/5])]^2-d^2); Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,u,1)+v*vector(0.5,u,1)]+n*[[1-v]*vector(1,u,1)+v*[[1-u]*vector(0.5,d,1+h)+u*vector(0.5,1-d,1+h)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,u,1)+v*vector(0.5,u,1)]+n*[[1-v]*vector(0,u,1)+v*[[1-u]*vector(0.5,d,1+h)+u*vector(0.5,1-d,1+h)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,0,1)+v*vector(0.5,0,1)]+n*[[1-v]*vector(u,0,1)+v*vector(0.5,d,1+h)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,1,1)+v*vector(0.5,1,1)]+n*[[1-v]*vector(u,1,1)+v*vector(0.5,1-d,1+h)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,0,1)+v*vector(u,0,0.5)]+n*[[1-v]*vector(u,0,1)+v*[[1-u]*vector(d,-h,0.5)+u*vector(1-d,-h,0.5)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,0,0)+v*vector(u,0,0.5)]+n*[[1-v]*vector(u,0,0)+v*[[1-u]*vector(d,-h,0.5)+u*vector(1-d,-h,0.5)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,0,u)+v*vector(1,0,0.5)]+n*[[1-v]*vector(1,0,u)+v*vector(1-d,-h,0.5)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,0,u)+v*vector(0,0,0.5)]+n*[[1-v]*vector(0,0,u)+v*vector(d,-h,0.5)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,0,u)+v*vector(1,0.5,u)]+n*[[1-v]*vector(1,0,u)+v*[[1-u]*vector(1+h,0.5,d)+u*vector(1+h,0.5,1-d)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,1,u)+v*vector(1,0.5,u)]+n*[[1-v]*vector(1,1,u)+v*[[1-u]*vector(1+h,0.5,d)+u*vector(1+h,0.5,1-d)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,u,1)+v*vector(1,0.5,1)]+n*[[1-v]*vector(1,u,1)+v*vector(1+h,0.5,1-d)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,u,0)+v*vector(1,0.5,0)]+n*[[1-v]*vector(1,u,0)+v*vector(1+h,0.5,d)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,1,1)+v*vector(u,1,0.5)]+n*[[1-v]*vector(u,1,1)+v*[[1-u]*vector(d,1+h,0.5)+u*vector(1-d,1+h,0.5)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,1,0)+v*vector(u,1,0.5)]+n*[[1-v]*vector(u,1,0)+v*[[1-u]*vector(d,1+h,0.5)+u*vector(1-d,1+h,0.5)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,1,u)+v*vector(1,1,0.5)]+n*[[1-v]*vector(1,1,u)+v*vector(1-d,1+h,0.5)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,1,u)+v*vector(0,1,0.5)]+n*[[1-v]*vector(0,1,u)+v*vector(d,1+h,0.5)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,0,u)+v*vector(0,0.5,u)]+n*[[1-v]*vector(0,0,u)+v*[[1-u]*vector(-h,0.5,d)+u*vector(-h,0.5,1-d)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,1,u)+v*vector(0,0.5,u)]+n*[[1-v]*vector(0,1,u)+v*[[1-u]*vector(-h,0.5,d)+u*vector(-h,0.5,1-d)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,u,1)+v*vector(0,0.5,1)]+n*[[1-v]*vector(0,u,1)+v*vector(-h,0.5,1-d)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,u,0)+v*vector(0,0.5,0)]+n*[[1-v]*vector(0,u,0)+v*vector(-h,0.5,d)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(1,u,0)+v*vector(0.5,u,0)]+n*[[1-v]*vector(1,u,0)+v*[[1-u]*vector(0.5,d,-h)+u*vector(0.5,1-d,-h)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(0,u,0)+v*vector(0.5,u,0)]+n*[[1-v]*vector(0,u,0)+v*[[1-u]*vector(0.5,d,-h)+u*vector(0.5,1-d,-h)]]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,0,0)+v*vector(0.5,0,0)]+n*[[1-v]*vector(u,0,0)+v*vector(0.5,d,-h)]; Color 6; Expr vector(x,y,z)=[1-n]*[[1-v]*vector(u,1,0)+v*vector(0.5,1,0)]+n*[[1-v]*vector(u,1,0)+v*vector(0.5,1-d,-h)]; Color 17; Expr z=0;