通达信红R买-绿M卖30分钟【源码配图】

以下是红R买-绿M卖（30分钟）（无源码的请下载附件导入）

CYC13:=0.01*EXPMA(AMOUNT,13)/EXPMA(VOL,13);  

CYS:(CLOSE-CYC13)/CYC13*100;  

DRAWTEXT("ZXNH.ZXNH"=1 AND CYS<=-2,CYS,'R'),COLORRED;  

DRAWTEXT("ZXNH.ZXNH"=1 AND CYS>2,CYS,'M'),COLORGREEN; 

布林：

ZD_MA:=MA(C,18);  

ZD_EMA:=EMA(C,3);  

STICKLINE(ZD_EMA>ZD_MA,ZD_EMA,ZD_MA,1,-1),COLOR1188FF;  

STICKLINE(ZD_EMA

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);{K线}  

RD_4P:=(-REF(C,3)-0.382*REF(C,2)+0.382*REF(C,1)+2*C);  

BD:=STD(C,33);  

RD:=STD(RD_4P,33);  

BZC:=POW(BD*BD+RD*RD,1/2);  

A1:ZD_MA+(1.618)*BZC,CROSSDOT,COLORLIGRAY;  

A2:ZD_MA+(1.000)*BZC,CIRCLEDOT,COLORBROWN;  

A3:ZD_MA+(0.618)*BZC,COLORMAGENTA;  

中道:ZD_MA,CIRCLEDOT,COLORYELLOW;  

快道:ZD_EMA,COLORLIBLUE;  

B3:ZD_MA-(0.618)*BZC,COLORLIGRAY;  

B2:ZD_MA-(1.000)*BZC,CIRCLEDOT,COLORFF7755;  

B1:ZD_MA-(1.618)*BZC,CROSSDOT,COLORLIGREEN;  

道宽3K平均:MA(快道-中道,3),COLORLIBLUE,NODRAW;  

IF(快道>REF(快道,1) AND 快道>=0,快道,DRAWNULL),COLORRED,LINETHICK3;