गणित का उपयोग कर क्लासिक स्टेट आरेख कैसे आकर्षित करें?</p> <p><img src="https://i.stack.imgur.com/459Dr.png" alt="enter image description here"></p> <p>यह सबसे अच्छा है कि मैं प्राप्त कर सकते हैं (लेकिन आकार और शैली संतोषजनक नहीं हैं) है:

Question

यह संभव और व्यावहारिक मेथेमेटिका कुछ इस तरह (Graphviz द्वारा बनाई जा रही) आकर्षित करने के लिए के लिए है

कोड:

GraphPlot[{{A -> C, "go"}, {C -> B, "gone"}, {C -> D, 
    "went"}, {C -> C, "loop"}}, VertexLabeling -> True, 
DirectedEdges -> True] 

Answer 1

आप VertexRenderingFunction का उपयोग करके ऐसा कुछ कर सकते हैं।

GraphPlot[{{A -> C, "go"}, {C -> B, "gone"}, {C -> D, "went"}, {C -> C, "loop"}}, 
DirectedEdges -> True, 
VertexRenderingFunction -> ({{White, Disk[#, 0.15]}, 
    AbsoluteThickness[2], Circle[#, 0.15], 
    If[MatchQ[#2, A | B], Circle[#, 0.12], {}], Text[#2, #]} &)] 

---

विधि फरवरी 2015

अपडेट किया गया सहभागी आरेखण उपकरण के साथ ग्राफ (डबल क्लिक करें) पुनर्व्यवस्थित करने के लिए एक के अंदर शीर्ष ग्राफिक्स रखना चाहिए क्षमता बनाए रखने के लिए GraphicsComplex, निर्देशांक के बजाय इंडेक्स के साथ। मेरा मानना ​​है कि कोई वृद्धिशील चर का उपयोग करके VertexRenderingFunction से ऐसा कर सकता है लेकिन पोस्ट-प्रोसेसिंग के साथ ऐसा करने के लिए संभवतः अधिक मजबूत लगता है। इस संस्करण 7 और के 10 में काम करता है मेथेमेटिका, शायद 8 और 9 के साथ-साथ:

GraphPlot[ 
    {{A -> C, "go"}, {C -> B, "gone"}, {C -> D, "went"}, {C -> C, "loop"}}, 
    DirectedEdges -> True 
] /. 
Tooltip[Point[n_Integer], label_] :> 
    {{White, Disk[n, 0.15]}, 
    Black, AbsoluteThickness[2], Circle[n, 0.15], 
    If[MatchQ[label, A | B], Circle[n, 0.12], {}], Text[label, n]} 

Answer 2

इंटरैक्टिव प्लेसमेंट के लिए कोई जरूरत नहीं इच्छित स्थान पर अपने कोने प्राप्त करने के लिए के रूप में mr.Wizard पता चलता है his answer में। आपको लगता है कि के लिए VertexCoordinateRules उपयोग कर सकते हैं:

GraphPlot[{{A -> C, "go"}, {C -> B, "gone"}, {C -> D, "went"}, {C -> C, "loop"}}, 
    DirectedEdges -> True, 
    VertexRenderingFunction -> 
      ({{White, Disk[#, 0.15]}, AbsoluteThickness[2], Circle[#, 0.15], 
      If[MatchQ[#2, A | B], Circle[#, 0.12], {}], Text[#2, #]} &), 
    VertexCoordinateRules -> 
      {A -> {0, 0}, C -> {0.75, 0},B -> {1.5, 0.25}, D -> {1.5, -0.25}} 
]