चलो एक समान वितरण का पालन करें और वाई एक सामान्य वितरण का पालन करें। एक्स के बारे में क्या कहा जा सकता है ? क्या इसके लिए कोई वितरण है?
मैंने पाया कि दो मानदंडों का अनुपात शून्य से काउची है।
चलो एक समान वितरण का पालन करें और वाई एक सामान्य वितरण का पालन करें। एक्स के बारे में क्या कहा जा सकता है ? क्या इसके लिए कोई वितरण है?
मैंने पाया कि दो मानदंडों का अनुपात शून्य से काउची है।
जवाबों:
चलो यादृच्छिक चर पीडीएफ के साथ च ( एक्स ) :
जहां मैंने (यह मानक यूनिफ़ॉर्म ( 0 , 1 ) केस घोंसला करता है) ग्रहण किया है । [अलग परिणाम प्राप्त हो जाएगा अगर कहते हैं पैरामीटर एक < 0 है, लेकिन प्रक्रिया बिल्कुल वैसा ही है। ]
इसके अलावा, चलो , और डब्ल्यू = 1 / वाई पीडीएफ के साथ जी ( डब्ल्यू ) :
फिर, हम उत्पाद की पीडीएफ की तलाश , कहते हैं ज ( v ) , जिसके द्वारा दिया जाता है:
जहां मैं मैथ्सटिका के TransformProduct
फंक्शन का इस्तेमाल कर रहा हूं, वहीं नॉटी-ग्रिटिज को ऑटोमेट करने के लिए, और जहां Erf
एरर फंक्शन को दर्शाता है: http://reference.wolfram.com/language/ref/Erf.html
सब कुछ कर दिया।
भूखंड
यहाँ पीडीएफ के दो भूखंड हैं:
मोंटे कार्लो की जाँच
के वितरण को खोजना संभव है
परिवर्तनों के निम्नलिखित अनुक्रम का उपयोग करके उपरोक्त अभिन्न का मूल्यांकन किया जा सकता है:
यह उत्तर सिमुलेशन द्वारा सत्यापित किया जा सकता है। R में निम्न स्क्रिप्ट इस कार्य को करता है।
n <- 1e7
mu <- 2
sigma <- 4
X <- runif(n)
Y <- rnorm(n, mean=mu, sd=sigma)
Z <- X/Y
# Constrain range of Z to allow better visualization
Z <- Z[Z>-10]
Z <- Z[Z<10]
# The actual density
hist(Z, breaks=1000, xlim=c(-10,10), prob=TRUE)
# The theoretical density
r <- seq(from=-10, to=10, by=0.01)
p <- sigma/sqrt(2*pi)*( exp( -mu^2/(2*sigma^2)) - exp(-(1/r-mu)^2/(2*sigma^2)) ) + mu*( pnorm((1/r-mu)/sigma) - pnorm(-mu/sigma) )
lines(r,p, col="red")
सत्यापन के लिए यहां कुछ रेखांकन दिए गए हैं:
एन ≤ 1 एम वाई < 1 एक्स Y<०set.seed(1);x=rbeta(10000000,1,1)/rnorm(10000000,7);hist(x,n=length(x)/50000)
runif
runif
? यह अधिक मुहावरेदार लगता है और तेज भी लगता है)
hist(x,n=length(x),xlim=c(-10,10))
) (वितरण का लगभग 96% उन सीमाओं के अंदर लगता है)