Quel est le rapport de distribution uniforme et normale?


11

Soit suivre une distribution uniforme et suivre une distribution normale. Que peut-on dire sur ? Y a-t-il une distribution pour cela?Y XXYXY

J'ai trouvé que le rapport de deux normales avec un zéro moyen est Cauchy.


3
Pour ce que ça vaut, la distribution de est appelée la distribution slash . Je ne sais pas si la réciproque a un nom ou une forme fermée. Y/X
David J. Harris

2
Et la plus grande classe à laquelle les deux appartiennent semble être des distributions de rapports !
Nick Stauner

7
@ DavidJ.Harris Tout à fait; +1. J'ai vu la barre oblique utilisée à quelques reprises dans des études de robustesse. Peut-être que - en tant que barre oblique inversée - devrait être appelée " distribution de barre oblique inverse ". X/Y
Glen_b -Reinstate Monica

1
@rrpp Faites-vous référence à un standard ou à un général ? Si ce dernier, alors nous devons savoir si , etc.U n i f o r m ( a , b ) a > 0 a < 0Uniform(0,1)Uniform(a,b)a>0a<0
Wolfies

1
merci à tous pour vos réponses. @wolfies est et a une moyenne positiveU n i f o r m ( 0 , 1 ) YXUniform(0,1)Y
rrpp

Réponses:


13

Soit une variable aléatoire avec pdf :f ( x )XUniform(a,b)f(x)

entrez la description de l'image ici

où j'ai supposé (cela imbrique le cas standard ). [Des résultats différents seront obtenus si par exemple le paramètre , mais la procédure est exactement la même. ]Uniforme ( 0 , 1 ) a < 00<a<bUniform(0,1)a<0

De plus, soit , et soit avec pdf :W = 1 / Y g ( w )YN(μ,σ2)W=1/Yg(w)

entrez la description de l'image ici

Ensuite, nous cherchons le pdf du produit , disons , qui est donné par:h ( v )V=XWh(v)

entrez la description de l'image ici

j'utilise la TransformProductfonction de mathStatica pour automatiser les nitty-gritties, et où Erfdénote la fonction Error: http://reference.wolfram.com/language/ref/Erf.html

Terminé.

Parcelles

Voici deux tracés du pdf:

  • Tracé 1: , , ... et ...σ = 1 b = 3 a = 0 , 1 , 2μ=0σ=1b=3a=0,1,2

entrez la description de l'image ici

  • Tracé 2: , , ,σ=1a=0b=1μ=0,12,1σ=1a=0b=1

entrez la description de l'image ici

Chèque Monte Carlo

Voici une vérification rapide de Monte Carlo du cas Plot 2, juste pour vous assurer qu'aucune erreur ne s'est glissée dans: , , ,
σ=1a=0b=1μ=12σ=1a=0b=1

entrez la description de l'image ici

La ligne bleue est le pdf empirique de Monte Carlo, et la ligne rouge en pointillés est le pdf théorique ci-dessus. Semble bien :)h(v)


3

Il est possible de trouver la distribution de partir des premiers principes, où et . Considérons la fonction de probabilité cumulative de : XU[0,1]YN(μ,σ2)ZZ=XYXU[0,1]YN(μ,σ2)Z

FZ(z)=P(Zz)=P(XYz)

Considérons les deux cas et . Si , alors . De même, si alors .Y>0Y<0Y>0XYzXzYY<0XYzXzY

Maintenant, nous savons . Pour trouver la probabilité ci-dessus, considérons les cas et .<Z<z>0z<0

Si , alors la probabilité peut être exprimée comme une intégration de la distribution conjointe de sur la région ci-dessous. (en utilisant les inégalités)z>0(X,Y)

Région d'intégration

Donc où est la fonction de répartition de .

FZ(z)=01x/zfY(y)dydx+010fY(y)dydx
fY(y)Y

Trouvez la fonction de distribution de en différenciant ce qui précède. Z

fZ(z)=ddz01[FY()FY(xz)]dx=01z[FY()FY(xz)]dx=01xz2fY(xz)dx=01x2πσz2exp((xzμ)22σ2)dx

L'intégrale ci-dessus peut être évaluée à l'aide de la séquence de transformations suivante:

  1. Soitu=xz
  2. Soitv=uμ
  3. Séparez l'intégrale résultante en deux intégrales, une avec uniquement dans l'exponentielle, et une avec multipliant avec l'exponentielle.vv

Les intégrales résultantes peuvent être simplifiées pour produire

fZ(z)=σ2π[exp(μ22σ2)exp((1zμ)22σ2)]+μ[Φ(1zμσ)Φ(μσ)]

Ici est la fonction de distribution cumulative de la normale standard. Un résultat identique est obtenu pour le cas .z < 0Φ(x)z<0

Cette réponse peut être vérifiée par simulation. Le script suivant dans R effectue cette tâche.

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")

Voici quelques graphiques pour vérification:

  1. PourYN(0,1) Contrôle 1
  2. PourYN(1,1) Contrôle 2
  3. PouryN(1,2) Chèque 3

Le sous-dépassement de la réponse théorique observée dans les graphiques autour de est probablement dû à la plage contrainte. Sinon, la réponse théorique semble suivre la densité simulée.z=0


1
+1 Très sympa! Une dérivation des principes de base est toujours satisfaisante et les graphiques aident le lecteur à comprendre instantanément ce que vous faites.
whuber

2


YY=N(7,1)N 1 M Y < 1 Xmin(Y)>1N1MY<1 Y<0XYY<0set.seed(1);x=rbeta(10000000,1,1)/rnorm(10000000,7);hist(x,n=length(x)/50000)
runif

entrez la description de l'image ici


2
les queues extrêmes absorbent la densité. La distribution est un peu comme un Cauchy. (Par curiosité, pourquoi ne pas utiliser runif? Il semble plus idiomatique et semble aussi être plus rapide)
Glen_b -Reinstate Monica

Parce que je ne sais toujours pas grand-chose sur R, apparemment! :) Merci pour le conseil!
Nick Stauner

1
pas de soucis. La différence de vitesse n'est pas si grande, mais avec 10 ^ 7 éléments, assez pour le remarquer. Vous pouvez trouver un histogramme intéressant à regarder ( hist(x,n=length(x),xlim=c(-10,10))) (environ 96% de la distribution semble être à l'intérieur de ces limites)
Glen_b -Reinstate Monica

1
Hou la la! Assez sur. Rend ces graphiques de densité assez trompeurs, je le crains! Je vais éditer dans cet histogramme ...
Nick Stauner

1
Ah d'accord. Pas de soucis. Vous voudrez peut-être réduire la classe nclasse beaucoup plus petit dans ce cas. Je pense que l'idéal serait que les barres soient très étroites mais pas seulement des lignes noires.
Glen_b -Reinstate Monica
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.