hurst指数问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在百度找到的程序，关于hurst指数计算。但是数据超过500后，excel卡死，请教高手调试，能计算数据达到2万，谢谢了
Option Base 1

'This program calculates an estimate of the Hurst coefficient.
'Written by Martin Sewell <martin@martinsewell.com>

Sub Hurst()

    Dim Data()
    Dim Array1()
    Dim Array2()
    Dim Mean
    Dim Result()

    Dim NoOfDataPoints As Integer

    Dim NoOfPlottedPoints As Integer
    Dim PlottedPointNo As Integer

    Dim NoOfPeriods As Integer
    Dim PeriodNo As Integer

    Dim n As Integer
    Dim i As Integer
    Dim m As Integer
    Dim logten
    Dim R
    Dim S
    Dim RS
    Dim SumSquared

    logten = Log(10)

    'Delete any previous results
    Worksheets("Data").Range("C3").Value = Null
    Worksheets("Data").Range("D:D").Value = Null
    Worksheets("Data").Range("E:E").Value = Null

    'Get total number of data points
    NoOfDataPoints = Worksheets("Data").Range("C1").Value

    ReDim Data(NoOfDataPoints)

    'Get data, ignoring any spaces
    i = 1
    counter = 1
    Do While counter <= NoOfDataPoints
        Set curCell = Worksheets("Data").Cells(i, 1)
        If Application.WorksheetFunction.IsNumber(curCell.Value) Then
            Data(counter) = curCell.Value
            counter = counter + 1
        End If
        i = i + 1
    Loop

    NoOfPlottedPoints = NoOfDataPoints - 2
    ReDim Result(NoOfPlottedPoints, 2)

    'Begin main loop
    For n = 50 To NoOfDataPoints

        totalR = 0
        totalS = 0

        NoOfPeriods = NoOfDataPoints - n + 1

        For PeriodNo = 1 To NoOfPeriods
            ReDim Array1(n)
            ReDim Array2(n)

            For i = 1 To n
                Array1(i) = Data((PeriodNo - 1) + i)
                Array2(i) = 0
            Next i

            Summ = 0
            SumSquared = 0
            For i = 1 To n
                Summ = Summ + Array1(i)
                SumSquared = SumSquared + ((Array1(i)) * (Array1(i)))

            Next i
            Mean = Summ / n

            'STDEV
            'S = Sqr((SumSquared - (Summ * Summ) / N) / (N - 1))

            'STDEVP
            S = Sqr((SumSquared - (Summ * Summ) / n) / n)

            For i = 1 To n
                Array1(i) = Array1(i) - Mean
            Next i

            For i = 1 To n
                For j = 1 To i
                    Array2(i) = Array2(i) + Array1(j)
                Next j
            Next i

            Maxi = Array2(1)
            Mini = Array2(1)
            For i = 1 To n
                If Array2(i) > Maxi Then Maxi = Array2(i)
                If Array2(i) < Mini Then Mini = Array2(i)
            Next i

            R = Maxi - Mini
            totalR = totalR + R
            totalS = totalS + S

        Next PeriodNo

        R = totalR / NoOfPeriods
        S = totalS / NoOfPeriods
        RS = R / S

      PlottedPointNo = n - 2
        Result(PlottedPointNo, 1) = (Log(n)) / logten
        Result(PlottedPointNo, 2) = (Log(RS)) / logten

    Next n

    sumx = 0
    Sumy = 0
    Sumxy = 0
    Sumxx = 0

    For i = 1 To NoOfPlottedPoints
        Worksheets("Data").Cells(i + 6, 4).Value = Result(i, 1)
        Worksheets("Data").Cells(i + 6, 5).Value = Result(i, 2)
        sumx = sumx + Result(i, 1)
        Sumy = Sumy + Result(i, 2)
        Sumxy = Sumxy + (Result(i, 1)) * (Result(i, 2))
        Sumxx = Sumxx + (Result(i, 1)) * (Result(i, 1))
    Next i

    'Calculate Hurst coefficient
    H = (Sumxy - ((sumx * Sumy) / NoOfPlottedPoints)) / (Sumxx - ((sumx * sumx) / NoOfPlottedPoints))
    Worksheets("Data").Range("C3").Value = H

End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Hurst指数 hurst Urs coefficient worksheets excel宏_Hurst指数计算 资料