令服从均匀分布,服从正态分布。关于可以怎么说?有分配吗?
我发现均值为零的两个法线之比为柯西。
令服从均匀分布,服从正态分布。关于可以怎么说?有分配吗?
我发现均值为零的两个法线之比为柯西。
Answers:
让随机变量与PDF ˚F (X ):
这里,我假定(这巢的标准统一(0 ,1 )的情况)。[如果说参数a < 0,将获得不同的结果,但是过程完全相同。]
此外,让,并让w ^ = 1 / ý与PDF 克(瓦特):
然后,我们寻求的产品的概率密度函数,比方说ħ (v ),其由下式给出:
我在哪里使用mathStatica的TransformProduct
函数来自动处理杂乱无章的内容,在哪里Erf
表示错误函数:http : //reference.wolfram.com/language/ref/Erf.html
全部做完。
情节
这是pdf的两个图:
蒙特卡洛检查
这是对情节2情况的快速蒙特卡洛检查,只是为了确保没有错误出现:
,σ=1,a=0,b=1
蓝线是经验的蒙特卡洛pdf,红色虚线是以上的理论pdf 。看起来不错:)
可以找到Z = X的分布从第一原理,其中X〜ü[0,1]和ÿ〜Ñ(μ,σ2)。考虑Z的累积概率函数:
考虑和Y < 0的两种情况。如果Y > 0,则X。类似地,如果 Y < 0,则 X。
现在我们知道。为了找到上述概率,请考虑z > 0和z < 0的情况。
如果,则概率可以表示为在以下所示区域上(X ,Y )的联合分布的积分。(使用不等式)
可以使用以下转换序列来评估以上积分:
可以通过仿真验证该答案。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")
以下是一些验证图表:
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%的分布似乎在这些限制之内)