Monomial Hyperribbons

(Sethna )
© 2024, James P . Sethna, all rights reserved .

xs[M_] := Table[m/(M-1.), {m,0,M-1}]
J[M_,N_]:= Table[Table[If[xi==0&&n==0,1,xi^n],{n,0,N-1}],{xi,xs[M]}]

MatrixForm[J[6,6]]
Det[J[6,6]]

Det[J[6,6]]

{U,Σ,V} = SingularValueDecomposition[J[11,6]];
Σ // MatrixForm
ratios = Table[Σ[[i,i]]/Σ[[i+1,i+1]],{i,1,Length[Σ[[1]]]-1}]