{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Ou
tput" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 
0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots):with(plottools):" }}
{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r
edefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "a:=polygon([[
1,1,1],[-1,1,1],[-1,0,1],[0,-1,1],[1,-1,1]]):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 35 "a1:=display(a,scaling=constrained):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "a2:=rotate(a1,2*Pi/3,[[1,1,1],[0,0,
0]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "a3:=rotate(a1,4*Pi
/3,[[1,1,1],[0,0,0]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "b
1:=polygon([[1,1,-1],[1,0,-1],[0,1,-1]]):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 40 "b2:=rotate(b1,2*Pi/3,[[1,1,1],[0,0,0]]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "b3:=rotate(b1,4*Pi/3,[[1,1,1
],[0,0,0]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "half:=displ
ay(a1,a2,a3,b1,b2,b3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "ha
lf;" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6)-%)POLYGO
NSG6#7'7%$\"\"\"\"\"!F(F(7%$!\"\"F*F(F(7%F,$F*F*F(7%F/F,F(7%F(F,F(-F$6
#7'7%$\"**********!\"*F6F67%$\"+++++5F8F:$!+++++5F87%F/F:F<7%$!+******
****!#5F:F/7%F<F:F:-F$6#7'F57%F:F<F:7%F:F@F/7%F:F/F<F9-F$6#7%7%F(F(F,7
%F(F/F,7%F/F(F,-F$6#7%FG7%F/F@F:7%F:F<F/-F$6#7%FC7%F<F:F/7%F@F/F:-%(SC
ALINGG6#%,CONSTRAINEDG" 1 2 0 1 10 0 2 1 1 1 1 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve
 6" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "half2:=reflect(half,
[0,0,0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "hexagon:=polyg
on([[1,-1,0],[0,-1,1],[-1,0,1],[-1,1,0],[0,1,-1],[1,0,-1]],color=pink,
thickness=3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ch1:=displ
ay(half,hexagon):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "ch1;" }
}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6*-%)POLYGONSG6#7
'7%$\"\"\"\"\"!F(F(7%$!\"\"F*F(F(7%F,$F*F*F(7%F/F,F(7%F(F,F(-F$6#7'7%$
\"**********!\"*F6F67%$\"+++++5F8F:$!+++++5F87%F/F:F<7%$!+**********!#
5F:F/7%F<F:F:-F$6#7'F57%F:F<F:7%F:F@F/7%F:F/F<F9-F$6#7%7%F(F(F,7%F(F/F
,7%F/F(F,-F$6#7%FG7%F/F@F:7%F:F<F/-F$6#7%FC7%F<F:F/7%F@F/F:-F$6%7(7%F(
F,F/F0F.7%F,F(F/FOFN-%*THICKNESSG6#\"\"$-%'COLOURG6&%$RGBGF)$\"*w6%HvF
8$\"+9VygzFB-%(SCALINGG6#%,CONSTRAINEDG" 1 2 0 1 10 0 2 1 1 1 1 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+
4" "Curve 5" "Curve 6" "Curve 7" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 33 "ch2:=display(half,half2,hexagon):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 4 "ch2;" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 
300 {PLOTDATA 3 "60-%)POLYGONSG6#7'7%$\"\"\"\"\"!F(F(7%$!\"\"F*F(F(7%F
,$F*F*F(7%F/F,F(7%F(F,F(-F$6#7'7%$\"**********!\"*F6F67%$\"+++++5F8F:$
!+++++5F87%F/F:F<7%$!+**********!#5F:F/7%F<F:F:-F$6#7'F57%F:F<F:7%F:F@
F/7%F:F/F<F9-F$6#7%7%F(F(F,7%F(F/F,7%F/F(F,-F$6#7%FG7%F/F@F:7%F:F<F/-F
$6#7%FC7%F<F:F/7%F@F/F:-F$6#7'7%F,F,F,7%F(F,F,7%F($!\"!F*F,7%FjnF(F,7%
F,F(F,-F$6#7'7%$!**********F8FboFbo7%F<F<F:7%FjnF<F:7%$\"+**********FB
F<Fjn7%F:F<F<-F$6#7'Fao7%F<F:F<7%F<FgoFjn7%F<FjnF:Fdo-F$6#7%7%F,F,F(7%
F,FjnF(7%FjnF,F(-F$6#7%F]p7%FjnFgoF<7%F<F:Fjn-F$6#7%Fio7%F:F<Fjn7%FgoF
jnF<-F$6%7(7%F(F,F/F0F.7%F,F(F/FOFN-%*THICKNESSG6#\"\"$-%'COLOURG6&%$R
GBGF)$\"*w6%HvF8$\"+9VygzFB-%(SCALINGG6#%,CONSTRAINEDG" 1 2 0 1 10 0 
2 1 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve \+
3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve \+
10" "Curve 11" "Curve 12" "Curve 13" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "17 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }