Timeline for Deleting vertices from a Graph and preserving structure
Current License: CC BY-SA 3.0
4 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Apr 13, 2017 at 12:55 | history | edited | CommunityBot | replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/ | |
| Jul 9, 2016 at 20:51 | vote | accept | hhh | ||
| May 9, 2017 at 14:27 | |||||
| Jul 9, 2016 at 20:10 | comment | added | hhh | I added the Trial 3 with GridGraph: Can you demonstrate it with this method? SeedRandom[10801]; dimension = 5; coDimension = 10; percProbability = 0.7; deleteMe = Pick[Table[i, {i, 1, 30}], Table[RandomReal[] > 0.5, {i, 30}]] gr = GridGraph[{dimension, coDimension}, VertexLabels -> "Name", ImagePadding -> 30] H = SetProperty[VertexDelete[g, #], VertexCoordinates -> Delete[GraphEmbedding[g], #]] & @@ deleteMe FoldList[vertexDeleteKeepEmbedding, gr, RandomSample@Most@deleteMe@gr], something like this? | |
| Jul 1, 2016 at 10:11 | history | answered | Kuba | CC BY-SA 3.0 |