關于ＥＭＰ雙指數函數的實現

ｖｂａ中編輯函數：
Function ExcitationFunction(dtime As Double) As Double

   'Assign the excitation signal value for the given time to the function name.

   ExcitationFunction = 52500*(Exp(-4000000*dtime)-Exp(-476000000*dtime))

End Function
保存可．注意ＴＯＴＡＬ＝０.０００００００１