咨詢內(nèi)容：//如果當(dāng)前是沒(méi)有持倉(cāng)的狀態(tài)IF POSITION=0 AND BARPOS>T20 AND H>L THEN BEGIN //建立多頭進(jìn)場(chǎng)條件LONG := H > T20HI ;//多頭進(jìn)場(chǎng)IF LONG THEN BEGINMYENTRYPRICE := IF(OPEN>T20HI+MINDIFF ,OPEN ,T20HI+MINDIFF ) ;BUY( _DEBUG,POSNUM,LIMITR,MYENTRYPRICE);POSITION := 1 ;TURTLEUNITS := 1 ;N := AVGTR ;BUYORDERTHISBAR := 1; END //IF //不要跳轉(zhuǎn)，讓程序檢查同一根K線是否可以加倉(cāng)//GOTO CONTINUELINE ;END //IF //如果當(dāng)前持有多頭倉(cāng)位的狀態(tài) IF POSITION=1 AND BARPOS>T20 AND H>L THEN BEGIN //多頭加倉(cāng)條件WHILE (HIGH>MYENTRYPRICE+0.5*N) AND TURTLEUNITS<1 DO BEGINMYENTRYPRICE := IF(OPEN>MYENTRYPRICE+0.5*N ,OPEN ,MYENTRYPRICE+0.5*N ) ;MYENTRYPRICE := CEILING(MYENTRYPRICE/MINDIFF)*MINDIFF ;BUY( _DEBUG, POSNUM, LIMITR, MYENTRYPRICE);TURTLEUNITS := TURTLEUNITS+1 ;BUYORDERTHISBAR := 1; END //WHILE END //IF 您好，TURTLEUNITS控制著在同根K加倉(cāng)，而如果以上述策略公式為例，我想實(shí)現(xiàn)不同根K滿足條件加倉(cāng)該怎么辦？非常感謝。
金字塔客服：
下單語(yǔ)句增加條件 enterbars>1比如
buy(_debug and enterbars>1,.......);
用戶回復(fù)：您好，能寫(xiě)的具體寫(xiě)嘛，比如下面的怎么修改成滿足條件不同根K線開(kāi)一次倉(cāng)，直至平倉(cāng)離場(chǎng)。//如果當(dāng)前是沒(méi)有持倉(cāng)的狀態(tài)IF POSITION=0 AND BARPOS>T20 AND H>L THEN BEGIN //建立多頭進(jìn)場(chǎng)條件LONG := H > T20HI ;//多頭進(jìn)場(chǎng)IF LONG THEN BEGINMYENTRYPRICE := IF(OPEN>T20HI+MINDIFF ,OPEN ,T20HI+MINDIFF ) ;BUY( _DEBUG,POSNUM,LIMITR,MYENTRYPRICE);POSITION := 1 ;TURTLEUNITS := 1 ;N := AVGTR ;BUYORDERTHISBAR := 1; END //IF END //IF //如果當(dāng)前持有多頭倉(cāng)位的狀態(tài) IF POSITION=1 AND BARPOS>T20 AND H>L THEN BEGIN //多頭加倉(cāng)條件WHILE (HIGH>MYENTRYPRICE+0.5*N) AND TURTLEUNITS<1 DO BEGINMYENTRYPRICE := IF(OPEN>MYENTRYPRICE+0.5*N ,OPEN ,MYENTRYPRICE+0.5*N ) ;MYENTRYPRICE := CEILING(MYENTRYPRICE/MINDIFF)*MINDIFF ;BUY( _DEBUG, POSNUM, LIMITR, MYENTRYPRICE);TURTLEUNITS := TURTLEUNITS+1 ;BUYORDERTHISBAR := 1; END //WHILE//建立多頭離場(chǎng)條件LONGX1 := (LOW < T10LO) ;IF LONGX1 AND BUYORDERTHISBAR=0 THEN BEGINMYEXITPRICE := IF(OPEN<T10LO-MINDIFF ,OPEN ,T10LO-MINDIFF ) ;SELL( _DEBUG ,0,LIMITR,MYEXITPRICE);POSITION := 0 ;TURTLEUNITS := 0 ;END //建立多頭止損條件LONGX2 := (LOW<MYENTRYPRICE-2*N) ; IF LONGX2 AND POSITION=1 AND BUYORDERTHISBAR=0 THEN BEGINMYEXITPRICE := IF(OPEN<MYENTRYPRICE-2*N ,OPEN ,MYENTRYPRICE-2*N ) ;MYEXITPRICE := FLOOR(MYEXITPRICE/MINDIFF)*MINDIFF ;SELL( _DEBUG ,0,LIMITR,MYEXITPRICE);POSITION := 0 ;TURTLEUNITS := 0 ;END GOTO CONTINUELINE ; END //IF
打印本文
關(guān)閉窗口