I have a problem with subgraph in Mathematica 9. In Ver10 the below code works :
(****************************************************)
dist = 1.1;(*when the distance is grather then dist edge is deleted*)
a = {0, 1, 2 I};
coordReal = {Re@#, Im@#} & /@ a;
N=Length[a];
planar = DelaunayMesh[coordReal]["AdjacencyMatrix"];
Do[
Do[If ABS{[a[[j]]-a[[i]]] > dist,
planar[[j, i]] = 0],
{i,1,N}],
{j,1,N}];
GraphPlot[planar, VertexLabeling -> False, VertexCoordinateRules -> coord]
(**************************************************)
Is a way to use this method in Mathematica Ver9?