Mathematica 7是否支持延迟评估?

很晚了,所以只有一个简短的回答:调查 Hold[] 及其亲属。使用它们,您可以实现懒惰的评估函数。大多数内在的数学函数并不懒惰,有一些是。一般来说,作为一个初学者,您应该避免修改Mathematica内在函数的行为,尽管这样做很有趣,而且很容易使整个系统无法使用。

你可以通过自己建立对角线的未成年人列表然后应用来解决这个问题。 Det ,对于矩阵 M :

Map[Det,Drop[Transpose[Drop[M,{#}]],{#}]& /@ Range[1,Dimensions[M][[1]]]]

这有点笨拙,但比使用Mathematica内置的方法快50倍。 Minors 只选取对角线元素(在100x100随机矩阵上测试)。

一般来说,没有数学家不懒惰。

top/@G 

将生成一个对角运算的矩阵。 由于未成年人不在矩阵的各个元素上操作,根据我的知识,你所要求的也不是懒惰的评估。

不过,我想我有一个解决办法。

Clear[f];
Diagonal[Minors[G,Length[G],f]]/.f->Det

这个解只会产生要用对角线求和的对角线元素的次方。 但我只将多余的计算转移到了多余的内存使用问题上。因为非对角元素的子矩阵仍然只会被丢弃。 如果我想办法防止这种情况的发生,我会再发一次。