灰袍法师请进，这个可能有点难

andy3303

用VBA有个问题发现很头疼，在多层循环中时间太长了，能不能分成1000个或者更多的同时计算的过程？
例如，以下程序要运行约300天，能不能按i值分成1000个同时计算的过程？如果在VBA中不方便实现，用什么工具能实现？谢谢了先，法师。
Sub example()
Dim i&, j&, k&
For i = 1 To 1000
For j = 1 To 500
  For k = 1 To 500
    Call exam0 '每次运行需0.1秒
  Next
Next
Next
End Sub

xinhunter

坐等法师改代码

灰袍法师

关键是你的 exam0 是干什么的？
没必要做 2亿5千万次吧？？？

andy3303

灰袍法师 发表于 2012-10-9 18:40
关键是你的 exam0 是干什么的？
没必要做 2亿5千万次吧？？？

谢谢回复。把例子改成这样试试。
相当于枚举一个三元函数定义域，求值域最大值。
Sub example()
Dim i&, j&, k&, m#，exa#
For i = 1 To 1000
For j = 1 To 500
  For k = 1 To 500
      exa = Rnd / i + Rnd / j + Rnd / k
      If exa > m Then
      m = exa
      End If
  Next
Next
Next
End Sub

灰袍法师

andy3303 发表于 2012-10-9 23:37
谢谢回复。把例子改成这样试试。
相当于枚举一个三元函数定义域，求值域最大值。
Sub example()

求最大值用规划求解即可
没必要随机搞几亿次
我猜测你是要求 f(x,y,z) = 1/x + 1/y + 1/z  x=[1,1000], y=[1,500], z=[1,500] 的最大值

andy3303

灰袍法师 发表于 2012-10-10 04:01
求最大值用规划求解即可
没必要随机搞几亿次
我猜测你是要求 f(x,y,z) = 1/x + 1/y + 1/z  x=[1,1000], ...

谢谢回复，这只是举个例子，事实上f(x,y,z) 函数很复杂，需要用到工作表中的很多数据。变量也不是想，yxz三个，而是10几个。需要一一枚举。以前用表格计算，完全不行，计算一组需要2-3秒，计算深度很浅，步长用10。最近学了vba,每组大约0.13秒，效率提高了20倍，因此希望增加计算深度，将步长改为1，发现耗时巨大，无法运行下去了。
上例中，如果步长为10，计算时间也只有几个小时。看到CPU的使用并不是很多，完全可以接纳更多运算，因此希望找到让cpu满负荷工作，同时计算很多组参数的方法。
我想，搜索引擎能在很短时间内搜索大量范围并给出结果，是因为把任务分配给了很多其它的计算工具，那么，个人电脑是否也有类似分解cpu的功能呢？

疾风、骑士

新人路过。。。。表示楼主好礼貌。。。。

灰袍法师

andy3303 发表于 2012-10-10 09:57
谢谢回复，这只是举个例子，事实上f(x,y,z) 函数很复杂，需要用到工作表中的很多数据。变量也不是想，yxz ...

我觉得不大可能要穷举才能得到最大值
你还是说清楚你的函数是怎么回事吧
VBA只能用单个CPU核心，所以你看CPU占用率似乎不高，实际上已经是单个核心 100% 占用了。
所以没办法
你改用VB编译，可以再增加5倍左右速度，改用C语言可以增加10-20倍速度，还可以多核运算
问题是：我认为没什么东西是需要这样穷举的。。。。。。

younges

这种玩意儿，建议用只能算法进行计算。推荐个只能算法：粒子群算法。这个算法相对简单点

andy3303

younges 发表于 2012-10-10 20:14
这种玩意儿，建议用只能算法进行计算。推荐个只能算法：粒子群算法。这个算法相对简单点

感谢！我搜搜什么是粒子群算法。