Plotting Matrices

EDM=ExampleData[{"Matrix","Boeing/nasa1824"},"Matrix"];
EEDM=GraphPlot[EDM][[1,2,1,2,1]]; L=Length[EEDM]
TEEDM=Table[EEDM[[i,1]]<->EEDM[[i,2]]->Hue[255*i/L],{i,L}];
GraphPlot[EDM,ImageSize->500,EdgeStyle->TEEDM,
VertexStyle->Transparent,VertexShape->""]