通达信优化龙抬头主图指标

通达信优化龙抬头主图指标 源码 贴图






VAR0:=IF(DATE<=1261231,1,0);
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
IF(VAR0=1,BBI,DRAWNULL),COLORYELLOW,LINETHICK5;
IF(CLOSE>BBI AND VAR0=1,BBI,DRAWNULL),COLORRED,LINETHICK5;
IF(CLOSE<BBI AND VAR0=1,BBI,DRAWNULL),COLORGREEN,LINETHICK5;
DIF:=EMA(CLOSE,10)-EMA(CLOSE,33);
DEA:=EMA(DIF,10);
VAR1:=DIF-DEA;
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=EXPMEMA(ADX,6);
VAR2:=PDI-MDI;
VAR3:=ADX-ADXR;
ENTER:=TFILTER(COUNT(CROSS(CLOSE,BBI),10)>0 AND VAR1>0 AND VAR2>0 AND VAR3>0 AND VAR0=1,COUNT(CROSS(BBI,CLOSE),10)>0 AND VAR1<0 AND VAR2<0 AND VAR0=1,1);
EXIT:=TFILTER(COUNT(CROSS(CLOSE,BBI),10)>0 AND VAR1>0 AND VAR2>0 AND VAR3>0 AND VAR0=1,COUNT(CROSS(BBI,CLOSE),10)>0 AND VAR1<0 AND VAR2<0 AND VAR0=1,2);
DRAWICON(ENTER,LOW*0.98,5);{公式之家 BBS.GSZB.TOP}
DRAWTEXT(ENTER,LOW*0.9,'龙抬头'),COLORRED;