{VERSION 2 2 "IBM INTEL NT" "2.2" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier New" 0 1 255 0 0 1 0 1 
0 0 1 0 0 0 0 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 0 0 1 0 0 
0 0 0 0 }{CSTYLE "" -1 256 "" 1 18 201 0 56 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "System" 0 1 0 0 222 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "
" -1 258 "" 1 12 201 0 56 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 
12 201 0 56 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 1 12 201 0 56 0 
0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 1 12 201 0 56 0 0 0 0 0 0 0 0 
0 0 }{CSTYLE "" -1 262 "System" 1 12 201 0 56 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 263 "System" 0 1 205 1 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "
" -1 264 "System" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "Sy
stem" 1 12 201 0 56 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "System" 0 
1 205 1 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "System" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "System" 0 1 0 0 168 0 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 269 "System" 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 270 "System" 0 1 0 0 112 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "
" -1 271 "System" 0 1 0 0 0 0 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 55 "                                                       " }
{TEXT 256 18 " Help for plot_wts" }}{PARA 0 "" 0 "" {TEXT -1 77 "     \+
                                               (not to be confused wit
h " }{TEXT 271 12 "plot_weights" }{TEXT -1 2 "!)" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 11 "FUNCTION : " }{TEXT 258 
10 "plot2d_wts" }{TEXT -1 7 "(v,R); " }}{PARA 0 "" 0 "" {TEXT 259 10 "
plot3d_wts" }{TEXT -1 9 "(v,R);  \n" }}{PARA 0 "" 0 "" {TEXT -1 26 "CA
LLING SEQUENCE : dynkin[" }{TEXT 260 10 "plot2d_wts" }{TEXT -1 14 "](R
); \ndynkin[" }{TEXT 261 10 "plot3d_wts" }{TEXT -1 7 "](R); \n" }}
{PARA 0 "" 0 "" {TEXT -1 12 "PARAMETERS :" }}{PARA 0 "" 0 "" {TEXT -1 
80 "v is a list denoting a highest weight of R\nR is a string denoting
 a rank 2 (for " }{TEXT 269 6 "dynkin" }{TEXT 263 1 "[" }{TEXT 262 10 
"plot2d_wts" }{TEXT 264 1 "]" }{TEXT -1 17 ") or rank 3 (for " }{TEXT 
270 6 "dynkin" }{TEXT 266 1 "[" }{TEXT 265 10 "plot3d_wts" }{TEXT 267 
1 "]" }{TEXT -1 79 ") simple Lie algebra from the list of strings A2,A
3,B2,B3,C2,C3,D2,D3, and G2. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 182 "SYNOPSIS : \nThis program plots the crys
tal graph (whose vertices are labeled by weight vectors) of the irredu
cible representation of R associated to v in the weight space of R usi
ng " }{TEXT 268 22 "crystal[weight_system]" }{TEXT -1 49 " and titles \+
the plot with the dimension given by " }{TEXT 257 14 "weyl[weyl_dim]" 
}{TEXT -1 9 ".       \n" }}{PARA 0 "" 0 "" {TEXT -1 10 "EXAMPLES :" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "w:=weyl[weights](A3);\ndynk
in[plot3d_wts](-w[1],A3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
51 "w:=weyl[weights](G2);\ndynkin[plot2d_wts](-w[1],G2);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 12 " SEE ALSO : " }{HYPERLNK 17 "crystal[weig
ht_system]" 2 "crystal[weight_system]" "" }{TEXT -1 2 ", " }{HYPERLNK 
17 "weyl[weyl_dim]" 2 "weyl[weyl_dim]" "" }{HYPERLNK 17 "" 2 "graphrep
" "" }{HYPERLNK 17 "" 2 "weight_system" "" }{HYPERLNK 17 "" 2 "graphpr
odrep" "" }}}}{MARK "0 6 4" 1 }{VIEWOPTS 1 1 0 1 1 1803 }