数学建模社区-数学中国

标题: 求助 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# ?
如果只需要最后结果的话:
  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}]]]
复制代码
就搞定了$ Y  f. S' ^, @1 Q+ h
如果你还想看看这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实在太大,可能你要运算很久都不一定能搞的出最后结果。2 Y2 a, @  \( f
以上并没有用循环来实现你想要的功能,你如果非得想要用循环实现的话,那么你可以用DO函数来实现。mathematica有强大的帮助文档,不会用的话你可以去查查文档。




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5