县域义务教育均衡发展差异系数测算函数
- 格式:doc
- 大小:29.00 KB
- 文档页数:2
Rem ************************************************************ Rem 作者: 周叶成
Rem 功能: 县域义务教育均衡发展差异系数测算函数
Rem 版本: 1.0
Rem ************************************************************ Rem ╭⌒╮⌒╮︸︷﹀︿
Rem ╱◥██◣Home ﹀︷︸
Rem |田|田田|﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏|
Rem ╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬|
Rem 单位:新疆精河县教育局
Rem 邮箱:jhzhych@
Rem Q Q:414744348
Rem ************************************************************
Function 差异系数(PSerial, XSerial) As Variant
Dim P As Variant
Dim OX As Variant
Dim S As Double
Dim arrP() As Double
Dim arrX
Dim arrOX() As Double
Dim sP As Double
Dim sOX As Double
Dim sX As Double
Dim XBar As Double
Dim i As Long
Dim q As String
xcount = Application.WorksheetFunction.Count(PSerial)
fcount = Application.WorksheetFunction.Count(XSerial)
q = "区域不匹配!"
If xcount <> fcount Then
差异系数= q
Exit Function
End If
i = 0
For Each P In PSerial
i = i + 1
ReDim Preserve arrP(1 To i)
arrP(i) = P
Next
i = 0
For Each OX In XSerial
i = i + 1
ReDim Preserve arrOX(1 To i)
arrOX(i) = OX
Next
sP = WorksheetFunction.Sum(arrP) '计算求和sOX = WorksheetFunction.Sum(arrOX) '计算求和
'计算Xi
arrX = arrOX
For i = LBound(arrX) To xcount
arrX(i) = XSerial(i) / PSerial(i)
Next
XBar = sOX / sP '计算XBar=SUM(OX)/SUM(P)
'计算S
For i = LBound(arrX) To UBound(arrX)
S = S + (arrP(i) / sP) * (arrX(i) - XBar) ^ 2 Next
S = S ^ 0.5
差异系数= S / XBar
End Function。