Розглянемо випадковий графік Ердоса-Рені . Множина вершин позначена . Сукупність ребер побудована випадковим процесом.n V V = { 1 , 2 , … , n } E
Нехай - ймовірність , тоді кожна невпорядкована пара вершин ( ) виникає як ребро в з вірогідністю , незалежно від інших пар.0 < p < 1 { i , j } i ≠ j E p
Трикутник у - це не упорядкована потрійна різних вершин, таких що , і є ребрами в .{ i , j , k } { i , j } { j , k } { k , i } G
Максимальна кількість можливих трикутників - . Визначимо випадкову величину , щоб бути спостережуваний рахунок трикутників в графі .
Ймовірність того, що одночасно присутні три ланки, є . Тому очікуване значення задається . Наївно можна здогадатися, що дисперсію задає , але це не так.
Наступний код Mathematica моделює проблему:
n=50;
p=0.6;
t=100;
myCounts=Table[Length[FindCycle[RandomGraph[BernoulliGraphDistribution[n,p]],3,All]],{tt,1,t}];
N[Mean[myCounts]] // 4216. > similar to expected mean
Binomial[n,3]p^3 // 4233.6
N[StandardDeviation[myCounts]] // 262.078 > not similar to "expected" std
Sqrt[Binomial[n,3](p^3)(1-p^3)] // 57.612
Histogram[myCounts]
Яка дисперсія ?