以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于EXCEL 的函数 STDEVA 代码如何写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92787)
--  作者：cbt
--  发布时间：2016/11/13 9:40:00
--  关于EXCEL 的函数 STDEVA 代码如何写？
 关于EXCEL 的函数 STDEVA 代码如何写？
原来是怎样的，有个，方程式图，看都看不懂啊。。。
--  作者：有点色
--  发布时间：2016/11/13 10:59:00
--  

参考

 

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

 

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

 

[此贴子已经被作者于2016/11/13 11:00:57编辑过]
--  作者：cbt
--  发布时间：2016/11/13 11:11:00
--  
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(基本偏差)"))

用临时表实现了。。
--  作者：有点色
--  发布时间：2016/11/13 11:26:00
--  

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)
--  作者：有点色
--  发布时间：2016/11/13 11:27:00
--  

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)