Metric given by means of a positive definite symmetric matrix

> F:=linalg[hilbert](3):

> S:=GRAM_SCHMIDT(A,F);

[Maple Math]

Testing the output