Нахождение вероятности установления связи между нейронами мозга 

В фрагменте коры головного мозга, содержащем 100 нейронов, нейроны связаны друг с другом синапсами, если они находятся на расстоянии не большем чем 0.2 единицы. Найдём вероятность того, что такая нейронная сеть является связной.

In[1]:=

X \[ScriptCapitalG] = SpatialGraphDistribution[100, 0.2];

In[2]:=

X RandomGraph[\[ScriptCapitalG]]

Out[2]=

Находим вероятность, что сеть является связной.

In[3]:=

X NProbability[x == 1, x \[Distributed] GraphPropertyDistribution[Boole[ConnectedGraphQ[g]], g \[Distributed] \[ScriptCapitalG]]]

Out[3]=