共6 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：如何实现一根K线开一次不重复仓

1楼

scarecrow 发表于：2016/8/23 14:48:27

设计思路是，

1.使用限价成交

2.向上突破均线，开多；

3.向下帖破均线，开空；

4.单根k线只能开一个仓，比如只能开多仓，或者只能开空仓

我设计了代码，但是出现了如下问题：

同一根k线，回测的时候，k线在均线中间的时候，出现频繁开仓平仓再开仓（比如开多，然后平多，在开空）。

本人小白，请教大家帮帮解决问题

代码如下：

MA1:=MA(CLOSE,N1);

手数:=ss;

MA2:REF(MA1，1);

KD:=HIGH>=MA2;

PD:=LOW<MA2;

KK:=LOW<=MA2;

PK:=HIGH>MA2;

IF HOLDING<0 THEN BEGIN

IF PK THEN BEGIN

SELLSHORT(1,HOLDING,LIMITR,MAX(OPEN,MA2));//平空

END

IF HOLDING=0 THEN BEGIN

IF KD THEN BEGIN

BUY(1,手数,LIMITR,MAX(OPEN,MA2));//开多

END

IF HOLDING>0 THEN BEGIN

IF PD THEN BEGIN

SELL(1,HOLDING,LIMITR,MIN(OPEN,MA2));//平多

END

IF HOLDING=0 THEN BEGIN

IF KK THEN BEGIN

BUYSHORT(1,手数,LIMITR,MIN(OPEN,MA2));//开空

END

持仓:holding,linethick0;

2楼

jinzhe 发表于：2016/8/23 15:00:46

variable:kai=0;
MA1:=MA(CLOSE,N1);
手数:=ss;
MA2:REF(MA1，1);

KD:=HIGH>=MA2;
PD:=LOW<MA2;
KK:=LOW<=MA2;
PK:=HIGH>MA2;

     IF HOLDING=0 THEN BEGIN
        IF KK and kai=0 THEN BEGIN
           BUYSHORT(1,手数,LIMITR,MIN(OPEN,MA2));//开空
           kai:=1;


        END
     END

     IF HOLDING=0 and kai=0 THEN BEGIN
        IF KD THEN BEGIN
           BUY(1,手数,LIMITR,MAX(OPEN,MA2));//开多

           kai:=1;

        END
     END

     IF HOLDING>0 THEN BEGIN
        IF PD THEN BEGIN
           SELL(1,HOLDING,LIMITR,MIN(OPEN,MA2));//平多
           kai:=0;
        END
     END

      IF HOLDING<0 THEN BEGIN
         IF PK THEN BEGIN
            SELLSHORT(1,HOLDING,LIMITR,MAX(OPEN,MA2));//平空
            kai:=0;
         END
      END

3楼

scarecrow 发表于：2016/8/23 15:23:12

回测试了一下，一根k线多次开仓这个问题解决了，但是还有一个小问题没有处理。

就是开仓后，同一根k线也开仓后，不允许在同一根k线也平仓。

举个例子：向上突破了均线开了多仓，同一个k线偶然会出现又跌破空仓，所以希望在该k线未走完的时候，不允许平仓

4楼

jinzhe 发表于：2016/8/23 15:46:55

两者不可兼得，这样写是做不到当根k线也能平仓

5楼

scarecrow 发表于：2016/8/23 16:04:25

有没有一个函数，可以记录开仓那根k线，这样就可以区别出开仓k线，如此一来就可以区分该k线不能平仓；

或者用全局变量能不能实现

6楼

jinzhe 发表于：2016/8/23 16:08:37

variable:kai=0;
MA1:=MA(CLOSE,N1);
手数:=ss;
MA2:REF(MA1，1);

KD:=HIGH>=MA2;
PD:=LOW<MA2;
KK:=LOW<=MA2;
PK:=HIGH>MA2;

        IF HOLDING<0 THEN BEGIN
         IF PK THEN BEGIN
            SELLSHORT(1,HOLDING,LIMITR,MAX(OPEN,MA2));//平空

         END
      END

     IF HOLDING=0 and kai<>barpos THEN BEGIN
        IF KD THEN BEGIN
           BUY(1,手数,LIMITR,MAX(OPEN,MA2));//开多

           kai:=barpos;

        END
     END

     IF HOLDING>0 THEN BEGIN
        IF PD THEN BEGIN
           SELL(1,HOLDING,LIMITR,MIN(OPEN,MA2));//平多

        END
     END

       IF HOLDING=0 THEN BEGIN
        IF KK and kai<>barpos THEN BEGIN
           BUYSHORT(1,手数,LIMITR,MIN(OPEN,MA2));//开空
           kai:=barpos;


        END
     END

共6 条记录, 每页显示 10 条, 页签: [1]