{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 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 }{CSTYLE "" -1 256 "" 1 18 201 0 56 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 2 0 105 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 259 "" 0 1 10 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "System" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 0 1 0 0 1 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "System" 0 1 117 114 105 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 }{PSTYLE "T ext 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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 59 " " } {TEXT 256 28 " Help for crystal, version 2" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 53 "CALLING SEQUENCE : crystal[]();" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 324 " This package will help decompose certain tensor pr oducts of irreducible finite dimensional representations of simple Li e\nalgebras. The irreducible constituents of the decomposition corresp ond, by a theorem of Kashiwara, to the connected\ncomponents of a cert ain crystal graph. This package uses the MAPLE shareware package " } {TEXT 258 7 "coxeter" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 52 " \+ This worksheet discusses instructions on loading " }{TEXT 257 7 "cry stal" }{TEXT -1 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "with(share);\nreadshare(cox eter,algebra);\nwith(plots):" }}{PARA 6 "" 1 "" {TEXT -1 70 "See ?shar e and ?share,contents for information about the share library" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #%(coxeterG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "Next, read in " } {TEXT 261 7 "crystal" }{TEXT -1 7 " using " }{TEXT 260 25 "read(`...\\ crystal2.mpl`);" }{TEXT -1 8 " (where " }{TEXT 262 3 "..." }{TEXT -1 64 " indicates the path your machine is using), and then initialize " }{TEXT 259 7 "crystal" }{TEXT -1 11 " by typing:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "init():" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "Help is available for the following functions:\n\n" }}{PARA 0 "" 0 "" {TEXT -1 25 " " }{HYPERLNK 17 "graphprodr ep" 2 "graphprodrep" "" }{TEXT -1 11 " " }{HYPERLNK 17 "grap hrep" 2 "graphrep" "" }{TEXT -1 17 " " }{HYPERLNK 17 " weight_system" 2 "weight_system" "" }{TEXT -1 47 " \+ \n\n " }{HYPERLNK 17 "linsubgraphrep" 2 "linsu bgraphrep" "" }{TEXT -1 13 " " }{HYPERLNK 17 "showgraph" 2 "showgraph" "" }{TEXT -1 11 " " }{HYPERLNK 17 "showgraphpr od" 2 "showgraphprod" "" }{TEXT -1 5 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 22 " " }{TEXT -1 38 " " }{HYPERLNK 17 "dynkin_d iagram" 2 "dynkin_diagram" "" }}{PARA 0 "" 0 "" {TEXT -1 3 " " }} {PARA 0 "" 0 "" {TEXT -1 7 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" } }}}{MARK "3 0 3" 18 }{VIEWOPTS 1 1 0 1 1 1803 }