Thursday, December 26, 2019

! Exercises with Graph Data & Matrix Data

RTG[a_,m_]:=RotationTransform[a,
{0,0}]/@ResourceFunction["VertexCoordinateList"][AG[m]]//N;
Show[Table[GraphPlot[AG["HB/can_73"],ImageSize->500,
EdgeStyle->ColorData["BrightBands"][Cos[Pi*i/6]^2],
VertexShape->"",VertexCoordinates->RTG[i*Pi/9,
"HB/can_73"]],{i,18}]]

No comments:

Post a Comment