等级: 免费版
- 注册:
- 2022-4-28
- 曾用名:
|

楼主 |
发表于 2022-5-17 21:41
|
显示全部楼层
A:=(3*C+L+O+H)/6;
B:(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
D:MA(B,10);
ATR:=MA(TR,26);
RB:=STKINDIEX('','DKX测试.B',0,6,-1,100);
RD:=STKINDIEX('','DKX测试.D',0,6,-1,100);
KD:=B>D AND RB>RD AND HOLDING=0; //开多条件AND RB>RD
PD:=B<D; //平多条件
IF KD THEN BEGIN
TEMP:=FLOOR(30000/(C*DYNAINFO(209)*TACCOUNT(41)));
手数:if(temp=0,1,TEMP);
开多:BUY(KD,手数,THISCLOSE); //开多信号
END
IF HOLDING=手数 THEN BEGIN
加多:BUY(C>=ENTERPRICE+0.5*ATR,手数,THISCLOSE);
END
平多:SELL(PD,100%,THISCLOSE); //平多信号
KK:=B<D AND RB<RD AND HOLDING=0 ; //开空条件AND RB>RD
PK:=B>D; //平多条件
IF KK THEN BEGIN
TEMP:=FLOOR(30000/(C*DYNAINFO(209)*TACCOUNT(41)));
手数2:if(temp=0,1,TEMP);
开空:BUYSHORT(KK,手数2,THISCLOSE); //开空信号
END
IF HOLDING=-手数 THEN BEGIN
加空:BUYSHORT(C<=ENTERPRICE-0.5*ATR,手数2,THISCLOSE);
END
平空:SELLSHORT(PK,100%,THISCLOSE); //平空信号
持仓:holding,linethick0;
资产:asset,noaxis;
浮动盈亏:OPENPROFIT,NODRAW;
开仓价:ENTERPRICE,nodraw; |
|