vba數學函數 [金字塔]
- 咨詢內容：
請問用vba編程計算兩個商品相關性要怎么做？在vba編程信息里沒有找到相關函數是不是要自己定義還是可以調用金字塔函數？
- 金字塔客服：
Array 對象
Alike 計算該數組與其他Array對象之間的相似系數,例如Alike(ar)表示求與ar數組對象之間的相似度
Releate 計算該數組與其他Array對象之間的相關系數
- 用戶回復：
Sub TLStart1()
call marketdata.RegReportNotify("P05","DQ")
call marketdata.RegReportNotify("Y05","DQ")End Sub
Sub MARKETDATA_ReportNotify(ReportData) Set Report1 = marketdata.GetReportData("P05","DQ") Set Report2 = marketdata.GetReportData("Y05","DQ") Set histroydata1 = MarketData.GetHistoryData("P05","DQ",0) Set histroydata2 = MarketData.GetHistoryData("Y05","DQ",0)
Dim data Set data = CreateObject("Stock.Array") For i =0 to 149 data.AddBack(histroydata1.Close(histroydata1.count-i)) next if data.count>150 then ata.removeat(0) end if
Dim data1 Set data1 = CreateObject("Stock.Array") For i =0 to 149 data1.AddBack(histroydata2.Close(histroydata2.count-i)) next if data1.count>150 then data1.removeat(0) end if
'相關性計算corr = data.releate(data1) application.MsgOut Cdate(time)& ",相關性:" & corr
Set d1 = nothing '釋放對象Set d2 = nothing
End Sub 請問為什么輸出的相關性數值都是1呢？是不是這么計算是錯誤的 - 網友回復：
MarketData 對象
HistoryDataMode 歷史數據處理處理模式 0默認值,GetHistoryData，GetHistoryDataByDate 方法取到的對象為共享模式;1為獨立模式,打開不同品種可以分別處理各自的數據,數據處理完畢后要調用DestroyHistoryData方法銷毀內存緩沖區.
- 網友回復： 明白了，還有一個問題，就是數組元素如何監控？用application.msgout data(0)輸出顯示對象不支持
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 511411198 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊