Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: A newbee to Mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg97389] Re: A newbee to Mathematica
• From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
• Date: Thu, 12 Mar 2009 02:19:56 -0500 (EST)
• References: <got87g$gel$1@smc.vnet.net> <200903081050.FAA21504@smc.vnet.net>

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}};

g = FromAdjacencyMatrix[am, EdgeWeight]
GraphPlot[g, VertexLabeling -> True, SelfLoopStyle -> True,
 EdgeLabeling -> True,
 EdgeRenderingFunction -> ({Line[#1],
     Inset[am[[#2[[1]], #2[[2]]]], Mean[#1], Automatic,
      Automatic, #[[1]] - #[[2]], Background -> White]} &)]

On Mar 9, 8:02 am, Murray Eisenberg <mur... at math.umass.edu> wrote:
> 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 sil=
ly 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 adj=
acency matrix,with the elements of the matrix showing the weights of each e=
dge as is provided in FromAdjacencyMatrix[g,Edgeweight]
>
> >> Thank you for helping me out
>
> --
> Murray Eisenberg                     mur... at math.umas=
s.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>