Пусть тогда и только тогда, когда образуют треугольник. Тогда и каждый . Это то, что вы использовали для расчета ожидаемого значения.{ i , j , k } X = ∑ i , j , k Y i j k Y i j k ∼ B e r n o u l l i ( p 3 )Yijk=1{i,j,k}X=∑i,j,kYijkYijk∼Bernoulli(p3)
Для дисперсии проблема заключается в том, что не являются независимыми. Действительно, напишите
Нам нужно вычислить , что является вероятностью присутствия обоих треугольников. Есть несколько случаев: X 2 = ∑ i , j , k ∑ i ′ , j ′ , k ′ Y i j k Y i ′ j ′ k ′ . E [ Y i j k Y i ′ j ′ k ′ ]Yijk
X2=∑i,j,k∑i′,j′,k′YijkYi′j′k′.
E[YijkYi′j′k′]
- Если (те же 3 вершины), то . В двойной сумме будет таких членов.E [ Y i j k Y i ′ j ′ k ′ ] = p 3 ( n{i,j,k}={i′,j′,k′}E[YijkYi′j′k′]=p3(n3)
- Если множества и имеют ровно 2 общих элемента, то нам нужно 5 ребер, чтобы получить два треугольника, так что . в сумме будет таких слагаемых.{ i ′ , j ′ , k ′ } E [ Y i j k Y i ′ j ′ k ′ ] = p 5 12 ( n{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p512(n4)
- Если множества и имеют 1 общий элемент, то нам нужно 6 ребер, так что . В сумме будет таких слагаемых.{ i ′ , j ′ , k ′ } E [ Y i j k Y i ′ j ′ k ′ ] = p 6 30 ( n{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p630(n5)
- Если множества и имеют 0 общих элементов, то нам нужно 6 ребер, так что . В сумме будет таких слагаемых.{ i ′ , j ′ , k ′ } E [ Y i j k Y i ′ j ′ k ′ ] = p 6 20 ( n{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p620(n6)
Чтобы убедиться, что мы рассмотрели все случаи, обратите внимание, что сумма складывается из .(n3)2
(n3)+12(n4)+30(n5)+20(n6)=(n3)2
Не забывая вычесть квадрат ожидаемого среднего значения, сложив все вместе, получим:
E[X2]−E[X]2=(n3)p3+12(n4)p5+30(n5)p6+20(n6)p6−(n3)2p6
Используя те же числовые значения, что и в вашем примере, следующий код R вычисляет стандартное отклонение, которое достаточно близко к значению 262 из вашего моделирования.
n=50
p=0.6
sqrt(choose(n, 3)*p^3+choose(n, 2)*(n-2)*(n-3)*p^5+(choose(n, 3)*choose(n-3, 3)+n*choose(n-1, 2)*choose(n-3, 2))*p^6-4233.6^2)
298.7945
Следующий код Mathematica также вычисляет стандартное отклонение, которое дает тот же результат.
mySTD[n_,p_]:=Sqrt[Binomial[n,3]p^3+12Binomial[n,4]p^5+30 Binomial[n,5]p^6+20Binomial[n,6]p^6-(Binomial[n,3]p^3)^2]
mySTD[50,0.6] // gives 298.795