(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 120555, 1976]*) (*NotebookOutlinePosition[ 121639, 2013]*) (* CellTagsIndexPosition[ 121595, 2009]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData["Weyl Group Orbits"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Needs[\"Graphics`Animation`\"];\n<<\"Lie.ma\";"], "Input", InitializationCell->True, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Weyl group of a2"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "a2d = dynkin[\"a2\"];\na2EpsilonToAlpha = {{ Sqrt[2], 0 },\t\n\t\t\ \t\t\t{-Sqrt[2]/2, Sqrt[6]/2}};\na2AlphaToLambda = Inverse[cartan[\"a2\"]];\n\ a2transf = Transpose[a2AlphaToLambda.a2EpsilonToAlpha];\na2roots = \ Graphics[{RGBColor[1,0,0],\n\tLine[{{0,0},#}]&/@a2EpsilonToAlpha}];"], "Input",\ AspectRatioFixed->True], Cell[TextData[ "a2hyperplanes = Graphics[{Line[{{-Sqrt[3],1},{Sqrt[3],-1}}],\n\t\ Line[{{-Sqrt[3],-1},{Sqrt[3],1}}],Line[{{0,-2},{0,2}}]}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "a2o = orbitgraph[{1,1},a2d,a2transf];\na2graph = \ Graphics[{RGBColor[0,0,1],a2o[[1]]}]; "], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{a2hyperplanes,a2graph,a2roots},AspectRatio->Automatic];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ 5b@0100Y0?40m`0A0_l<0?ooool0:@0000@0003g0000l@000000000N00402P04 02T0l@3g09R0cP000000k@3>000000000000B00004P0000000P00@080000000n G6P00000000Zd`000?l00?ooooooo`01003oo?ol00;oo?olZZP00jZXoobZZ004 =ba015F02bM1B@04UEDoocoo00CZZSoo?ol01@k4c/C>a<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`0000002000000EE@08EED001EE00R ZZP0000002?MJ`S21Z8093l3?`o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<000002ZZ00aEE@00:ZX03:ZZ000EE@0<`?`0o03l00d @_=2ld;c03F1mh7gPOL0=/3k`?_0n`0g000005ED03P7h0OP1n00>DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 00000=@0045EE000oo`0@ZZX002ZZ0131n07h0OP04A6i4KTA^@0AHGWQNN5i`16 a>_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol050005ED0000DEEDEE@0001B ZZP00?ol05<;d0_@2m00E4[DB]A:e01ERMR9f8WH05K8flSKb=/0E`00003oo01H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` 001EE:ZX075EE5EDZZP0LZZXEEAEE01c4k4C/A>a07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX080005EDoo`0PEEDEECoo022 ZZQEE:ZX08 ZZQEE?ol08ooo5EDoo`0T000ZZP0002AEEBZZ00009:ZZ5EDoo`0Ta^A6i4KT@2D FYEJUEZE09FIVIVIVIT0U]RLf9cHW02G001EE?ol09POPAn17h40VEj5GXENQ@2J WHVMRIf909_LS=b000?olEE@0hEEDooaEE03R ZZSoo0000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000oobZZ03aEECoo:ZX0?:ZZ?olEE@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0000k@3>00@0:@3a0?L090B10;<01840/`04P@2c00B10;<01840/`04P@2c00JJ 003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06 VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/0 1YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK 00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003o V`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00 oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX0 0?nK00JJ003oV`08`P007k9<`P0>`@007m/00?oJ001<``0>`@007m/00?oJ001< ``0>`0007m`00?oI001_`007md00?oH001_`007md00?oH001 _P007mh00?oG001_P007mh00?oG001_@007ml00?oF001l00OoobP007nH00?o?001D00Oook@0Gj`00ol`00D`Oj000old004cW003oj`0HjP01ooo=000O j000old004cY007oonX06>P00OoocP007nT00?o<001h00OooiP0Fi000om0001oZ003ob`00C?000?oT01WS007oom80 0D`Oj`00olX004cc007oon<06>400Oood`007n/00?o:001006;L00Oook`007oT00?oW007o omP004cQ01Ne003ol001C1oj003oj000omD004cR01Rd007ooo4001oj003ojP01 oooD001<06Jl00Ooom@01C1ol003ok`01ooo=001@06:/00Ooom`007od00?oc007oolP004cU01NY003on001C1on 003om000olD004cV01RX007oooT001on003omP01ooo4001L05j@00Oooo0037`00ooX00Ooo_`00C>L05J800?om00=< 7`3on`00ok`004cX01JQ007oooh00T`Oood00Ooo^P00C>T04il02Ooo000Oo`00 oonh001X02>X0/Dba7nX03NT004be00?oodcoW00A j@00C;L01ooo003oC?ooWP0Dj000C;X00Oooo@05o`1<0?ooX00Di`00C;`00?ok 00;o04cn003oX@0Gi`00C;h00OoonP03o`00C?h00OooX`0GiP00C<400Ooon003 o`00C?`00OooY@0HiP00C<<00OoomP00ooh004ck007oojL05^D004c5003om000 ooh004ci003oZ00Hi000C@004c:007ooo40 0?ol0010004cJ007oonD00?oh001h00Ooo^P0Fg`00C=h00?oQ003om`00C>d00?nk01SN001`00Ooo_@0HgP00C><00OoogP00ooH004c[007ookl06=d004cV 007oom`00?of001H00OooaP0Hf`00 C>l00Oooe@00oo<004cU007oolP05]X004ca003od`00oo<004cS003ob@0Hf@00 C?@00OoodP00oo8004cS007ool/06=T004cf007oom000?ob001003ol@00C>000Oooc`0Ff000C?X00?o<003ol000C=l00?o@01SG 001000Ooo mP00CT00OoojP00C<`00?oX001`00Oooi@00C003oi`00C"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{206, 237}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData[ "a2t = orbittree[{1,1},a2d,a2transf];\na2tree = \ Graphics[{RGBColor[0,1,0],a2t[[1]]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{a2hyperplanes,a2graph,a2tree,a2roots},AspectRatio->Automatic];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ 5bP0100Y0?40m`0A0_l<0?ooool0:@0000@0003g0000l@000000000N00402P04 02T0l@3g09R0cP000000k@3>000000000000B00004P0000000P00@080000000n G3000000000Zd`000?l00?ooooooo`01003oo?ol00;oo?olZZP00jZXoobZZ004 =ba015F02bM1B@04UEDoocoo00CZZSoo?ol01@k4c/C>a<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`0000002000000EE@08EED001EE00R ZZP0000002?MJ`S21Z8093l3?`o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<000002ZZ00aEE@00:ZX03:ZZ000EE@0<`?`0o03l00d @_=2ld;c03F1mh7gPOL0=/3k`?_0n`0g000005ED03P7h0OP1n00>DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 00000=@0045EE000oo`0@ZZX002ZZ0131n07h0OP04A6i4KTA^@0AHGWQNN5i`16 a>_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol050005ED0000DEEDEE@0001B ZZP00?ol05<;d0_@2m00E4[DB]A:e01ERMR9f8WH05K8flSKb=/0E`00003oo01H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` 001EE:ZX075EE5EDZZP0LZZXEEAEE01c4k4C/A>a07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX080005EDoo`0PEEDEECoo022 ZZQEE:ZX08 ZZQEE?ol08ooo5EDoo`0T000ZZP0002AEEBZZ00009:ZZ5EDoo`0Ta^A6i4KT@2D FYEJUEZE09FIVIVIVIT0U]RLf9cHW02G001EE?ol09POPAn17h40VEj5GXENQ@2J WHVMRIf909_LS=b000?olEE@0hEEDooaEE03R ZZSoo0000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000oobZZ03aEECoo:ZX0?:ZZ?olEE@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0000k@3>00@0:@3a0?L090B10;<01840/`04P@2c00B10;<01840/`04P@2c00JJ 003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06 VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/0 1YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK 00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003o V`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00 oi/01YX00?nK00JJ003oV`06VP00oi/01YX00?nK00JJ003oV`06VP00oi/01YX0 0?nK00JJ003oV`08`P007k;@`P0>`@007m/00?oJ003@``0>`@007m/00?oJ003@ ``0>`0007m`00?oI003@a00>_`007md00?oH003@a@0>_`007md00?oH003@a@0> _P007mh00?oG003@aP0>_P007mh00?oG003@aP0>_@007ml00?oF003@a`0?_@01 d1oP003oe@00dl00OoobP007nH00?o?003@hP01ooo_01S]007ool/001oW 003ocP00d>D00Oook@0Gj`00ol`00M0Oj000old00=3W003oj`0HjP01ooo=000O j000old00=3Y007oonX06>P00OoocP007nT00?o<003@k001oooX01SV007oom00 01oY003oc000d>h00OooiP0Fi000om0001oZ003ob`00d?000?oT01WS007oom80 0M0Oj`00olX00=3c007oon<06>400Oood`007n/00?o:003@m@01oooQ01OO003o e001d1o/003ob@00d?L00?oO01SN007oomD001o/003ob@00d?T00OoogP0Hg001 oooF000Ok@00olP00=3l007oom`06=X00Ooof0007nd00?o8003@oP01oooJ01CH 003of0007nh00?o700;@0?oH01GG007oomX00M0Ok`00olL00Oo@e`0Fe@01oooK 000Ok`00olT00ooo0=3G01WC007oomd00M0Ol000ol/00Oooo@00d=P05]400?oM 000Ol000ol`00?ok003@f00Hd001oooN000Ol@00olh00Ooon@00d=T06006;L00Oook`007oT00?oW007o omP00=3Q01Ne003ol001d1oj003oj000omD00=3R01Rd007ooo4001oj003ojP01 oooD003@hP0I/P01oooc007@7o/00?o/007oom400=3S01J`003ol`007o/00?o] 003oc`00d><06Jl00Ooom@01d1ol003ok`01ooo=003@i00H[@01ooof000Oo000 oo400Ooob`00d>@06:/00Ooom`007od00?oc007oolP00=3U01NY003on001d1on 003om000olD00=3V01RX007oooT001on003omP01ooo4003@iP0HYP01oook00C@ 7`00ooP00Ooo`@00d>L05j@00Oooo0037`00ooX00Ooo_`00d>L05J800?om00?@ 7`3on`00ok`00=3X01JQ007oooh00]0Oood00Ooo^P00d>T04il02Ooo000Oo`00 oonh003@j@0?W@05ooo@7ooo]@00d>X02>X0/M2a7nX03NT00=2e00?oom3oW00A j@00d;L01ooo003od?ooWP0Dj000d;X00Oooo@05o`3@0?ooX00Di`00d;`00?ok 00;o0=3n003oX@0Gi`00d;h00OoonP03o`00d?h00OooX`0GiP00d<400Ooon003 o`00d?`00OooY@0HiP00d<<00OoomP00ooh00=3k007oojL05^D00=35003om000 ooh00=3i003oZ00Hi000d@00=3:007ooo40 0?ol003@n001oon/01SS003@c@01ooo_003oo000d?H00Ooo[P0Fh`00d000=3J007oonD00?oh003@l001oonh01SO003@g@01 oooS003on000d>h00Ooo^P0Fg`00d=h00?oQ003om`00d>d00?nk01SN003@h@01 oooP003om`00d>`00Ooo_@0HgP00d><00OoogP00ooH00=3[007ookl06=d00=3V 007oom`00?of003@j@01ooo101KL003@j000omX00?oe003@j000ol806=`00=3Z 007oomT00?od003@j001ooo401SK003@k@01oooG003om000d>H00OooaP0Hf`00 d>l00Oooe@00oo<00=3U007oolP05]X00=3a003od`00oo<00=3S003ob@0Hf@00 d?@00OoodP00oo800=3S007ool/06=T00=3f007oom000?ob003@h@01ooo=01SH 003@n@01ooo>003ol@00d>000Oooc`0Ff000d?X00?o<003ol000d=l00?o@01SG 003@o@01ooo;003ol000d=h00OoodP0Ge`04d000ooo9003ok`00d=d00Oooe00D eP01d?o7003ok`00d=/00OooeP0De`02o`3@a`00onh00=3J003oe`0Gf@04ool0 0=37003okP00d=T00Ooof@0Hf`01oool003@b000ond00=3H007oom/06=d00Ooo nP00d000Ooo mP00dT00OoojP00d<`00?oX003@c`01oooY01KZ 003oi`00d`00Oooi@00d003oi`00d"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{206, 237}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Weyl group of b2"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "b2d = dynkin[\"b2\"];\nb2EpsilonToAlpha = {{1,-1},{0,1}};\nb2AlphaToLambda = \ Inverse[cartan[\"b2\"]];\nb2transf = \ Transpose[b2AlphaToLambda.b2EpsilonToAlpha];\nb2roots = \ Graphics[{RGBColor[1,0,0],\n\tLine[{{0,0},#}]&/@b2EpsilonToAlpha}];"], "Input",\ AspectRatioFixed->True], Cell[TextData[ "b2o = orbitgraph[{1,1},b2d,b2transf];\nb2graph = \ Graphics[{RGBColor[0,0,1],b2o[[1]]}]; "], "Input", AspectRatioFixed->True], Cell[TextData[ "b2hyperplanes = Graphics[{Line[{{-2,0},{2,0}}],Line[{{0,-2},{0,2}}],\n\t\ Line[{{-1.5,1.5},{1.5,-1.5}}], Line[{{-1.5,-1.5},{1.5,1.5}}]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{b2hyperplanes,b2graph,b2roots},AspectRatio->Automatic];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ 7TP0100Y0>811`0A0_l<0?ooool0:@0000@000470000hP000000000N00402P04 02T0hP4709R0gP000000gP3N000000000000B00004P0000000P00@080000000n 5b000000000Zd`000?l00?ooooooo`01003oo?ol00;oo?olZZP00jZXoobZZ004 =ba015F02bM1B@04UEDoocoo00CZZSoo?ol01@k4c/C>a<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`0000002000000EE@08EED001EE00R ZZP0000002?MJ`S21Z8093l3?`o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<000002ZZ00aEE@00:ZX03:ZZ000EE@0<`?`0o03l00d @_=2ld;c03F1mh7gPOL0=/3k`?_0n`0g000005ED03P7h0OP1n00>DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 00000=@0045EE000oo`0@ZZX002ZZ0131n07h0OP04A6i4KTA^@0AHGWQNN5i`16 a>_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol050005ED0000DEEDEE@0001B ZZP00?ol05<;d0_@2m00E4[DB]A:e01ERMR9f8WH05K8flSKb=/0E`00003oo01H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` 001EE:ZX075EE5EDZZP0LZZXEEAEE01c4k4C/A>a07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX080005EDoo`0PEEDEECoo022 ZZQEE:ZX08 ZZQEE?ol08ooo5EDoo`0T000ZZP0002AEEBZZ00009:ZZ5EDoo`0Ta^A6i4KT@2D FYEJUEZE09FIVIVIVIT0U]RLf9cHW02G001EE?ol09POPAn17h40VEj5GXENQ@2J WHVMRIf909_LS=b000?olEE@0hEEDooaEE03R ZZSoo0000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000oobZZ03aEECoo:ZX0?:ZZ?olEE@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0000gP3N00@0:@3R0@L090B10:<01840X`04P@2S00B10:<01840X`06TP00oi<0 1Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC 00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003o T`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00 oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`0Fh@00olh004cW 003oj000CT00?oX009<04cB003og`0LgP00om400d`004cZ003oj003C000C=@00?oN01kM 003odP00C?h004c[003oj000C?h004cF003og@0Ng000om<004cm001d00?oX001000?oH01kG003of000 C?P004ca003oj000C?P004cR003oe`0NeP00omT004cg001H00?oE01kD003of`00C?D0 04cd003oj000C?D004cX003oe00Nd`00om`004cd001`00?oB01kA003ogP00C?8004cg 003oj000C?8004c^003od@0Nd000oml004ca001003oh@00C>l004cj003o j000C>l004cd003ocP0Nc@00on8004c^001`004cm003oj000 C>`004cj003ob`0NbP00onD004c[001T00T`0 olP05lL00?oX001L00AmX00?on001L00al004c[001L001on001d00?oh001d004c^ 003omP00C01jo003ol000 C>L001ok001L0 01oh001L001oe 001L001ob001< n000C?T00?oP001L001o_001L001o[00E<001<0?oB001L001oY005407N400T`0C=000T`0onT001oZ00?o04a408N400d`004cA 00=<003ojP007n/01Ol004`0C=0004cQ02GQ001409^4004cm001409^4004cl001409^40 04ck001409^4004cj001409^4004ci001409^4004ch001409^4004cg00140 9^4004cf001409^4004ce001< f`00C?D00?od000Om@00ooD004cf001409^4004cd001409^4004cc001409^4004cb001409^4004ca001409^4004c` 001409^4004c_001l0 0?oj000On`00onl004c`001409^4004c^001h00?ok000Oo000 onh004c_001409^4004c]001d00?ol000Oo@00ond004c^001< hP00C>409^4004c/001`00?om000OoP00on`004c]001409N40 04c[001/00?on00`004cT001X004cV001< jP05o`007`3ojP00C>/004cU001T004cW001408_`0i_l0C>So04cXo`1Koo00Ph@00 C>L004cY001P004cX001H004cZ001T004cQ02CQ001/004cZ00Ko003o0?lOj`00C>H004cZ 001@004c/001D004c[001<004c]001409n4004cR001d00?ol003oo@01oao^001d004cQ02OQ001l004c^003on`00 oo`00OlOk`00C>8004c^0010004c`001409n4004cO001409n4004cL001409n4004cI001409n4004cF001409n4004cC001X00?oX 00=<0?lO/00MgP00C=@00ol004cn001`00?oX001l00?oX001800?oh 001P00?oe 001h00?ob 001l004cj003oj000C?000OlO`00OcP00C?@00?o_ 001`004cm003oj000C>d00OlO``0Ob`00C?X00?o/ 001/0 0OlOa@0Mb@00C?h00?oZ001X00OlOaP0Jb002C03oj@00C>P0 0Dcoj000C>T00OlOa`0Fa`00C>P004cW001P001o701W800;o04cY001< i`01odcY001L00_l0C>X004cV003ob@0MbP00 oo`004c[001/004cU003obP0Nb`00ooX004c/001L00?om001<00?o<01k=003omP00 C>h004cW003oo000C>h004cR003oc@0NcP00oo@004c_001L00?oj001000?o?01k@003ol000C?40 04cW003on@00C?4004cO003od00Nd@00onh004cb001L00?og001L00?od001L00?oa001L00?o^001L00?oZ009<04c@003og`0H h000om000Da001003oh@06 TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<0 1Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC 00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003o T`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`04P@2S 00B10:<01840X`04P@2S00B10:<0003o\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{222, 222}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData[ "b2t = orbittree[{1,1},b2d,b2transf];\nb2tree = \ Graphics[{RGBColor[0,1,0],b2t[[1]]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{b2hyperplanes,b2graph,b2tree,b2roots},AspectRatio->Automatic];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ 7TP0100Y0>811`0A0_l<0?ooool0:@0000@000470000hP000000000N00402P04 02T0hP4709R0gP000000gP3N000000000000B00004P0000000P00@080000000n Fm@00000000Zd`000?l00?ooooooo`01003oo?ol00;oo?olZZP00jZXoobZZ004 =ba015F02bM1B@04UEDoocoo00CZZSoo?ol01@k4c/C>a<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`0000002000000EE@08EED001EE00R ZZP0000002?MJ`S21Z8093l3?`o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<000002ZZ00aEE@00:ZX03:ZZ000EE@0<`?`0o03l00d @_=2ld;c03F1mh7gPOL0=/3k`?_0n`0g000005ED03P7h0OP1n00>DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 00000=@0045EE000oo`0@ZZX002ZZ0131n07h0OP04A6i4KTA^@0AHGWQNN5i`16 a>_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol050005ED0000DEEDEE@0001B ZZP00?ol05<;d0_@2m00E4[DB]A:e01ERMR9f8WH05K8flSKb=/0E`00003oo01H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` 001EE:ZX075EE5EDZZP0LZZXEEAEE01c4k4C/A>a07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX080005EDoo`0PEEDEECoo022 ZZQEE:ZX08 ZZQEE?ol08ooo5EDoo`0T000ZZP0002AEEBZZ00009:ZZ5EDoo`0Ta^A6i4KT@2D FYEJUEZE09FIVIVIVIT0U]RLf9cHW02G001EE?ol09POPAn17h40VEj5GXENQ@2J WHVMRIf909_LS=b000?olEE@0hEEDooaEE03R ZZSoo0000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000oobZZ03aEECoo:ZX0?:ZZ?olEE@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0000gP3N00@0:@3R0@L090B10:<01840X`04P@2S00B10:<01840X`06TP00oi<0 1Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC 00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003o T`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00 oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`0Fh@00olh00=3W 003oj000dT00?oX00;@0=3B003og`0LgP00om400m000=3Z003oj003d000d=@00?oN01kM 003odP00d?h00=3[003oj000d?h00=3F003og@0Ng000om<00=3m003@k000onP0 0=3m003@f000om`07]/00?oD003@o000d>d00?oX003@o000d=X00?oK01kJ003o e@00d?/00=3^003oj000d?/00=3L003ofP0Nf@00omH00=3j003@k`00onP00=3j 003@gP00omT07]P00?oG003@n@00d?000?oX003@n@00d>000?oH01kG003of000 d?P00=3a003oj000d?P00=3R003oe`0NeP00omT00=3g003@lP00onP00=3g003@ i000omH07]D00?oJ003@mP00d?<00?oX003@mP00d>H00?oE01kD003of`00d?D0 0=3d003oj000d?D00=3X003oe00Nd`00om`00=3d003@m@00onP00=3d003@jP00 om<07]800?oM003@l`00d?H00?oX003@l`00d>`00?oB01kA003ogP00d?800=3g 003oj000d?800=3^003od@0Nd000oml00=3a003@n000onP00=3a003@l000om00 7/l00?oP003@l000d?T00?oX003@l000d?800?o?01k>003oh@00d>l00=3j003o j000d>l00=3d003ocP0Nc@00on800=3^003@n`00onP00=3^003@mP00old07/`0 0?oS003@k@00d?`00?oX003@k@00d?P00?o<01k;003oi000d>`00=3m003oj000 d>`00=3j003ob`0NbP00onD00=3[003@oP00onP00=3[003@o000olX07LT00?oV 003@jP03d000onP00=3Z003@oP00olT06/P00?oW003@j@02d03oj000d>T00]00 olP05lL00?oX003@j001d1oX003@j000dL00Ao@j@00d>X00?on003@b@0La000on/00=3W008O0=3Z 003@j`00oo`00=3:01g3003ok000d>L00al00=3[003@k000ooX00=3;01k2003o k@00d>L001on003@k000d>d00?oh003@c00N`@00onh00=3W000Oo@00d>d00=3^ 003omP00d01jo003ol000 d>L001ok003@k`00d?000?ob003@c`0N_P00oo400=3W000OnP00d?000=3a003o l000d=007[d00?ob003@i`007oT00=3a003@lP00onh00=3A01jl003ol`00d>L0 01oh003@lP00d?<00?o/003@dP0N^`00oo@00=3W000Om`00d?<00=3d003ojP00 d=<07[X00?oe003@i`007oH00=3d003@m@00onP00=3D01ji003omP00d>L001oe 003@m@00d?H00?oV003@e@0N^000ooL00=3W000Om000d?H00=3g003oi000d=H0 7[L00?oh003@i`007o<00=3g003@n000on800=3G01jf003on@00d>L001ob003@ n000d?T00?oP003@f00N]@00ooX00=3W000Ol@00d?T00=3j003ogP00d=T07[@0 0?ok003@i`007o000=3j003@n`00om`00=3J01jc003oo000d>L001o_003@n`00 d?`00?oJ003@f`0N/P00ood00=3W000OkP00d?`00=3m003of000d=`07[400?on 003@i`007nd00=3m003@oP00omH00=3M01b`00?o003@i`007n`00=3n00?@003o e000d=h06Jl00_l0d>L001o[00G@003@0?oB003@g`0F[P01om3W000OjP03d03@ om000=3P01OQ003@cP00d>L001oY007@d407N400]00d=000]00onT001oZ00?o0=3@c`00d>408N400m000=3A 00?@003ojP007n/01Ol00=00d=000=3Q02GQ003@oP00d=800=3n003oj`007n`0 0?on00?@003@d@00d>409^400=3m003@d`00d?d00?o/000Ok@00ood00=3n003@ dP00d>409^400=3l003@e000d?`00?o]000OkP00oo`00=3m003@d`00d>409^40 0=3k003@e@00d?/00?o^000Ok`00oo/00=3l003@e000d>409^400=3j003@eP00 d?X00?o_000Ol000ooX00=3k003@e@00d>409^400=3i003@e`00d?T00?o`000O l@00ooT00=3j003@eP00d>409^400=3h003@f000d?P00?oa000OlP00ooP00=3i 003@e`00d>409^400=3g003@f@00d?L00?ob000Ol`00ooL00=3h003@f000d>40 9^400=3f003@fP00d?H00?oc000Om000ooH00=3g003@f@00d>409^400=3e003@ f`00d?D00?od000Om@00ooD00=3f003@fP00d>409^400=3d003@g000d?@00?oe 000OmP00oo@00=3e003@f`00d>409^400=3c003@g@00d?<00?of000Om`00oo<0 0=3d003@g000d>409^400=3b003@gP00d?800?og000On000oo800=3c003@g@00 d>409^400=3a003@g`00d?400?oh000On@00oo400=3b003@gP00d>409^400=3` 003@h000d?000?oi000OnP00oo000=3a003@g`00d>409^400=3_003@h@00d>l0 0?oj000On`00onl00=3`003@h000d>409^400=3^003@hP00d>h00?ok000Oo000 onh00=3_003@h@00d>409^400=3]003@h`00d>d00?ol000Oo@00ond00=3^003@ hP00d>409^400=3/003@i000d>`00?om000OoP00on`00=3]003@h`00d>409N40 0=3[003@i@00d>/00?on00`00=3T003@h@0Sh@00d>X00=3V003@ jP05o`007`3ojP00d>/00=3U003@h@0Qh@00d>T00=3W003@j@03o`0OonT00=3Z 003@iP00d>408_`0i_l0d>So0=3Xo`3@iol07nSo0=3Yo`3@iol0d>Koo00Ph@00 d>L00=3Y003@j002oolOj@00d>P00=3X003@h@0Rh@00d>H00=3Z003@j@04o`3o oaoZ003@i`00d>T00=3Q02CQ003@i@00d>/00=3Z00Ko003o0?lOj`00d>H00=3Z 003@h@0Vh@00d>@00=3/003@j`00ooh01?l00?lOk000d>D00=3[003@h@0Wh@00 d><00=3]003@k000ood00?on007o7nd00=3T003@k000d>409n400=3R003@kP00 d>d00?ol003oo@01oao^003@h`00d>d00=3Q02OQ003@h@00d>l00=3^003on`00 oo`00OlOk`00d>800=3^003@h@0Wh@00d>000=3`003@k`00ooX00?ok007o7o00 0=3Q003@k`00d>409n400=3O003@l@00d?000?oi003onP01oaoa003@h000d?00 0=3Q02OQ003@gP00d?800=3a003on000ooT00OlOlP00d=l00=3a003@h@0Wh@00 d=d00=3c003@lP00ooL00?oh007o7o<00=3N003@lP00d>409n400=3L003@m000 d?<00?of003om`01oaod003@g@00d?<00=3Q02OQ003@f`00d?D00=3d003om@00 ooH00OlOm@00d=`00=3d003@h@0Wh@00d=X00=3f003@m@00oo@00?oe007o7oH0 0=3K003@m@00d>409n400=3I003@m`00d?H00?oc003om001oaog003@fP00d?H0 0=3Q02OQ003@f000d?P00=3g003olP00oo<00OlOn000d=T00=3g003@h@0Wh@00 d=L00=3i003@n000oo400?ob007o7oT00=3H003@n000d>409n400=3F003@nP00 d?T00?o`003ol@01oaoj003@e`00d?T00=3Q02OQ003@e@00d?/00=3j003ok`00 oo000OlOn`00d=H00=3j003@h@0Wh@00d=@00=3l003@n`00onh00?o_007o7o`0 0=3E003@n`00d>409n400=3C003@o@00d?`00?o]003okP01oaom003@e000d?`0 0=3Q02OQ003@dP00d?h00=3m003ok000ond00OlOoP00d=<00=3m003@h@0Uh@00 d=400m000=3n003oj`00on`01?lO003@dP00d?h00=3Q027Q003@d005d03@003o jP00on/00olO0=3A00?@003@h@0Mh@00dX00?oX 00?@0?lO/00MgP00C=@00ol00=3n003@j`00onP01=000?lO/@0Og@00C=H00?on 003@o@00d>`00?oX003@oP01oanb01oL001l00?oX003@n`01oane01oI001800?oh 003@m`00d?800?oX003@n001oanh01oF001P00?oe 003@m000d?D00?oX003@m@01oank01oC001h00?ob 003@l@00d?P00?oX003@lP01oann01o@001l00=3j003oj000d?000OlO`00OcP00C?@00?o_ 003@kP00d?/00?oX003@k`01oao101o=001`00=3m003oj000d>d00OlO``0Ob`00C?X00?o/ 003@j`00d?h00?oX003@k001oao401k:001/0 0OlOa@0Mb@00C?h00?oZ003@j@02d03oj000d>X00OlOaP0Jb002C03oj@00d>P0 0M3oj000d>T00OlOa`0Fa`00C>P00=3W003@j000d>P001o701W800;o04cY003@ i`01om3Y003@i`00olP07L00_l0d>X00=3V003ob@0MbP00 oo`004c[003@i`03o`00d>/00=3U003obP0Nb`00ooX004c/003@i`00ooh00=3/ 003@i000ol/07/`00?oh001L00?om003@k@00d><00?o<01k=003omP00 C>h00=3W003oo000d>h00=3R003oc@0NcP00oo@004c_003@i`00oo/00=3_003@ h@00olh07/l00?ob001L00?oj003@l000d>000?o?01k@003ol000C?40 0=3W003on@00d?400=3O003od00Nd@00onh004cb003@i`00ooP00=3b003@gP00 om407]800?o/001L00?og003@l`00d=d00?oB01kC003ojP00C?@00=3W 003omP00d?@00=3L003od`0Ne000onP004ce003@i`00ooD00=3e003@f`00om@0 7]D00?oV001L00?od003@mP00d=X00?oE01kF003oi000C?L00=3W003o l`00d?L00=3I003oeP0Ne`00on8004ch003@i`00oo800=3h003@f000omL07]P0 0?oP001L00?oa003@n@00d=L00?oH01kI003ogP00C?X00=3W003ol000 d?X00=3F003of@0NfP00om`004ck003@i`00onl00=3k003@e@00omX07]/00?oJ 001L00?o^003@o000d=@00?oK01kL003of000C?d00=3W003ok@00d?d0 0=3C003og00Ng@00omH004cn003@i`00on`00=3n003@dP00omd07=h00?oD00=< 003@i`00on/00m000=3A003ogP0Jg`00om800T`0d>L00?oZ00;@0=3@003og`0H h000om000Dc@i`00onT00M3@c`00on005^400?o>003@i`00onP00=3>003oh@06 TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<0 1Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC 00JB003oT`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003o T`06TP00oi<01Y800?nC00JB003oT`06TP00oi<01Y800?nC00JB003oT`04P@2S 00B10:<01840X`04P@2S00B10:<0003o\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{222, 222}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Weyl group of a3"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "a3d = dynkin[\"a3\"];\na3EpsilonToAlpha = {{ Sqrt[2], 0, 0 \ },\t\n\t\t\t\t\t{-Sqrt[2]/2, Sqrt[6]/2, 0 },\n\t\t\t\t\t{ 0, \ -Sqrt[6]/3, Sqrt[12]/3}};\na3AlphaToLambda = Inverse[cartan[\"a3\"]];\n\ a3transf = Transpose[a3AlphaToLambda.a3EpsilonToAlpha];\na3roots = \ Graphics3D[{RGBColor[1,0,0],\n\tLine[{{0,0,0},#}]&/@a3EpsilonToAlpha}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "a3o = orbitgraph[{1,1,1},a3d,a3transf];\na3graph = \ Graphics3D[{RGBColor[0,0,1],a3o[[1]]}]; "], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{a3roots,a3graph},ViewPoint->{0,5,1}, Boxed->False]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ 8m`0100Y0>l1<@0A0_l<0?ooool0:@0000@0004a0000k`000000000N00402P04 02T0k`4a09R120000000j`48000000000000B00004P0000000P00@080000001k ha0000000005E`000?l00?ooooooo`01ooooolc<00;oo?olZZP00ooooomVIP04 oooooca01eEE00000007ZZX0000000Ooo`00000023oo`00VIT08Ooo001VIP0R ool003DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 c<`cIVLc<0000E9VIVIWoo`1EVIVIVLc<05JIVIVIVIT0EiVIVIUVIP1H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01Kca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` IVKooc ZZQEE?ol08ooo5EDoo`0T3IVC0A4@000000h@00k^h0003R 003Mg@000><00;^k0000i000ZZX0003U0028R0000>H007Mg0000i`00EED0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000001gM`3a000005EE0?800000A4@0l`00000R8P3d 0000014A0?G^k^k^k^h0m]gMgMgMg@3g^k^k^k^k0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0000j`4800@0:@3_0C409006P@210?T000J10840n@001X40P@3i0006P@210?T0 00J10840n@001X40P@3i0006P@210?T000J10840n@001X40P@3i0006P@210?T0 00J10840n@001X40P@3i0006P@210?T000J10840n@001X40P@3i0006X02idZ80 016P007B0?cB``02dP00o=:W000BX000d_/0o=;8003BnP3ldZ`001:P003BmP3l d/d00=;e0?cB/@004Z000=;a0?cBdP00d_00nm:g000BX000d^`0oM;F003BjP3l d[`001:P003Bj03ld]/00=;U0?cB`@002L00=;R003Bo000d_h0o];[00?B003BgP008oP0o];[00?B 003Bi@00d_`00=;R003Bi`00=>L00=;R003Bo000d_/0o];^00?B003BgP008oD0 oM;_00?B003Bi@00d_`00=;R003Bi`00=>L00=;R003Bo000d_P0o];a00?B003B gP008o40o];b00?B003Bi@00d_`00=;R003Bi`00=>L00=;R003Bo000d_D0o];d 00?B003BgP008nh0o];e00?B003Bi@00d_`00=;R003Bi`00=>L00=;R003Bo000 d_80o];g00?B003BgP008n/0oM;i00?B003Bi@00d_`00=;R003Bi`00=>L00=;R 003Bo000d^l0o];j00?B003BgP008nL0o];l00?B003Bi@00d_`00=;R003Bi`00 =>L00=;R003Bo000d^`0o];m00?B003BgP008n@0o]85003B003Bi@00d_`00=;R 003Bi`00<>L00=;R003Bo000d^T0o]840=800=;N000Sh@3ndP800=;U003Bo000 d^800=;W000Ni`00d^800=;l003BiP2bd^D00=;l003BhP00d^L002KW003BhP00 d_`00=;R003BgP008ml00=;R003Bo000d^800=;W000Vi`00d^800=;l003BhP00 d]h002?O003BhP00d_`00=;R003Bi`009^L00=;R003Bo000d^800=;N000Sg`00 d^800=;l003BhP00d^L002KW003BhP00d_`00=;R003BgP008ml00=;R003Bo000 d^800=;W000Vi`00d^800=;l003BhP00d]h002?O003BhP00d_`00=;R003Bi`00 9^L00=;R003Bo000d^800=;N000Sg`00d^800=;l003BhP00d^L002KW003Bh`00 d_/00=;R003BgP008ml00=;R003Bn`00d^<00=;W000Vi`00d^<00=;k003BhP00 d]h002?O003BhP00d_/00=;S003Bi`007^L00=;S003BoP2i8ml00=;R003Bn`00 d^<00=;W000Vj000d^800=;k003BhP00d]d0oR?R003BhP00d_/00=;R003Bj000 9^P00=;R003Bn`00d^800=;J0?hSi@00d^800=;k003BhP00d^P002KX003BhP00 d_/00=;R003Be`3n8nP00=;R003Bn`00d^800=;X000Vj000d^800=;k003BhP00 d]@0oR?[003BhP00d_/00=;R003Bj0009^P00=;R003Bn`00d^800=;A0?hSkP00 d^800=;k003BhP00d^P002OX003BhP00d_/00=;R003BcP018b?`003BhP00d_/0 0=;R003Bj0009^P00=;R003Bn`00d^800=;<0?hSl`00d^800=;k003BhP00d^P0 02WX003BhP00d_/00=;R00;B003;d_hSmm810=;R003Bn`00d^800=;X000]j000 d^800=;k003BhP02dP00oM;<0?hSo001dP3nd^<00=;k003BhP00d^P003?X003B hP00d_/00=;R00?B003BoP3nd/`0oR<6003B003B0?kBiP00d_/00=;R003Bj000 <^P00=;R003Bn`00d^800m800=;k007Bd//0oR<2003Bo@3nd^T00=;k003BhP00 d^P002oX003BhP00d_/00=;R00?B003Bn@3nd/`00=;n8oX0o];/003Bn`00d^80 0=;X000bj000d^800=;k003BhP03dP00d_H0o];?00GB003B8b?i0?kBk`00d_/0 0=;R003Bj000<>P00=;R003Bn`00d^800m800=;c0?kBdP03dP00d_@0o];b003B n`00d^800=;X000aj000d^800=;k003BhP03dP00d_000M;Be003dP00d_40o];e 003Bn`00d^800=;X000`j000d^800=;k003BhP03dP00d^h0o];G00?B003BkP3n d_P00=;k003BhP00d^P0033X003BhP00d_/00=;R00?B003Bj`3nd]X00m800=;[ 0?kBn`00d_/00=;R003Bj000P00=;R003Bn`00d^800m800=;V0?kBg`03 dP00d^D0oM;k003BhP00d^P002cX003BhP00d_/00=;R00?B003Bh`3nd^800m80 0=;R0?kBo@00d^800=;X000`j000d^800=;k003BhP03dP00d^000M;Bi003dP00 d^800]800?kB0@3BhP00d^P002cY003Bh@00d_`00=;Q00?B003BgP3nd^L00m80 0=;Q003Bo@3nd^800=;Y000_j@00d^400=;l003Bh@03dP00d]/0o];Z00?B003B h@00d_`00M80o];U003Bj@00<>T00=;Q003Bo000d^400m800=;H0?kBk@03dP00 d^400=;l003Bo@3nd^P00=;Y000aj@00d^400=;l003Bh@03dP00d]D00M;Bk`03 dP00d^400=;l003BnP3nd^/00=;Y000`j@00d^400=;l003Bh@03dP00d]<0o];b 00?B003Bh@00d_`00=;g0?kBkP00d^T0033Y003Bh@00d_`00=;Q00?B003Bd03n d_D00m800=;Q003Bo000d_@0o];a003Bj@00T00=;Q003Bo000d^400m80 0=;;0?kBnP03dP00d^400=;l003BkP3nd_L00=;Y000`j@00d^400=;l003Bh@03 dP00d/P0o];m00?B003Bh@00d_`00=;[0?kBnP00d^T0033Y003BhP00d_/00=;Q 00?B003Ba@07d]800=800=;Q003Bn`00d^T0o];m003Bj@00;>T00=;R003Bn`00 d^400m800=;30?kB0P00d^400=;k003BiP3ndP40d^T000SY087BZM;Y000Vj001 d];T003Bn`00d^400m800=;100;B003md^@00=;k003Bb@00:^H00M;BiP00d_/0 0=;Q00?B003B`@03dP00d_h00M;BiP00d_/00=;9000Yi001d];X003Bn`00d^40 0m800=;100?B003Bo03nd^T00=;k003Bb@00:>80o];[003Bn`00d^400m800=;1 00?B003Bn@3nd^`00=;k003Bb@00:]l00M;Bk@00d_/00=;Q00?B003B`@03dP00 d_H00M;BkP00d_/00=;9000Wg@01d];_003Bn`00d^400]80d[l00]80d_@0o];a 003Bn`00d/T002OK007Bd_400=;k003Bh@02dP3B_`02dP3Bl@3nd_@00=;k003B b@00:=T00M;Bl`00d_/00=;Q00;B0=:o00;B0=;^007Bd_H00=;k003Bb@009mL0 0M;Bm@00d_/00=;Q00;B0=:o00;B0=;/0?kBn@00d_/00=;9000We@01d];g003B n`00d^400]80d[l00]80d^T0o];l003Bn`00d/T002KC0?kBnP00d_/00=;Q00;B 0=:o00;B0=;V0?kB0P00d_/00=;9000Sd001d];l003Bn`00d^400]80d[l00]80 d^<0o];k003Bb@008lh00M;BoP00d_/00=;Q00;B0=:o00;B0=;Q0?kBo@00d/T0 02C<00?BdP3Bn`00d^400]80d[l00]80d^400]800?kB0@3Bb@002003Bl`01d];a003B``006l<00=;Q 003Bk001d];@003Bl@3nd_@00=;3000L``00d^400=;Z007Bd]800=;^007Bd_H0 0=;3000K``00d^400=;X007Bd]@00=;/0?kBn@00d/<001c3003Bh@00d^H00M;B eP00d^T00M;Bn`00d/<001_3003Bh@00d^@0o];I003Bi`01d];m003B``006/<0 0=;Q003Bh@01d];K003Bi@3ndP40d/<000S3087BmM;3000D`P01d];S003Bg@01 d];O003BXP005<000M;Bi@00d]/00M;Bh@00dZ8001Bn007Bd^L00=;I007Bd^<0 0=:R000C_001d];Y003Be`3nd^H00=:R000D^P01d];[003Be001d];X003BXP00 5;P00M;Bk@00d]800M;BjP00dZ8001Bf007Bd^l00=;@007Bd^`00=:R000C]000 d_000=;>007Bd^h00=:R000C/`01d];b003Bc03nd_400=:R000D/@01d];d003B b@01d];c003BXP005:l00M;BmP00d/L00M;Bm@00dZ8001B]007Bd_P00=;5007B d_L00=:R000DZ`01d];j003B``01d];i003BXP004jT00M;Bo000d/40o];l003B XP005:L00M;BoP00d[h00M;BoP00dZ80012U00?BdP3B_003d]80dZ8000JS0;KB XP001X40P@3i0006P@210?T000J10840n@001X40P@3i0006P@210?T000J10840 n@001X40P@3i0006P@210?T000J10840n@001X40P@3i0006P@210?T000J10840 n@001X40P@3i0006P@210?T000J10840n@001X40P@3i0006P@210?T000J10840 n@001X40P@3i0006P@210?T000J10840n@001X40P@3i0006P@210?T000J10840 n@001X40P@3i003o\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{264, 235}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData[ "a3t = orbittree[{1,1,1},a3d,a3transf];\na3tree = \ Graphics3D[{RGBColor[0,1,0],a3t[[1]]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{a3roots,a3graph,a3tree},ViewPoint->{1,3,5},Boxed->False]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ ;CH0100Y0B<1;@0A0_l<0?ooool0:@0000@0004]00018`000000000N00402P04 02T18`4]09R1100000017`44000000000000B00004P0000000P00@080000000/ LIP0000000111`000?l00?ooooooo`01003oo?ol00;oo?olZZP00jZXoobZZ004 =ba015EE00000004UEDoocoo00CZZSoo?ol01@k4c/C>a<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`ao0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`o0cl3?`<0;Gh7OPMn1`0^ _@^m2kd;02ooo000EE@0<000002ZZ00aEE@00:ZX03:ZZ000EE@0<`?`0o03l00d @_=2ld;c03F1mh7gPOL0=/3k`?_0n`0g000005ED03P7h0OP1n00>DKTA^A6i00j QNN5ihGW03/3l0?`0o00?4;c@_=2l`0mPON1mh7g03k0nl3k`?/0?ool002ZZ010 00000?ol045EE000oo`0@ZZX002ZZ0131n07h0OP04A6i4KTA^@0AHGWQNN5i`16 a>_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0B`OP1n07h01< A^A6i4KT04f5ihGWQNL0C/C[a>_4j`1?oo`00?ol050005ED0000DEEDEE@0001B ZZP00?ol05<;d0_@2m00E4[DB]A:e01ERMR9f8WH05K8flSKb=/0E`00003oo01H 3l0?`0o005U>a4k4C/@0FXg8SLR=b01K2m0;d0_@05a:e4[DB]@0GHWHRMR9f01N b=_8flSK05ooo5ED0000H000EEAEE01QEEAEE5ED06:ZZ5ED0000H`o03l0?`01T C/A>a4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06/?`0o03l00K4k4C/A>a01]SLR=b8g806ka07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0Na>a4k4C/@1l D[AB]5:d07fA^96hTKP0O]2ld;c@_01oooaEE:ZX080005EDoo`0PEEDEECoo022 ZZQEE:ZX08 e:cD[=B/08ooo5EDoo`0T000ZZP0002AEEBZZ00009:ZZ5EDoo`0Ta^A6i4KT@2D FYEJUEZE09FIVIVIVIT0U]RLf9cHW02G001EE?ol09POPAn17h40VEj5GXENQ@2J WHVMRIf909/KTA^A6i40W5ZEFYEJU@2MVIVIVIVI09kHW=RLf9`0WoolZZP0002P 002ZZ5ED0:5EE:ZXEE@0XZZXZZP0002S7h4OPAn10:ANQEj5GXD0YIf9WHVMR@2V g8cLS=b<0:L00:ZX0000Z2=b8g8SLP2YHWERMF9e0:ZQNJ5iXGT0Zan17h4OP@2/ GXENQEj50:fMRIf9WHT0[]b000?olEE@0hEEDooaEE03R ZZSoo0000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[;d8_@Rm20>a^AVi6KTH0kJe:[DZ]BP3^ k4g/CNa=0>ooo?olEE@0l000oobZZ03aEECoo:ZX0?:ZZ?olEE@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?/c[4j0?k`?_0nl3h0o`0000000000 00017`4400@0:@4S0Bd09006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@210?d0 00J10840o@001X40P@3m0009P@3h0050@8P000b10?/0oT020=3@R@003h400@00 oD3m00;@0=2:000=PP3n@?P00m00d=2<000>QP3m@?D00=3n003@S@003hX0oD3a 003@o@01d=2?000>S@3n@>d00=3k003@T0003Y40oD3Z003@nP00d94000nD0?i0 i@00d?X00M3@T`004iP0oD3R003@n000d?X00D10W@005Y/0oT3N003@m`02d=00 oD020=3@WP005il0oD3K003@m`02@43@o003d03@d:0001VS0?e0e`00d?/0oD3n 003@o003d000d:4001^V0?i0dP01d03m@?T00M3@oP00d?h00M3@X`005JX0oD3A 0?e0l`03d000d?`00=2T000F[@3n@=40oD02003@l@3nd?/00=2U000I/002d410 d@3n@?/00=3_003@nP01d=2W000G/001d=3D0?e0n000d>h00=3i003@Z0006:l0 0M3@f@3m@?<00=3_0?k@nP01d=2Z000L[`03d03@d=l0oD3_003@k`03d000d?T0 0=2[000P[`00d?h00=3T0?e0j`00d>l00=3n007@d?X00M3@[@007jl00=3m007@ d>T0oT3W003@k`00d?`00=3i003@[P007jl00=3k003@kP3m@>@00=3^003@o000 d?T00M3@/0007jh00=3k003@l`3m@>000=3^003@n`01d=3i003@/@007jh00=3j 007@d?T0oD3K003@k`00d?T00=3i003@/P008:h00=3h003@oP3m@=L00=3_003@ n001d=3j007@d;@001b^003@m`02d410d`00d>l00=3f003@n@00d;D001n^003@ n`3m@080d=3C003@k`00d?D00=3i007@d;L001j]007@0?e0nP00d=@00=3^003@ m@01d=3i003@^0007:l0oD3e007@d=D00=3_003@l`00d?T00M3@^P009;<0oD02 003@lP00d>P00D10l@00d>l00=3b007@d?T00=2k000W]P3n@?/00=3a003@k03n @080d=3b003@k`00d?000=3i007@d;d002Vj0?e0m`00d?400M3@lP3m@?d00]00 d?<00=3_003@k`00d?P00=2n000[_P3m@?<00=3_003@mP3n@?P00m00d=3e003@ kP00d>l00M3@n@01d=30000]`P3m@>l00=3^003@n`3m@?D00=3n003@m@00d>l0 0=3b0?k@0@3@m`00d<4002o60?e0j`00d>d00]3@0?i0l@00d?d00M3@m`00d>l0 0=3f0?g@o@00d?H00=32000ab@3n@>L00=3^0?i00=3k000Sm@00d?/00=3h003@ k`00d?X0oM3h003@mP01d=34000cc@3m@><00=3b0?i0o@01d=3m000Sm@00d?X0 0=3i003@k`00d?d0o]3d003@m000dl0o=3a003@l`01d=37000_d001d=3N003@nP3m@?<00=3n 000Sm@00d?P00=3l003@lP3ld>h00=3a003@b000400=3m @>T00M0Sm@00d?H00M3@oP00d?X0oM3j003@kP00d?@0oM010=3:000cc`00d?h0 0=3T0?i00=3U003@m@00d?@00m000=3n0?g@mP00d>d00=3h0?k@o000dT0oD3n003@i001d=3f003@m03kd?800=3]003@o03md?P00=3;000` cP00d?d00M3@kP3n@?X00=3T008S0=3g003@m@3md>h00=3^007@0?g@m000d003@n`00d?800]10@?L00=3T00@S003@d?T00=3i0?g@o@00d>l00=3_0?k@ l000d003@nP00d?<00M3@m@00d>D002?m003@nP00d?`0o]3i0?k@l@00 d?<0oM010=3_003@b`00>/h00=3i007@d?@00M3@mP00d>D002?l003@n`01d03m d?H00m000=3b003@m`3md?/00=3`003@b`00>/h00=3g003@m@03d03@d?P00=3T 000So003d=000?g@lP00d?h00=3c003@nP3nd?L00=3`003@b`00>ld00=3g003@ mP00d?h00=3i003@i0008o/0o]3n003@lP00d?d00M3@m002d000oM3d003@l000 dl00=3<000ic@00d?@00=3i003@o001d=3k003@iP3md?X00m3@ 0=3a003@n`00d?X0o]010=3^003@k`00d<`003[=003@l`00d?T00=3k003@o000 d>T0o]0102?f007@d?400=3j00;@d03md?d00=3^003@k`00d<`003S<003@l`01 d=3k003@nP00d?d00=3]0?g@o0008oH00M3@lP00d?/0oM3i003@k@00d?000=3< 000lc000d?400=3l003@n@04d=000=3a0?g@n0008oD00M3@l`00d?h0o]3m007@ d?/00=3]003@l000d<`003K<003@l000d?d00=3g00;@0=3d0?k@m0008oD00]00 d?@0oM3h003@n`00d>h00=3`003@c000?<`00=3_007@d?h00=3g00;@0=3i0?g@ l@008oD01=000=3@nP3md040d?D00=3l003@kP00d>l00=3=000kb`00d>h00m00 0=3f007@d?d0oM3]000Sm@00d?d00=3n0?k@o000d?@00M3@oP00d>h00=3_003@ c@00;l/00=3]00;@0=3e0?c@j0008oD00=3n0?g@n@00d?800m000=3^003@k`00 dP002?h0?g@nP00d?X00=3`0?k@kP00 d?000=3=000fb`00d>X00]3@0?k@nP00d?h00=3Y000So03md?h00=3i003@nP00 d>l00=3^003@l000d/00B<0oM3j003@n001 d=3l003@k`3nd?000=3`003@c@00>/X00=3`0?g@0@3@oP00d?T00=3k003@k@02 d=0Sm@00d?L00=3m003@k`03d000d?400=3_003@cP00?/X00=3c0?k@o000d?d0 0=3j003@nP00d?80oM02000Sm@00d?H01=3@003@k`00d?h00=3a003@l000d000nb@00d?L00M3@m`00d?`00M3@o000d?P00=3l0?k@ m`008oD00=3c00;@0=3_003@o000d?@00=3`003@cP00>0010b@00d?H00=3n003@n`00d?P01=3@003@oP3nd?/00=3b000Sm@00 d?800]00d?400=3h003@n000d>l00=3?000nb000d?L00=3m003@n`00d?L00M00 oM3g003@l`008oD00=3b00C@003@d?<00=3g007@d?T00=3`003@c`00?LL00=3i0?g@m`01d=3f 003@o000d?800M3@n`008oH00=3a003@m`00d?X00=3_007@d?000=3@000la`00 d?`0o]3n003@mP3nd?P00=3k007@d?800=3l000Sm@00d?800=3f007@d?`00=3^ 003@l000d=0003W60?c@n`00d?H00m000=3h003@nP00d?800=3m000Sm@00d?80 0=3d003@o@00d>h0o]3b003@d000?/T0oM3g003@mP00d?h00=3i003@n@00d?80 1=3@000SmP01@43b003@l`04d=000=3^00?@003@l`00d=0004G<0?k@oP00d?H0 0=3g003@o@01d=3k003@n001d=3b00;@02?j0?e00P00@?<00=3a00?@003@kP04 d000d=3e003@d000@]00oM3k003@mP00d?L00=3k003@o000d?H00=3b00;@02?n 0?i0nP00@?<00=3a00;@0=3^003@o@00d?D00=3A000oe03md?H00=3g003@mP00 d?/00=3l003@mP00d?800M0SoT3f0050@?D00=3`007@d>h00=3l003@mP00d=40 04?G0?k@lP00d?L00=3f003@nP01d=3n003@m@01d=3g0?e00B?@lP00@?H00=3c 0?k@0@3@kP00d?/00M3@n000d=4004?K0?g@k`00d?H00=3g003@n003d000d?<0 0=3k0?i0o@028`3@lP00@?L00=3g0?g@o@00d>h00=3i003@n@00d=4004GN0?k@ j`00d?H00=3g003@m`02d03@lP01d03m@?X012<00=3@l`01@43i003@nP3nd?T0 0M3@k`00d?P00=3j003@d@00A=h00M3@j@00d?L00=3f003@m`01d=3d0?i00M3@ mP008oh00=3b0010n@02d000oM3e003@kP00d?P00M3@o000d=4003oM007@d>X0 0=3g003@mP00d?D00=3i0?e0o000d?L002?m003@lP00@?X0o]3a003@kP00d?H0 0=3m003@d@00A=d00]00d>/00=3g003@mP00d?D00M3@o@3n@?L00=3i004S8o`0 0M3@l`02@400o=3_003@kP00d?D00M3@oP00d=8004OM00C@003@d>d00=3f003@ m`00d?D01M00d=10@?<00M3@oP3n8`8002?k003@m03nd?d00=3_003@kP00d?<0 0m000=3B0017g@00d?d00=3^003@mP00d?L00=3g00I0@=10003@l@3m8o/002?k 003@n@3md?h0043n003@k`01d=3_003@lP02d03@dP00CM`00=3m003@kP00d?L0 0=3f003@n`3n@0800=3m003@m@3n8`800=3i004S8o`00m3@003md?T01410003@ k`00d>l00=3a0050@=8004KL003@o001d=3`003@m`00d?H00]000?e0n`00d?d0 0=3j0?dSn`01d=3i000So03nd?<00T00d>l00=3^003@m@3n@=0004?L003@nP00 d?400=3g003@mP3n@?L00=3l00?@d000oR?e003@n@008og@0`00d=3c0050d>l0 0=3^003@n@3m@l00=3^003@o03n@/00D3@m000 d>/00M3@n@008o/00=3n003@nP3l@?/00=3^003@``00>MT00=3^003@o@00d?L0 0=3Z003@m000d>T00=3i000Sn`03d=00d?h0oD3l0010o000d>h00=33000ff@00 d>d01=3@003@m`00d>T00M10m@00d>T00=3i000SnP01d=3n@?L0043m003@kP00 d<<003OH003@k002d03@mP00d>X00]00@?H00=3X007@d?X00BX00m00043g003@iP00d?T00R=0 @?d00M3@l`03@000d>l00=33000ff000d>X00M3@m`00d>X00=3n0010n000d>D0 0=3n0?e00@0So002d03@l`02@03@kP00d<@003OH003@j@01d=3h003@j@00d?h0 0D10nP00d>@00]3@@?/00BT00=3l0010nP00d>T0oD02003@n@038`00d?h00M3@n03n@040d>h00=34 000ke`00d>T00]00d?T00=3Z003@n`00@?/00=3/0?i0nP00d?T00b<00=3m003@ o@3m@?d00=3^003@a000>mL00=3Y00C@003@d?/00=3Z003@nP01@43m003@l03m @?H00=3i008S8m3l003@oT3h003@k`00d<@003[G003@j@00d?d00=3l003@jP00 d?P0043n003@l`3n@?400M3@n@028`00oD01d=3g003@kP00d`00=3j00;@8d3k003@n000d>h00=35 000jeP00d>T00=3l003@o@00d>X00=3g00=0003@n`3m@>P00]000?e00m008b?k 003@n@00d>h00=35000keP00d>T00=3k00C@d000d>X00=3f0090@=3n0?i0i002 @=3@o@00d?h002?k007@d?/00=3^003@a@00=]H00=3Y003@n@02d03@jP00d?@0 0=3n@>D0oD3n003@o@00d?h002?j003@n`00d>l00=35000geP00d>T00=3h007@ d>X00=3g0?i00M10iP3n@?T00=3n003@o@018b?k003@o000d>l00=35000ie@00 d>X00=3g007@d>X00=3l0?e0o@02d410k03m@?D00m3@0=3k000Sn`01d=3n003@ kP00dl00M3@nP00 8oX00m000=3^003@aP00/0 0=3i004S8o/00]00d>h00=36000ce@00d>T00=3g00?@003@l@3n@040d?@00=3m 0050@?X0oT3V007@d?800M3@kP00dl00=36000ae000d>T00=3g003@o@00 d?/0oT3h003@m000d?`0oT3O00?@003@lP3nd?400=36000he000d>T00=3g003@ o001d03m@?D00=3d007@0?e00P00@=l00=3n007@d?@00m000=3a003@a`00>=@0 0=3Y003@m`00d?d00d10d=3b003@m@02@=10nP01@43Q003@o000d?D00=3n003@ lP00dT00=3j0090@=3h003@l`00d?d0oT3k003@ m`00@>800=3k007@d?P00=3k003@m@00d@00=3i003@n000d?/00=3f003@a`00>=<00=3Y003@ oT3j003@m`01d=3h0090@=3d003@m000@>D00=3h003@n@00d?X00M3@m`00dH00=3g007@d?/00=3h 003@n000dL0 0=3f003@o000d?L00=3i003@b000>]800=3d0?e0nP00d?L00=3h0?e00M3@n@00 d?@00=3a0010j000d?D00=3m003@mP01d=3k003@b000>m800=3g0?i0mP00d?L0 0=3k0?i0n`00d?X00=3d003@l000@>T00=3d007@d?h00=3e003@o000dl0043Z003@lP03d000d?@0 0=3m003@b000>=400]000?i0k`00d?L00]10@?800=3l003@m000d>h00D10k000 d?400]00d?<00M3@oP00dl00M3@o@00d?D00=3/ 0010k@00d?000D10l@03d000dd00=3d0?i0kP02d03@b@00:ll0043[0?i0n@00d>d00m000=3d003@ j`01@43_003@n03m@>X00D10b@009/h0043[0010n000d>`0o]3d003@j@00@?00 0=3k0?i0j@3n@`0043i003@jP00d?@00=3X0010l@00d?h0oT3Y 0?i0a0008//0043/0010n@00d>X00=3d003@j000@?80oD3Z0?e0`@00:X00m00d=3g003@i@00@?`0oD3m003@k`3m@;X002W80010j`00@?d00=3Z003@ oP00d?P00=3T00500?i0n@00d?80oT2f000Wa`01@43/00A0@000d>T00=3n003@ n@00d>D0oD3g003@m@3n@;<002[50010j`03@000d>X00=3m007@d?X00=3Z0?e0 o@00@?P00=3i0?e0/000:<@0043[00900=3Z003@n`00d?/00=3]0?i0n000@?P0 0=3m0?i0[0009/<0043[0050d>X00=3j003@o000d?40oD3d0050@?X00=3m@:T0 02C20050@>`00M10j`00d?T00=3m003@m03n@>h0043m0?i0Y@009<00043]00;@ 043[003@n@04d=000=3g0?i0jP3m@0800=2U000S_`00@>d00]00@>`00=3g00?@ 003@o03m@>X0o43m003@Y@00:;h0043^00?@0010k@00d?H01=00d000oT3Y0?i0 o001@43n003@YP009Kd0043_003@oP01@43_003@m@03d=10@>X0oD3g00=0003@ YP007K`00D10l@00d?`0043`003@g@3n@?800T00d:H001^j0010l@00d?`0043` 003@h@3n@>h00D10YP006kT0043b003@n`01@43b003@i@3m@>h0oT2T000J^000 @?<00=3i0010l`00d>P0oT3]0?i0X@006kL00D10m@00d?P0043d003@k03m@>h0 oD2N000J]@00@?H00=3g0010m000d?00oT3]0?i0VP006k@0043f003@m`01@43f 003@l`3n@>d0oT2G000J/`00@?L00=3e0010m`00d?L0oD3^0?e0U0006k800D10 n@00d?@0043h003@nP3n@>d0oT2@000J/000@?X00=3c0010n@00d?h0oD3]0?i0 S@005jl0043j003@l`01@43j0?i0k03n@8X001R^0010n`00d?40043n0?i00=3^ 0?e0Q`005Zd0043l003@l@3m@?h00=3a0?i0P`007Z`00D10oP00d?@0oT030010 @?h00=3d0?i0P@00000JZP03@000d?P0oD3j00=0003@n03m@840o@006ZT00d00 0=3l0?i0m@03@000d?`0oT210?T001RX00A00=000?i0l@04@03@003n@840mP00 4ZL00d3@@43]00=0d410P@3c0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d000J10840o@001X40P@3m0006P@210?d000J10840o@001X40P@3m0006P@21 0?d0003o\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{260, 287}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData["SpinShow[{a3roots,a3graph,a3tree}]"], "Input", AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Weyl group of b3"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "b3d = dynkin[\"b3\"];\nb3EpsilonToAlpha = {{1,-1,0},{0,1,-1},{0,0,1}};\n\ b3AlphaToLambda = Inverse[cartan[\"b3\"]];\nb3roots = \ Graphics3D[{RGBColor[1,0,0],\n\tLine[{{0,0,0},#}]&/@b3EpsilonToAlpha}];\n\ b3transf = Transpose[b3AlphaToLambda.b3EpsilonToAlpha];"], "Input", AspectRatioFixed->True], Cell[TextData[ "b3g = orbitgraph[{1,1,1},b3d,b3transf];\nb3graph = \ Graphics3D[{RGBColor[0,0,1],b3g[[1]]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{b3graph, rb3},ViewPoint->{5,3,2}, Boxed->False];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ @lh0100Y0A`1@`0A0_l<0?ooool0:@0000@00053000170000000000N00402P04 02T1705309R16P000001604J000000000000B00004P0000000P00@080000000b hd`00000000:8`000?l00?ooooooo`01ooooolc<00;oo?olZZP00ooooomVIP04 =baa<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`00000023oo`00VIT08Ooo001VIP0R ool003o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 c<`c_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol052IVLca4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` IVKooca07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX081VIVIVVIT0PFIVIVIVIP22 IVIVIS ZZQEE?ol08ooo5EDoo`0T3IVC0A4@000000h@00k^h0003R 003Mg@000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000001gM`3a000005EE0?800000A4@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0001604J00@0:@4L0D<09006P@210>L000J10840i`001X40P@3W0006P@210>L0 00J10840i`001X40P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L0 00J10840i`001X40P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L0 00J10840i`001X40P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L0 00J10840i`001X40P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L0 00R10>`0nM:4000=P@3l0?7BnP01d]:5000F007Bd]800=;n003BkP3idZ<001VF00;B0=;C003BoP02dP00l=;j 007BdZ@001>F00?B003Bg@3ad^T00]80dZD001bF00?B003BkP3`d_P00=;l003B j@03dP00dZH001jF003BoP02dP00lM;W003Bn`00d^X00=;n003BY`005Z00l=;G 003Bn`00d^X00=;n003BY`007ZT0n=;g003Bo000d]L00=;j003Bj`00d_d00=:X 000OZ@01d];`003Bn`00d]P00=;i003Bk000d_`00=:Y000PZ@02dP3Bl@00d_/0 0=;H003Bn000d^d00=;k003BZP008JT00m800=;b003BnP00d]T00=;g003BkP00 d_/00=:Z000QZ@03dP00d_800=;i003BfP00d_L00=;^003BnP00dZ/002:Y003B oP00d_<00=;h003Bf`00d_H00=;_003Bn@00dZ`002:Y003Bo@00d_@00=;h003B f`00d_D00=;`003Bn000dZd002:Y003Bo000d_D00=;g003Bg000d_@00=;a003B n@3jd[8002NY003Bn`00d_H00=;f003Bg@00d_<00=;h0?;B0P00d_h00M;B/`00 9jT00=;k003BmP00d_D00=;N003Bn03bd_/00=;f00GB003B0=:d000WZ@00d_X0 0=;g003Bm000d^@0l];k003Bl`00d_D01M80dP00d[D002^Y003Bn@00d_P00=;d 003Bl`3bd_`00=;a003Bm000d_@00M;BoP00d[H002JY003Bn000d_T00=;d0?;B k@00d_000=;e003Bl`00d_h00=:f000VZ@00d_P00=;j0?;B0P00d^400=;_003B mP00d_<00=;m003B]`009ZT00=;h0?WB0@3Bl@00d^800=;_003BmP00d_<00M;B o@00d[P002^Y003Bn03nd_/00=;a003BhP00d^h00M80n]82003Bl`02dP3Bo@00 d[T002nY003Bn003dP3Bd_`00=;`003Bh`00d_T0m=;k00?BdP3Bl`03dP00d_h0 0=:i000eZ@00d_P00m800=;l003Bk`00d^X0lM;j007Bd_h00=;l00?B0=;Bl`00 d_h00=;n003B^P00>ZT00=;h00CB003Bd_d00=;^003Bn`3_d_d00=;a00GB0=80 0=;l00?B003Bl`00d_h00=;m003B^`00>:T00=;h003BoP01d];n003BmP3]d_00 0=;a00KB003B003Bo@03dP00d_<00=;m003Bo@00d[`003VY003Bn000d_d0lM;h 00CB003Bd^X00=;a003BoP03dP00d_h01=800=;Bm000d_`00=;m003B_@00>:X0 lM840=;B0=;/00CB0=80d^/00=;a003BoP00d_h02=800=800=80d_X0n];l003B oP00d[d003Nc0?SB0@3Bn000d_/00]80d^/01=;B003Bk000d_400=;m003BoP3b d_`0o];m003Bo@00d[h003bc007Bd_T00=;h003Bn`3nd^X00=;n003Bk@00d_H0 l]840=800=;n003Bm`03d]80d_d00=;m003B_`00A;<00]80d_X00=;h003BnP01 d];Z003BoP00d_00l];l003Bn`07dP00d]800=;n003Bm`04d]800=;m003Bo@00 d/0004^c00?B003Bn`00d_P00=;i007Bd^/00M;BoP02dP00lm;n003Bl@00d_/0 0=;n00?B003Bo@00d_P00M;BoP00d_d00=;n003B`000@K<00m800=;k003Bn000 d_T00M;BlP3bd_000=;a003BnP06dP00d]80d_`00=;i007Bd_h00=;l003BoP00 d/4004Nc003BoP00d_`00=;h003Bn@3`d_X00m800=;n003Bl000d_400=;i00GB 0=80d];k003BnP01d];m003Bo@00d_d00=;20012/`00d_d00=;m003Bn`3ad^d0 0=;n00?B003Bl000d_400=;h00CBdP3Bd_/00=;j007Bd_`00=;m003Bo@00d/<0 04Jc00;B003cd_h00=;i00CB003Bd^h00=;n003BoP00d_400=;a003Bm`03dP00 d_X00=;k007Bd_/00=;m003Bo@00d/@004Zo0?;Bo@03dP00d_P00=;i003BoP00 d^h00=;m003BoP00d_800=;a003Bm`04dP00d];j003Bo001d];j003Bo@00d_h0 0=;4001?a`3id_D00=;k00?B003Bn000d_T00=;m003Bk`00d_`00=;n003Bl`00 d_400=;g00GBdP3B0=;j003Bo@01d];i003Bo@00d_h00=;5001@a`01d];_003B nP02dP3Bn000d_T00=;m007Bd_000=;k003BoP00d_@00=;a003Bm`05dP3BdP3B nP00d_d00M;Bn@00d_d00=;m003BaP00DLL00]80d_000=;i007Bd_P00=;i003B o001d];a003Bn`00d_h00=;d003Bl@00d_L01]800=800=;j003BoP01d];h003B o@00d_d00=;7001Aa`03dP00d_400=;h003Bn000d_P00=;l007Bd_800=;j003B oP00d_D00=;a003Bm`07dP00d]800=;j00CB003Bd_L00=;m003BoP00d/L00537 00?B003Bl@00d_P00=;h003Bn000d_/00=;b003Bn@00d_h00=;f003Bl@00d_L0 1=800=;BoP00d_X00m80d];f003Bo@00d_h00=;8001Da`00d_h00=;b003Bn001 d];i003Bn000d_/00M;Bl`00d_P00=;n003Bm`00d_400=;g00GB0=800=;n003B n`03d]80d_D00=;n003Bo@00d/T005C7003Bo@00d_<00=;h00;B0=;j003Bn000 d_X00M;Bm000d_P00=;n003Bm`00d_400=;g00;B0=;n00?B003BnP02dP3Bm@00 d_d00=;m003BbP00DlL00=;l003Bm000d_P00m800=;k003Bn000d_T00M;Bm@00 d_L00=;n003Bn000d_400=;g00;B0=;m00?B003Bn`3nd_@00=;m003Bo@00d//0 05C7003Bn`00d_D00=;h00?B003Bn`00d_P00=;h003Bm@00d_H00=;n003Bn@00 d_400=;g00;B0=;l00?B003Bo002dP3Bl`00d_d00=;n003Bb`00F001La`00d_P00=;h003Bm`00d_`00=;n003Bn@00d_@00=;i 003Bo03idP800=;n003Bo@00d_400=;g00;B0=;i003BoP04dP3B0=;n003Bl`00 d_d00=;n003Bc`00E/L00=;g003Bn@00d_L00=;k00?B003Bn@00d_@0l];j00CB dP00d_h00=;n003Bl@00d_L00]80d_P00=;n00?BdP3BoP00d_800=;m003BoP00 d]0005S7003BmP00d_X00=;g003BnP02dP3BnP3bdP80d];k003Bm@04dP3B0=;n 003BoP00d_400=;g00;B0=;g003BoP02dP3Bo@00d_800=;n003Bo@00d]4005G7 003Bm@00d_X00=;h003Bn@3hdP40d_800M;Bo000d_D01M800=80d_h00m800=;a 003Bm`02dP3BmP05dP00dP3Bo000d_800=;n003Bo@00d]800536003Bm@00d_/0 0=;h003Bn@01d];i003Bl@00d_`00=;e003BoP02dP3BoP02dP3Bl@00d_L00]80 d_D00M80o];k003Bl`00d_h0nm;B001DaP00d_D00=;k003Bn000d_T0o];j003B l@01d];m003Bm@00d_h00m800=;n007Bd_400=;g00;B0=;e00CB0=80d_/00=;l 0?CB1@00dP00d]8004o6003Bm000d_`00=;h003Bn@3md_/00=;`007Bd_h00=;e 003Bo@03dP00d_h00=;a003Bm`02dP3Bm002d]80m=;f003BoP03dP00d]8004o6 003Bl`00d_d00=;h003Bn@03d]80d_/00=;_00CBdP00d_D00=;l00;B0=;n003B l@00d_L00]80d_h0l];j003BlP00d_h00]80d]8004o6003BlP00d_h00=;h003B n@04d]800=;l003BkP03dP00d_D00=;k00KB0=800=;BlP00d_h0m=;f0?kB0@3B nP00d_800=;n007Bd]8005?6003BlP00d_h00=;h003Bn@05d]800=;Bo@00d^d0 0]80d_D00=;k00OB003B0=80d_`0m=;j00;B0=;c00GB0=800=;j003BlP00d_h0 0=;B001003Bo@00d_d00=;b0?GB0@3Bn000d_T00]80 d^h01]800=800=;k003BmP00d_d00M;BmP008oT01M80dP3Bd_T00m800=;e00?B 003BlP00d]0005g=003Bo@00d_h00=;l0?KB103B003Bo002dP3Bn000d_T00]80 d^h00=;n00?B003Bo000d_H00=;l003Bm@008oX01M80dP00d_T00m800=;d00;B 0=;b003Bd000GL`00=;m00;B003kd_H01=;B003Bn`01d];h003Bn@02dP3BkP01 d];n00?B003Bo@00d_H00=;l007Bd_H002?j00;B0=;n003BnP03dP00d_@00]80 d_800=;@001Gb`00d_h00=;n003Bl@00d_h00=;k003Bn000d_T00]80d^h00]80 d_h00]80d_d00=;f003Bn`01d];_00;B0=;m003Bn`03dP00d_<00M;BlP00d]00 05W;003Bo@00d_h00=;b007Bd_h00=;l003Bn000d_T00]80d^h02M800=800=80 0=;n003BmP00d_X00M;Bl002dP3Bo@01d];l00?B003BlP00d_800=;@001KbP00 d_d00=;n003Bl`02dP3BoP00d_d00M;Bn@00d_T00]80d^h00=;n00WB003B003B 003BmP00d_T00=;`00;B0=;l007Bd_d00m800=;b007Bd_<00=;@001Kb@00d_d0 0m800=;c00;B0=;n003Bo@02dP3BnP00d_T00]80d^h00=;n003BoP05dP00dP3B mP00d_T00M;Bl@02dP3Bn`00d_d00m800=;b007Bd_<00=;@001Nb000d_h00=;n 003Bm003dP00d_h00=;n00?B003Bn`00d_T00]80d^h00=;m003BoP04dP3B0=;f 003Bn001d];b00;B0=;j003BoP03dP00d_800]80d_D00=;?001Ma`00d_h00=;n 003Bm@00d_h00=;n00KB003B003Bn`00d_T00]80d^h00=;l003BoP03dP3Bd_H0 0=;g007Bd_<00]80d_T01]800=800=;b00?B003BmP00d/l005c7003Bo@00d_h0 0=;f003Bo@00d_h00]80d_h00=;l003Bn@02dP3BkP00d_/01]800=800=;f003B mP00d_<00]80d_T01];B0=800=;c003Bo@00d_L00=;?001KaP00d_d00m800=;f 003Bo@00d_h00]80d_d00=;m003Bn@02dP3BkP00d_/00=;n00?B0=;Bm`00d_D0 0=;d00;B0=;h00GB0=800=;c003Bo000d_P00=;?001Ka@00d_h00=;n003BmP00 d_d00=;n007Bd_`00=;n003Bn@02dP3BkP00d_X00=;n00?BdP3Bn000d_D00M;B m@02dP3Bm`04d]800=;c003Bo000d_P00=;?001Ha000d_h00=;n003Bm`00d_`0 0=;n003Bo000d_h00=;i00;B0=;^003Bn@00d_h00]80d_P00=;d007Bd_H00]80 d_H00m800=;c003Bn`00d_T00=;?001Ga000d_d00=;n003Bn000d_/01=800=;B o003dP00d_T00]80d^h00=;h00KB003B003Bn@00d_<00M;Bm`02dP3BnP3kdP40 d_<00=;j003BnP00d/l005?3003Bo@00d_h00=;i003Bn`04dP00d];k00;B0=;i 00;B0=;^003Bn007dP00d]800=;j003BlP00d_P0m];l00;B0=;c003Bn@00d_/0 0=;?001B`P00d_h00=;n003Bn@00d_X01=80dP3Bn`01d];i00;B0=;^003Bm`07 dP3B0=800=;k003BlP3gdP<0dP3Bm001d];c003Bn@00d_/00=;?001E`@00d_h0 0=;n003BnP00d_T01=;B003Bo001d];i00;B0=;^003BmP06d]800=80d_/00=;m 0?KB0P3Bd_T00]80d_<00=;c003Bn000d_`00=;?001?`@00d_d00=;n003Bn`00 d_P00=;n003Bo000d_T00]80d^h00=;e003BoP01dP3fd_@00M;BnP02dP3Bl`01 d];d003Bm`00d_d00=;?001A`000d_d00=;n003Bo000d_P00=;n003Bo001d];j 00;B0=;^003Bm@3kdP40d_d00=;_003Bn`03dP00d_<00]80d_D00=;f003BoP00 d/l005>o003BoP00d_h00=;l003Bn001d];n003Bo@02dP3Bn`02dP3BkP00d_00 0m800=;n003Bk`01d];l00?B003Bl`02dP3Bm@00d_D00m800=;?001E_P00d_h0 0=;n003Bo@00d_P00]80d_h00=;n00?B003Bo002dP3BkP00d^l01]800=800=;^ 007Bd_d00m800=;c00?B003BmP00d_D00m800=;?001D_P00d_d00=;n003BoP00 d_P00m800=;n00KB003B003Bo002dP3BkP00d^h01M80dP00d^d00M;BoP03dP00 d_@00=;m003Bm`00d_@00]80d/l005:m003Bo@00d_h00m800=;h00?B003BoP03 dP00d_h00=;m00;B0=;^003BkP05dP00dP3Bk000d_h00m800=;d003Bo000d_P0 0=;c007Bd/l004jl003Bo@06dP00dP00d_P00=;n003BoP02dP3Bo@00d_h00]80 d^h00=;]00CB003Bd^/01]800=800=;d003Bo000d_P00=;b003Bc`00Bk/00=;n 003BoP02dP3Bn000d_d00=;n007Bd_`01M800=80d^h00=;/00?B003Bj`06d]80 dP00d_@00=;k003Bn@00d_H0o=;?0010^`00d_d00=;n007Bd_P00=;l003BoP00 d_`01M800=80d^h00=;^0?_BjP3ndP800=;d003BnP00d_X0mM;:000n^P00d_d0 0=;n003Bn000d_`00=;n003Bn`04dP3B0=;^003BnP3ed_h00=;W00CBdP00d_@0 0=;l0?KB_`00>kT00=;m00?B003Bn000d_/01=800=;Bn`03d]80d_40m];a003B i`03dP00d_T0m];n003Bn`00d[l003bh003BoP04dP00d];i003BnP04dP3B0=;k 00;B0=;m0?GBoP00d^T00=;X0?GBo000d_P00=;l003B_`00=[L00=;n00CB0=80 d_X00=;i00CBdP00d_`0n];b003Bj000d_80m=;d003Bm`00d_d00=:o000m]`00 d_d01=;B003Bn`00d_T01=;B003BnP00d^h00=;W003BoP3fd_P00m80d];d003B mP00d_h00=:o000e]P00d_d00=;n003Bo000d_P01=;B003Bn`00d^h00=;^0?KB kP3ld_@00=;e00?B003B_`00@;D00=;n003BoP00d_`00=;g003BoP00d_`00=;^ 003Bn@3fd_T00=;g0?KB0@3BoP00d_D00=;e00?B003B_`00>K@01=800=;BoP00 d_d00=;g007Bd_h00=;m003Bk`3gd^d0mm;e003BoP00d_D00=;d00;B0=:o000o ]005dP00dP3BoP00d_h00=;g007Bd_h00=;m003BnP3fdP40d_00m]810=;]003B o@00d_H00=;c007Bd[l003Rc00GB0=800=;n00?B003Bm`02dP3BoP3ed_D00=;j 0?OBm@00d^d00=;l003Bm`00d_800=:o000a/P04d]800=;n00?B003Bn`3edP80 0=;a0?KBjP00d^h00=;k003Bn000d_H0o=:o000c/@00d_h00M80m];m003BoP00 d_h00]80d_`0m];n003BhP00d^l00=;k003Bn03ed[X002Ja0?_BoP01d];g003B oP01dP3gd_<00=;Q003Bl000d_X0mm:_000VZ`00d_h00=;l0?KBoP01d];^003B h000d_<0mm810=;j003B[`00;Z/00=;n0?_Bo000d_`00=;n003BkP00d^000=;n 0?KB0P00d_P00=;k003B[`009ZX00=;d003Bn`04dP00d];_003BiP3gd_@00=;h 003Bn`00dZl002^Y003Bm@00d_/01M800=80d_000=;a0?KBn@00d_<00=;g003B o000dZl002ZX003BmP00d_X01=80dP3Bl000d_/0mm;]003Bm000d_H00=;m003B [`009ZP00=;f003Bn@04d]800=;d0?OBh`00d_@00=;e003BoP00dZl002RW003B m`00d_P00=;n007B0?KBoP00d]`00=;e003Bm003dP00dZl0026V003Bn000d_P0 nm;c003Bf`00d_H00=;d00?B003B[`008:D00=;i003Bl`00d_<00=;J003Bm`00 d_<00]80dZl001nU003Bn@00d_800=;d003Bf@00d_P00=;b007BdZl001jT003B nP00d_400=;e003Bf@00d_P00=;a003B[`007Z<00=;k003Bl000d_H00=;H003B n@00d_D0o=:_000NXP00d_`00=;`003BmP00d]L00=;j00;B003gdZX001JR003B o000d^l00=;g003BeP3gdZ0001ZQ003Bo@00d^h00=;h003Bg`3gd_/00=:N000N X000d_h00=;]003Bn@00d^T0mm;g003Bo000dYh001fO00?B003Bk@00d_T00=;c 0?OBk000d_d00=:N000MW`03dP00d^`00=;j003Bo@3gd^400=;n003BWP005ih0 0]80d^/00]800?SBeP03dP00dYh001JM007Bd_80mm;m003BdP03dP00dYh001RL 003Bo03gd_T00=;l003Bd@02dP3BWP004i`0nm;^003Bo@00d]000M;BWP003X80 0=;n003Bc`00dYh000f100?B003Bd`3ldYh000f100?B003Bg@3gdYT000f100<0 dP3Bi`3gdXl000f100<00=;BlP3fdXD000j10?h00=;l0?OBP@3j000:P@3n0?_B P@3`0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W0006P@210>L000J10840i`001X40 P@3W0006P@210>L000J10840i`001X40P@3W003o\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 280}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData[ "b3t = orbittree[{1,1,1},b3d,b3transf];\nb3tree = \ Graphics3D[{RGBColor[0,1,0],b3t[[1]]}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[{b3roots,b3graph,b3tree},ViewPoint->{5,3,2},Boxed->False];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PICT", "\<\ A2`0100Y0AP1?`0A0_l<0?ooool0:@0000@0004o000160000000000N00402P04 02T1604o09R15P000001504F000000000000B00004P0000000P00@080000000b j7@00000000:8`000?l00?ooooooo`01ooooolc<00;oo?olZZP00ooooomVIP04 =baa<05GXGNQMj5`0F ^AZi6[TJ01Oh7_PNn1h06000oocoo00I?`01eEE00000007ZZX0000000Ooo`00000023oo`00VIT08Ooo001VIP0R ool003o0kl3P0X 0o03l0?`02U2ld;c@_<0:X7gPON1m`0[`?_0nl3k02`00000EE@0;EED001EE00^ ZZP005ED02ooo000EE@0<DKTA^A6i00j QNN5ihGW03_4jlC[a>/0?000002ZZ00mEE@00:ZX03jZZ000ZZP0?ool002ZZ010 c<`c_4jlC[04L00000ZZP0B0_@2m0;d019B]A:e4[D04Z9f8WHRMP0BlSKb=_8f`1< 00000?ol04eEE000oo`0CZZX003oo01?oo`00?ol052IVLca4k4C/@0FXg8SLR=b01Kca4k406F=b8g8SLP0I/ca4k40JE:dD[AB]01Z TKRA^96h06_@_=2ld;`0K000EEAEE01]EEAEE5ED06jZZ5EDEE@0KoolEEAEE01` IVKooca07AB]5:dD[@0MI6hTKRA^01f d;c@_=2l07L005EDEE@0N1NQ5j4GX@1iEZEFYEJU07ZEZ9FXUJP0NmB/e:cD[01l 001EE:ZX07eEE5EDZZP0OZZXEEBZZ01oooaEE:ZX081VIVIVVIT0PFIVIVIVIP22 IVIVIS ZZQEE?ol08ooo5EDoo`0T3IVC0A4@000000h@00k^h0003R 003Mg@000><_@Rm2;d80i6i6KTI^AP3U[DZ]BZe:0>K/CNa=k4d0i`00oo`0003X Ub=W8fLSH0j[4j/CZa>P3[l3k`?_0n0>`00?olEE@0kEEDooaEE03^ ZZSoo5ED0>ooo?olEE@0l000001gM`3a000005EE0?800000A4@0lc[4j/CX0m_0nl3k`?P3g003oo5ED0?Pg8cLS=b<0nGHVMRIf9P3j ]BZe:[DZ0?_d;_@^m2h0o000oobZZ03mEECoo:ZX0?jZZ?olZZP0o`0000000000 0001504F00@0:@4H0Cl09006P@210>/000J10840j`001X40P@3[0006P@210>/0 00J10840j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/0 00J10840j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/0 00J10840j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/0 00J10840j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0008P@3^0?WB QP003H40oP3ad_X00McLQ`0038h0lM;Z00;L0=b8000?U`00g?WBfP03g000g8T0 00jG007Lg=<00m`00=b9000DU`02g03Le000g?h00=c_0?WBY0006IL00m`00=cE 003Lo@01g03ad_X00McLY@004iL00m`00=cO0?3BjP02g03LYP007IL00=cn003L l03ad_L00=ck003Lj`03g000g:L001bG003Lo@00g?7Bi`00g?/00=c[003LoP00 g:P001RR0?3B0=cH003LnP00g>`00=cn003LZ0008:/00=cid_H00=ck003Lf@00 g?T00=c]003Lo@00g:T001n[007Lg>l00=ck003Lf@00g?P00=c^003Lo000g:X0 022[00;L0=c`003LnP00g=X00=ch003LkP00g?/00=b[000QZ`03g000g?400=ci 003Lf`00g?L00=c_003LnP00g:`0026[00?L003Ll@00g?P00=cL003LmP00g?00 0=cj003L[0008Z/00=cn003LlP00g?P00=cL003Lm@00g?400=ci003L[@008Z/0 0=cm003Ll`00g?L00=cM003Lm000g?800=ci0?[B/`009j/00=cl003Lm000g?H0 0=cN003Lm000g?P0l]82003LoP01g=bd000WZ`00g?/00=ce003Lm@00g=l00=ch 0??Bn`00g?H01M`00=`0g;D002R[003Ln`00g?D00=cd003Li@3bd_/00=cd003L mP06g000g000g;H002b[003LnP00g?H00=cd003Lm03bd_`00=ca003Lm@00g?D0 0]`0g?h00=bg000WZ`00g?T00=cg003Lm03cd^d00=ca003Lm@00g?@00McLoP00 g;L002J[003Ln000g?T0l]82003LhP00g?000=cf003Ll`00g?d00=bh000XZ`00 g?P00McLn]810=ca003Lh`00g>l00=cg003Ll`00g?`00=bi000XZ`00g?L00McL nP00g?400=cS003LkP00g?P00=cc007Lg?`00=bj000/Z`00g?L0o]ck003Ll000 g>@00=ch0?WB003hdP800=cc00;L0=cm003L^P00;j/00=cg00?L0=cLo000g>l0 0=cZ0>WB0P00g?`00mcL0=cc00?L003Lo@00g;/003F[003Lm`03g000g?`00=c^ 003Ln`3Zd_801M`0g000g?d00m`0g=cc003LoP00g?d00=bl000nZ`00g?L01=`0 0=cLo@00g?L0n=83g=;Bg?SBlP00g?401]`00=`00=cn00?L003Ll`00g?h00=cl 003L_@00>Z/00=cg003LoP01g=ccd_L00m`0g=cZ003Ll@03g000g?h01m`00=`0 0=cLm000g?d00=cl003L_P00?j/00=cgdP3LoM84g=`00=c/00?Lg03Lj`00g?40 0=cn00[L003L003L003Lg?P0oM82g=;BoP00g?d00=bn0012]000g?WB0=cg003L o003g=`0g>/00m`00=c/003Ll@00g?d01M`00=`0g?gB0=cid_d00m`0g=cn003L o@00g;l003jd007Lg?X00=cg003Lo003g=`0g>/00mcL0=c/003LmP3cdPOLg000 g000g?H01=`0g03LoP00g?d00=c00012]002g03Ln`00g?L00=ck0?kLj`04g=`0 0=c_0??Bo000g?/01]`00=`00=cn003Lm`08g03L003L003Lo000g<4004Zd00?L 003Lo000g?L00=cj007Lg>/01M`0g000g?h0lm82003Ll@00g?/01]`00=cL0=cm 003Ln005g03L003LoP00g?d00=c1001;]003g000g?`00=cg003Ln@01g=cb0?_B 2=cBd]cBd]cBd_400=ca003LnP05g03Lg03Lo@00g?P00]`0g?h00=cn003Lo@00 g<8004^d003LoP00g?d00=cg003Ln@02g=`0lm;k003LoP03g000g?000=ca003L n@04g=`0g=cl003Ln@02g03Lo@00g?h00=cm003L``00BK@00=cm003LoP00g?T0 0];Bg?SB0McLk@00g?h00m`00=c`003Ll@00g?P00m`00=ck003LnP02g03Lo000 g?h00=cm003La000C[@00]`00?kB0=cndP3Ln]82003Ln@03g03Lg>h00=cm00?L 003Ll@00g?400=ch00CL003Lg?/00=ck00;L0=cl003LoP00g?`00=c5001:_`3c d_d00m`00=ch003Ln@04g000g=c_003Lo003g000g?800=ca003Ln004g=`0g=cj 003Lo002g03Ln`00g?h00=cm003La@00DLL00=cjd_H00=ck00?L003Ln000g?T0 0=cn003Lk`00g?/00m`00=cc003Ll@00g?P01M`0g=`0g?/00=cl00;L0=cj003L oP00g?d00=c6001Aa`01g=c`003LnP02g03Ln000g?T00=cn007Lg?000=ck00?L 003Ll`00g?400=ch00KL003L003Ln`00g?d00]`0g?T00=cn003Lo@00g001Ga`00g?T00=ch003Ln000g?`00=cn003Ln000g?L00McLn000g?<00m`0 0=ck003Ll@00g?P00]`0g?X00=cn00OL003L003Lg?<00=cm003Lo@00ga`00g?<0 0=cm003Ln@00g?P00m`0g=ck003Ll@01g=cn003Lm@00g?d01m`00=`00=cLl@00 g?P00]`0g?@0lmcd003LoP03g000g=<005?7003LlP00g?h00=ci003Ln003g000 g?/00=c`00CLg000g?D00=cl00KL003L003Ll@00g?P00M`0lm`50=`0g03LnP00 g?@00=cm00;L0=cC001l00mcL 0=ce003Ln`06g000g03Lg?@0l]cc0?kL0P00g?/00=cc003Lo@01g=cC001@a`00 g?400m`00=ci003Ln000g?h00McLo@00g>h00]`0g?D00=ck003LoP3ag0800=ch 00;L0=cc00GL0=`00=cj003Ll`00g?h00McLd`00BLL00=c`00;L0=ci003Ln000 g?d00McLoP00g>h0o]cf0??L0P00g?@00=ch00;L0=cc00KL0=cL003LnP00g?<0 0=cn003Ld`00C/L00=c_007Lg?T00=ch003Lo000g?h00=c^0??L0@3Ln@06g000 g000g?@00=ch00;L0=cc00OL0=`0g000g?X00=cd003LoP01g=cD001DaP00g>l0 0=ci003Ln000g?`01=cL003Lo03cg0<00=cLmP008oP01]`0g=`00=ce003Ln002 g03Ll`04g03L0=cn003LnP00g?@01M`00=`0g=D004O6003Lk`00g?T00=ch0?7L l@01g=cf000Sm`06g=`0g000g?H00=ch00;L0=cc00WL0=`00=`00=`0n]cc00GL 0=`00=cF0010aP00g>l00McLo03cg?/0o]c/0?kLm`008oL01mcL003L003Lm`00 g?P00]`0g?H0m=ck003LlP04g=`00=cF001AaP00g?00nM`2003Ln001g=cj007L g>`00m`0g=ch000SmP06g000g000g?L00=ci007L0?CLoP02g03Lo@03g000g?`0 0=ch0?WLoP00g=L00536003Ll004g=`00=cl003Ln001g=ci003Lk004g000g=ci 000SmP07g=`00=`00=cj0?CL0@3Ll`02g03Lo@00g?h0l]ck007Lg?d00=cH001; aP00g?00o]`10=cl003Ln001g=ci007Lg>d00=cn007Lg?X002?f007L0?CL0P00 g?T00m`00=cd0??LoP00g?800McLo000g=T005O6003Ll005g=`0g03Lo@00g?P0 0McLn@3ng>h00=cn007Lg?X002?cg?h00m`00=cj003Ln@02g000lm`30=`0g?/0 0m`00=cn003LlP01g=ck003LfP00ClH00=c`00KLg03L003LoP00g?P00McLn@03 g03Lg>l0lmcf00KL003L003LoP00g?d0l]cc00;L0=cj00KL003L003LlP01g=ck 003LfP00E/H00=c`00[Lg000g000g000g?P00McLn@03g000g?/0m=cl007Lg?`0 02?f007L0?CL0@3Ln003g000g?<00]`0g?T01M`00=`0g?800McLnP00g=/005_6 003Ll001g=cn00GL0=`00=ch007Lg?T00M`0nMce003Ln`01g=cm000Sm=cn00KL 003L003Lo@00g?P00m`00=cc00;L0=ci003LoP01g=cb003Ln000g=`005C6003L l001g=cm00CL0=`0g?P00McLn@01g03mg?80lm`08oH00=cl00KL003L003LoP00 g?P00m`00=cc00;L0=ch00CL003Lg?800=cg003Lg@00FlH00=c`007Lg?d01=`0 0=cLn001g=ci00?L0=`0l=`10=cj007Lg?h002?f003Lo000g?h01]`00=`00=ch 00?L003Ll`02g03Lm`03g000g?800=cf003LgP00E0005K60??L o@01g=cj00?Lg03LnP01g=ci00;L0=cm0?kLm@00g?L00]cL8oL00=ch003LoP03 g000g?P00m`00=cc00;L0=cd00?L003Lm@00g?<00=cQ001Gd`3cg?000McLn@03 g000g?/00McLn@02g03Lo001g=ce003LmP01g=cg003Lm`07g000g000g=ci00?L 003Ll`02g03Lm004g=`00=cf003LlP00g>8005gK0?WLm000g?000McLn@04g=`0 0=cl007Lg?T00]`0g?`00]`0g?H00=ce007Lg?P00=cf00KL003L0=cLn@03g000 g?<00]`0g?@00McLoP00g?L00=cg0?_LhP00G]/00McLkP00g?000McLn@04g03L 0=cl007Lg?T00]`0g?/0o]cg003Lm@028mcLn@00g?D01]`00=cL0=cj00?L003L l`02g03Lm002g03LoP00g?X0m=cl003LhP00H=/00]`0g>l00=c`007Lg?T01M`0 g000g?d00McLn@02g03LnP3ng?P00=ck0?_B0R?Lg?T00=cd00KL003L003Ln`03 g000g?<00]`0g?D00]`00?GL0P3Lg?800=cR001Zf`03g000g?000=c`007Lg?T0 1]`00=`00=cn007Lg?T00]`0g?T00]cL0?WB0=ckd_/00b?Bg=cj003Lm003g000 g?h00=cl00?L003Ll`04g03L003dg0D00=`00=cj007Lg?800=cR001Wf`03g000 g?000=c`007Lg?T00=cn00OL003L003Lg?X00m;Ld]cidP;Ld]ci003Lm@048`3B g=ck003Ll`06g03Lg000g?`00m`00=cj0?GLm`00g?`00m`00=ck007Lg?800=cR 001Vf`00g?h00=ca003Ll001g=ci003Lo@06g03L003Bg?[B0`3L0=ch0?kLnP00 g?D01B<00=;Lg?`00=cb00SLg03L003L003dg?X00]`0g?D00=cl003LoP00g?`0 0McLlP00g>8006;K003Lo@00g?800=c`007Lg?T00=cm00KL003L003Ln@02g03L m`3ng?/00=ce00DS003B0=cl003Lm@3eg0D00=`00=cc00;L0=ce003Ln`00g?h0 0=cm007Lg?800=cR001Yf`00g?`00=cc003Ll001g=ci003Lo006g000g03Ld_X0 0]`0g?H00McLn`00g?D002?n00;Bg=cm0?CLo@00g?h02M`00=`00=`00=cc00;L 0=ce003LnP03g000g?d00McLlP00g>80063K003Lo000g?<00=c`007Lg?T00=ck 00KL003Lg03Bn`02g03LmP02g03Lo000g?H0m=ca00CLg000g?h01M`0g000g?<0 0]`0g?D00=ci00?L003LoP01g=cb003LhP00IM/00=ck003Lm000g?000McLn@00 g?X01M`0g=`0d_/00]`0g?D0o]cn0?CL0@0So005d]cL003Ll@0=g03L003L003L 0=`00=cc00;L0=ce003Ln@00g?h01=`00=cLlP00g>8006?K003LnP00g?D00=c` 007Lg?T00=ci00GL0=`00=;l00;L0=ck0?GL0@3Lm@008o/01=;Lg03Ll@0=g000 g000g000g=`00=cc00;L0=ce003Ln000g?h00m`0g=cb003LhP00HM/00=ci003L mP00g?000McLn000g?X01]`0g=`00=;dg?T00McLoP00g?D002?k00CBg=`0g?40 0=cn00WL003L003L003Ll`02g03Lm@00g?L01]`00=`0g=cb003LhP00GM/00=ch 003Lm`00g?000McLn002g000mM`0d_h00]`0g?<01M`0g000g?D002?j003Bo]ca 003LoP09g000g000g=`0g?<00]`0g?D00=cf00;L003ng?800=cR001If`00g?P0 0=cg003Lk`3dg?X01M`00=`0d_h00]`0g?801=`0g03Lm@008oT00];Lg?400=cm 00SL003L0=cL0=cc00;L0=ce003Lm@04g000g=cb003LhP00F=/00=cg003Ln000 g?/0m=ch003Ln00;g=`0g000dP00g03Ll@3mg?D002?h00;Bg=cb003Lo007g000 g=`0g=cc00;L0=ce003Lm@04g000g=cb003LhP00E]/00=cf00;L003dg?D00=ch 003Ln00;g=`00=`00=80g03Ll03ng?D002?h00;Bg=cb003Ln`06g000g000g?<0 0]`0g?D00=cd007L0?kLl`00g>8005?K003LnP3jg?/00=c_003Ln000g?P02m`0 g000g000d]`0g?000]`0g?D002?g0?kLl`00g?X01]`0g=`0g=cd00;L0=ce003L l`3mg?<00=cR001MfP00g?/00McLoP00g?X00=c_003Ln000g?P02m`00=`00=`0 d]`0g>l0o]ck0?/Sm`03g=;Lg?@00=cj00OL0=cL0=`0g?D00]`0g?D00=cb00?L g03Lm@00g>4006CJ003Ln`02g03LoP00g?/00=c_003Ln000g?P00=cn00OL0=`0 0=`0g?80oB<0g?XSn`008oP01=`0d]cLm@00g?T01]cL0=cL0=ce00;L0=ce003L m`3kdP?L003LmP00g>4006SJ003Ln`03g000g?h00=cl003Lk`00g?P00=ch003L oP09g000g03Ld]`00?@So@3mg?H002?i00CL003Bg?D00=ch00KL003L003Lm`03 g000g?H00M;Lmm;k003LoP00g?L00=cQ001VfP00g?/00m`00=cm003Lo@00g>l0 0=ch003Ln001g03n8`3Lo2<2g24006[J003Ln`00g?h00=cn 003Lo@00g>l00=ch003Lo@3l8`7L8od01M`00=`0g>h01=`0g03LmP008oX00=cn 00;Bg=cg003Ln004g=`0g=cn003LnM82g=;Bm000g?400=cm003Ln000g>4006WJ 003Ln`00g?d00=cn003LoP00g>l00McLn@00g?P00=ck00GL0=`0g=;_00;L003n g?H002?k003Lo@02d]cLn000g?/0o]80g?gB0mcBd]ci00;L0=cd003Ll@00g?`0 0=ci003Lh@00JMX00=ck003Lo000g?h00m`00=c_007Lg?T00=ch003Ln`01g03n g040d_000=cn0?kLmP008o`00=cl00;Bg=cn0?GBoP09g000g000g000g?X00]`0 g?@00=ca003Ln`00g?X00=cQ001ZfP00g?/00=cl003Lo@02g03Lk`01g=ci003L n000g?X01]cL0=`00=;a003LoP02g03Lm@008od0n]81g=cnd_`00=ch00[L003L g000g000g?/00]`0g?@00=ca003LnP00g?/00=cQ001^fP00g?/00=ck003LoP02 g03Lk`01g=ci003Ln000g?T01]`0g=`00=;b003Lo@02g03Lo@3idP0So]80g?/0 0];Lg?X00=ch00OL003L0=`0g?h00=cl00;L0=cd003Ll@00g?X00=ck003Lh@00 JmX00=ck003LnP00g?h00McLk`01g=ci003Ln000g?T0oM`2003BlP00g?cB0McL oM;i000SoP00g?X00];Lg?/00=ch00SL003L0=`00=cn003Lo@02g03Lm000g?40 0=ci003Lo000g>4006[J003Ln`00g?T00=cn003Lk`01g=ci003Ln000g?T0o]`6 0=`00=800?GB0=ck0?kLmP038`00g?T00];Lg?`00=ch00cL003L003L003L003L o@02g03Lm000g?800=cg003Lo@00g>4006[J003Ln`00g?P01=`00=cLl001g=ci 003Ln000g?/0oM83g=;Bg?gBm@00g?/00]`0g?D00R<0g?P00M;Lo000g?P00m`0 0=cn00KL003L003LoP02g03Lm000g?800=cf003LoP00g>4006oJ003Ln`00g?P0 1=`00=cLl001g=ci003Lo@3ldP3Lnm8;003L0=cL003L003Bm@00g?X00]`0g?D0 0B?Ln002d]cLo@00g?P00m`00=cm00_L003L003L003L0=cd003LlP00g?H00=cn 003Lh@00K]X00=ck003Lm`04g03L0=ca00?Lg000nm80g?gBo000g?T02M`0g03L 003L0=;e003Ln@02g03LmP018mcg00;Bg=cn003Ln003g000g?d00m`00=cn00CL 0=`0g?@00=cb003Lm@03g000g>4006KJ003Ln`00g?H01=cL003LnP3idP3Lo];k 003Ln000g?T02]`0g03L003L003BmP00g?P0o]cf000SmP05d]cL003Ln003g000 g?`00M`0o=`30=`0g?@00=cb003Lm002g03Lh@00HmX00=ck003LmP05d]cLd];L nm;i007Lg?T00=ch003Ln@0;g03L003L003L003Bm`00g?P00]`0g?H00M`SmP04 d]`00=ch0?KL2000g03L0=`0g?@00=cb003Ll`01g=cQ001UfP00g?/00=cfdPD0 g=`00=cc007Lg?T00=ch003Ln@02g03LoP06g000g000d_P00=cg00;L0=cg00;L 02?g00?Bg=`0m]`2003LnP08g000g=`0g03Lm000g?800=cb003Lh@00H=X0n]81 0=ce003LoP00g?@00McLn@00g?P00=ci00;L0=cm00GL003L0=;g003Lm`02g03L n005g0008`00mMch00?L003Ln@07g03Lg03L0=cd003LlP00g?L0nm;Q001Nf@00 d_/00=ce007Lg?h00=ce007Lg?T00=ch003Ln@02g03Lo@06g000g000d_P00=cf 0?kLoP3fg?P00];Lg?P00m`00=ci00OL003L0=`0g?@00=cb003Lmm;K001Rf000 d_`00=ce00;L0=cn003LmP01g=ci003Ln000g?T00]`0g?`01]`00=`00=;i003L mP3kg?`00=cn000SmP02d]cLn@03g000g?P00M`0o]`10=cd003LoP3edP3Ld@00 IML00=;m003Lm@02g03Lo@00g?L00McLn@00g?P00=ci00;L0=ck00KL003L003B nP00g?H00m`00=cj003Lo@008oH00McLn@03g000g?L01McL0=`0g?`0n]80g?gB m@00g=4006;G003Bo@00g?D00m`00=cn003Lm`01g=ci003Ln000g?T00]`0g?X0 1M`00=`0d_X00=cf003LoP00g?/00=cl000So03kdP7Lg?X00m`00=cg007Bg?SB nP00g?400=cA001TeP00d_h00=ce003LoP00g?h00=ch007Lg?T00=ch003Ln@02 g03LnP06g000g000d_/00=cf003LoP01g=cl003Lo=808ocBnP01g=ck007L0?GB 0P3L0?kLm@00g?400=cA001Se@03dP00g?D00=cm003LoP00g?T00McLn@00g?P0 0=ci00;L0=ci00KL003L003Bo000g?H00=cmdP3Lo=80g?/002?h0?kB0McLo=83 g=80g?H0o]`10=ce003Ll@00g=4006GD00;B0=ce003Lo@00g?d00=cj007Lg?T0 0=ch003Ln@02g03Ln006g000g000d_d00=cfdP3Lo000g?d00=cl00;BdR?id_d0 0=cl00?L003LmP05g03L0=cLmP00g?400=cA001Ke002dP3Lm@00g?`00=cn003L nP01g=ci003Ln000g?P00McLm`03g=;Bg?_B0=cf003Lo@3ed_h002?f007Lg?d0 0m`00=cf007L0?kL0@3Lm`00g?400=cA001Td`01d]ce003Ln`00g?h00=ck007L g?T00=ch003Ln001g=cgdPKL003L003BoP00g?d0n]80g?gBoP03g000g?P002?f 007Lg?h00m`00=cf00KL0=`0g03Lm`00g?400=cA001OdP00g?D00=cj003LoP00 g?`00McLn@00g?T00M;Ln=81g=cf00;L003kdP3LoM;j003LnP03g=`0g?P002?e 00OLg000g000g?L02=;Ld]cBdP00g?P00=ca003Ld@00H=800McBmP00g?X00=cm 003Lo@01g=ck00;Bd]cidP40g?P00mcL003gdPSLdP3L003B0=cf003Ln@02g03L m`008oD01M`00=`0g?KB0`3L0=cl003Ln@00g?400=cA001LdP01g=;f003Ln@00 g?h00=cm003Ln]82003Ln001g03gdP7Ld_H01m`00=`0dP3LmP00g?P00McLmP00 8o`0nm85g=cBg=;Lm@02g03Ln`00g?X00=ca003Ld@00GM800]`0d_L00=ch003L oP00g?h00]`0d_X00=chdP7Ld_T00]`0g?D00=cn00?L0=;LmP00g?L00=cl0?[B 02?md_X0o]`10=ce00;L0=ck003LnP00g?400=cA001GdP03g000d_P00=cg003L oP03g03Bg?OBn000g?P00]`0g?@01]`00=`00=cf003Lo03ldP3Lo=;j000Sm@03 g=`0g?D00]`0g?X00=ck003Ll@00g=4005kB003LoP00d_T00=cm0?[B0=cndP;L 0=cn003Bo000g?P00=ch00;L0=cc00KL003L0=cBo@3kdP3Lo=;l007Lg?D002?e 0?kLmP03g000g?T00=cl003Ll@00g=4005WB003Lo@01dP3fd_X00=cn00;L0=cm 003Bo@00g?P00=ch00;L0=cc00GBg=;Bg=cld_/00=cg00;L0=ce000SmP3ng?H0 0m`00=ch003Lo@00g?400=cA001HdP3jd_/00=ce003LoP01g=cm003Bo@00g?P0 0=ch00CL0=`00?GB1`00g000g03Bn000g?L00m`00=ce000Sm`3ng?H00m`00=cg 003LoP00g?400=cA001Pd@00d_d00=;k003Lm000g?h00=cl003BoP00g?P00=cn 0?_B1=cBg=;Bl`06g000g000d_T00=cg00CL003Lg?D002?h00?L0=cLm`03g000 g?L00=cn003Ll@00g=4005g@003Bo@00d_`00=cc00CL003Lg?`01=800=`0nM80 g?kBn`02g03Ll006g03Lg000d_X00=cg003LoP00g?D002?h007L0?kLn003g000 g?H00m`00=ca003Ld@00Ell00=;m003Bo@00g?<01=`00=cLnM81g=;i003Ln002 g03Lk`05g=`0g03BnP00g?L00=cm003Lm@008oT01=`0g03Ln003g000g?D00]`0 g?400=cA001JcP00d_h00=;m003Ln`3hdPCLd]`0g?`00]80g?P00=ch00;L0=c^ 00GL003L0=;k003Lm`00g?`00=ce000SnP05g03L0=cLn@03g000g?@00McLl@00 g=4005W>003Bo@00d_h0n];g00CLg000g?`00M;Ln000g?P00]`0g>h01]`00=`0 0=;l003Lm`00g?/00=ce000Sn`06g03L003Lg?X00m`00=cd007Lg?400=cA001I c@00d_d00=;n003Bl@00g?h00=cl003Ln000g?P00]`0g>h01mcL003L003Bo@00 g?L00=ck003Lm@008o/00]`0g?h00McLn`03g000g?<00=ca003Ld@00E/`00=;m 003BoP00d_800=cn003Lo001g=;i003Ln002g03LkP07g03L003L0=;m003Lm`00 g?X00=c_00;L0=cm003Ln`03g000g?<00McLlP00g=4005_;003BoP00d_d00=;c 007Lg?h00=cm00;L0=;j003Ln002g03LkP08g000g000g03BoP00g?L00=ci003L l002g03Lo@01g=cl00?L003Ll`02g03Ll`00g=4005c;003Bo@00d_h00=;c00;L 0=cn003LoP02g03BnP00g?P00]`0g>h03=`00=`00=`00=800=cg003Ln000g?40 0]`0g?`00McLo@03g000g?<00]`0g?<00=cA001NbP00d_d00=;n003Bm003g000 g?h01]`00=`00=;k003Ln002g03LkP00g?h02=`00=`00=80g?L00=ch003Ll@02 g03Ln`01g=cn00?L003Ll`03g000g?D00=c@001Mb@00d_d00=;n003Bm@03g000 g?d00]`0g?h00=;l003Ln002g03LkP00g?d01m`00=`00=;Lm`00g?L00=cb00;L 0=cj00OLg000g000g?<00=cn003LmP00g=0005c8003BoP00d_d00=;f003LoP00 g?h00]`0g?d00=;m003Ln002g03LkP00g?`01]`00=`0d]cg003LmP00g?<00]`0 g?T01]`00=`00=cc003Lo@00g?L00=c@001Ka`00d_h00=;n003BmP00g?d00=cn 007Lg?d00=;m003Ln002g03LkP00g?`00=cn00;L0=cg003Lm@00g?@00]`0g?T0 1]cL0=`00=cc003Lo000g?P00=c@001Ha`00d_d00=;n003Bm`00g?`00=cn003L o000d_h00=ch00;L0=c^003Ln`06g000g03Ld_P00=ce003Lm002g03Ln03ng080 0=cc003Lo000g?P00=c@001GaP00d_d00=;n003Bm`00g?d00=cm003Lo003dP00 g?P00]`0g>h00=cj00KL003Lg03Bn@00g?@00=ce00;L0=cg00CLg000g?<00=ck 003Ln@00g=0005G5003BoP00d_d00=;h003Lo000g?h00=ck00;B0=ch00;L0=c^ 003Ln@05g000g03Bn@00g?<00=cf00;L0=cj0?cB0P00g?<00=cj003LnP00g=00 05;4003BoP00d_d00=;i003Ln`04g000g=ck007Bg?P00]`0g>h00=ci00KL003L g03BnP00g?800=ch0?KBo@03g000g?<00=ci003Ln`00g=0005;4003Bo@00d_h0 0=;i003LnP04g03L0=cl007Bg?P00]`0g>h00=ch00KL0=cL003Bn`00g?80mm83 0=`0g?D00]`0g?<00=ci003Ln`00g=0005G3003Bo@00d_h00=;j003Ln@04g=`0 0=cl007Bg?T00]`0g>h00=cg00KLg03L003Bo000g?`0mm810=ch00;L0=cd007L g?<00=ch003Lo000g=0004c2003BoP00d_d00=;k003Ln@04g=`00=ck003Ln@02 g03LkP00g?H01=`00=`0mM;e003Ln@02g03Ll`00g?<00=cg003Lo@00g=0004g1 003BoP00d_d00=;l003Ln000g?h00=cl007Ld_X00]`0g>h00=cf003Lnm;m003L k`00g?X00]`0g?<00=cd003Lm@00g?h00=c@001A`000d_h00=;n003Bo000g?P0 0McLoP00g?d00]`0d_/00]`0g>h00=cb00?L003BoP00g>h00=cl00?L003Ll`01 g=ce003Lm003g000g=0005;0003Bo@00d_h00=;m003Ln002g03LoP00g?h00]`0 d_/00]`0g>h00=ca00KL003B003LkP00g?`00m`00=cc00;L0=cf003Lm003g000 g=0005:o003Bo@00d_h00=;n003Ln002g03LoP00g?h00m`00=;l00;L0=c^003L l005g03B003Lk@00g?d00m`00=cc00?L003Lm`00g?<00]`0g=00056n003BoP00 d_d00m800=ch00?L003LoP03g000g?h00=;m00;L0=c^003Lk`04g03B0=c/003L oP03g000g?@00=cm003Ln000g?800McLd000C[d00=;n003BoP03dP00g?P00=cn 003LoP02g03Lo@00d_h00]`0g>h00=c^00?L0=;Lj`06g000g000g?@00=cm003L n000g?400=c@001<_@00d_d00=;n00;B0=ch003Lo@00g?h00McLo@00d_h00]`0 g>h00=c^00?L003Lj`06g000g000g?@00=cl003Ln@00g?D0o=;@0019_000d_d0 0=;n007Bg?P00=cm003LoP01g=cl00GB003L0=c^003Ll03ndP;Ld];Z00GL0=`0 0=cd003Ln`00g?X00M`0m];;0015^`00d_h00=;m003Ln000g?`00=cn003Ln`04 dP3L0=c^003Ln`3fd_d00=cX00CLg000g?@00=cl00;Bd]ckdP7Ld/00042j003B oP00d_h00=ch003Ln`04g000g=ck00?Bg03LlP3mdP3Lnm;a003Lj003g000g?P0 mm82003Ln`00g;l003ni003BoP04dP00g=;i003LnP04g03L0=ck00;L0=cm0?KB o@00g>/00=cX007L0?KBo@00g?T00=cl003L_`00?KT00=;m00CB0=`0d_X00=cj 00CL0=`0g?/00]cBg?gBlP00g>X00=cb0?KB0@3Lm000g?P00=cm003L_`00?[P0 0=;n00GB0=`00=;k003Ln@04g=`00=cj003LkP00g>T00=cm0?OBn003g03Lg?@0 0=cg003LoP00g;l003Vg003BoP01d]cn003Bo000g?P00=cn003Ln`00g>h00=c_ 0?KBkP03g000g?@00=cf00?L003L_`00@;H00=;n003LoP00d_`00=ch007Lg?h0 0=cl003LkP00g?T0mm;j003Lk@02d];Lo]80g?D00=cf00?L003L_`00@[H00=;n 007Ld_h00=;m003Ln001g=cm003Lo@00g?000];Bg?WBk`00g?T0m]82003LoP00 g?D00=ce00;L0=bo0011]@04dP00g=;m003BoP00g?P00]`0g?h00=cm003Ln`3f dP800=cZ0?gB0=cjd_@00=cm003LmP00g?@00McL_`00?[@01=80g03Bo@03dP00 g?P00m`00=cn003Lo]80g?_Bm000g?H0mM;l003LkP00g?`00=cg003Ll`00g;l0 03Rc00CBg000d_h00m800=ck0?[B0=cndP?L003LkP00g?KBl000g>h00=ck003L n000g?L0o=:o000c/P00g?h00M80m];n003Lo@00g?h00]`0g?T0m]80g>@00=c_ 003Ln`00g?P00=cgd[X002fb003Lo=;n007Bg?P00=cm00KL003Bg=;LnM;f003L h`00g?000=cj0?OB/000;:d00=;m003Ln`3ndP3Lo=85g=800=cLkP00g>800=cc 0?OB0@3LnP00g;00032/003BoP00g?_BoP00g?/00=cn003LkP00g>400=cn0?OB 0P00g?P00=ck003L/0009Z/00=;e003LnP04g000g=c_003Lj03fd_D00=ch003L n`00g;0002Z[003Bm@00g?X01=`00=cLk`00g?80mm;i003Ll`00g?L00=cl003L /000:ZX00=;f003Ln@04g03L0=c`003Lo03gd^h00=cd003LmP00g?d00=b`000V Z@00d_L00=ch00CLg000g?D0mm;S003Lm@00g?D00=cn003L/000::P00=;h003L m`00g?h00M`0mm;m003LgP00g?D00=cd00?L003L/0008jL00=;i003Lm`00g?cB l`00g=d00=cf003Lm003g000g;00022W003Bn@00g?800=cc003Lg000g?L00=cc 00;L0=b`000OYP00d_X00=ca003Lm000g=/00=ch003LlP01g=b`000NY@00d_/0 0=c`003Lm@00g=/00=ch003Ll@00g;0001jT003Bo000g?000=ce003LfP00g?T0 0=ce0?cB/0007J@00=;l003Lk`00g?H00=cI003LnP01g03fdZ/001fS003Bo@00 g>h00=cg003LfP02d];Lnm81g=:P000NXP00d_h00=c]003Ln000g>D0m]82003L n`00g9l001fQ00?B003Lk@00g?P00=c_0?OBl`00g?`00=bO000MX@03dP00g>`0 0=ci003LnP3fd^P00=cm003LW`007:000]80g>/00=cm0?kB0=cjd]`00=cn003L W`006Yl00M;Ll@3jdP3Lo];n003Le003g000g9l001VN003Lo03fd_T00=cl003L e003g000g9l001JN003Lo=;^003Lo000g=<00]`0g9l000n4003Lo@00g=800McL W`003X<00=cn003Ld@00g9l000f200?L003Le@3ldYl000f200?L003Lg`3gdYX0 00b100;L0=cX0?SBT00038400P3Lg?80mm:7000>P@02003Lo03gdX40o@003840 0P00g?cBP@3c0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`001X40P@3[0006P@210>/000J10840 j`001X40P@3[0006P@210>/000J10840j`00o`\>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{278, 276}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[TextData["SpinShow[{b3roots,b3graph,b3tree}]"], "Input", AspectRatioFixed->True]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 1024}, {0, 748}}, AutoGeneratedPackage->None, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 653}, WindowMargins->{{12, Automatic}, {Automatic, 16}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 94, 2, 70, "Section", Evaluatable->False], Cell[1828, 55, 127, 2, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1987, 59, 99, 2, 70, "Subsubsection", Evaluatable->False], Cell[2089, 63, 349, 6, 70, "Input"], Cell[2441, 71, 177, 3, 70, "Input"], Cell[2621, 76, 143, 3, 70, "Input"], Cell[CellGroupData[{ Cell[2787, 81, 115, 2, 70, "Input"], Cell[2905, 85, 8202, 128, 70, 8070, 124, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[11119, 215, 140, 3, 70, "Input"], Cell[CellGroupData[{ Cell[11282, 220, 125, 3, 70, "Input"], Cell[11410, 225, 8207, 128, 70, 8075, 124, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[19658, 355, 99, 2, 70, "Subsubsection", Evaluatable->False], Cell[19760, 359, 299, 6, 70, "Input"], Cell[20062, 367, 143, 3, 70, "Input"], Cell[20208, 372, 191, 3, 70, "Input"], Cell[CellGroupData[{ Cell[20422, 377, 115, 2, 70, "Input"], Cell[20540, 381, 10677, 166, 70, 10545, 162, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[31229, 549, 140, 3, 70, "Input"], Cell[CellGroupData[{ Cell[31392, 554, 125, 3, 70, "Input"], Cell[31520, 559, 10677, 166, 70, 10545, 162, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[42238, 727, 99, 2, 70, "Subsubsection", Evaluatable->False], Cell[42340, 731, 429, 7, 70, "Input"], Cell[42772, 740, 147, 3, 70, "Input"], Cell[CellGroupData[{ Cell[42942, 745, 110, 2, 70, "Input"], Cell[43055, 749, 12611, 196, 70, 12479, 192, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[55678, 947, 144, 3, 70, "Input"], Cell[CellGroupData[{ Cell[55845, 952, 116, 2, 70, "Input"], Cell[55964, 956, 15853, 246, 70, 15721, 242, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[71829, 1204, 87, 1, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[71948, 1207, 99, 2, 70, "Subsubsection", Evaluatable->False], Cell[72050, 1211, 314, 5, 70, "Input"], Cell[72367, 1218, 146, 3, 70, "Input"], Cell[CellGroupData[{ Cell[72536, 1223, 108, 2, 70, "Input"], Cell[72647, 1227, 23685, 366, 70, 23553, 362, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[96344, 1595, 144, 3, 70, "Input"], Cell[CellGroupData[{ Cell[96511, 1600, 117, 2, 70, "Input"], Cell[96631, 1604, 23813, 368, 70, 23681, 364, "GraphicsData", "PICT", "Graphics", Evaluatable->False] }, Closed]], Cell[120456, 1974, 87, 1, 70, "Input"] }, Closed]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)