信號(hào)怎么不一致呀 [金字塔]
- 咨詢內(nèi)容：
Sub ema5()
Testreport.StartAndInit '開(kāi)始測(cè)評(píng)系統(tǒng)的準(zhǔn)備工作
Testreport.InitCash=100*10000 '初始資金100萬(wàn)Set Formula = marketdata.STKINDI("if00","zj","ema5()",0,5) '調(diào)用中金所IF00合約的日線自定義指標(biāo)
Set HistroyData = Formula.ParentGrid.GetHistoryData '直接得到公式區(qū)的數(shù)據(jù)對(duì)象,提高運(yùn)行效率If TestReport.AddTestStock(HistroyData,"if00","zj",0) < 1 Then '向測(cè)試報(bào)告系統(tǒng)添加一個(gè)新測(cè)試品種
MsgBox "請(qǐng)正確添加品種"
End if'下面的代碼控制循環(huán)測(cè)試
'使用PEL策略的信號(hào)進(jìn)行交易
For i = 0 to HistroyData.Count-1
if Formula.GetBufData("開(kāi)多",i) = 1 And TestReport.Holding = 0 Then '開(kāi)多
TestReport.Buy 1, HistroyData.Close(i)
End if
if Formula.GetBufData("開(kāi)空",i) = 1 And TestReport.Holding = 0 Then '開(kāi)空
TestReport.Sell 1, HistroyData.Close(i)
End if
if Formula.GetBufData("平多",i) = 1 And TestReport.Holding > 0 Then '平多
TestReport.Sell 0, HistroyData.Close(i)
End if
if Formula.GetBufData("平空",i) = 1 And TestReport.Holding > 0 Then '平空
TestReport.Sell 0, HistroyData.Close(i)
End if'顯示測(cè)試時(shí)當(dāng)前的資產(chǎn)
Application.msgout TestReport.ASSET'為步進(jìn)下一個(gè)數(shù)據(jù)做準(zhǔn)備
TestReport.StepIt i
Next'測(cè)試完畢顯示測(cè)試報(bào)告
Testreport.ShowReportEnd Sub
此主題相關(guān)圖片如下：h1q1{_il$8f_~y%5yx6)f~q.png
此主題相關(guān)圖片如下：ls43@@{p{4jiea)_`u)2`jj.png
- 金字塔客服：
學(xué)會(huì)一些基本的條件技巧，常見(jiàn)問(wèn)題檢查除權(quán)是否一致，參數(shù)是否一致，測(cè)試時(shí)段是否一致
- 用戶回復(fù)：
這個(gè)參數(shù)就固定了，沒(méi)改過(guò)，肯定一致，股指主連怎么會(huì)有除權(quán)問(wèn)題？你以為是股票，時(shí)段也一致
- 網(wǎng)友回復(fù)：
關(guān)于期貨的除權(quán)概念，請(qǐng)參考 http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=88505 問(wèn)題43
- 網(wǎng)友回復(fù)：
For i = 0 to HistroyData.Count-1
if Formula.GetBufData("開(kāi)多",i) = 1 And TestReport.Holding = 0 Then '開(kāi)多
TestReport.Buy 1, HistroyData.Close(i)
End if
if Formula.GetBufData("開(kāi)空",i) = 1 And TestReport.Holding = 0 Then '開(kāi)空
TestReport.Sell 1, HistroyData.Close(i)
End if
if Formula.GetBufData("平多",i) = 1 And TestReport.Holding > 0 Then '平多
TestReport.Sell 0, HistroyData.Close(i)
End if
if Formula.GetBufData("平空",i) = 1 And TestReport.Holding > 0 Then '平空
TestReport.Sell 0, HistroyData.Close(i)
End if那這段代碼沒(méi)問(wèn)題吧
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)