Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Maximum in a list
  • Next by Date: Re: Re: Mathematica 7.0.1.0 and some General Comments
  • Previous by thread: Re: A newbee to Mathematica
  • Next by thread: Re: A newbee to Mathematica