求助 mathmatica 多层循环

dabaixiaocai

函数f(x1,x2,x3,x4,x5)，没一个变量都要实现从0到20的计算，然后求和，请大侠帮忙设计个循环程序。

linanisyugioh

你只需要最后的和，还是说同时需要20×20×20×20×20个函数值以及最后这20×20×20×20×20的求和结果？？
# V/ w0 p, p- r7 ~+ I如果只需要最后结果的话：

1. Fold[Plus, 0, Flatten[Table[f[x1, x2, x3, x4, x5], {x1, 0, 20}, {x2, 0, 20}, {x3, 0, 20}, {x4, 0, 20}, {x5, 0, 20}]]]

复制代码

就搞定了
如果你还想看看这20×20×20×20×20个函数值的话：

1. Flatten[Table[f[x1, x2, x3, x4, x5], {x1, 0, 20}, {x2, 0, 20}, {x3, 0, 20}, {x4, 0, 20}, {x5, 0, 20}]]

复制代码

理论上这样是可以实现的，不过鉴于20×20×20×20×20实在太大，可能你要运算很久都不一定能搞的出最后结果。
以上并没有用循环来实现你想要的功能，你如果非得想要用循环实现的话，那么你可以用DO函数来实现。mathematica有强大的帮助文档，不会用的话你可以去查查文档。