為什么會(huì)偶爾出現(xiàn)該加倉(cāng)卻不加倉(cāng)的問題 [金字塔]
- 咨詢內(nèi)容：
//聲明變量
//調(diào)試信息帶時(shí)間戳BBAR := 0 ;
//當(dāng)前BAR有過交易
VARIABLE : _DEBUG = 1 ; //是否輸出前臺(tái)交易指令VARIABLE : _TDEBUG = 1 ; //是否輸出后臺(tái)交易指令VARIABLE : _DEBUGOUT = 0 ; //是否輸出后臺(tái)交易的調(diào)試信息
VARIABLE : MYENTRYPRICE =0 ; //開倉(cāng)價(jià)格VARIABLE : MYEXITPRICE =0 ; //平倉(cāng)價(jià)格
VARIABLE : TURTLEUNITS=0 ; //交易單位VARIABLE : POSITION=0 ; //倉(cāng)位狀態(tài)//0表示沒有倉(cāng)位，1表示持有多頭， -1表示持有空頭
.......
LK2:=NUMPROFIT(1 )<0 AND NUMPROFIT(2 )<0 ;
KD:=REF(C,1)>REF(H2,1); //開多條件PD:=REF(C,1)<REF(L2,1); //平多條件KK:=REF(C,1)<REF(L2,1); //開空條件PK:=REF(C,1)>REF(H2,1); //平空條件
//開始執(zhí)行時(shí) 初始化數(shù)據(jù)IF BARPOS=1 THEN BEGIN //POSITION := 0 ;
END //IF
//如果當(dāng)前是沒有持倉(cāng)的狀態(tài)IF POSITION=0 THEN BEGIN
//建立多頭進(jìn)場(chǎng)條件 LONG :=KD; //多頭進(jìn)場(chǎng) IF LONG AND POSITION=0 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); BUY(LONG,SS,LIMITR,BJ),IGNORECHECKPRICE; POSITION := 1 ; TURTLEUNITS := 1 ; BBAR := 1;
END //IF
//建立空頭進(jìn)場(chǎng)條件 SHORT :=KK ; //空頭進(jìn)場(chǎng) IF SHORT AND POSITION=0 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); BUYSHORT(SHORT,SS,LIMITR,SJ),IGNORECHECKPRICE; POSITION := -1 ; TURTLEUNITS := 1 ; BBAR := 1;
END //不要跳轉(zhuǎn)，讓程序檢查同一根K線是否可以加倉(cāng) //GOTO CONTINUELINE ; END //IF
//如果當(dāng)前持有多頭倉(cāng)位的狀態(tài)
IF POSITION=1 AND BBAR=0 THEN BEGIN
//多頭加倉(cāng)條件 WHILE LK2 AND CC>ENTERPRICE+0.5*N AND TURTLEUNITS<3 AND BBAR=0 DO BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); BUY( LK2 AND CC>ENTERPRICE+0.5*N AND TURTLEUNITS<3,SS,LIMITR,BJ ),IGNORECHECKPRICE; TURTLEUNITS := TURTLEUNITS+1 ; BBAR := 1;
END //WHILE //建立多頭離場(chǎng)條件 LONGX1 := PD ; IF LONGX1 AND POSITION=1 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); SELL( LONGX1 ,100%,LIMITR,SJ),IGNORECHECKPRICE; POSITION := 0 ; TURTLEUNITS := 0 ; BBAR := 1; END
//建立多頭止損條件 LONGX2 := (CC<ENTERPRICE-3*N) ;
IF LONGX2 AND POSITION=1 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); SELL( LONGX2 ,100%,LIMITR,SJ),IGNORECHECKPRICE; POSITION := 0 ; TURTLEUNITS := 0 ; BBAR := 1; END
END //IF
//如果當(dāng)前持有空頭倉(cāng)位的狀態(tài)
IF POSITION = -1 AND BBAR=0 THEN BEGIN
//空頭加倉(cāng)條件 WHILE LK2 AND CC<ENTERPRICE-0.5*N AND TURTLEUNITS<3 AND BBAR=0 DO BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); BUYSHORT(LK2 AND CC<ENTERPRICE-0.5*N AND TURTLEUNITS<3,SS, LIMITR,SJ),IGNORECHECKPRICE; TURTLEUNITS := TURTLEUNITS+1 ; BBAR := 1; END //IF
//建立空頭離場(chǎng)條件 SHORTX1 := PK ;
IF SHORTX1 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); SELLSHORT( SHORTX1,100%,LIMITR,BJ),IGNORECHECKPRICE; POSITION := 0 ; TURTLEUNITS := 0 ; BBAR := 1; END
//建立空頭止損條件 SHORTX2 :=( CC >ENTERPRICE + 3*N) ;
IF SHORTX2 AND POSITION = -1 AND BBAR=0 THEN BEGIN BJ:=IF(C<=DYNAINFO( 28),C,C-1*MINDIFF); SJ:=IF(C>=DYNAINFO( 34),C,C+1*MINDIFF); SELLSHORT( SHORTX2,100%,LIMITR,BJ),IGNORECHECKPRICE; POSITION := 0 ; TURTLEUNITS := 0 ; BBAR := 1; END
END //IF
//顯示賬戶狀態(tài)
持倉(cāng):HOLDING,COLORWHITE,LINETHICK0; - 金字塔客服：
請(qǐng)具體指出哪根k線上是“應(yīng)該加倉(cāng)卻不加倉(cāng)”的？
還有DYNAINFO( 34)這個(gè)動(dòng)態(tài)行情函數(shù)不要用在圖表交易上，會(huì)造成信號(hào)的消失，影響當(dāng)前信號(hào)的出現(xiàn)
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)