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

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

 短线操作

 （一）副图

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