分享个我自己的通达信交易系统源码

N  2  90  14
M  2  60  6
K  2  100  14
W  2  120   13

T:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:=DMP*100/TR;
MDI:=DMM*100/TR;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);

TYP:=(HIGH+LOW+CLOSE)/3;

CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DD:=DMA(CLOSE,CC);
AA:=MA((2*CLOSE+HIGH+LOW)/4,5);
通道2:=AA*(200-7)/100;
通道4:=(1-7/100)*DD;
A:=C<通道2 && C<通道4 && C>O;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));

VAR2:=CLOSE*VOL;
VAR3:=EMA((EXPMA(VAR2,3)/EXPMA(VOL,3)+EXPMA(VAR2,6)/EXPMA(VOL,6)+EXPMA(VAR2,12)/EXPMA(VOL,12)+EXPMA(VAR2,24)/EXPMA(VOL,24))/4,N);
SUP:=1.06*VAR3;
SDN:=VAR3*0.94;
VAR4:=EXPMA(CLOSE,9);
LUP:=EXPMA(VAR4*1.14,5);
LDN:=EXPMA(VAR4*0.86,5);
{多头买入} ENTERLONG:FILTERX((L<=LLV(L,5)),5) && A && IF(CCI<-100 , ADX>60 , MDI>25) OR REF(FILTERX((L<=LLV(L,5)),5),1) && A && IF(CCI<-100 , ADX>60 , MDI>25);