麻烦大师修改成后台程序化

兰延追风石

VARIABLE:num:=0,oneprice:=-1,kk:=0;
DD:oneprice;


DIFF:=3;

KD:=(C<820  OR  EXITPRICE-C > DIFF*MINDIFF) AND NUM=0;
LS:=ENTERBARS>3 AND EXITBARS>3;
//平仓减仓
IF C-oneprice>DIFF*MINDIFF  AND NUM>0 AND NUM<=11 AND HOLDING>1 AND LS THEN BEGIN
        减仓:sell(1,1,LIMITR,CLOSE-MINDIFF);
         num:=num-1;
    oneprice:=EXITPRICE;       
            END

if num=1 and HOLDING=1 and enterbars>2 AND  C-oneprice>DIFF*5*MINDIFF then BEGIN
        平仓:sell(1,1,LIMITR,CLOSE-MINDIFF);
         num:=num-1;
    oneprice:=EXITPRICE;
         END
//首次开仓时记录开仓时是的价格


IF  KD AND HOLDING=0 AND BARPOS>=20  THEN BEGIN
        开多:BUY(1,1,LIMITR,CLOSE+MINDIFF);
        oneprice:=ENTERPRICE;
        NUM:=1;//开启加仓模式
        END
IF oneprice-C>DIFF*MINDIFF AND NUM>0 AND NUM<=11 AND HOLDING>=1 AND LS THEN BEGIN
        加仓:BUY(1,1,LIMITR,CLOSE+MINDIFF);
        oneprice:=ENTERPRICE;
        NUM:=NUM+1;
           END

技术008

VARIABLE:num:=0,oneprice:=-1,kk:=0;
DD:oneprice;


DIFF:=3;

KD:=(C<820  OR  EXITPRICE-C > DIFF*MINDIFF) AND NUM=0;
LS:=ENTERBARS>3 AND EXITBARS>3;
//平仓减仓
IF C-oneprice>DIFF*MINDIFF  AND NUM>0 AND NUM<=11 AND HOLDING>1 AND LS THEN BEGIN
        tsell(1,1,lmt,close-mindiff);
        减仓:sell(1,1,LIMITR,CLOSE-MINDIFF);
         num:=num-1;
    oneprice:=EXITPRICE;      
            END

if num=1 and HOLDING=1 and enterbars>2 AND  C-oneprice>DIFF*5*MINDIFF then BEGIN
        tsell(1,1,limt,close-mindiff);
        平仓:sell(1,1,LIMITR,CLOSE-MINDIFF);
         num:=num-1;
    oneprice:=EXITPRICE;
         END
//首次开仓时记录开仓时是的价格


IF  KD AND HOLDING=0 AND BARPOS>=20  THEN BEGIN
        tbuy(1,1,lmt,close+mindiff);
        开多:BUY(1,1,LIMITR,CLOSE+MINDIFF);
        oneprice:=ENTERPRICE;
        NUM:=1;//开启加仓模式
        END
IF oneprice-C>DIFF*MINDIFF AND NUM>0 AND NUM<=11 AND HOLDING>=1 AND LS THEN BEGIN
        tbuy(1,1,lmt,close+mindiff);
        加仓:BUY(1,1,LIMITR,CLOSE+MINDIFF);
        oneprice:=ENTERPRICE;
        NUM:=NUM+1;
           END