数学建模社区-数学中国
标题:
求助 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的求和结果??
6 }# R2 t# x: M1 c# ?
如果只需要最后结果的话:
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}]]]
复制代码
就搞定了
$ Y f. S' ^, @1 Q+ h
如果你还想看看这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实在太大,可能你要运算很久都不一定能搞的出最后结果。
2 Y2 a, @ \( f
以上并没有用循环来实现你想要的功能,你如果非得想要用循环实现的话,那么你可以用DO函数来实现。mathematica有强大的帮助文档,不会用的话你可以去查查文档。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5