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

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

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2012年08月05日點(diǎn)擊數(shù)：　【收藏到本網(wǎng)的會(huì)員中心】

咨詢(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ò)]