분배 기능


17

각각 4 개의 독립적으로 균일하게 분포 된 변수 있습니다. 의 분포를 계산하고 . I는 분포 계산 할 (따라서 ), 그리고 는 이제 합계 의 분포 는 ( 입니다. 독립) 때문에a,b,c,d[0,1](ad)2+4bcu2=4bc

f2(u2)=14lnu24
u2(0,4]u1=(ad)2
f1(u1)=1u1u1.
u1+u2u1,u2
fu1+u2(x)=+f1(xy)f2(y)dy=14041xyxylny4dy,
와이(0,4]. 여기서 적분은 f_ {u_1 + u_2} (x) =-\ frac {1} {4} \ int_0 ^ {x} \ frac {1- \ sqrt {xy}와 같으므로 x> y 여야합니다. } {\ sqrt {xy}} \ cdot \ ln \ frac {y} {4} dy. 이제 Mathematica에 삽입하고 f_ {u_1 + u_2} (x) = \ frac {1} {4} \ left [-x + x \ ln \ frac {x} {4} -2 \ sqrt {x } \ 왼쪽 (-2+ \ ln x \ 오른쪽) \ 오른쪽].엑스>와이
에프1+2(엑스)=140엑스1엑스와이엑스와이ln와이4와이.
에프1+2(엑스)=14[엑스+엑스ln엑스42엑스(2+ln엑스)].

나는 각각 10 ^ 6 숫자 로 구성된 4 개의 독립적 인 집합 a, b, c, d를 만들고 (ad) ^ 2 + 4bc 의 막대 그래프를 그렸습니다 .,,,106()2+4

여기에 이미지 설명을 입력하십시오

그리고 f_ {u_1 + u_2} (x) 의 플롯을 그렸습니다 에프1+2(엑스):

여기에 이미지 설명을 입력하십시오

일반적으로 플롯은 히스토그램과 유사하지만 구간 (0,5) 대부분 음수입니다 (근은 2.27034 임). 그리고 양수 부분의 적분은 0.77 입니다.

실수는 어? 어? 아니면 내가 놓친 부분이 있습니까?

편집 : PDF를 표시하도록 히스토그램의 크기를 조정했습니다.

여기에 이미지 설명을 입력하십시오

편집 2 : 내 추론의 문제가 어디에 있는지 알고 있습니다-통합 한계. 왜냐하면 과 , I 수 단순히 플롯이 도시 I에 통합해야하는 영역을 포함한다. :x y ( 0 , 1 ] x 0와이(0,4]엑스와이(0,1]0엑스

여기에 이미지 설명을 입력하십시오

이것은 대해 ( 일부 가 올바른 이유 ), in 및 in 불행히도, Mathematica는 후자의 두 정수를 계산하지 못합니다 (물론, 두 번째는 계산에 모든 것을 망치는 가상의 단위가 있기 때문에 계산합니다). ). y ( 0 , 1 ] f x x - 1 y ( 1 , 4 ] 4 x - 1 y ( 4 , 5 ]0엑스와이(0,1]에프엑스1엑스와이(1,4]엑스14와이(4,5]

편집 3 : Mathematica CAN은 다음 코드를 사용하여 마지막 세 가지 적분을 계산할 수 있습니다.

(1/4)*Integrate[((1-Sqrt[u1-u2])*Log[4/u2])/Sqrt[u1-u2],{u2,0,u1}, Assumptions ->0 <= u2 <= u1 && u1 > 0]

(1/4)*Integrate[((1-Sqrt[u1-u2])*Log[4/u2])/Sqrt[u1-u2],{u2,u1-1,u1}, Assumptions -> 1 <= u2 <= 3 && u1 > 0]

(1/4)*Integrate[((1-Sqrt[u1-u2])*Log[4/u2])/Sqrt[u1-u2],{u2,u1-1,4}, Assumptions -> 4 <= u2 <= 4 && u1 > 0]

정답 :)


2
시뮬레이션으로 답변의 합리성을 확인하려고 시도한 것이 좋습니다. 문제는 오류가 발생 했다는 것을 알고 있지만 어디에서나 볼 수 없다는 것입니다. 오류가있는 위치의 문제를 해결하기 위해 분석법의 각 단계 를 확인할 수 있다고 생각 했습니까 ? 예를 들어, 오류가 있습니까? 글쎄, 당신은 당신의 최종 답변과 같은 시뮬레이션 결과에 대해 계산 된 PDF를 확인할 수 있습니다. 저두 요 . 경우 및 모두 올바른지를 결합 할 때, 당신은 오류를했다. 이러한 단계별 점검을 통해 잘못된 부분을 정확하게 찾아 낼 수 있습니다! f 2 f 1 f 2에프1(1)에프2에프1에프2
Silverfish

첫 시도를 버리고 처음부터 다시 계산했습니다. 나는 과 가 정확 하다고 생각 하지만, 초기 에 2를 곱하여 1로 정규화해야했습니다. 그러나 그것은 단지 높이를 바꾸고 왜 내가 음의 가지는지 설명하지 않습니다 . f 2 f 1 ff1f2f1f
corey979

이러한 히스토그램을 생성하여 계산 된 대 수량과 비교할 때 히스토그램의 스케일을 유효한 밀도로 조정하십시오 (가능한 경우 중첩). f1과 f2에 대해 비슷한 검사를 수행하여 올바른 권한을 가지고 있는지 확인하십시오. 그들이 옳다면 (아직 그것들을 의심 할만한 좋은 이유는 보이지 않았지만, 다시 확인하는 것이 가장 좋습니다), 문제는 나중에 야합니다.
Glen_b-복지 주 모니카

답변:


19

종종 누적 분포 함수를 사용하는 데 도움이됩니다.

먼저,

F(x)=Pr((ad)2x)=Pr(|ad|x)=1(1x)2=2xx.

다음,

G(y)=Pr(4bcy)=Pr(bcy4)=0y/4dt+y/41ydt4t=y4(1log(y4)).

하자 최소 사이의 범위 ( ) 및 최대 ( 의) 가능한 값 . 쓰기 CDF와 와 PDF와 , 우리는 계산에 필요0 5 ( a - d ) 2 + 4 b c x = ( a - d ) 2 F y = 4 b c g = G 'δ05(ad)2+4bcx=(ad)2Fy=4bcg=G

H(δ)=Pr((ad)2+4bcδ)=Pr(xδy)=04F(δy)g(y)dy.

우리는 이것이 불쾌 할 것으로 예상 할 수 있습니다 . 균일 한 분포 PDF는 불연속 적이므로 의 정의를 깨뜨려야 합니다. 그래서 Mathematica 가 닫힌 형태 (여기서는 재현하지 않을 것입니다)를 얻는 것이 다소 놀랍 습니다. 와 관련하여이를 차별화 하면 원하는 밀도가 제공됩니다. 세 간격 내에서 부분 단위로 정의됩니다. 에서는 ,δ 0 < δ < 1Hδ0<δ<1

H(δ)=h(δ)=18(8δ+δ((2+log(16)))+2(δ2δ)log(δ)).

에서는 ,1<δ<4

h(δ)=14((δ+1)log(δ1)+δlog(δ)4δcoth1(δ)+3+log(4)).

그리고 에서4<δ<5

h(δ)=14(δ4δ4+(δ+1)log(4δ1)+4δtanh1((δ4)δδδδ4)1).

그림

이 그림 은 의 iid 실현 히스토그램 에서 플롯을 오버레이합니다 . 이 둘은 거의 구별 할 수 없으므로 에 대한 공식의 정확성을 암시합니다 .h106(ad)2+4bch


다음은 생각이 거의없고 무차별 대항 Mathematica 솔루션입니다. 실제로 계산에 대한 모든 것을 자동화합니다. 예를 들어 결과 변수의 범위를 계산할 수도 있습니다.

ClearAll[ a, b, c, d, ff, gg, hh, g, h, x, y, z, zMin, zMax, assumptions];
assumptions = 0 <= a <= 1 && 0 <= b <= 1 && 0 <= c <= 1 && 0 <= d <= 1; 
zMax = First@Maximize[{(a - d)^2 + 4 b c, assumptions}, {a, b, c, d}];
zMin = First@Minimize[{(a - d)^2 + 4 b c, assumptions}, {a, b, c, d}];

여기에 모든 통합과 차별화가 있습니다. (참을성있게; 계산하는 데 몇 분이 걸립니다.)H

ff[x_] := Evaluate@FullSimplify@Integrate[Boole[(a - d)^2 <= x], {a, 0, 1}, {d, 0, 1}];
gg[y_] := Evaluate@FullSimplify@Integrate[Boole[4 b c <= y], {b, 0, 1}, {c, 0, 1}];
g[y_]  := Evaluate@FullSimplify@D[gg[y], y];
hh[z_] := Evaluate@FullSimplify@Integrate[ff[-y + z] g[y], {y, 0, 4}, 
          Assumptions -> zMin <= z <= zMax];
h[z_]  :=  Evaluate@FullSimplify@D[hh[z], z];

마지막으로, 그래프에 대한 시뮬레이션 및 비교 :h

x = RandomReal[{0, 1}, {4, 10^6}];
x = (x[[1, All]] - x[[4, All]])^2 + 4 x[[2, All]] x[[3, All]];
Show[Histogram[x, {.1}, "PDF"], 
 Plot[h[z], {z, zMin, zMax}, Exclusions -> {1, 4}], 
 AxesLabel -> {"\[Delta]", "Density"}, BaseStyle -> Medium, 
 Ticks -> {{{0, "0"}, {1, "1"}, {4, "4"}, {5, "5"}}, Automatic}]

8
(+1), 특히 밀도 컨볼 루션에 대해 사람들에게 "종종 누적 분포 함수를 사용하는 것이 도움이됩니다" 라고 상기 시킵니다. 그리고 당신도 빨리 지냈어 요.
Alecos Papadopoulos 2016

이해하고 싶은 깔끔한 솔루션처럼 보입니다. 나는 영아보다 더 미적분입니다. 이 순간에 나는 세 가지 질문이 : 내가) 어떻게 얻을 수있는 CDF를 사용 했 와 , II)가 왜 와 의 통합에 따라 , 및 III)의 형태에서 당신을 어떻게 솔루션 결과가 부분적으로 나타납니다. F(x)G(y)FgH
corey979

(1) 와 CDF입니다. 그것들은 처음 등장한 후 첫 번째 평등으로 표시되는 CDF의 정의에서 계산됩니다. 자세한 내용은 내가 삽입 한 코드에 분명해야합니다. (2) 이것은 합계에 대한 컨볼 루션 공식입니다 ( stats.stackexchange.com/a/144237 에서 유사한 계산에 자세히 설명되어 있음 ). (3) 균일 분포의 속성에 대한 다른 스레드에 대한 링크를 삽입했습니다. FG
whuber

7

OP 및 whuber와 마찬가지로 독립성을 사용하여이를 간단한 문제로 나눕니다.

X=(ad)2Xf(x)

여기에 이미지 설명을 입력하십시오

와이=4와이(와이)

여기에 이미지 설명을 입력하십시오

엑스+와이TransformSum

TransformSum[{f,g}, z]

=엑스+와이

여기에 이미지 설명을 입력하십시오

h()

여기에 이미지 설명을 입력하십시오

빠른 몬테 카를로 확인

다음 다이어그램은 경험적 몬테카를로 pdf (파란색)의 근사치를 위에서 파생 된 이론적 pdf (빨간색 점선)와 비교합니다. 좋아 보인다.

여기에 이미지 설명을 입력하십시오

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.