[求助]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ù)
(1)
(2)
(3)
(4)
(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))
NextDim 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 ifFor i =1 to 10
d2.AddBack(Data2.Close(Data2.Count-i))
NextApplication.MsgOut d1.count
MsgBox d1.Releate(d2)
Set d1 = nothing '釋放對(duì)象
Set d2 = nothingEnd Sub
[此貼子已經(jīng)被作者于2012-6-28 12:39:26編輯過(guò)]
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態(tài)個(gè)股的話(huà),
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容