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.

$\endgroup$
  • 1
    $\begingroup$ Have you seen CompleteGraph[]? $\endgroup$ – J. M. will be back soon May 9 '15 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. will be back soon May 9 '15 at 15:33
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

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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