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

Реберные покрытия графа

Нахождение реберного покрытия графа выявляет, что каждый из курсов будет преподаваться одним профессором, и что Ларри был назначен преподавать два курса.

In[1]:=

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]}],