大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

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

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

  • 咨詢內(nèi)容:  

    這是一個HURET指數(shù)的代碼,請求您:

    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

     

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

 

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

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

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

 


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

相關文章

    沒有相關內(nèi)容
主站蜘蛛池模板: 亚洲精品 国产 日韩 | 亚洲乱码在线视频 | 免费午夜在线视频 | 极品专区高清在线 | 一级特级aaaa毛片免费观看 | 黄色在线免费看 | 91精品国产91久久久久久 | 日本一本二本免费播放视频 | 一区二区三区在线观看免费 | 69久成人做爰视频 | 国产精品色片 | 精品国产91乱码一区二区三区 | 亚洲国产99在线精品一区69堂 | 一七六九1769视频免费观看 | 成人影院在线观看视频 | 天天视频国产精品 | 韩毛片 | 好爽毛片一区二区三区四区 | 欧美日韩亚洲精品一区二区 | 久久爱.www| 一区二区三区在线观看视频 | 日本欧美一区二区三区乱码 | 亚洲 欧美 自拍 卡通 综合 | 国产精品第三页在线看 | 四虎影院在线 | vvideos欧美极度另类 | 一级特黄aa大片一又好看 | 奇米影视亚洲春色77777 | 大学生一级毛片免费看真人 | 免费一区二区三区免费视频 | 欧美日韩一区二区不卡三区 | 中文字幕日韩欧美一区二区三区 | 日本高清视频一区二区三区 | 亚洲天堂一区 | 中文精品视频一区二区在线观看 | 久久毛片免费看一区二区三区 | 久久久久久久尹人综合网亚洲 | 国产精品视频一区二区猎奇 | 777色狠狠一区二区三区 | 日本大臿亚洲香蕉大片 | 欧美一级在线免费观看 |