[求助]Fun 對象中有無相關系數的函數 [金字塔]
- 咨詢內容:
兩個品種收盤價數組
求這兩個品種的相關系數
Fun 對象中有無相關系數的函數
如無
能否請老大編個簡單函數示范一下,如何算相關系數
(1)
(2)
(3)
(4)
(5)
- 金字塔客服:
好像沒有,后面準備增加
- 用戶回復:
檢查了下軟件,目前VBA是自帶相關系數的,請參考外部對象的Array 對象,Releate 計算該數組與其他Array對象之間的相關系數
- 網友回復:
Sub Test()
Dim d1 '創建一個變量
'創建Array外部對象,將對象實例置變量d中
Set d1 = CreateObject("Stock.Array")Set Data1 = MarketData.GetHistoryData("IF07","ZJ",5)
If Data1.Count < 10 Then
Set d1 = nothing '釋放對象
Exit Sub
End if'由于GetHistoryData只能返回一個HistoryData對象,因此需要這里讀出一個保存一個到數組中
'取最近10個交易日的數據做相關系數判斷
'將收盤價數據置數組中
For i =1 to 10
d1.AddBack(Data1.Close(Data1.Count-i))
NextDim d2 '創建一個變量
'創建Array外部對象,將對象實例置變量d中
Set d2 = CreateObject("Stock.Array")Set Data2 = MarketData.GetHistoryData("IF09","ZJ",5)
If Data2.Count < 10 Then
Set d1 = nothing '釋放對象
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 '釋放對象
Set d2 = nothingEnd Sub
[此貼子已經被作者于2012-6-28 12:39:26編輯過]
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態個股的話,
相關文章
-
沒有相關內容