Return to Answer

deleted 2 characters in body

Source Link

edited May 10, 2015 at 10:30

400.5k
18
488
929

Using CompleteGraph as suggested by @Guesswhoitis in the comments and EdgeDelete:

opts = {VertexLabels -> Placed["Name", Center], BaseStyle -> Thick,
   ImageSize -> 300, VertexSize -> {"Scaled", .1}, 
   VertexLabelStyle -> Large};

k72 = CompleteGraph[{7, 2}, opts];
deletededges = {5 \[UndirectedEdge] 9, 2 \[UndirectedEdge] 8};
k72b = EdgeDelete[k72, deletededges];

Row[Labeled[##, Top] & @@@ 
    {{k72, Style["k72 = CompleteGraph[{7,2}]", 18, "Panel"]},
     {k72b, Style["EdgeDelete[k72Style[ "EdgeDelete[k72, {5\[UndirectedEdge]9, 2\[UndirectedEdge]8]"2\[UndirectedEdge]8}]",
      18, 
 "Panel"]}}]

enter image description here

Using CompleteGraph as suggested by @Guesswhoitis in the comments and EdgeDelete:

opts = {VertexLabels -> Placed["Name", Center], BaseStyle -> Thick,
   ImageSize -> 300, VertexSize -> {"Scaled", .1}, 
   VertexLabelStyle -> Large};

k72 = CompleteGraph[{7, 2}, opts];
deletededges = {5 \[UndirectedEdge] 9, 2 \[UndirectedEdge] 8};
k72b = EdgeDelete[k72, deletededges];

Row[Labeled[##, Top] & @@@ 
    {{k72, Style["k72 = CompleteGraph[{7,2}]", 18, "Panel"]},
     {k72b, Style["EdgeDelete[k72, 5\[UndirectedEdge]9, 2\[UndirectedEdge]8]",
      18, "Panel"]}}]

enter image description here

Using CompleteGraph as suggested by @Guesswhoitis in the comments and EdgeDelete:

opts = {VertexLabels -> Placed["Name", Center], BaseStyle -> Thick,
   ImageSize -> 300, VertexSize -> {"Scaled", .1}, 
   VertexLabelStyle -> Large};

k72 = CompleteGraph[{7, 2}, opts];
deletededges = {5 \[UndirectedEdge] 9, 2 \[UndirectedEdge] 8};
k72b = EdgeDelete[k72, deletededges];

Row[Labeled[##, Top] & @@@ 
    {{k72, Style["k72 = CompleteGraph[{7,2}]", 18, "Panel"]},
     {k72b, Style[ "EdgeDelete[k72, {5\[UndirectedEdge]9, 2\[UndirectedEdge]8}]", 18, 
 "Panel"]}}]

enter image description here

Source Link

created May 9, 2015 at 15:59

kglr

400.5k
18
488
929

Using CompleteGraph as suggested by @Guesswhoitis in the comments and EdgeDelete:

opts = {VertexLabels -> Placed["Name", Center], BaseStyle -> Thick,
   ImageSize -> 300, VertexSize -> {"Scaled", .1}, 
   VertexLabelStyle -> Large};

k72 = CompleteGraph[{7, 2}, opts];
deletededges = {5 \[UndirectedEdge] 9, 2 \[UndirectedEdge] 8};
k72b = EdgeDelete[k72, deletededges];

Row[Labeled[##, Top] & @@@ 
    {{k72, Style["k72 = CompleteGraph[{7,2}]", 18, "Panel"]},
     {k72b, Style["EdgeDelete[k72, 5\[UndirectedEdge]9, 2\[UndirectedEdge]8]",
      18, "Panel"]}}]

enter image description here