EL={"\[WhiteKing]"<->"\[WhiteQueen]","\[WhiteKing]"<->"\[WhiteRook]",
"\[WhiteKing]"<->"\[WhiteBishop]","\[WhiteKing]"<->"\[WhiteKnight]",
"\[WhiteQueen]"<->"\[WhiteKnight]","\[WhiteRook]"<->"\[WhiteKnight]",
"\[WhiteRook]"<->"\[BlackKing]","\[WhiteRook]"<->"\[BlackQueen]",
"\[WhiteBishop]"<->"\[WhiteRook]","\[WhiteBishop]"<->"\[BlackKing]",
"\[WhiteKnight]"<->"\[BlackQueen]","\[BlackKing]"<->"\[BlackQueen]",
"\[BlackQueen]"<->"\[BlackRook]","\[BlackQueen]"<->"\[BlackBishop]",
"\[BlackRook]"<->"\[BlackBishop]","\[BlackRook]"<->"\[BlackKnight]"};
EP={"PlanarEmbedding","StarEmbedding",
"LayeredDigraphEmbedding",Automatic};
EGP[e_]:=GraphPlot[Graph[EL],GraphLayout->e,
VertexLabels->Placed[Automatic,{.5,.5}],
VertexSize->.6,EdgeStyle->RGBColor["#3636ff"],
VertexStyle->{RGBColor["Silver"],Opacity[0.7]},
VertexShapeFunction->"ConcavePentagon",
EdgeShapeFunction->"CarvedArrow",ImageSize->500];
EGP[EP[[1]]]
No comments:
Post a Comment