凌亂了走完K線 [金字塔]
- 咨詢內容：
要執行debugfile須得 holding<0,可是當hold=0時，竟然也debugfile。怎么是這樣子
此主題相關圖片如下：僅刷最后一個k.png
此主題相關圖片如下：平空.png
此主題相關圖片如下：連續平空信息.png
此主題相關圖片如下：走完k線.png - 金字塔客服：
把全部代碼帖一下
- 用戶回復：
//05 測試交易控制符runmode:0;variable:cc=0,zs=0,zy=0,daywindot=0,kcj=0;exittime:=time>=145400; closetime1:=time>=150500;
{ 信號輸出需要添加的代碼 --- BEGIN }{ 變量（writeFileFlag + 3） --- 3是代表策略編號，不同策略編號唯一； writeFileFlag3 指的是開倉方向： 1-開多 2-平多 3-開空 4-平空 }globalvariable:writeFileFlag3=0,longFlag=0,shortFlag=0,initFlag=0;
if ISLASTBAR and initFlag = 0 then BEGIN if holding > 0 then begin longFlag := 1; end if holding < 0 then begin shortFlag := 1; end initFlag := 1;end{ 信號輸出需要添加的代碼 --- END }
A:MA(C,M);B:MA(C,N);bb:=REF(C,1)>REF(B,1);{bb - 開多條件}pd:=REF(C,1)<REF(A,1);{pd - 平多條件}ss:=REF(C,1)<REF(A,1);{ss - 開空條件}pk:=REF(C,1)>REF(B,1);{pk - 平空條件}
if cc>0 and pd then begin cc:=0; end //平多單 drawtext(1,o,'2',colorred,4);if cc<0 and pk then begin cc:=0; end //平空單
//平空if holding<0 and cc>=0 then begin sellshort(1,1,market); debugfile('d:\jzt\sinnal14.txt','運行了1次平空，holding是%.2f',holding); pcj:=o; //drawtext(1,o,'4',colorgreen,4); if islastbar && writeFileFlag3 <> 4 && shortFlag = 1 then begin shortFlag := 0; writeFileFlag3 := 4; debugfile2('D:\jzt\signal3.txt', numtostr(date+19000000,0) + ',' + numtostr(time,3) + ',' + numtostr(writeFileFlag3,0) + ','+ '%.2f', pcj,0); debugfile2('D:\jzt\signal3copy.txt', numtostr(date+19000000,0) + ',' + numtostr(time,3) + ',' + numtostr(writeFileFlag3,0) + ','+ '%.2f', pcj,0); end end
//開空單if cc=0 and ss then begin cc:=-1; zs:=c+c*30/10000;//空單止損條件 zy:=c-c*30*100/10000;//多單止盈條件 end
if exittime then begincc:=0;end
//開空單if holding=0 and cc<0 then begin buyshort(1,1,market); debugfile('d:\jzt\sinnal14.txt','運行了1次開空，holding是%.2f',holding); kcj:=open; //drawtext(1,o,'3',colorgreen,4); if islastbar && writeFileFlag3 <> 3 && shortFlag = 0 then begin shortFlag := 1; writeFileFlag3 := 3; debugfile2('D:\jzt\signal3.txt', numtostr(date+19000000,0) + ',' + numtostr(time,3) + ',' + numtostr(writeFileFlag3,0) + ',' + '%.2f', kcj,0); debugfile2('D:\jzt\signal3copy.txt', numtostr(date+19000000,0) + ',' + numtostr(time,3) + ',' + numtostr(writeFileFlag3,0) + ',' + '%.2f', kcj,0); end end
if closetime1 then begin cc:=0; end
- 網友回復：
逐K每次從第一根開始運算這類存在很久，歷經用戶考驗的函數，除非版本更新的原因，一般不可能出錯的，不是嗎？置頂的帖子，學習下debugfile正確的使用方法吧http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=49428
[此貼子已經被作者于2013-5-29 14:48:53編輯過] - 網友回復：
if holding<0 and cc>=0 then begin
sellshort(1,1,market);
debugfile('d:\jzt\sinnal14.txt','運行了1次平空，holding是%.2f',holding);
pcj:=o;
沒有islastbar吧~仔細想想
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊