Adakah yang bisa menyarankan bagaimana saya dapat menghitung momen kedua (atau seluruh fungsi menghasilkan momen) dari cosinus dari dua vektor acak gaussian , masing-masing didistribusikan sebagai , independen satu sama lain? IE, momen untuk variabel acak berikut
Pertanyaan terdekat adalah fungsi menghasilkan Momen dari produk dalam dari dua vektor acak gaussian yang memperoleh MGF untuk produk dalam. Ada juga jawaban ini dari mathoverflow yang menghubungkan pertanyaan ini dengan distribusi nilai eigen dari matriks kovarian sampel, tetapi saya tidak segera melihat bagaimana menggunakannya untuk menghitung momen kedua.
Saya menduga bahwa skala momen kedua sebanding dengan setengah norma nilai eigen karena saya mendapatkan hasil ini melalui manipulasi aljabar untuk 2 dimensi, dan juga untuk 3 dimensi dari tebak-dan-periksa. Untuk nilai eigen menambahkan hingga 1, momen kedua adalah:
Menggunakan berikut ini untuk pemeriksaan numerik
val1[a_, b_, c_] := (a + b + c)/(Sqrt[a] + Sqrt[b] + Sqrt[c])^2
val2[a_, b_, c_] := Block[{},
x := {x1, x2, x3};
y := {y1, y2, y3};
normal := MultinormalDistribution[{0, 0, 0}, ( {
{a, 0, 0},
{0, b, 0},
{0, 0, c}
} )];
vars := {x \[Distributed] normal, y \[Distributed] normal};
NExpectation[(x.y/(Norm[x] Norm[y]))^2, vars]]
val1[1.5,2.5,3.5] - val2[1.5,2.5,3.5]
Memeriksa rumus untuk 4 variabel (dalam batas numerik):
val1[a_, b_, c_,
d_] := (a + b + c + d)/(Sqrt[a] + Sqrt[b] + Sqrt[c] + Sqrt[d])^2
val2[a_, b_, c_, d_] := Block[{},
x := {x1, x2, x3, x4};
y := {y1, y2, y3, y4};
normal :=
MultinormalDistribution[{0, 0, 0,
0}, {{a, 0, 0, 0}, {0, b, 0, 0}, {0, 0, c, 0}, {0, 0, 0, d}}];
vars := {x \[Distributed] normal, y \[Distributed] normal};
NExpectation[(x.y/(Norm[x] Norm[y]))^2, vars]]
val1[0.5, 1.5, 2.5, 3.5] - val2[0.5, 1.5, 2.5, 3.5]