人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

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

[求助]Fun 對(duì)象中有無(wú)相關(guān)系數(shù)的函數(shù) [金字塔]

  • 咨詢(xún)內(nèi)容:

    兩個(gè)品種收盤(pán)價(jià)數(shù)組

    求這兩個(gè)品種的相關(guān)系數(shù)

    Fun 對(duì)象中有無(wú)相關(guān)系數(shù)的函數(shù)

    如無(wú)

     

    能否請(qǐng)老大編個(gè)簡(jiǎn)單函數(shù)示范一下,如何算相關(guān)系數(shù)

     

     

     r=\frac{\sigma{xy}}{\sigma_x\sigma_y}  (1)

      \sigma{xy}=\sigma^2{xy}=\frac{\sum(x-\overline{x})(y-\overline{y})}{n}

      \sigma_x=\sqrt{\frac{\sum(x-\overline{x})^2}{n}}

      \sigma_y=\sqrt{\frac{\sum(y-\overline{y}^2)}{n}}

      r=\frac{\sum(x-\overline{x})(y-\overline{y})}{\sqrt{\sum(x-\overline{x})^2\sum(y-\overline{y})^2}}  (2)

      =\frac{n\sum xy-\sum x\sum y}{\sqrt{n\sum x^2-(\sum x)^2}\cdot\sqrt{n\sum y^2-(\sum y)^2}}  (3)

      =\frac{n^2[\frac{\sum xy}{n}-]}{\frac{\sum x}{n}-\frac{\sum y}{n}}{\sqrt{n^2[\frac{\sum x^2}{n}-(\frac{\sum x}{n})^2]\cdot\sqrt n^2[\frac{\sum y^2}{n}-(\frac{\sum y}{n})^2]}}  (4)

      =\frac{\overline{xy}-\overline{x}\overline{y}}{\sqrt{\sum\overline{x^2}-(\overline{x})^2}\cdot\sqrt{\sum\overline{y^2}-(\overline{y})^2}}  (5)

     

  • 金字塔客服: 好像沒(méi)有,后面準(zhǔn)備增加

     

  • 用戶(hù)回復(fù): 檢查了下軟件,目前VBA是自帶相關(guān)系數(shù)的,請(qǐng)參考外部對(duì)象的Array 對(duì)象,Releate      計(jì)算該數(shù)組與其他Array對(duì)象之間的相關(guān)系數(shù)

     

  • 網(wǎng)友回復(fù):

    Sub Test()

    Dim d1 '創(chuàng)建一個(gè)變量
    '創(chuàng)建Array外部對(duì)象,將對(duì)象實(shí)例置變量d中
    Set d1 = CreateObject("Stock.Array")

    Set Data1 = MarketData.GetHistoryData("IF07","ZJ",5)
    If Data1.Count < 10 Then
       Set d1 = nothing '釋放對(duì)象
       Exit Sub
    End if

    '由于GetHistoryData只能返回一個(gè)HistoryData對(duì)象,因此需要這里讀出一個(gè)保存一個(gè)到數(shù)組中

    '取最近10個(gè)交易日的數(shù)據(jù)做相關(guān)系數(shù)判斷
    '將收盤(pán)價(jià)數(shù)據(jù)置數(shù)組中
    For i =1 to 10
       d1.AddBack(Data1.Close(Data1.Count-i))
    Next

    Dim d2 '創(chuàng)建一個(gè)變量
    '創(chuàng)建Array外部對(duì)象,將對(duì)象實(shí)例置變量d中
    Set d2 = CreateObject("Stock.Array")

    Set Data2 = MarketData.GetHistoryData("IF09","ZJ",5)
    If Data2.Count < 10 Then
       Set d1 = nothing '釋放對(duì)象
       Set d2 = nothing
       Exit Sub
    End if

    For i =1 to 10
       d2.AddBack(Data2.Close(Data2.Count-i))
    Next

    Application.MsgOut d1.count

    MsgBox d1.Releate(d2)

     

    Set d1 = nothing '釋放對(duì)象
    Set d2 = nothing

    End Sub

    [此貼子已經(jīng)被作者于2012-6-28 12:39:26編輯過(guò)]

 

如果以上指標(biāo)公式不適用于您常用的行情軟件

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

可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696  點(diǎn)擊在線(xiàn)交流進(jìn)行 有償 改編!

 


【字體: 】【打印文章】【查看評(píng)論

相關(guān)文章

    沒(méi)有相關(guān)內(nèi)容
主站蜘蛛池模板: 韩国在线观看日韩 | 免费国产成人高清无线看软件 | 欧美亚洲h在线一区二区 | 欧美在线伊人 | 黄片毛片视频 | 日韩免费中文字幕 | 中国性猛交xxxx乱大交 | 九月婷婷人人澡人人添人人爽 | 国产黄色大片网站 | 性欧美xxxx视频在线观看 | 国产成人精品一区二三区在线观看 | 妇乱子伦激情 | 欧美色图另类图片 | 毛片免费观看网址 | 老司机精品久久 | 国产人成精品午夜在线观看 | 一个人看的www视频高清免费 | 精品亚洲欧美高清不卡高清 | 一级黄色片视频 | 欧美日本道免费一区二区三区 | 欧美一级色视频 | 亚洲一区二区影院 | 最新在线鲁丝片eeuss第1页 | 韩国伦理在线免费观看 | 一区二区三区影院 | 中国一级毛片在线观看 | 99爱在线精品视频免费观看9 | 一区二区三区欧美 | 国产性大片黄在线观看在线放 | 成年人免费在线视频网站 | 国产亚洲成在线播放va | 亚洲一本视频 | 亚洲毛片在线免费观看 | 性xxx视频在线观看 性国产videofree另类 | 国产一级毛片免 | 国产精品久久久久9999 | 成人国产精品免费视频不卡 | 特黄一级黄色片 | 在线片视频网站 | 日本黄色影院在线观看 | 香港一级纯黄大片 |