종종 누적 분포 함수를 사용하는 데 도움이됩니다.
먼저,
에프(x)=Pr((a−d)2≤x)=Pr(|a−d|≤x−−√)=1−(1−x−−√)2=2x−−√−x.
다음,
G(y)=Pr(4bc≤y)=Pr(bc≤y4)=∫y/40dt+∫1y/4ydt4t=y4(1−log(y4)).
하자 최소 사이의 범위 ( ) 및 최대 ( 의) 가능한 값 . 쓰기 CDF와 와 PDF와 , 우리는 계산에 필요0 5 ( a - d ) 2 + 4 b c x = ( a - d ) 2 F y = 4 b c g = G 'δ05(a−d)2+4bcx=(a−d)2Fy=4bcg=G′
H(δ)=Pr((a−d)2+4bc≤δ)=Pr(x≤δ−y)=∫40F(δ−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δ√coth−1(δ√)+3+log(4)).
그리고 에서4<δ<5
h(δ)=14(δ−4δ−4−−−−√+(δ+1)log(4δ−1)+4δ√tanh−1((δ−4)δ−−−−−−√−δ√δ−δ−4−−−−√)−1).
이 그림 은 의 iid 실현 히스토그램 에서 플롯을 오버레이합니다 . 이 둘은 거의 구별 할 수 없으므로 에 대한 공식의 정확성을 암시합니다 .h106(a−d)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}]