Re: A newbee to Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg97207] Re: A newbee to Mathematica
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 8 Mar 2009 05:50:36 -0500 (EST)
- References: <got87g$gel$1@smc.vnet.net>
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 >
- Follow-Ups:
- Re: A newbee to Mathematica
- From: "Sjoerd C. de Vries" <sjoerd.c.devries@gmail.com>
- Re: Re: A newbee to Mathematica
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: A newbee to Mathematica