返回列表 上一主題 發帖

[轉貼] 頻數和累積頻數的計算方法

[轉貼] 頻數和累積頻數的計算方法

'頻數和累積頻數的計算方法
Option Explicit
'P(1 To 行數,1 To 列數):原始資料
'R(1 To 3,1 To 分段數):
'   R(1,...)保存段值;R(2,...)保存頻數;R(3,...)保存累積頻數
Public Sub Fre_Add(P, R)
    Dim I As Integer, J As Integer, L As Integer
    Dim M As Integer, N As Integer, Z As Integer
'根據陣列求下標的上界
'M是數據的行數
'N是數據的列數
'Z是資料的分段數
    M = UBound(P, 1): N = UBound(P, 2): Z = UBound(R, 2)
'計算頻數
    For I = 1 To M
        For J = 1 To N
            For L = 1 To Z
                If P(I, J) <= R(1, L) Then
'落入區間範圍
                    R(2, L) = R(2, L) + 1
                    GoTo 100
                End If
            Next L
100:    Next J
    Next I
'計算累積頻數
    For L = 1 To Z
        R(3, L) = R(2, L)
    Next L
    For L = 2 To Z
        R(3, L) = R(3, L) + R(3, L - 1)
    Next L
End Sub
程式人員

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題