RosettaCodeData/Task/Call-a-foreign-language-function/Stata/call-a-foreign-language-function-3.stata

. hilbert mymat 4

. matrix list mymat

symmetric mymat[4,4]
           c1         c2         c3         c4
r1          1
r2         .5  .33333333
r3  .33333333        .25         .2
r4        .25         .2  .16666667  .14285714