通达信原创－－-短线操作（源码选股/副图 贴图）
此《短线操作》指标与网上看到的短线操作指标是截然不同的，此指标系本人原创。其原理是根据 牛熊力量和买卖压力而编辑的指标。
短线操作
（一）副图
{短线操作(DMI+DMK)}
{牛熊力量}
MTR:=EMA(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:=EMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=EMA(ADX,6);
NX:=PDI/(PDI+MDI)*100;
{买卖压力}
MM1:=SUM(IF(H-REF(C,1)>0,(H-REF(C,1))+(C-L),C-L),8);
MM2:=SUM(IF(REF(C,1)-L>0,(REF(C,1)-L)+(H-C),H-C),8);
DMK:=MM1/(MM1+MM2)*100;
BD:=(NX+DMK)/2;
MBD:EMA(BD,5);
{条件选股}
MAL:=MA(L,3);
TJ1:=REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)>REF(MBD,2) AND REF(MBD,2)>REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
TJ2:=REF(MBD,5)>REF(MBD,4) AND REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)>REF(MBD,2) AND REF(MBD,2)<REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
TJ3:=REF(MBD,6)>REF(MBD,5) AND REF(MBD,5)>REF(MBD,4) AND REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)<REF(MBD,2) AND REF(MBD,2)<REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
XG:=FILTER((TJ1 OR TJ2 OR TJ3) AND MAL>REF(MAL,1),5);
{STICKLINE(XG,35,65,0,-1),COLORRED;} {画垂直线};
IF(XG,50,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK8;{画大圆点}
STICKLINE(C>0,50,50,1,0);
STICKLINE(C>0,75,75,1,0),COLORC6C600;
STICKLINE(C>0,25,25,1,0),COLORGREEN;
（二）选股
{波段操作(DMI+DMK)}
{牛熊力量}
MTR:=EMA(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:=EMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=EMA(ADX,6);
NX:=PDI/(PDI+MDI)*100;
{买卖压力}
MM1:=SUM(IF(H-REF(C,1)>0,(H-REF(C,1))+(C-L),C-L),8);
MM2:=SUM(IF(REF(C,1)-L>0,(REF(C,1)-L)+(H-C),H-C),8);
DMK:=MM1/(MM1+MM2)*100;
BD:=(NX+DMK)/2;
MBD:=EMA(BD,5);
{条件选股}
MAL:=MA(L,3);
TJ1:=REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)>REF(MBD,2) AND REF(MBD,2)>REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
TJ2:=REF(MBD,5)>REF(MBD,4) AND REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)>REF(MBD,2) AND REF(MBD,2)<REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
TJ3:=REF(MBD,6)>REF(MBD,5) AND REF(MBD,5)>REF(MBD,4) AND REF(MBD,4)>REF(MBD,3) AND REF(MBD,3)<REF(MBD,2) AND REF(MBD,2)<REF(MBD,1) AND REF(MBD,1)<MBD AND C>=MA(C,6)*1.004 AND MBD<43;
XG:FILTER((TJ1 OR TJ2 OR TJ3) AND MAL>REF(MAL,1),5);
