Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: subgraph error (errata)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg125864] Re: subgraph error (errata)
  • From: Murta <rodrigomurtax at gmail.com>
  • Date: Thu, 5 Apr 2012 05:52:00 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <jlh0l6$t5s$1@smc.vnet.net>

On Apr 4, 5:27 am, dan jack <dan.spect... at gmail.com> wrote:
> I write an errata for the previous message:
>
> I obtain the error in this case:
>
> gg = Graph[{11 -> 2, 11 -> 3, 4 -> 11, 5-> 11, 11 -> 11}]
> Subgraph[gg, 1 ->_ ]
>
> Join::headsd: Expression {11,2} at position 1 is expected to have head
> List for all subexpressions through level 11.
> DeleteDuplicates::list: List expected at position 1 in
> DeleteDuplicates[Join[{11,2},{11,3},11]].
>
> but not in this case:
> gg = Graph[{1 -> 2, 1 -> 3, 4 -> 1, 5-> 1, 1-> 1}]
>
> so it seems that the only difference is the vertex number: 1 works but
> 11 do not works ...very strange.
>
> Obviously the arrows are the correct Directed Edges  (ESC de ESC)...
>
> any help or solidarity comment is appreciated :-)

Very anoying!.. Just Wolfram Team to see that.
I get intriged and made this test:

sub[n_]:=Module[{gg=Graph[{n\[DirectedEdge]2,n\[DirectedEdge]3,4\
[DirectedEdge]n,5\[DirectedEdge]n,n\[DirectedEdge]n}]},
HighlightGraph[gg,Subgraph[gg,n\[DirectedEdge]_]]]

sub[1] works and all others get error...

Let's see another answers.
best regards
Murta



  • Prev by Date: Re: Printing Notebooks without Input/Output cells
  • Next by Date: Re: 3D Rotations
  • Previous by thread: subgraph error (errata)
  • Next by thread: Re: subgraph error (errata)