Dynkin Diagram

Author

Eric W. Weisstein
April 14, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/DynkinDiagram.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/DynkinDiagram.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Additional Authors

Todd Rowland
Wolfram Research, Inc.
June 30, 2000

Figures

<<Graphics`Colors`
<<Graphics`Arrow`

e6=Join[Table[Circle[{x,0},1],{x,0,32,8}],Table[Line[{{8n+1,0},{8n+7,0}}],{n,0,3}],{Line[{{16,1},{16,7}}],Circle[{16,8},1]}]
Show[Graphics[e6],AspectRatio->Automatic,PlotRange->{{-1,33},{-1,9}}]

g2={{1,0},{-3/2,3^(1/2)/2}};
lat=Map[Point,Flatten[Table[{n,m}.g2,{n,-8,8},{m,-8,8}],1]];
Show[Graphics[{PointSize[.02],lat,Green,Arrow[{0,0},g2[[1]]],Purple,Arrow[{0,0},g2[[2]]]}],Axes->False,AspectRatio->Automatic,PlotRange->{{-3,3},{-3,3}}]