Áreas de aplicación

Ilustre transformaciones

Destaque elementos de grafos para ilustrar operaciones en Mathematica 8.

In[1]:=

In[2]:=

In[3]:=

In[4]:=

In[5]:=

info = {{HighlightGraph[g,

MapThread[Style[#1, #2] &, {EdgeList[g], color}],

EdgeStyle -> Directive[Thickness[0.015], Opacity[1]],

VertexSize -> Tiny], \!\(\*

GraphicsBox[

{Thickness[0.05263157894736842], FaceForm[{RGBColor[0.7, 0.7, 0.7],

Opacity[1.]}],

FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {

0, 1, 0}, {0, 1, 0}}}, {{{9.9999, 18.}, {9.9999,

13.5}, {-0.00009999999999976694,

13.5}, {-0.00009999999999976694, 4.5}, {9.9999, 4.5}, {

9.9999, 0.}, {18.9999, 9.}}}]},

AspectRatio->Automatic,

ImageSize->{19., 18.},

PlotRange->{{0., 19.}, {0., 18.}}]\),

LineGraph[g, VertexStyle -> Thread[{1, 4, 3, 2, 6, 5} -> color],

VertexSize -> 0.3, style]}, {g = CycleGraph[5, style], \!\(\*

GraphicsBox[

{Thickness[0.05263157894736842], FaceForm[{RGBColor[0.7, 0.7, 0.7],

Opacity[1.]}],

FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {

0, 1, 0}, {0, 1, 0}}}, {{{9.9999, 18.}, {9.9999,

13.5}, {-0.00009999999999976694,

13.5}, {-0.00009999999999976694, 4.5}, {9.9999, 4.5}, {

9.9999, 0.}, {18.9999, 9.}}}]},

AspectRatio->Automatic,

ImageSize->{19., 18.},

PlotRange->{{0., 19.}, {0., 18.}}]\),

HighlightGraph[CompleteGraph[5, style], GraphComplement[g]]}, {g =

CycleGraph[5, style], \!\(\*

GraphicsBox[

{Thickness[0.05263157894736842], FaceForm[{RGBColor[0.7, 0.7, 0.7],

Opacity[1.]}],

FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {

0, 1, 0}, {0, 1, 0}}}, {{{9.9999, 18.}, {9.9999,

13.5}, {-0.00009999999999976694,

13.5}, {-0.00009999999999976694, 4.5}, {9.9999, 4.5}, {

9.9999, 0.}, {18.9999, 9.}}}]},

AspectRatio->Automatic,

ImageSize->{19., 18.},

PlotRange->{{0., 19.}, {0., 18.}}]\),

HighlightGraph[GraphPower[g, 2], g, style]}};

In[6]:=

In[7]:=

Out[7]=