请问一下，这个积分如何使用for循环实现？并定义积分间隔。谢谢

level 1

ae86Sorry 楼主

小弟初学者。如图，用Nintegrate耗时太长了，有没有节省运算时间的办法呢？另外，用for循环如何实现这个积分呢？最好是可以设置间隔。It1 = NIntegrate[Expr1*r1*r2, {r1, 0, 3.5}, {r2, 0, 3.5},
PrecisionGoal -> 12];

2020年02月29日 02点02分 1

吧务

level 15

xzcyr

1. PrecisionGoal这选项没事别动，更多内容参：https://mathematica.stackexchange.com/q/118249/1871
2. 改用初等的积分规则（如梯形积分法）是可以提速，但请注意这是以牺牲精度为代价的，积分性质若是不好，可能会错得离谱。
3. 别用For，具体参：https://tieba.baidu.com/p/5104865347

2020年02月29日 03点02分 2