Revisions to Ploting a parallel graph for an animation

added 86 characters in body

Source Link

edited Oct 2, 2015 at 0:01

42.3k
3
37
106

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 1, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyleVertexStyle -> RedBlue,
 EdgeShapeFunctionEdgeStyle -> Red,
   EdgeShapeFunction -> ({Red, Line[#1], Arrowheads[{0, .05}], 
     Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> (Join[
     (Join[Table[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> 
     (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
 Table[Labeled[i, Subscript["y", ToString[i]]], {i, 1, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 VertexStyle -> Blue,
 EdgeStyle -> Red,
 EdgeShapeFunction -> ({Red, Line[#1], Arrowheads[{0, .05}], 
     Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> (Join[
    Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

added 4 characters in body

Source Link

edited Oct 1, 2015 at 23:27

David G. Stork

42.3k
3
37
106

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> 
     (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> 
     (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> 
     (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

deleted 34 characters in body

Source Link

edited Oct 1, 2015 at 22:45

David G. Stork

42.3k
3
37
106

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> (Join[
    Table[ (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red, 
 VertexCoordinates -> (Join[
    Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

Graph[Join[
  Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
 {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
 Table[Rule[i, 11], {i, 10}],
 DirectedEdges -> True, 
 EdgeStyle -> Red,
 EdgeShapeFunction -> 
     ({Red, Line[#1], Arrowheads[{0, .05}], Arrow[#1, {0, .5}]} &), 
 VertexCoordinates -> 
     (Join[Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]

deleted 34 characters in body

Source Link

edited Oct 1, 2015 at 22:40

David G. Stork

42.3k
3
37
106

Loading

added 141 characters in body

Source Link

edited Oct 1, 2015 at 22:27

David G. Stork

42.3k
3
37
106

Loading

deleted 51 characters in body

Source Link

edited Oct 1, 2015 at 22:21

Dr. belisarius

116.2k
13
205
456

Loading

Source Link

created Oct 1, 2015 at 22:17

David G. Stork

42.3k
3
37
106

Loading

Stack Exchange Network

Return to Answer