Lascia che iff formi un triangolo. Quindi e ogni . Questo è quello che hai usato per calcolare il valore atteso.{ 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)
Per la varianza, il problema è che non è indipendente. In effetti, scrivi
Dobbiamo calcolare , che è la probabilità che siano presenti entrambi i triangoli. Esistono diversi casi: 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′]
- Se (stessi 3 vertici) allora . Ci saranno tali termini nella doppia somma.{i,j,k}={i′,j′,k′}E[YijkYi′j′k′]=p3(n3)
- Se gli insiemi e hanno esattamente 2 elementi in comune, allora abbiamo bisogno di 5 bordi presenti per ottenere i due triangoli, in modo che . ci saranno tali termini nella somma.{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p512(n4)
- Se gli insiemi e hanno 1 elemento in comune, allora abbiamo bisogno di 6 bordi presenti, in modo che . Ci saranno tali termini nella somma.{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p630(n5)
- Se gli insiemi e hanno 0 elementi in comune, allora abbiamo bisogno di 6 bordi presenti, in modo che . Ci saranno tali termini nella somma.{i,j,k}{i′,j′,k′}E[YijkYi′j′k′]=p620(n6)
Per verificare che abbiamo coperto tutti i casi, si noti che la somma si somma a .(n3)2
(n3)+12(n4)+30(n5)+20(n6)=(n3)2
Ricordare di sottrarre il quadrato della media attesa, mettendo tutto insieme dà:
E[X2]−E[X]2=(n3)p3+12(n4)p5+30(n5)p6+20(n6)p6−(n3)2p6
Utilizzando gli stessi valori numerici del tuo esempio, il seguente codice R calcola la deviazione standard, che è ragionevolmente vicina al valore di 262 dalla tua simulazione.
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
Il seguente codice Mathematica calcola anche la deviazione standard, che fornisce lo stesso risultato.
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