Прикладные области

Подсвечивание сильно связных компонент

Подсвечивание сильно связных компонент, состоящих из более чем одной вершины.

In[1]:=

g = \!\(\*

GraphicsBox[

NamespaceBox["NetworkGraphics",

DynamicModuleBox[{Typeset`graph = HoldComplete[

Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,

19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33,

34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,

49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,

64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78,

79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93,

94, 95, 96, 97, 98, 99, 100}, {CompressedData["

1:eJwVxWebgQAAAGB7R8osoYysJEQD2SQzZc/c9/tz9wPv7sP7vLjxrRoWk8n0

8+d/s8Xis9psfrvD4XS6XJDL7fa4YU/I6/OGfYAvAkT9AX8sAAbiIBJEgxAE

w6FINBpDsmgOI5OFVDqNp0tEJUfn8nkyXyOZQr3YKDXLbKVFtRmxybJSq90e

cEN+xAvipDvrSZIs9fuDgTIcDZej8Xg9mU638n6hLDRlqejLw3K1Wq+Om+32

cjge3/fH58trtloAq90WsIOOoNMPBMEEhMHJUCocCacjeJSIxWOZOBJHkQSa

T2CJJFZMEXgZzxBUJpupZnPZAlkqlkuVMlWpUlyVrvJ0jWZqQq3OdOrdRrPR

a7bYfotr85wojIWOOO30uvPeoj8crEaT8Waym81n6lyeL+TN+rQ+b647dbdX

b6q2v+8fmq499YP+OpyOxul8+pwv56/L7Xq/PR+v5/tlvD/GL1DSSWM=

"], Null}, {EdgeShapeFunction -> {"Arrow"}, EdgeStyle -> {

Arrowheads[Medium]}, VertexSize -> {Large},

GraphHighlightStyle -> {"DehighlightFade"},

VertexCoordinates -> CompressedData["

1:eJx91LFtAzEMBVDB1ZUqVKhQQWuR3AwZIYjrrJ4RbBdE4AczAgziHVR8kJSv

Xz+ft0tr7fvxe9b/z+8HH85XHrjjgSdeOPA+3+dIWxv3D9zxwBMvHDjz2Rdz

NO+dr/nSHQ888cKBM59zsi/mOIra8cATLxw487k3zsm+mKMXdeCJFw6c+dxj

98Y52RdzjKJOvHDgzOe7co/dG+dkX8wxi7pw4M29PL4r99i9cU72xRyrqIE3

3/P4zn1X7rF745zsizmiqJuaJ139D6Wrd5au9ihd9ekv1x3lLU5m

"]}]], Typeset`boxes = GraphicsGroupBox[{{

Directive[

Hue[0.6, 0.2, 0.8],

EdgeForm[

Directive[

GrayLevel[0],

Opacity[0.7]]]],

TagBox[

DiskBox[{0., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$1"],

TagBox[

DiskBox[{0., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$2"],

TagBox[

DiskBox[{0., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$3"],

TagBox[

DiskBox[{0., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$4"],

TagBox[

DiskBox[{0., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$5"],

TagBox[

DiskBox[{0., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$6"],

TagBox[

DiskBox[{0., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$7"],

TagBox[

DiskBox[{0., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$8"],

TagBox[

DiskBox[{0., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$9"],

TagBox[

DiskBox[{0., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$10"],

TagBox[

DiskBox[{1., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$11"],

TagBox[

DiskBox[{1., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$12"],

TagBox[

DiskBox[{1., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$13"],

TagBox[

DiskBox[{1., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$14"],

TagBox[

DiskBox[{1., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$15"],

TagBox[

DiskBox[{1., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$16"],

TagBox[

DiskBox[{1., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$17"],

TagBox[

DiskBox[{1., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$18"],

TagBox[

DiskBox[{1., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$19"],

TagBox[

DiskBox[{1., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$20"],

TagBox[

DiskBox[{2., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$21"],

TagBox[

DiskBox[{2., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$22"],

TagBox[

DiskBox[{2., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$23"],

TagBox[

DiskBox[{2., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$24"],

TagBox[

DiskBox[{2., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$25"],

TagBox[

DiskBox[{2., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$26"],

TagBox[

DiskBox[{2., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$27"],

TagBox[

DiskBox[{2., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$28"],

TagBox[

DiskBox[{2., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$29"],

TagBox[

DiskBox[{2., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$30"],

TagBox[

DiskBox[{3., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$31"],

TagBox[

DiskBox[{3., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$32"],

TagBox[

DiskBox[{3., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$33"],

TagBox[

DiskBox[{3., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$34"],

TagBox[

DiskBox[{3., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$35"],

TagBox[

DiskBox[{3., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$36"],

TagBox[

DiskBox[{3., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$37"],

TagBox[

DiskBox[{3., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$38"],

TagBox[

DiskBox[{3., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$39"],

TagBox[

DiskBox[{3., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$40"],

TagBox[

DiskBox[{4., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$41"],

TagBox[

DiskBox[{4., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$42"],

TagBox[

DiskBox[{4., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$43"],

TagBox[

DiskBox[{4., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$44"],

TagBox[

DiskBox[{4., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$45"],

TagBox[

DiskBox[{4., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$46"],

TagBox[

DiskBox[{4., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$47"],

TagBox[

DiskBox[{4., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$48"],

TagBox[

DiskBox[{4., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$49"],

TagBox[

DiskBox[{4., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$50"],

TagBox[

DiskBox[{5., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$51"],

TagBox[

DiskBox[{5., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$52"],

TagBox[

DiskBox[{5., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$53"],

TagBox[

DiskBox[{5., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$54"],

TagBox[

DiskBox[{5., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$55"],

TagBox[

DiskBox[{5., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$56"],

TagBox[

DiskBox[{5., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$57"],

TagBox[

DiskBox[{5., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$58"],

TagBox[

DiskBox[{5., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$59"],

TagBox[

DiskBox[{5., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$60"],

TagBox[

DiskBox[{6., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$61"],

TagBox[

DiskBox[{6., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$62"],

TagBox[

DiskBox[{6., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$63"],

TagBox[

DiskBox[{6., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$64"],

TagBox[

DiskBox[{6., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$65"],

TagBox[

DiskBox[{6., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$66"],

TagBox[

DiskBox[{6., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$67"],

TagBox[

DiskBox[{6., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$68"],

TagBox[

DiskBox[{6., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$69"],

TagBox[

DiskBox[{6., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$70"],

TagBox[

DiskBox[{7., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$71"],

TagBox[

DiskBox[{7., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$72"],

TagBox[

DiskBox[{7., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$73"],

TagBox[

DiskBox[{7., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$74"],

TagBox[

DiskBox[{7., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$75"],

TagBox[

DiskBox[{7., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$76"],

TagBox[

DiskBox[{7., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$77"],

TagBox[

DiskBox[{7., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$78"],

TagBox[

DiskBox[{7., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$79"],

TagBox[

DiskBox[{7., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$80"],

TagBox[

DiskBox[{8., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$81"],

TagBox[

DiskBox[{8., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$82"],

TagBox[

DiskBox[{8., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$83"],

TagBox[

DiskBox[{8., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$84"],

TagBox[

DiskBox[{8., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$85"],

TagBox[

DiskBox[{8., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$86"],

TagBox[

DiskBox[{8., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$87"],

TagBox[

DiskBox[{8., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$88"],

TagBox[

DiskBox[{8., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$89"],

TagBox[

DiskBox[{8., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$90"],

TagBox[

DiskBox[{9., 0.}, 0.2], "DynamicName", BoxID -> "VertexID$91"],

TagBox[

DiskBox[{9., 1.}, 0.2], "DynamicName", BoxID -> "VertexID$92"],

TagBox[

DiskBox[{9., 2.}, 0.2], "DynamicName", BoxID -> "VertexID$93"],

TagBox[

DiskBox[{9., 3.}, 0.2], "DynamicName", BoxID -> "VertexID$94"],

TagBox[

DiskBox[{9., 4.}, 0.2], "DynamicName", BoxID -> "VertexID$95"],

TagBox[

DiskBox[{9., 5.}, 0.2], "DynamicName", BoxID -> "VertexID$96"],

TagBox[

DiskBox[{9., 6.}, 0.2], "DynamicName", BoxID -> "VertexID$97"],

TagBox[

DiskBox[{9., 7.}, 0.2], "DynamicName", BoxID -> "VertexID$98"],

TagBox[

DiskBox[{9., 8.}, 0.2], "DynamicName", BoxID -> "VertexID$99"],

TagBox[

DiskBox[{9., 9.}, 0.2], "DynamicName", BoxID -> "VertexID$100"]}, {

Directive[

Opacity[0.7],

Hue[0.6, 0.7, 0.5]],

Arrowheads[Medium],

StyleBox[{

ArrowBox[{

DynamicLocation["VertexID$1", Automatic, Center],

DynamicLocation["VertexID$2", Automatic, Center]}]},