数学建模社区-数学中国

标题: 求助 mathmatica 多层循环 [打印本页]

作者: dabaixiaocai 时间: 2013-1-19 18:41
标题: 求助 mathmatica 多层循环
函数f(x1,x2,x3,x4,x5)，没一个变量都要实现从0到20的计算，然后求和，请大侠帮忙设计个循环程序。

作者: linanisyugioh 时间: 2013-4-22 20:31
你只需要最后的和，还是说同时需要20×20×20×20×20个函数值以及最后这20×20×20×20×20的求和结果？？
如果只需要最后结果的话：

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个函数值的话：

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有强大的帮助文档，不会用的话你可以去查查文档。

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)