Process Gram-Schmidt过程-Maple实现

我正在寻找完整的代码在枫叶克施密特过程。我在MatLab中找到了一个，但我不能“翻译”它。我知道Maples库中有GramSchmidt方法，但我需要完整的代码。

---

有人知道怎么写吗？也许有人已经做过了

从Maple自己的库实现代码开始，看看你能从中得到什么？它们不是很复杂

例如，对于向量集（或列表）（大写V-

向量

）

对于一组（或列表）列表或现在不推荐使用的向量（小写v-

vector

）

---

“询问代码的问题必须表明对正在解决的问题的最低理解。包括尝试的解决方案、为什么不起作用以及预期的结果。”

restart:
interface(verboseproc=3):
print(LinearAlgebra:-GramSchmidt);

restart:
interface(verboseproc=3):
print(linalg[GramSchmidt]);