wolfram-mathematica - 如何加快一个巨大函数的计算时间（500+ 项）

Question

我有一个具有大量项（500+）的函数（3 个空间维度 + 1 个维度时间）：它主要是许多指数函数的总和。

当然，我需要计算更多次。现在我使用的是一个编译的表格，然后是一个类似的 ParallelTable（funcx、funy 和 funz 是涉及许多术语的函数）：

  MyFuncCompiled=Compile[{{x, _Real}, {y, _Real}, {z, _Real}, {t111, _Real}},Chop[(Funcx[x, y, z, t111] + Funcy[x, y, z, t111] + Funcz[x, y, z, t111])/3],Parallelization -> True, CompilationTarget -> "C"];

  ParallelTable[MyFuncCompiled[i, j, k, h]; {i, -Pi/2, 3 Pi/2 - Step, Step}, {j, -Pi/2,3 Pi/2 - Step, Step}, {k, Pi/2, 5 Pi/2 - Step, Step}, {h, -16, 16,8}];

我已经尝试过 Simplify 和 FullSimplfy （在 Funcx ... 函数上），但没有简化。

你有什么建议吗？谢谢