编译函数提高计算速度

Question

gaussianEnvelope::usage="产生高斯包络,4\[Tau]是函数的衰减位置";
Begin["`Private`"];
gaussianEnvelope[\[Tau]_]:=Function[t,Exp[-2 Log[2]((t-2 \[Tau])/\[Tau])^2]]
End[];

这是我在程序包中定义的函数,因为要在程序中多次调用这个函数进行求解，想请教一下怎样能加速，比如编译的方法？谁能给我点思路？

Answer 1

编译可以看帮助里的介绍，也可以看这贴，看PAUL WELLIN的《Programming with Mathematica An Introduction》12.4小节Compiling

gaussianEnvelope = 
  Function[{t, \[Tau]}, Exp[-2 Log[2] ((t - 2 \[Tau])/\[Tau])^2]];
gaussianEnvelopeC = 
  Compile[{{t, _Real}, {\[Tau], _Real}}, 
   Exp[-2 Log[2] ((t - 2 \[Tau])/\[Tau])^2]];
Do[gaussianEnvelope[2, 3], {1000}] // AbsoluteTiming
Do[gaussianEnvelopeC[2, 3], {1000}] // AbsoluteTiming
gaussianEnvelope[2, 3] == gaussianEnvelopeC[2, 3]

返回：

{0.0129815, Null}
{0.000574438, Null}
True

 

Comments

非常感谢您的回答，对我很有帮助，谢谢您