How to visualize a Cayley graph in this style?












7












$begingroup$


I'm trying to create a similar style of image like this one, which is the Cayley graph of $A_{5}$.



enter image description here



With Mathematica, I just can create the following



CayleyGraph[PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}], VertexLabels -> Placed["", Center], VertexSize -> 1.5]


enter image description here



It lost some stereoscopic feeling compared to the above one. Since I'm new to Mathematica, I am not quite familiar with this language. Could anyone help me improve it? Thanks in advance.






plotting graphs-and-networks visualization







share|improve this question









New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$












  • $begingroup$
    You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
    $endgroup$
    – Henrik Schumacher
    5 hours ago








  • 1




    $begingroup$
    Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
    $endgroup$
    – Kuba♦
    4 hours ago










  • $begingroup$
    Thank you! @HenrikSchumacher
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    It works! Thanks!@Kuba
    $endgroup$
    – user450201
    4 hours ago
















7












$begingroup$


I'm trying to create a similar style of image like this one, which is the Cayley graph of $A_{5}$.



enter image description here



With Mathematica, I just can create the following



CayleyGraph[PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}], VertexLabels -> Placed["", Center], VertexSize -> 1.5]


enter image description here



It lost some stereoscopic feeling compared to the above one. Since I'm new to Mathematica, I am not quite familiar with this language. Could anyone help me improve it? Thanks in advance.






plotting graphs-and-networks visualization







share|improve this question









New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$












  • $begingroup$
    You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
    $endgroup$
    – Henrik Schumacher
    5 hours ago








  • 1




    $begingroup$
    Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
    $endgroup$
    – Kuba♦
    4 hours ago










  • $begingroup$
    Thank you! @HenrikSchumacher
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    It works! Thanks!@Kuba
    $endgroup$
    – user450201
    4 hours ago














7












7








7





$begingroup$


I'm trying to create a similar style of image like this one, which is the Cayley graph of $A_{5}$.



enter image description here



With Mathematica, I just can create the following



CayleyGraph[PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}], VertexLabels -> Placed["", Center], VertexSize -> 1.5]


enter image description here



It lost some stereoscopic feeling compared to the above one. Since I'm new to Mathematica, I am not quite familiar with this language. Could anyone help me improve it? Thanks in advance.






plotting graphs-and-networks visualization







share|improve this question









New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$




I'm trying to create a similar style of image like this one, which is the Cayley graph of $A_{5}$.



enter image description here



With Mathematica, I just can create the following



CayleyGraph[PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}], VertexLabels -> Placed["", Center], VertexSize -> 1.5]


enter image description here



It lost some stereoscopic feeling compared to the above one. Since I'm new to Mathematica, I am not quite familiar with this language. Could anyone help me improve it? Thanks in advance.






plotting graphs-and-networks visualization




plotting graphs-and-networks visualization






share|improve this question









New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited 5 hours ago









Szabolcs

161k14438937




161k14438937






New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked 5 hours ago









user450201user450201

383




383




New contributor




user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






user450201 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.












  • $begingroup$
    You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
    $endgroup$
    – Henrik Schumacher
    5 hours ago








  • 1




    $begingroup$
    Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
    $endgroup$
    – Kuba♦
    4 hours ago










  • $begingroup$
    Thank you! @HenrikSchumacher
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    It works! Thanks!@Kuba
    $endgroup$
    – user450201
    4 hours ago


















  • $begingroup$
    You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
    $endgroup$
    – Henrik Schumacher
    5 hours ago








  • 1




    $begingroup$
    Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
    $endgroup$
    – Kuba♦
    4 hours ago










  • $begingroup$
    Thank you! @HenrikSchumacher
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    It works! Thanks!@Kuba
    $endgroup$
    – user450201
    4 hours ago
















$begingroup$
You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
$endgroup$
– Henrik Schumacher
5 hours ago






$begingroup$
You may try Graph3D to generate 3D-graphs. You can obtain a fog effect by overlaying the resulting graph with a semi-transparent Image3D. See also here.
$endgroup$
– Henrik Schumacher
5 hours ago






1




1




$begingroup$
Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
$endgroup$
– Kuba♦
4 hours ago




$begingroup$
Something to start with Graph3D@CayleyGraph[ ..., VertexSize -> .5]
$endgroup$
– Kuba♦
4 hours ago












$begingroup$
Thank you! @HenrikSchumacher
$endgroup$
– user450201
4 hours ago




$begingroup$
Thank you! @HenrikSchumacher
$endgroup$
– user450201
4 hours ago












$begingroup$
It works! Thanks!@Kuba
$endgroup$
– user450201
4 hours ago




$begingroup$
It works! Thanks!@Kuba
$endgroup$
– user450201
4 hours ago










1 Answer
1






active

oldest

votes


















8












$begingroup$

The simple way:



g = CayleyGraph[

  PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}]]


enter image description here



Graph3D[g, VertexSize -> 0.4, VertexStyle -> Gray]


enter image description here



We can get something that looks more similar to your example by:




  • Flattening the colours and disabling 3D shading: use Glow with your preferred colours and set the normal colour to Black.


  • Thicken the edges. We need a new EdgeShapeFunction for this because edges are rendered as Tube by default, which does not respond to thickness directives.


  • Add "fog" with Raster3D to fade the background.



edges = EdgeList[g] //



     Map[Style[#, Black, 

        Glow@First@PropertyValue[{g, #}, EdgeStyle]] &] //



    ReplaceAll[

     e : DirectedEdge[args___] /; EdgeQ[g, Reverse[e]] :> 

      Sort@UndirectedEdge[args]

     ] //

   DeleteDuplicatesBy[First];



vertices = VertexList[g];



g3d = Graph3D[vertices, edges,

  VertexStyle -> Directive[Black, Glow@GrayLevel[2/3]],

  VertexSize -> 1/2,

  EdgeShapeFunction -> (Tube[Line[#1], 0.05] &)

  ]



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.05, {10, 10, 10}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Here's another one with higher resolution shading:



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.02, 50 {1, 1, 1}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Warning: For some reason, increasing the Raster3D size from 50 to 51 disables the fog shading on my machine (M11.3, macOS 10.14.3).




At first I tried to create the corresponding polyhedron and set it to transparent white to fade the rear objects equally. The problem is that parts of them are outside the polyhedron.



It could be done like this with IGraph/M:



Show[

 g3d,

 Graphics3D[

  GraphicsComplex[

   GraphEmbedding[g3d], {Opacity[0.7], Black, Glow[White], 

    Polygon[IGFaces@UndirectedGraph[g3d]]}]

  ]

 ]


enter image description here






share|improve this answer











$endgroup$













  • $begingroup$
    Nice work! Thanks a lot!
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    The missing piece is just the black silhouettes around the circles and the red arrows.
    $endgroup$
    – Natural Number Guy
    2 hours ago












  • $begingroup$
    @NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    @NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
    $endgroup$
    – Szabolcs
    2 hours ago











Your Answer





StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});






user450201 is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f192570%2fhow-to-visualize-a-cayley-graph-in-this-style%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes









8












$begingroup$

The simple way:



g = CayleyGraph[

  PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}]]


enter image description here



Graph3D[g, VertexSize -> 0.4, VertexStyle -> Gray]


enter image description here



We can get something that looks more similar to your example by:




  • Flattening the colours and disabling 3D shading: use Glow with your preferred colours and set the normal colour to Black.


  • Thicken the edges. We need a new EdgeShapeFunction for this because edges are rendered as Tube by default, which does not respond to thickness directives.


  • Add "fog" with Raster3D to fade the background.



edges = EdgeList[g] //



     Map[Style[#, Black, 

        Glow@First@PropertyValue[{g, #}, EdgeStyle]] &] //



    ReplaceAll[

     e : DirectedEdge[args___] /; EdgeQ[g, Reverse[e]] :> 

      Sort@UndirectedEdge[args]

     ] //

   DeleteDuplicatesBy[First];



vertices = VertexList[g];



g3d = Graph3D[vertices, edges,

  VertexStyle -> Directive[Black, Glow@GrayLevel[2/3]],

  VertexSize -> 1/2,

  EdgeShapeFunction -> (Tube[Line[#1], 0.05] &)

  ]



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.05, {10, 10, 10}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Here's another one with higher resolution shading:



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.02, 50 {1, 1, 1}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Warning: For some reason, increasing the Raster3D size from 50 to 51 disables the fog shading on my machine (M11.3, macOS 10.14.3).




At first I tried to create the corresponding polyhedron and set it to transparent white to fade the rear objects equally. The problem is that parts of them are outside the polyhedron.



It could be done like this with IGraph/M:



Show[

 g3d,

 Graphics3D[

  GraphicsComplex[

   GraphEmbedding[g3d], {Opacity[0.7], Black, Glow[White], 

    Polygon[IGFaces@UndirectedGraph[g3d]]}]

  ]

 ]


enter image description here






share|improve this answer











$endgroup$













  • $begingroup$
    Nice work! Thanks a lot!
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    The missing piece is just the black silhouettes around the circles and the red arrows.
    $endgroup$
    – Natural Number Guy
    2 hours ago












  • $begingroup$
    @NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    @NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
    $endgroup$
    – Szabolcs
    2 hours ago
















8












$begingroup$

The simple way:



g = CayleyGraph[

  PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}]]


enter image description here



Graph3D[g, VertexSize -> 0.4, VertexStyle -> Gray]


enter image description here



We can get something that looks more similar to your example by:




  • Flattening the colours and disabling 3D shading: use Glow with your preferred colours and set the normal colour to Black.


  • Thicken the edges. We need a new EdgeShapeFunction for this because edges are rendered as Tube by default, which does not respond to thickness directives.


  • Add "fog" with Raster3D to fade the background.



edges = EdgeList[g] //



     Map[Style[#, Black, 

        Glow@First@PropertyValue[{g, #}, EdgeStyle]] &] //



    ReplaceAll[

     e : DirectedEdge[args___] /; EdgeQ[g, Reverse[e]] :> 

      Sort@UndirectedEdge[args]

     ] //

   DeleteDuplicatesBy[First];



vertices = VertexList[g];



g3d = Graph3D[vertices, edges,

  VertexStyle -> Directive[Black, Glow@GrayLevel[2/3]],

  VertexSize -> 1/2,

  EdgeShapeFunction -> (Tube[Line[#1], 0.05] &)

  ]



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.05, {10, 10, 10}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Here's another one with higher resolution shading:



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.02, 50 {1, 1, 1}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Warning: For some reason, increasing the Raster3D size from 50 to 51 disables the fog shading on my machine (M11.3, macOS 10.14.3).




At first I tried to create the corresponding polyhedron and set it to transparent white to fade the rear objects equally. The problem is that parts of them are outside the polyhedron.



It could be done like this with IGraph/M:



Show[

 g3d,

 Graphics3D[

  GraphicsComplex[

   GraphEmbedding[g3d], {Opacity[0.7], Black, Glow[White], 

    Polygon[IGFaces@UndirectedGraph[g3d]]}]

  ]

 ]


enter image description here






share|improve this answer











$endgroup$













  • $begingroup$
    Nice work! Thanks a lot!
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    The missing piece is just the black silhouettes around the circles and the red arrows.
    $endgroup$
    – Natural Number Guy
    2 hours ago












  • $begingroup$
    @NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    @NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
    $endgroup$
    – Szabolcs
    2 hours ago














8












8








8





$begingroup$

The simple way:



g = CayleyGraph[

  PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}]]


enter image description here



Graph3D[g, VertexSize -> 0.4, VertexStyle -> Gray]


enter image description here



We can get something that looks more similar to your example by:




  • Flattening the colours and disabling 3D shading: use Glow with your preferred colours and set the normal colour to Black.


  • Thicken the edges. We need a new EdgeShapeFunction for this because edges are rendered as Tube by default, which does not respond to thickness directives.


  • Add "fog" with Raster3D to fade the background.



edges = EdgeList[g] //



     Map[Style[#, Black, 

        Glow@First@PropertyValue[{g, #}, EdgeStyle]] &] //



    ReplaceAll[

     e : DirectedEdge[args___] /; EdgeQ[g, Reverse[e]] :> 

      Sort@UndirectedEdge[args]

     ] //

   DeleteDuplicatesBy[First];



vertices = VertexList[g];



g3d = Graph3D[vertices, edges,

  VertexStyle -> Directive[Black, Glow@GrayLevel[2/3]],

  VertexSize -> 1/2,

  EdgeShapeFunction -> (Tube[Line[#1], 0.05] &)

  ]



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.05, {10, 10, 10}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Here's another one with higher resolution shading:



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.02, 50 {1, 1, 1}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Warning: For some reason, increasing the Raster3D size from 50 to 51 disables the fog shading on my machine (M11.3, macOS 10.14.3).




At first I tried to create the corresponding polyhedron and set it to transparent white to fade the rear objects equally. The problem is that parts of them are outside the polyhedron.



It could be done like this with IGraph/M:



Show[

 g3d,

 Graphics3D[

  GraphicsComplex[

   GraphEmbedding[g3d], {Opacity[0.7], Black, Glow[White], 

    Polygon[IGFaces@UndirectedGraph[g3d]]}]

  ]

 ]


enter image description here






share|improve this answer











$endgroup$



The simple way:



g = CayleyGraph[

  PermutationGroup[{Cycles[{{1, 2, 3}}], Cycles[{{1, 5}, {2, 4}}]}]]


enter image description here



Graph3D[g, VertexSize -> 0.4, VertexStyle -> Gray]


enter image description here



We can get something that looks more similar to your example by:




  • Flattening the colours and disabling 3D shading: use Glow with your preferred colours and set the normal colour to Black.


  • Thicken the edges. We need a new EdgeShapeFunction for this because edges are rendered as Tube by default, which does not respond to thickness directives.


  • Add "fog" with Raster3D to fade the background.



edges = EdgeList[g] //



     Map[Style[#, Black, 

        Glow@First@PropertyValue[{g, #}, EdgeStyle]] &] //



    ReplaceAll[

     e : DirectedEdge[args___] /; EdgeQ[g, Reverse[e]] :> 

      Sort@UndirectedEdge[args]

     ] //

   DeleteDuplicatesBy[First];



vertices = VertexList[g];



g3d = Graph3D[vertices, edges,

  VertexStyle -> Directive[Black, Glow@GrayLevel[2/3]],

  VertexSize -> 1/2,

  EdgeShapeFunction -> (Tube[Line[#1], 0.05] &)

  ]



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.05, {10, 10, 10}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Here's another one with higher resolution shading:



Show[g3d,

 Graphics3D[

  Raster3D[

   ConstantArray[.02, 50 {1, 1, 1}], {Scaled[{0, 0, 0}], 

    Scaled[{1, 1, 1}]}, ColorFunction -> Opacity]

  ]

 ]


enter image description here



Warning: For some reason, increasing the Raster3D size from 50 to 51 disables the fog shading on my machine (M11.3, macOS 10.14.3).




At first I tried to create the corresponding polyhedron and set it to transparent white to fade the rear objects equally. The problem is that parts of them are outside the polyhedron.



It could be done like this with IGraph/M:



Show[

 g3d,

 Graphics3D[

  GraphicsComplex[

   GraphEmbedding[g3d], {Opacity[0.7], Black, Glow[White], 

    Polygon[IGFaces@UndirectedGraph[g3d]]}]

  ]

 ]


enter image description here







share|improve this answer














share|improve this answer



share|improve this answer








edited 4 hours ago

























answered 4 hours ago









SzabolcsSzabolcs

161k14438937




161k14438937












  • $begingroup$
    Nice work! Thanks a lot!
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    The missing piece is just the black silhouettes around the circles and the red arrows.
    $endgroup$
    – Natural Number Guy
    2 hours ago












  • $begingroup$
    @NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    @NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
    $endgroup$
    – Szabolcs
    2 hours ago


















  • $begingroup$
    Nice work! Thanks a lot!
    $endgroup$
    – user450201
    4 hours ago










  • $begingroup$
    The missing piece is just the black silhouettes around the circles and the red arrows.
    $endgroup$
    – Natural Number Guy
    2 hours ago












  • $begingroup$
    @NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    @NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
    $endgroup$
    – Szabolcs
    2 hours ago










  • $begingroup$
    We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
    $endgroup$
    – Szabolcs
    2 hours ago
















$begingroup$
Nice work! Thanks a lot!
$endgroup$
– user450201
4 hours ago




$begingroup$
Nice work! Thanks a lot!
$endgroup$
– user450201
4 hours ago












$begingroup$
The missing piece is just the black silhouettes around the circles and the red arrows.
$endgroup$
– Natural Number Guy
2 hours ago






$begingroup$
The missing piece is just the black silhouettes around the circles and the red arrows.
$endgroup$
– Natural Number Guy
2 hours ago














$begingroup$
@NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
$endgroup$
– Szabolcs
2 hours ago




$begingroup$
@NaturalNumberGuy I am not sure if that's possible with Graphics3D. Maybe with some image processing trickery.
$endgroup$
– Szabolcs
2 hours ago












$begingroup$
@NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
$endgroup$
– Szabolcs
2 hours ago




$begingroup$
@NaturalNumberGuy Maybe something like this i.stack.imgur.com/rCpBW.png Random-colour features, rasterize, edge-detect, dilate, overlay the edges on original image, downscale for smooth appearance.
$endgroup$
– Szabolcs
2 hours ago












$begingroup$
We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
$endgroup$
– Szabolcs
2 hours ago




$begingroup$
We can attempt the same for just the nodes, but I don't like the result: i.stack.imgur.com/AZxRx.png
$endgroup$
– Szabolcs
2 hours ago










user450201 is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















user450201 is a new contributor. Be nice, and check out our Code of Conduct.













user450201 is a new contributor. Be nice, and check out our Code of Conduct.












user450201 is a new contributor. Be nice, and check out our Code of Conduct.
















Thanks for contributing an answer to Mathematica Stack Exchange!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


Use MathJax to format equations. MathJax reference.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f192570%2fhow-to-visualize-a-cayley-graph-in-this-style%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







-

Popular posts from this blog

A CLEAN and SIMPLE way to add appendices to Table of Contents and bookmarks

Image
0 I found a lot of questions abount appendices and ToC. Many users want appendices to be grouped in an Appendix part, however some problems arise with ToC, hyperref, PDF viewer bookmarks, and so on. There are different solutions which require extra packages, command patching and other extra code, however none of them satisfies me. I almost found an easy way to accomplish a good result, where appendices are added to bookmarks in the right way and hyperref links point to the right page. However, the number of the "Appendix" part page is wrong (it's the number of appendix A). Is there any EASY way to fix that? This is a MWE: documentclass{book} usepackage[nottoc,notlot,notlof]{tocbibind} usepackage{hyperref} begin{document} frontmatter tableofcontents mainmatter part{First} chapter{...
Read more

Calculate evaluation metrics using cross_val_predict sklearn

Image
1 In the sklearn.model_selection.cross_val_predict page it is stated: Generate cross-validated estimates for each input data point. It is not appropriate to pass these predictions into an evaluation metric. Can someone explain what does it mean? If this gives estimate of Y (y prediction) for every Y (true Y), why can't I calculate metrics such as RMSE or coefficient of determination using these results? python scikit-learn cross-validation share | improve this question edited Nov 28 '18 at 17:52 desertnaut 20.3k 7 43 79 ...
Read more

Insert data from modal to MySQL (multiple modal on website)

Image
0 I have problem with inserting data to MySQL from modal. My modal: <a href="#" class="badge badge-pill badge-success">6 komentarzy</a> <a href="#" class="badge badge-pill badge-danger">brak komentarzy</a> <a data-toggle="modal" href="#add_desk_comm_{$desk_['desk_id']}" data-target="#add_desk_comm_{$desk_['desk_id']}" class="ediiit">(dodaj)</a> <div class="modal fade" id="add_desk_comm_{$desk_['desk_id']}" tabindex="-1" role="dialog" aria-labelledby="edit_printer" aria-hidden="true"> <div class="modal-dialog" role="document"> ...
Read more