用Mathematica求给定双线性型的标准正交基

1、假设向量u={a巳呀屋饔,b}是标准正交基里面的一个向量，那么：u'.A.u=1这其实是一个不定方程，可以用a表示b：s1=Solve[u.A.u == 1, b]b有两个解，我们可以选择第一个。

3、这样，可以分别写出u和v：u = u /. s1[[1]]v = v /. s2[[1]]

5、重新写u和v：u = u /. s3[[1]]v = Simplify[v /. s3[[1]]]

7、a->0的结果是：u = u /. a -> 0v = v /. a -> 0