如何實(shí)現(xiàn)在不同K線實(shí)現(xiàn)加倉(cāng) [金字塔]
- 咨詢內(nèi)容：
//如果當(dāng)前是沒有持倉(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 BEGIN MYENTRYPRICE := 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 BEGIN MYENTRYPRICE := 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ù)：
您好，能寫的具體寫嘛，比如下面的怎么修改成滿足條件不同根K線開一次倉(cāng)，直至平倉(cāng)離場(chǎng)。//如果當(dāng)前是沒有持倉(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 BEGIN MYENTRYPRICE := 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 BEGIN MYENTRYPRICE := 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 BEGIN MYEXITPRICE := 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 BEGIN MYEXITPRICE := 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 - 網(wǎng)友回復(fù)：
這個(gè)比較復(fù)雜，技術(shù)咨詢中
- 網(wǎng)友回復(fù)： 嗯，希望能盡快解決，我想不同根K滾動(dòng)開倉(cāng)，是很多塔友想實(shí)現(xiàn)的。
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)