• Erf


     
    ERF

    返回误差函数在上下限之间的积分。

    如果该函数不可用,并返回错误值 #NAME?,请安装并加载“分析工具库”加载宏。

    1. 在“工具”菜单上,单击“加载宏”。
    2. 在“可用加载宏”列表中,选中“分析工具库”框,再单击“确定”。
    3. 如果必要,请遵循安装程序中的指示。

    语法

    ERF(lower_limit,upper_limit)

    Lower_limit   ERF 函数的积分下限。

    Upper_limit   ERF 函数的积分上限。如果省略,ERF 将在零到下限之间进行积分。

    说明

    • 如果下限是非数值型,函数 ERF 返回错误值 #VALUE!。
    • 如果下限是负值,函数 ERF 返回错误值 #NUM!。
    • 如果上限是非数值型,函数 ERF 返回错误值 #VALUE!。
    • 如果上限是负值,函数 ERF 返回错误值 #NUM!。

      公式

      公式

    示例

    如果您将示例复制到空白工作表中,可能会更易于理解该示例。

    创建空白工作簿或工作表。

    1. 请在“帮助”主题中选取示例。不要选取行或列标题。

      从帮助中选取示例。

      从帮助中选取示例。
    2. 按 Ctrl+C。
    3. 在工作表中,选中单元格 A1,再按 Ctrl+V。
    4. 若要在查看结果和查看返回结果的公式之间切换,请按 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

     

     

     

        
     
     
  • 相关阅读:
    String 中的秘密
    delphi中一切皆指针
    Servlet容器模型(四)ServletConfig、ServletContext
    用DELPHI的RTTI实现对象的XML持久化
    通过崩溃地址找错误行数之Delphi版
    delphi json(CDS包含了Delta数据包)
    Delphi中JSon SuperObject 使用:数据集与JSON对象互转
    用Delphi实现Windows的鼠标钩子函数
    HDU--1213--How Many Tables--并查集
    用DELPHI的RTTI实现数据集的简单对象化
  • 原文地址:https://www.cnblogs.com/fengju/p/6336245.html
Copyright © 2020-2023  润新知