| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4) ---- 如何实现在不同K线实现加仓 (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=59627) |
| -- 作者：勇敢的心 -- 发布时间：2013/12/6 16:42:58 -- 如何实现在不同K线实现加仓 //如果当前是没有持仓的状态 IF POSITION=0 AND BARPOS>T20 AND H>L THEN BEGIN
//建立多头进场条件
LONG := H > T20HI ;
//多头进场
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
//不要跳转，让程序检查同一根K线是否可以加仓
//GOTO CONTINUELINE ; END //IF //如果当前持有多头仓位的状态 IF POSITION=1 AND BARPOS>T20 AND H>L THEN BEGIN
//多头加仓条件
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加仓，而如果以上述策略公式为例，我想实现不同根K满足条件加仓该怎么办？非常感谢。
|
| -- 作者：jinzhe -- 发布时间：2013/12/6 16:46:42 -- 下单语句增加条件 enterbars>1比如 buy(_debug and enterbars>1,.......); |
| -- 作者：勇敢的心 -- 发布时间：2013/12/6 17:00:42 -- 您好，能写的具体写嘛，比如下面的怎么修改成满足条件不同根K线开一次仓，直至平仓离场。 //如果当前是没有持仓的状态 IF POSITION=0 AND BARPOS>T20 AND H>L THEN BEGIN
//建立多头进场条件
LONG := H > T20HI ;
//多头进场
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 //如果当前持有多头仓位的状态 IF POSITION=1 AND BARPOS>T20 AND H>L THEN BEGIN
//多头加仓条件
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
//建立多头离场条件
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 |
| -- 作者：jinzhe -- 发布时间：2013/12/6 17:06:58 -- 这个比较复杂，技术咨询中 |
| -- 作者：勇敢的心 -- 发布时间：2013/12/6 17:12:56 -- 嗯，希望能尽快解决，我想不同根K滚动开仓，是很多塔友想实现的。 |
| -- 作者：fly -- 发布时间：2013/12/6 17:20:08 -- 1楼中已经说了,
//不要跳转，让程序检查同一根K线是否可以加仓 //GOTO CONTINUELINE
为了可以同一根K线可以加仓,特意把跳转语句注释了
你把注释掉的,再重新使用,就OK
|
| -- 作者：勇敢的心 -- 发布时间：2013/12/6 17:26:41 -- 去掉了这句话，仍然不能实现不同根K线满足条件时开仓。 |