{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE 
"" 18 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 1 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 Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 
1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 
0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "
" -1 -1 "" 0 1 32 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 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 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "with(share);" }}{PARA 6 "" 1 "" {TEXT -1 70 "See ?sha
re and ?share,contents for information about the share library" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 100 "readshare(coxeter,algebra);\n#readshare(weyl,coxeter
);  \n# weyl is included in the coxeter directory\n" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%(coxeterG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
55 "read(`c:/maplev4/share/algebra/crystal/crystal24.mpl`);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "#readshare(crystal,algebra);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 7 "init():" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%5Cr
ystal~initialized.G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "L:=
crystal[weight_system](e1,A3);\ncrystal[graphrep](L,A3,G);\ncrystal[br
anch]([2],G,H);\ncrystal[showgraph](H,1,4);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"LG7&7%\"\"\"\"\"!F(7%!\"\"F'F(7%F(F*F'7%F(F(F*" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%.Graph~formed.G" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%5Branch~graph~formed.G" }}{PARA 13 "" 1 "" {INLPLOT "6
,-%'POINTSG6$7$\"\"\"\"\"!-%'SYMBOLG6#%'CIRCLEG-F$6$7$\"\"#F(F)-F$6$7$
\"\"$F(F)-F$6$7$\"\"%F(F)-%'CURVESG6#7$F&F/-F:6#7$F3F7-%%TEXTG6%7$#F4F
0F(%\"1G%+ALIGNABOVEG-FA6%7$#\"\"(F0F(%\"3GFF-%(SCALINGG6#%,CONSTRAINE
DG-%*AXESSTYLEG6#%%NONEG" 2 385 385 385 2 0 1 0 2 9 0 1 1 1.000000 
45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 4 0 0 0 179 
25970 0 0 0 0 0 1 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }