0
$\begingroup$

This is the complete question

Please help in answering the questions above on mathematica. Which commands do I use to answer the question?

$\endgroup$

closed as off-topic by m_goldberg, David G. Stork, José Antonio Díaz Navas, Henrik Schumacher, kirma Jan 13 at 16:39

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question cannot be answered without additional information. Questions on problems in code must describe the specific problem and include valid code to reproduce it. Any data used for programming examples should be embedded in the question or code to generate the (fake) data must be included." – m_goldberg, David G. Stork, José Antonio Díaz Navas, Henrik Schumacher, kirma
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 3
    $\begingroup$ The problem description you show assumes a large amount of a-priori knowledge on the part of the reader. Since you don't supply that knowledge or even a reference to it, it will be unlikely that anyone reading the question will have the background required to help you. Please provide enough information to completely describe the problem. $\endgroup$ – m_goldberg Jan 8 at 19:41
2
$\begingroup$
n = 10;
Row[Table[
  RandomGraph[BernoulliGraphDistribution[n, 1/m], 
   ImageSize -> 250], {m, 2, 4}]]

enter image description here

g = RandomGraph[BernoulliGraphDistribution[250, 1/4]];

Histogram[Length /@ GatherBy[EdgeList@g, First]]

enter image description here

$\endgroup$

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