通达信原创－－-短线操作（源码选股/副图 贴图）

此《短线操作》指标与网上看到的短线操作指标是截然不同的，此指标系本人原创。其原理是根据 牛熊力量和买卖压力而编辑的指标。

短线操作

（一）副图

{短线操作(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
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
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

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
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
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

XG:FILTER((TJ1 OR TJ2 OR TJ3) AND MAL REF(MAL,1),5);