Metric given by means of a positive definite symmetric matrix

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

> T:=Gram_schmidt(A,F);

Testing the output