3.2 Ordered densities of squared singular values of a Gaussian matrix product

This rather simple result is a humble acknowledgment of the great work in finite-size random matrix theory (RMT) by Prof. Gernot Akemann and team at Uni Bielefeld. For finding the ordered densities, a straightforward recursive formulation, in terms of the MeijerG function, based on the work of Alberto Zanella at CNR in Italy, is utilized.

Note: Several integration formulas for the MeijerG function are known, e.g., see the MeijerG function reference. Although the expressions are complex, they can be numerically evaluated quite easily via Mathematica or MATLAB. It amazes me that these finite-size RMT densities are even analytically approachable, although, undoubtedly, the asymptotic RMT theory is “more elegant.”

The theorem is as follows. See below for Mathematica code and numerical simulations.

Theorem 7.

Let 𝐗 and 𝐘 be independent m×l and l×q random matrices, respectively, qml, with identical and independently distributed elements [𝐗]ij,𝒞𝒩(0,1),i=1,,m,j=1,,l, and [𝐘]ij,𝒞𝒩(0,1),i=1,,l,j=1,,q, respectively. Let x1xq denote the squared singular values of the product 𝐗𝐘. The pdf of the k-th squared singular value of 𝐗𝐘, denoted by qk(xk;m,l,q), is given by

qk(xk;m,q)=Kqkhk[k,(),()](xk;m,l,q), (3.1)

where Kqk is a constant ensuring that the integral over the pdf is equal to one, and function hk[d,𝐧,𝐦](xk;m,q) is given by the recurrence relation

i=1|[d,𝒏]|j=1|[d,𝒎]|hk[d1,𝒏,𝒎](xk;m,l,q), (3.2)

[l,(),()] denotes the initial value of [d,𝐧,𝐦], and “()” denotes the empty tuple. Tuples 𝐧 and 𝐦 are updated as 𝐧𝐧{(i,[[d,𝐧]]i)} and 𝐦𝐦{(j,[[d,𝐦]]j)}, where i and j are the summation indices in (3.2), and [[d,𝐧]]i and [[d,𝐦]]j are the i-th and j-th elements of sets [d,𝐧] and [d,𝐦], respectively, defined as [d,𝐧]{1,2,,q}π2(𝐧) and [d,𝐦]{1,2,,q}π2(𝐦). Next, the termination step is given below

hk[1,𝒏,𝒎](xk;m,q) =i=1|[d,𝒏]|j=1|[d,𝒎]|s(𝒏,𝒎)G[2002](v2+n1,m+n+v12|xk)
×det𝚵(k,m,q,[d+1,𝒏],[d+1,𝒎])
×p=1k1G[3013](10,v2+[[d,𝒏]]p,[[d,𝒎]]p+[[d,𝒏]]p+v11|xk) (3.3)

where v1=lq,v2=mq, G is the Meijer G function [15], 𝚵(k,m,q,[d+1,𝐧],[d+1,𝐦]) is a (ql)×(ql) matrix with elements

[G[2113](1v2+n,m+n+v11,0|xk)]ij, (3.4)

and i,j=1,,ql,

s(𝒏,𝒎) =(1)i=1|𝒏|[π1(𝒏)]i+[π1(𝒎)]i, (3.5)

and γ(,) denotes the lower incomplete Gamma function.

Second projection notation: Let set s:={(1,2),(3,4),(5,6)} be a set containing three tuples. Then, π2(s) is the second projection of s given by π2(s)={2,4,6}. Below, a sketch of the proof for completeness.

Proof.

The joint pdf of the squares of the singular values of 𝑿𝒀 is given in [1, (18)],[9] as

Kq1i<jq(xjxi)det𝚫, (3.6)

where 𝚫 is a q×q matrix with elements

[G[2002](v2,v1+j1|xi)]ij, (3.7)

with i,j=1,,q. The pdf of the k-th eigenvalue can be obtained via the procedure given in [19, Sec. IV-B] utilizing the function

φ(n,m,x)=G[2002](v2+n1,m+n+v12|x), (3.8)

and the integrals in [1, (A7)] and [15] to integrate over the Meijer G function. Lastly, the multiple summations in [19, Sec. IV-B] can be equivalently reformulated to obtain the recursive definition given in (3.2) and (3.3). ∎

3.2.1 Mathematica Reference Code

Now, a Mathematica package for evaluating the ordered densities is as follows. Here, in xyz[symb_, l, v_2, v_1, q_], symb is the desired symbol for the variable, e.g., x,l is the index (corresponding to k in the theorem), v1,v2, and q are as in the theorem above.

(* ::Package:: *)
BeginPackage["xyl`"]
(*** Exported Symbol ***)
xyl
Begin["`Private`"]
\[CurlyPhi][v2_, v1_, q_, n_, m_] := MeijerG[{{}, {}}, {{v2+n-1, m + n+v1 - 2}, {}}, s];
Iup[v2_, v1_, q_, n_, m_] := MeijerG[{{}, {1}}, {{0, v2+n, m + n+v1 - 1}, {}}, s];
Idown[v2_, v1_, q_, n_, m_] := MeijerG[{{1}, {}}, {{v2+n, m + n+v1 -1}, {0}}, s];
r[i_, n_, q_] := Complement[Range[q], n][[i]]
sg[n_, m_, q_] := Product[(-1)^(FirstPosition[Complement[Range[q], m[[1 ;; i - 1]]], m[[i]]] + FirstPosition[Complement[Range[q], n[[1 ;; i - 1]]], n[[i]]]), {i, 1, Length[n]}]
Dmat[l_, v2_, v1_, q_, ns_, ms_] := Piecewise[{{1, l == q}}, Det[Table[Idown[v2, v1, q, r[n, ns, q], r[m, ms, q]], {n, 1, q - l}, {m, 1, q - l}]]]
xylpdf[l_, v2_, v1_, q_, d_, ns_, ms_] := Sum[xylpdf[l, v2, v1, q, d - 1, Append[ns, n], Append[ms, m]], {n, Complement[Range[q], ns]}, {m, Complement[Range[q], ms]}]
xylpdf[l_, v2_, v1_, q_] := xylpdf[l, v2, v1, q, l, {}, {}]
xylpdf[l_, v2_, v1_, q_, 1, ns_, ms_] := Product[Iup[v2, v1, q, ns[[i]], ms[[i]]], {i, 1, l - 1}]*
Sum[\[CurlyPhi][v2, v1, q, n, m]*sg[Append[ns, n], Append[ms, m], q]*Dmat[l, v2, v1, q, Append[ns, n], Append[ms, m]], {n, Complement[Range[q], ns]}, {m, Complement[Range[q], ms]}]
xyl[symb_,l_?NumericQ,v2_?NumericQ,v1_?NumericQ,q_?NumericQ] := xylpdf[l, v2, v1, q]/(Product[Gamma[n] Gamma[n+v1] Gamma[n+v2],{n,1,q}] Factorial[l-1]) /. s->symb ;
End []
EndPackage[]

3.2.2 Numerical Results

Lastly, the numerical simulations for v1=6,v2=2, and q=2. We see that the results based on the above expressions and those based on Monte-Carlo simulations agree well.

[Uncaptioned image]

- ARK

3.2.3 Version History

  1. 1.

    First published: 9th Jul. 2022 on aravindhk-math.blogspot.com

  2. 2.

    Edited: 16th Dec. 2023 – converted theorem and proof images to