您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識>>正文內容

求助:轉化代碼 [金字塔]

  • 咨詢內容:  

    這是一個HURET指數的代碼,請求您:

    1、能不能轉化成金字塔中能夠計算和運行的代碼嗎?

    2、這個是VB代碼,這個和金字塔語言的轉換的關鍵是什么呢?

     

    '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 = 3 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

     

  • 金字塔客服: 能不能把思路寫出來?

 

如果以上指標公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態個股的話,

可以聯系我們相關技術人員 QQ: 262069696  點擊在線交流進行 有償 改編!

 


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 太深了灬舒服灬太爽了| 最近最新中文字幕完整版免费高清 | 真实国产乱子伦在线观看| 国产亚洲精品无码专区| 欧美在线色视频| 国产精品熟女一区二区| 99精品国产在热久久| 好爽好紧好多水| 丁香六月在线观看| 我的娇妻acome| 久久久久久久综合日本| 日韩中文无码有码免费视频| 亚洲一级大黄大色毛片| 欧美日韩亚洲一区二区精品| 亚洲熟女乱色一区二区三区 | yellow免费网站| 性欧美黑人巨大| 中文在线√天堂| 成人高清毛片a| 中文字幕精品一区二区| 日本乱子伦xxxx| 久久精品亚洲日本佐佐木明希 | 国产高清在线看| 99精产国品一二三产| 天天射天天爱天天干| www..99557c..com| 妖精视频一区二区三区| 一本到在线观看视频| 强开小婷嫩苞又嫩又紧韩国视频 | 亚洲av永久无码精品三区在线4| 欧美疯狂做受xxxxx高潮| 亚洲第一黄色网址| 永久免费无内鬼放心开车| 亲子乱子xxxxxx| 特级毛片免费播放| 亚洲视频欧洲视频| 澳门码资料2020年276期| 亚洲高清视频在线播放| 狠狠操精品视频| 亚洲色精品vr一区二区三区| 特级毛片免费观看视频|