等级: 免费版
- 注册:
- 2023-11-16
- 曾用名:
|
INPUT : LOTS(1,1,1000,1);
INPUT : HLD(10,1,1000,1);//获利
//IF BARPOS <=B AND MAA>MAB AND MAA<=MAB THEN BEGIN
// BUY(HOLDING =0,LOTS,LIMITR, OPEN);
//END
分时:=stkindiex('','分时均价.结算价',0,-1,0,12200);
JKP:callstock(stklabel,vtopen,6,0);
ma1:=stkindiex('','ma.ma1(4)',0,6,-1,10000);
rma1:ROUNDS((c+ma1*4)/5,3);
SS:分时;
IF TYPE(1 )=0 AND HOLDING =0 THEN BEGIN
IF JKP<rma1 THEN BEGIN
BUY(close>分时,LOTS,LIMITR, C);
END
END
IF HOLDING =0 THEN BEGIN
IF JKP<rma1 AND ( ( EXITPRICE>ENTERPRICE AND TYPE(1 )=2 ) OR (TYPE(1 )=4 AND EXITPRICE<ENTERPRICE) ) THEN BEGIN
BUY(close>分时,LOTS,LIMITR, C);
END
END
IF HOLDING =0 THEN BEGIN
IF JKP<rma1 AND ( (TYPE(1 )=2 AND EXITPRICE<=ENTERPRICE) OR (TYPE(1 )=4 AND EXITPRICE>=ENTERPRICE) ) THEN BEGIN
BUY(close>分时,EXITVOL+1,LIMITR, C);
END
END
//////////////////////////////
IF HOLDING =0 THEN BEGIN
IF JKP>rma1 AND ( ( EXITPRICE>ENTERPRICE AND TYPE(1 )=2 ) OR (TYPE(1 )=4 AND EXITPRICE<ENTERPRICE) ) THEN BEGIN
BUYSHORT(close<分时,LOTS,LIMITR, C);
END
END
IF HOLDING =0 THEN BEGIN
IF JKP>rma1 AND ( (TYPE(1 )=2 AND EXITPRICE<=ENTERPRICE) OR (TYPE(1 )=4 AND EXITPRICE>=ENTERPRICE) ) THEN BEGIN
BUYSHORT(close<分时,EXITVOL+1,LIMITR, C);
END
END
////////////////////////////////
IF JKP<rma1 AND C <=ENTERPRICE AND HOLDING<0 THEN BEGIN
SELLSHORT(close>分时,HOLDING,LIMITR, C);
BUY(close>分时,LOTS,LIMITR, C);
END
IF JKP<rma1 AND C >ENTERPRICE AND HOLDING<0 THEN BEGIN
SELLSHORT(close>分时,HOLDING,LIMITR, C);
BUY(close>分时,ENTERVOL+1,LIMITR, C);
END
IF JKP>=rma1 AND C <=ENTERPRICE AND HOLDING>0 THEN BEGIN
SELL(close<分时,HOLDING,LIMITR, C);
BUYSHORT(close<分时,ENTERVOL+1,LIMITR, C);
END
IF JKP>=rma1 AND C >ENTERPRICE AND HOLDING>0 THEN BEGIN
SELL(close<分时,HOLDING,LIMITR, C);
BUYSHORT(close<分时,LOTS,LIMITR, C);
END
IF HOLDING >0 AND ENTERBARS>0 THEN BEGIN
//BCCJ:=MAX(AVGENTERPRICE+HLD*MINDIFF,close);
BCCJ:=CLOSE;
SELL(H>=AVGENTERPRICE+HLD*MINDIFF,HOLDING,LIMITR, BCCJ);
END
IF HOLDING <0 AND ENTERBARS>0 THEN BEGIN
//SCCJ:=MIN(AVGENTERPRICE-HLD*MINDIFF,close);
SCCJ:=CLOSE;
SELLSHORT(L<=AVGENTERPRICE-HLD*MINDIFF,HOLDING,LIMITR,SCCJ);
END
//TYPE(1 )=2 AND EXITPRICE>ENTERPRICE //上次做多盈利
//TYPE(1 )=2 AND EXITPRICE<ENTERPRICE //上次做多亏损
//TYPE(1 )=4 AND EXITPRICE>ENTERPRICE //上次做空亏损
//TYPE(1 )=4 AND EXITPRICE<ENTERPRICE //上次做空盈利
IF REMAININGTIME(CLOSETIME(0))<=60 AND ENTERBARS>0 THEN BEGIN
尾盘平多:SELL(1,HOLDING,MARKET) ;
尾盘平空:SELLSHORT(1,HOLDING,MARKET); //提前1分钟清仓
//POSITION := 0 ;
// TURTLEUNITS := 0 ;
END
当前持仓:HOLDING,COLORRED,LINETHICK0;
当前资产:ASSET,NOAXIS,COLORMAGENTA,LINETHICK3;
亏: NUMLOSSTRADE,COLORBLUE;
盈: NUMWINTRADE,COLORCYAN;
比: PAYOFFRATE,COLORMAGENTA;
胜率:PERCENTWIN,COLORYELLOW;
|
|