主题：关于EXCEL 的函数 STDEVA 代码如何写？

 关于EXCEL 的函数 STDEVA 代码如何写？
原来是怎样的，有个，方程式图，看都看不懂啊。。。

参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=50013&skin=0

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84190&skin=0

 

Dim dtb As New DataTableBuilder("统计21")
dtb.AddDef("基本偏差", Gettype(Double))
Dim jbpy As DataTable=dtb.Build(True)
Dim args() As Double ={1,1,1,2,1} '需要 预算得 值
For i As Integer = 0 To args.length -1
    Dim dr As DataRow = jbpy.AddNew
    dr("基本偏差")=args(i)
Next

output.show(jbpy.Compute("STDEV(基本偏差)"))

用临时表实现了。。

mark 标准差

 

Dim datas() As Double = {1,1,1,2,1}
'求平均值
Dim x As Double
For i As Integer = 0 To datas.length - 1
    x = x + datas(i) / datas.length
Next
'求平方差
Dim s2 As Double
For i As Integer = 0 To datas.length - 1
    s2 = s2 + (datas(i) - x) ^ 2
Next
s2 = s2 / datas.length
Dim s As Double = math.Sqrt(s2)

msgbox(s)

mark 标准偏差

 

Dim datas() As Double = {1,1,1,2,1}
'求平均值
Dim x As Double
For i As Integer = 0 To datas.length - 1
    x = x + datas(i) / datas.length
Next
'求平方差
Dim s2 As Double
For i As Integer = 0 To datas.length - 1
    s2 = s2 + (datas(i) - x) ^ 2
Next
s2 = s2 / (datas.length-1)
Dim s As Double = math.Sqrt(s2)

msgbox(s)