Erf

ERF 傳回誤差函數在上下限之間的積分。 如果該函數不可用，并傳回錯誤值 #NAME?，請安裝并加載“分析工具庫”加載宏。 在“工具”菜單上，單擊“加載宏”。 在“可用加載宏”清單中，選中“分析工具庫”框，再單擊“确定”。 如果必要，請遵循安裝程式中的訓示。 文法 ERF ( lower_limit ,upper_limit) Lower_limit    ERF 函數的積分下限。 Upper_limit    ERF 函數的積分上限。如果省略，ERF 将在零到下限之間進行積分。 說明 如果下限是非數值型，函數 ERF 傳回錯誤值 #VALUE!。 如果下限是負值，函數 ERF 傳回錯誤值 #NUM!。 如果上限是非數值型，函數 ERF 傳回錯誤值 #VALUE!。 如果上限是負值，函數 ERF 傳回錯誤值 #NUM!。 示例 如果您将示例複制到空白工作表中，可能會更易于了解該示例。 建立空白工作簿或工作表。 請在“幫助”主題中選取示例。不要選取行或列标題。 從幫助中選取示例。 按 Ctrl+C。 在工作表中，選中單元格 A1，再按 Ctrl+V。 若要在檢視結果和檢視傳回結果的公式之間切換，請按 Ctrl+`（重音符），或在“工具”菜單上，指向“公式稽核”，再單擊“公式稽核模式”。 1 2 3 A B 公式 說明（結果） =ERF(0.74500) 誤差函數在 0 與 0.74500 之間的積分值 (0.707929) =ERF(1) 誤差函數在 0 與 1 之間的積分值 (0.842701) VBA中使用時，可按下面方式調用： Sub macro1() MsgBox Application.Run("atpvbacs.xla!erf", 1) End Sub 對于X<=1，可使用如下自定義函數： Function erf(ByVal x As Single) As Single Dim i As Long, b(9) As Double b(0) = 1 erf = x For i = 1 To 9 b(i) = b(i - 1) * (2 * i + 1) erf = erf + 2 ^ i * x ^ (2 * i + 1) / b(i) Next erf = erf * Exp(-x * x) / Sqr(Atn(1)) End Function Sub macro1() MsgBox erf(1) End Sub 上述代碼傳回 0.8427008   <script language=javascript>if (typeof(FeedbackWizGenerateControl_Buttons) != 'undefined') FeedbackWizGenerateControl_Buttons('此資訊有用嗎?','是','否','我不知道','請告訴 Microsoft 此資訊對您有什麼幫助(可選):','請告訴 Microsoft 怎樣才能讓此資訊更有幫助(可選):','請告訴 Microsoft 您想做什麼(可選):','後退','送出','正在送出您的回報。','感謝您向 Microsoft 送出回報。','您需要支援，或者希望對某個産品提出一些建議嗎? {0}。','與我們聯系','http://office.microsoft.com/search/redir.aspx?assetid=FX101538732052','更改我的回報','雖然我們不能對每條意見單獨進行答複，但是 您的回報将幫助我們不斷改進我們提供的資訊。','100%');</script>

<script type=text/javascript>var gProductionDomains="office.microsoft.com";var gLinkT="assetid=xt";var gDomain="m.webtrends.com";var gTrackEvents;if (((typeof(gTrackEventsOverride) != 'undefined') && gTrackEventsOverride) || false){gTrackEvents = 1;} else {gTrackEvents = 0;}var wt_a=gProductionDomains.split(',');var wt_b=0;for(var i=0;i ");}</script> <script src="/_Services/Ont/wt.js" type=text/javascript></script>