Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
에지 커버
에지 커버를 제시함으로써 각 코스를 한 교수가 담당하고, Larry는 두 가지 과정을 담당하게 할당되었는지 나타 내어 봅니다.
In[1]:=
X
g = \!\(\* GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{"Understanding Visual Culture", "Time Arts I", "The Art of 3D Imaging", "Sculpture I", "Popular Visual Culture", "Painting I", "Museums in Action", "Making and Meaning", "Life Drawing", "Jewelry/Metals I", "Introduction to E-Waste", "Introduction to Art", "Interaction I", "Ikabana: Japanese Floral Arts", "Human-Centered Product Design", "Fashion Design", "Design History Survey", "Ceramics Sculpture I", "Basic Photography", "Rudy", "Oscar", "Nora", "Nancy", "Michael", "Linda", "Larry", "Julia", "John", "James", "Felicia", "Elisabeth", "Dorothy", "David", "Carol", "Ben", "Arlene", "Anna"}, { Null, {{15, 25}, {8, 28}, {2, 33}, {19, 32}, {13, 32}, {6, 25}, {7, 36}, {8, 31}, {17, 32}, {18, 37}, {2, 21}, {5, 23}, {10, 27}, {1, 29}, {11, 32}, {18, 31}, {10, 32}, {3, 31}, {7, 26}, {4, 33}, {10, 20}, {2, 23}, {13, 26}, {12, 26}, {10, 31}, {18, 34}, {17, 31}, {11, 26}, {9, 22}, {12, 21}, {12, 25}, {7, 32}, {16, 28}, {6, 20}, {3, 34}, {4, 35}, {3, 21}, {14, 21}, {16, 24}, {11, 23}, {9, 36}, {16, 36}, {7, 35}, {16, 32}, {1, 30}, {9, 31}, {19, 35}, {1, 27}, {4, 29}, {17, 34}}}, {EdgeStyle -> { Thickness[Large]}, ImageSize -> {450, Automatic}, PlotRange -> {{-0.9, 1.3}, {-0.8, 0.8}}, VertexCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGBQBWIQDQN80f8Y73m+2A/j15mstPo37Smc/443pFjuySM4 P+75v9V2hg/g/HmNwSf3/rmFpv8qmvoLaPJH0fhb4Xx0AJW3R9MP50PNR5O/ CudD3Yem/gGcD/Ufmv6ncD40fKD8D/bHjgfL5X14th/GN1v4L6zP9gmcv6xq Zf+6rodwvu6KFRPmrr8L50PMuwHnQ+y/BOdD3HsKzoe49wCcD3HfUnS+PZp6 ezTz7NHsg/Oh7oHzoe6F86H+gfOh/kUPD3sAfdS6KQ== "], VertexLabels -> {"Arlene" -> Placed[ Style["Arlene", FontFamily -> "Verdana"], After], "Museums in Action" -> Placed[ Style["Museums in Action", FontFamily -> "Verdana"], Before], "James" -> Placed[ Style["James", FontFamily -> "Verdana"], After], "Life Drawing" -> Placed[ Style["Life Drawing", FontFamily -> "Verdana"], Before], "Fashion Design" -> Placed[ Style["Fashion Design", FontFamily -> "Verdana"], Before], "Larry" -> Placed[ Style["Larry", FontFamily -> "Verdana"], After], "Julia" -> Placed[ Style["Julia", FontFamily -> "Verdana"], After], "Ceramics Sculpture I" -> Placed[ Style["Ceramics Sculpture I", FontFamily -> "Verdana"], Before], "Nora" -> Placed[ Style["Nora", FontFamily -> "Verdana"], After], "Time Arts I" -> Placed[ Style["Time Arts I", FontFamily -> "Verdana"], Before], "Elisabeth" -> Placed[ Style["Elisabeth", FontFamily -> "Verdana"], After], "John" -> Placed[ Style["John", FontFamily -> "Verdana"], After], "Linda" -> Placed[ Style["Linda", FontFamily -> "Verdana"], After], "Human-Centered Product Design" -> Placed[ Style["Human-Centered Product Design", FontFamily -> "Verdana"], Before], "Rudy" -> Placed[ Style["Rudy", FontFamily -> "Verdana"], After], "Painting I" -> Placed[ Style["Painting I", FontFamily -> "Verdana"], Before], "Basic Photography" -> Placed[ Style["Basic Photography", FontFamily -> "Verdana"], Before], "David" -> Placed[ Style["David", FontFamily -> "Verdana"], After], "Jewelry/Metals I" -> Placed[ Style["Jewelry/Metals I", FontFamily -> "Verdana"], Before], "Ben" -> Placed[ Style["Ben", FontFamily -> "Verdana"], After], "Carol" -> Placed[ Style["Carol", FontFamily -> "Verdana"], After], "Making and Meaning" -> Placed[ Style["Making and Meaning", FontFamily -> "Verdana"], Before], "Anna" -> Placed[ Style["Anna", FontFamily -> "Verdana"], After], "Oscar" -> Placed[ Style["Oscar", FontFamily -> "Verdana"], After], "Interaction I" -> Placed[ Style["Interaction I", FontFamily -> "Verdana"], Before], "The Art of 3D Imaging" -> Placed[ Style["The Art of 3D Imaging", FontFamily -> "Verdana"], Before], "Understanding Visual Culture" -> Placed[ Style["Understanding Visual Culture", FontFamily -> "Verdana"], Before], "Introduction to Art" -> Placed[ Style["Introduction to Art", FontFamily -> "Verdana"], Before], "Felicia" -> Placed[ Style["Felicia", FontFamily -> "Verdana"], After], "Nancy" -> Placed[ Style["Nancy", FontFamily -> "Verdana"], After], "Sculpture I" -> Placed[ Style["Sculpture I", FontFamily -> "Verdana"], Before], "Ikabana: Japanese Floral Arts" -> Placed[ Style["Ikabana: Japanese Floral Arts", FontFamily -> "Verdana"], Before], "Dorothy" -> Placed[ Style["Dorothy", FontFamily -> "Verdana"], After], "Introduction to E-Waste" -> Placed[ Style["Introduction to E-Waste", FontFamily -> "Verdana"], Before], "Popular Visual Culture" -> Placed[ Style["Popular Visual Culture", FontFamily -> "Verdana"], Before], "Michael" -> Placed[ Style["Michael", FontFamily -> "Verdana"], After], "Design History Survey" -> Placed[ Style["Design History Survey", FontFamily -> "Verdana"], Before]}}]], Typeset`boxes = GraphicsGroupBox[{{ Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], TagBox[{ TagBox[ DiskBox[{0., -0.7590169943749474}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ FormBox[ StyleBox["\"Understanding Visual Culture\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$1", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[ DiskBox[{0., -0.674681772777731}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ FormBox[ StyleBox["\"Time Arts I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$2", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[ DiskBox[{0., -0.5903465511805146}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ FormBox[ StyleBox["\"The Art of 3D Imaging\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$3", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[ DiskBox[{0., -0.5060113295832982}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ FormBox[ StyleBox["\"Sculpture I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$4", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[ DiskBox[{0., -0.4216761079860819}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ FormBox[ StyleBox["\"Popular Visual Culture\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$5", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[ DiskBox[{0., -0.3373408863888655}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ FormBox[ StyleBox["\"Painting I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$6", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"], TagBox[{ TagBox[ DiskBox[{0., -0.2530056647916491}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$7"], InsetBox[ FormBox[ StyleBox["\"Museums in Action\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$7", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$7"], TagBox[{ TagBox[ DiskBox[{0., -0.16867044319443275`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$8"], InsetBox[ FormBox[ StyleBox["\"Making and Meaning\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$8", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$8"], TagBox[{ TagBox[ DiskBox[{0., -0.08433522159721638}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$9"], InsetBox[ FormBox[ StyleBox["\"Life Drawing\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$9", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$9"], TagBox[{ TagBox[ DiskBox[{0., 0.}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$10"], InsetBox[ FormBox[ StyleBox["\"Jewelry/Metals I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$10", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$10"], TagBox[{ TagBox[ DiskBox[{0., 0.08433522159721638}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$11"], InsetBox[ FormBox[ StyleBox["\"Introduction to E-Waste\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$11", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$11"], TagBox[{ TagBox[ DiskBox[{0., 0.16867044319443275`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$12"], InsetBox[ FormBox[ StyleBox["\"Introduction to Art\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$12", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$12"], TagBox[{ TagBox[ DiskBox[{0., 0.2530056647916491}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$13"], InsetBox[ FormBox[ StyleBox["\"Interaction I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$13", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$13"], TagBox[{ TagBox[ DiskBox[{0., 0.3373408863888655}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$14"], InsetBox[ FormBox[ StyleBox["\"Ikabana: Japanese Floral Arts\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$14", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$14"], TagBox[{ TagBox[ DiskBox[{0., 0.4216761079860819}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$15"], InsetBox[ FormBox[ StyleBox["\"Human-Centered Product Design\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$15", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$15"], TagBox[{ TagBox[ DiskBox[{0., 0.5060113295832982}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$16"], InsetBox[ FormBox[ StyleBox["\"Fashion Design\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$16", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$16"], TagBox[{ TagBox[ DiskBox[{0., 0.5903465511805146}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$17"], InsetBox[ FormBox[ StyleBox["\"Design History Survey\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$17", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$17"], TagBox[{ TagBox[ DiskBox[{0., 0.674681772777731}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$18"], InsetBox[ FormBox[ StyleBox["\"Ceramics Sculpture I\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$18", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$18"], TagBox[{ TagBox[ DiskBox[{0., 0.7590169943749474}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$19"], InsetBox[ FormBox[ StyleBox["\"Basic Photography\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$19", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$19"], TagBox[{ TagBox[ DiskBox[{1., -0.7168493835763392}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$20"], InsetBox[ FormBox[ StyleBox["\"Rudy\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$20", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$20"], TagBox[{ TagBox[ DiskBox[{1., -0.6325141619791228}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$21"], InsetBox[ FormBox[ StyleBox["\"Oscar\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$21", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$21"], TagBox[{ TagBox[ DiskBox[{1., -0.5481789403819064}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$22"], InsetBox[ FormBox[ StyleBox["\"Nora\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$22", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$22"], TagBox[{ TagBox[ DiskBox[{1., -0.46384371878469005`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$23"], InsetBox[ FormBox[ StyleBox["\"Nancy\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$23", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$23"], TagBox[{ TagBox[ DiskBox[{1., -0.3795084971874737}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$24"], InsetBox[ FormBox[ StyleBox["\"Michael\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$24", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$24"], TagBox[{ TagBox[ DiskBox[{1., -0.2951732755902573}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$25"], InsetBox[ FormBox[ StyleBox["\"Linda\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$25", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$25"], TagBox[{ TagBox[ DiskBox[{1., -0.21083805399304095`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$26"], InsetBox[ FormBox[ StyleBox["\"Larry\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$26", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$26"], TagBox[{ TagBox[ DiskBox[{1., -0.12650283239582455`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$27"], InsetBox[ FormBox[ StyleBox["\"Julia\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$27", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$27"], TagBox[{ TagBox[ DiskBox[{1., -0.04216761079860819}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$28"], InsetBox[ FormBox[ StyleBox["\"John\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$28", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$28"], TagBox[{ TagBox[ DiskBox[{1., 0.04216761079860819}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$29"], InsetBox[ FormBox[ StyleBox["\"James\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$29", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$29"], TagBox[{ TagBox[ DiskBox[{1., 0.12650283239582455`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$30"], InsetBox[ FormBox[ StyleBox["\"Felicia\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$30", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$30"], TagBox[{ TagBox[ DiskBox[{1., 0.21083805399304095`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$31"], InsetBox[ FormBox[ StyleBox["\"Elisabeth\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$31", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$31"], TagBox[{ TagBox[ DiskBox[{1., 0.2951732755902573}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$32"], InsetBox[ FormBox[ StyleBox["\"Dorothy\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$32", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$32"], TagBox[{ TagBox[ DiskBox[{1., 0.3795084971874737}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$33"], InsetBox[ FormBox[ StyleBox["\"David\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$33", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$33"], TagBox[{ TagBox[ DiskBox[{1., 0.46384371878469005`}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$34"], InsetBox[ FormBox[ StyleBox["\"Carol\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$34", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$34"], TagBox[{ TagBox[ DiskBox[{1., 0.5481789403819064}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$35"], InsetBox[ FormBox[ StyleBox["\"Ben\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$35", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$35"], TagBox[{ TagBox[ DiskBox[{1., 0.6325141619791228}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$36"], InsetBox[ FormBox[ StyleBox["\"Arlene\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$36", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$36"], TagBox[{ TagBox[ DiskBox[{1., 0.7168493835763392}, 0.01857697903168551], "DynamicName", BoxID -> "VertexID$37"], InsetBox[ FormBox[ StyleBox["\"Anna\"", FontFamily -> "Verdana", StripOnInput -> False], TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$37", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$37"]}, { Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], Thickness[Large], StyleBox[ LineBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$29", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$30", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$27", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$33", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$21", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$23", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation["VertexID$34", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation["VertexID$21", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$4", Automatic, Center], DynamicLocation["VertexID$33", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$4", Automatic, Center], DynamicLocation["VertexID$35", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$4", Automatic, Center], DynamicLocation["VertexID$29", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$5", Automatic, Center], DynamicLocation["VertexID$23", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$6", Automatic, Center], DynamicLocation["VertexID$25", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$6", Automatic, Center], DynamicLocation["VertexID$20", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$7", Automatic, Center], DynamicLocation["VertexID$36", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$7", Automatic, Center], DynamicLocation["VertexID$26", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$7", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$7", Automatic, Center], DynamicLocation["VertexID$35", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$8", Automatic, Center], DynamicLocation["VertexID$28", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$8", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$9", Automatic, Center], DynamicLocation["VertexID$22", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$9", Automatic, Center], DynamicLocation["VertexID$36", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$9", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$10", Automatic, Center], DynamicLocation["VertexID$27", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$10", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$10", Automatic, Center], DynamicLocation["VertexID$20", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$10", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$11", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$11", Automatic, Center], DynamicLocation["VertexID$26", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$11", Automatic, Center], DynamicLocation["VertexID$23", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$12", Automatic, Center], DynamicLocation["VertexID$26", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$12", Automatic, Center], DynamicLocation["VertexID$21", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$12", Automatic, Center], DynamicLocation["VertexID$25", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$13", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$13", Automatic, Center], DynamicLocation["VertexID$26", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$14", Automatic, Center], DynamicLocation["VertexID$21", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$15", Automatic, Center], DynamicLocation["VertexID$25", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$16", Automatic, Center], DynamicLocation["VertexID$28", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$16", Automatic, Center], DynamicLocation["VertexID$24", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$16", Automatic, Center], DynamicLocation["VertexID$36", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$16", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$17", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$17", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$17", Automatic, Center], DynamicLocation["VertexID$34", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$18", Automatic, Center], DynamicLocation["VertexID$37", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$18", Automatic, Center], DynamicLocation["VertexID$31", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$18", Automatic, Center], DynamicLocation["VertexID$34", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$19", Automatic, Center], DynamicLocation["VertexID$32", Automatic, Center]}], Thickness[Large], StripOnInput -> False], StyleBox[ LineBox[{ DynamicLocation["VertexID$19", Automatic, Center], DynamicLocation["VertexID$35", Automatic, Center]}], Thickness[Large], StripOnInput -> False]}}]}, DynamicBox[GraphComputation`NetworkGraphicsBox[ 1, Typeset`graph, Typeset`boxes], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {}}, ImageSizeCache->{{-12.516689461762894`, 435.9712349163083}, {-160.8406561528305, 155.38611069828494`}}]]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FrameTicks->None, ImageSize->{438., Automatic}, PlotRange->{{-0.9, 1.3}, {-0.8, 0.8}}]\);
In[2]:=
X
colorHighlight[comp_] := HighlightGraph[g, Join @@ Table[(Style[#, ColorData["Rainbow"][i/Length[comp]]]) & /@ Join[comp[[i]], EdgeList[Subgraph[g, comp[[i]]]]], {i, Length[comp]}], GraphHighlightStyle -> "DehighlightHide"];
In[3]:=
X
colorHighlight[ConnectedComponents[Graph@FindEdgeCover[g]]]
Out[3]=
