多くの場合、累積分布関数を使用すると役立ちます。
最初、
F(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でを書くと、計算する必要がありますδ05(a−d)2+4bcx=(a−d)2Fy=4bcg=G′
H(δ)=Pr((a−d)2+4bc≤δ)=Pr(x≤δ−y)=∫40F(δ−y)g(y)dy.
我々はできる期待し、これはnasty--する一様分布のPDFが不連続であるので、の定義にブレークを作るべきやや驚くべきである、-SO Mathematicaは(私はここでは再現しません)閉じた形式を取得します。に関して微分すると、目的の密度が得られます。3つの間隔内で区分的に定義されます。で、Hδ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実現のヒストグラムにプロットをオーバーレイします。2つはほとんど区別がつかず、の式の正確さを示唆しています。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}]