Group Abstract Group Abstract

Message Boards Message Boards

Visualizing diagrams needed to compute $\langle \operatorname{Tr}(A^3 (A^T)^3)\rangle$

Posted 1 year ago
POSTED BY: Yaroslav Bulatov
3 Replies

So they get confused, right?

POSTED BY: Gianluca Gorni

Take a look at the InputForm. It will be pretty obvious. You need to "tag" the edges so edges with identical vertices aren't confused.

Graph[{Style[1  \!\(\*OverscriptBox[\(\[DirectedEdge]\), \(1\)]\) 1, Blue], 
1 \!\(\*OverscriptBox[\(\[DirectedEdge]\), \(2\)]\) 1, 
Style[1 \!\(\*OverscriptBox[\(\[DirectedEdge]\), \(3\)]\) 1, Red], 
Style[1 \!\(\*OverscriptBox[\(\[DirectedEdge]\), \(4\)]\) 1, Red, Dashed]}]
POSTED BY: Itai Seggev

With no previous experience of Graph, I tried to reproduce your diagrams using Graph, and soon met puzzling behaviour:

Graph[{Style[1 -> 1, Blue],
  1 -> 1,
  Style[1 -> 1, Red],
  Style[1 -> 1, Red, Dashed]}]

Why do all edges come out blue? Why is the Dashed ignored?

POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard