Compute the Probability of Brain Neuron Connections 

In a piece of brain cortex with 100 neurons, the neurons are connected by synapses if they are at a distance less than 0.2. Find the probability that the network is connected.

In[1]:=

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

In[2]:=

X RandomGraph[\[ScriptCapitalG]]

Out[2]=

Find the probability that the network is connected.

In[3]:=

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

Out[3]=