यह पोस्ट प्रश्नों के उत्तरों में विस्तार से बताती है।
चलो । किसी भी की इकाई लंबाई को ठीक करें। इस तरह के वेक्टर को हमेशा एक असामान्य आधार ( उदाहरण के लिए, ग्राम-श्मिट प्रक्रिया के माध्यम से ) पूरा किया जा सकता है। आधार का यह परिवर्तन (सामान्य से) ऑर्थोगोनल है: यह लंबाई नहीं बदलता है। इस प्रकार का वितरणई 1 ∈ आर एन ( ई 1 , ई 2 , ... , ई एन )एक्स= ( एक्स)1, एक्स2, ... , एक्सn)इ1∈ आरn( ई)1, ई2, … , ईn)
( ई)1⋅ एक्स)2| | एक्स| |2= ( ई1⋅ एक्स)2एक्स21+ X22+ ⋯ + एक्स2n
पर निर्भर नहीं करता है । ले रहा है से पता चलता है यह एक ही वितरण के रूप में हैई १ =(१,०,०,…,०)इ1इ1= ( 1 , 0 , 0 , … , 0 )
एक्स21एक्स21+ X22+ ⋯ + एक्स2n।(1)
चूँकि iid नॉर्मल हैं, इसलिए उन्हें टाइम्स के रूप में लिखा जा सकता है iid मानक नॉर्मल वैरिएबल और उनके वर्ग गुना डिस्ट्रीब्यूशन होते हैं। चूंकि स्वतंत्र वितरण का योग , हमने निर्धारित किया है कि का वितरण है σ Y 1 , ... , वाई एन σ 2 Γ ( 1 / 2 ) n - 1 Γ ( 1 / 2 ) Γ ( ( n - 1 ) / 2 ) ( 1 )XiσY1,…,Ynσ2Γ(1/2)n−1Γ(1/2)Γ((n−1)/2)(1)
σ2Uσ2U+σ2V=UU+V
जहाँ और स्वतंत्र हैं। यह सर्वविदित है कि इस अनुपात में एक बीटा वितरण है। (इसके अलावा को बारीकी से संबंधित धागा देखने का वितरण अगर बीटा और ची-वर्ग के साथ डिग्री ।)वी = ( एक्स 2 2 + ⋯ + एक्स 2 n ) / σ 2 ~ Γ ( ( n - 1 ) / 2 ) ( 1 / 2 , ( एन - 1 ) / 2 ) एक्स वाई एक्स ∼ ( 1)U=X21/σ2∼Γ(1/2)V=(X22+⋯+X2n)/σ2∼Γ((n−1)/2)(1/2,(n−1)/2)XYX∼वाई ~ 2 कश्मीर(1,K−1)Y∼2K
चूँकि
X1+⋯+Xn=(1,1,…,1)⋅(X1,X2,⋯,Xn)=n−−√e1⋅X
इकाई वेक्टर के लिए , हम निष्कर्ष है कि है बार एक बीटा भिन्न। के लिए यह इसलिए घनत्व समारोह है जेड( √)e1=(1,1,…,1)/n−−√Z(1/2,(n-1)/2)(n−−√)2=n(1/2,(n−1)/2)n≥2
fZ(z)=n1−n/2B(12,n−12)(n−z)n−3z−−−−−−−−−√
अंतराल पर (और अन्यथा शून्य है)।(0,n)
एक जाँच के रूप में, मैंने लिए स्वतंत्र और , उनके हिस्टोग्राम को प्लॉट किया, और इसी बीटा घनत्व (लाल रंग में) के ग्राफ को । समझौते बेहतरीन हैं।जेड σ = 1 n = 2 , 3 , 10100,000Zσ=1n=2,3,10
यहाँ R
कोड है। यह सूत्र के माध्यम से अनुकरण किया जाता है sum(x)^2 / sum(x^2)
के लिए , जहां लंबाई का एक वेक्टर है द्वारा उत्पन्न । बाकी सिर्फ लूपिंग ( , ) और प्लॉटिंग ( , ) है।Zx
n
rnorm
for
apply
hist
curve
for (n in c(2, 3, 10)) {
z <- apply(matrix(rnorm(n*1e5), nrow=n), 2, function(x) sum(x)^2 / sum(x^2))
hist(z, freq=FALSE, breaks=seq(0, n, length.out=50), main=paste("n =", n), xlab="Z")
curve(dbeta(x/n, 1/2, (n-1)/2)/n, add=TRUE, col="Red", lwd=2)
}