{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 "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 2 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "Sy
stem" 0 1 0 0 158 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "System" 0 1 
4 0 68 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 59 "                                                           " }
{TEXT 256 24 " Help for linsubgraphrep" }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}{PARA 0 "" 0 "" {TEXT -1 38 " FUNCTION : linsubgraphrep(v,R,G1,G);
 " }}{PARA 0 "" 0 "" {TEXT -1 7 "       " }}{PARA 0 "" 0 "" {TEXT -1 
457 "CALLING SEQUENCE : crystal[linsubgraphrep](v,R,G1,G);         \n
\nPARAMETERS :  \nR is a string denoting a simple Lie algebra from the
 list A2,A3,...,B2,B3,...,C2,C3,...,D2,D3,....,E6,E7,E8,F4,G2.  \nv is
 either a positive rational linear combination of e1,...,en,  where n \+
denotes the rank of R and the ei denote the standard basis for R or (i
f this does not uniquely specify a component) is an explicit vertex of
 the desired component obtained by the command " }{TEXT 259 22 "networ
ks[vweight](G1);" }{TEXT -1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 25 "G1 i
s a graph created by " }{TEXT 258 21 "crystal[graphprodrep]" }{TEXT 
-1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 259 "G is a name denoting the out
put of the program.  \n\nSYNOPSIS :  \n\nThis program creates the (lin
ear) crystal graph G from the connected component of the crystal graph
 G1 with vertex of weight v. The crystal graph G may be viewed with th
e graph plotting program " }{TEXT 257 18 "crystal[showgraph]" }{TEXT 
-1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 
10 "EXAMPLES :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 223 "L:=cryst
al[weight_system](e1,A3);\ncrystal[graphrep](L,A3,G1);\ncrystal[graphr
ep](L,A3,G2);\ncrystal[graphprodrep](G1,G2,G3);\ncrystal[linsubgraphre
p](2*e1,A3,G3,G);\nnetworks[vweight](G3);\ncrystal[linsubgraphrep](v1X
1,A3,G3,G);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 " SEE ALSO : " }
{HYPERLNK 17 "crystal[graphprodrep]" 2 "graphprodrep" "" }{TEXT -1 2 "
, " }{HYPERLNK 17 "crystal[showgraph]" 2 "showgraph" "" }}}}{MARK "0 5
 0" 396 }{VIEWOPTS 1 1 0 1 1 1803 }