GraphPlot[{Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&],Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]},EdgeRenderingFunction({If[MemberQ[Partition[(#1〚1,2〛&)/@{{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}},{{1,{{}}〚1,1〛,0},{0}}},2,1],#2],{Directive[{Thick,Append[Green,0.5]}],Arrow[#1]},{Directive[{Thin,Append[Red,0.5]}],Arrow[#1]}]}&),VertexLabelingNone,VertexCoordinateRules{Ordering[VertexCoordinateRules,All,#1〚2〛<#2〚2〛&]VertexCoordinateRules},MultiedgeStyleNone,ImageSize180] | |
| ArrayPlot[{MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛],MapAt[If[#1===1,Red,Purple]&,{0},{{}}〚1,1〛]},ImageSize180,AspectRatio1] | |
| |