Re: GraphPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg70796] Re: GraphPlot
- From: "dimitris" <dimmechan at yahoo.com>
- Date: Sat, 28 Oct 2006 05:21:28 -0400 (EDT)
- References: <ehs2ii$o7u$1@smc.vnet.net>
<< DiscreteMath`GraphPlot`
n = 129;
d = Table[i -> Mod[i^2, n], {i, 0, n - 1}];
e = GraphPlot[d];
lis=Cases[e,{x_?NumberQ,y_?NumberQ},8];
Length[lis]
379
FullForm[e]
Regards
Dimitris