2
$\begingroup$

Which is the function that can plot me the bipartite graph $K_{7, 2}$ in Mathematica? And after that to delete 2 edges?? Thanks for the help.

Improve this question
$\endgroup$
2
  • 1
    $\begingroup$ Have you seen CompleteGraph[]? $\endgroup$
    – J. M.'s missing motivation ♦
    Commented May 9, 2015 at 13:02
  • 2
    $\begingroup$ It is poor form to edit a question to replace the one originally asked. If you have to ask another one, ask in a new question. $\endgroup$
    – J. M.'s missing motivation ♦
    Commented May 9, 2015 at 15:33

1 Answer 1

Reset to default
2
$\begingroup$

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

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.