Re: Re: A newbee to Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg97235] Re: [mg97207] Re: A newbee to Mathematica*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Mon, 9 Mar 2009 01:02:36 -0500 (EST)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <got87g$gel$1@smc.vnet.net> <200903081050.FAA21504@smc.vnet.net>*Reply-to*: murray at math.umass.edu

That plot is not showing the self-loops, nor is it labeling the edges with the weights (which is what, I think, the original poster wanted). Jens-Peer Kuska wrote: > Hi, > > am = {{1, 0, 1, 2, 0, 1, 2}, {0, 0, 0, 0, 1, 1, 1}, {1, 0, 0, 1, 1, 1, > 1}, {0, 3, 1, 4, 1, 0, 1}, {0, 1, 1, 1, 0, 1, 0}, {1, 1, 1, 0, 1, > 0, 0}, {1, 1, 5, 1, 0, 0, 0}}; > > GraphPlot3D[am] > > ?? > > Regards > Jens > > Nishant wrote: >> Hi I have just started using mathematica,and therefore have a very silly question that needs an answer. >> I am trying to run this: >> Needs["GraphUtilities`"] >> Needs["Combinatorica`"] >> am = {{1, 0, 1, 2, 0, 1, 2}, {0, 0, 0, 0, 1, 1, 1}, {1, 0, 0, 1, 1, 1, >> 1}, {0, 3, 1, 4, 1, 0, 1}, {0, 1, 1, 1, 0, 1, 0}, {1, 1, 1, 0, 1, >> 0, 0}, {1, 1, 5, 1, 0, 0, 0}}; >> >> MatrixForm[am] >> g[FromAdjacencyMatrix[am, EdgeWeight], VertexLabeling -> True, >> EdgeLabeling -> True] >> GraphPlot3D[g] >> I am getting this error message: >> GraphPlot3D::grph:Graph:<11,7,Undirected> is not a valid graph. >> >> BASICALLY what I want to do is to generate a 3d graph from a given adjacency matrix,with the elements of the matrix showing the weights of each edge as is provided in FromAdjacencyMatrix[g,Edgeweight] >> >> Thank you for helping me out >> > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Re: A newbee to Mathematica***From:*Jens-Peer Kuska <kuska@informatik.uni-leipzig.de>