এই পোস্টে প্রশ্নের মন্তব্যে উত্তরগুলি বিস্তারিতভাবে জানিয়েছে।
আসুন । ইউনিটের দৈর্ঘ্যের কোনও Fix ঠিক করুন । এই ধরণের ভেক্টর সর্বদা একটি orthonormal ভিত্তিতে সম্পন্ন করা যেতে পারে ( উদাহরণস্বরূপ, গ্রাম-শ্মিট প্রক্রিয়া মাধ্যমে )। এই পরিবর্তনের ভিত্তিতে (সাধারণটি থেকে) অরথোগোনাল: এটি দৈর্ঘ্য পরিবর্তন করে না। এইভাবে বিতরণই 1 ∈ আর এন ( ই 1 , ই 2 , … , ই এন )X=(X1,X2,…,Xn)e1∈Rn(e1,e2,…,en)
(e1⋅X)2||X||2=(e1⋅X)2X21+X22+⋯+X2n
উপর নির্ভর করে না । টেকিং শো এই একই বন্টন যেমন হয়েছেe1e1=(1,0,0,…,0)
X21X21+X22+⋯+X2n.(1)
যেহেতু সাধারণ হয়, সেগুলি বার স্ট্যান্ডার্ড নরমাল ভেরিয়েবল এবং তাদের স্কোয়ারগুলি বার বিতরণ হিসাবে লেখা যেতে পারে । যেহেতু এর সমষ্টি স্বাধীন ডিস্ট্রিবিউশন হয় , আমরা স্থির করেছি বিতরণের যে এর যেXiσY1,…,Ynσ2Γ(1/2)n−1Γ(1/2)Γ((n−1)/2)(1)
σ2Uσ2U+σ2V=UU+V
যেখানে এবং স্বতন্ত্র। এটি সুপরিচিত যে এই অনুপাতের একটি বিটা বিতরণ রয়েছে। (এছাড়াও ঘনিষ্ঠভাবে সম্পর্কিত থ্রেড দেখুন বিতরণ যদি বিটা এবং চি-ছক সঙ্গে ডিগ্রী ।)U=X21/σ2∼Γ(1/2)V=(X22+⋯+X2n)/σ2∼Γ((n−1)/2)(1/2,(n−1)/2)XYX∼(1,K−1)Y∼2K
যেহেতু
X1+⋯+Xn=(1,1,…,1)⋅(X1,X2,⋯,Xn)=n−−√e1⋅X
ইউনিট ভেক্টরের জন্য , আমরা উপসংহারে পৌঁছেছি যে হল বার বিটা 1/1 ভেরিয়েট। জন্য তাই ঘনত্ব ফাংশন রয়েছেe1=(1,1,…,1)/n−−√Z(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 এন = 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)
}