通达信短线宝典提供源码附图

{短线宝}
D:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,20);
 J:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,5) ;
 BIAS1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
 BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
 BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
 MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6;
 MN:=MA(MM,3);
 VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100;
 VAR2:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
 VAR3:=(2*CLOSE+HIGH+LOW)/4;
 VAR4:=LLV(LOW,26);
 VAR5:=HHV(HIGH,34);
 VAR6:=EMA((VAR3-VAR4)/(VAR5-VAR4)*100,16);
 VAR7:=SMA((SMA(VAR2,3,1)+3),3,1),LINETHICK3;
 VAR8:=EMA(VAR6,7);
 VAR9:=SMA(VAR1,3,1);
 VAR10:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
 VAR11:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
 VAR12:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
 VAR13:=(VAR10+VAR11+VAR12)/3;
 VAR14:=IF(VAR13<=-20,10,0);
 VAR15:=HHV(VAR14,10);
 VAR24:=LLV(LOW,36);
 VAR25:=HHV(HIGH,30);
 VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25;
 K:EMA(D,3),COLOR00FF00,LINETHICK1;
 M:EMA(J,7),COLORRED,LINETHICK1;
股经:J,COLORLIMAGENTA,LINETHICK2;
底观察:IF(MN<-4,10,0),COLORLIBLUE,LINETHICK2;
底背离: IF((VAR26<10),90,100), COLORGREEN,LINETHICK2;
顶背离: IF((VAR26>90),5,18), COLOR808000,LINETHICK2;

{股海神偷}
AA:=LLV(LOW,36);
 BB:=HHV(HIGH,30);
 DD:=(EMA(((CLOSE-AA)/(BB-AA))*(4),4))*(25);
股海:=(((DD-LLV(DD,21))/(HHV(DD,21)-LLV(DD,21)))*(4))*(25);
跟踪:10,COLOR0000FF,LINETHICK1;
神偷出现:IF((COUNT((DD>REF(DD,1)),1)=1) AND (REF(DD,1)<REF(REF(DD,1),1)) AND (DD<跟踪),20,0),COLORF00FF0;
 DRAWICON(CROSS(10,股经),5,1);
 V1:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100;
 V2:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100;
 V3:=SMA(V2,2,1);
顶:100+(-ABS(V1)),COLORGRAY;
底:ABS(V1),COLORGRAY;

VR1:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
 VR2:=SMA(VR1,3,1);
 VR3:=SMA(VR2,3,1);
 VR4:=SMA(VR3,3,1);
 VR5:=CROSS(VR3,VR4) AND VR3<20;
 VR8:=CROSS(VR2,VR3) AND VR3>80 AND VR3>VR4;
 VR9:=CROSS(VR4,VR3) AND VR3>80;
 DRAWTEXT(FILTER(VR5,10)=1,21,'底'),COLORRED;
 STICKLINE(FILTER(VR5,10)=1,0,20,2,0),COLORRED;
 STICKLINE(FILTER(VR9,5)=1,80,100,2,0),COLORGREEN;
 DRAWTEXT(FILTER(VR9,5)=1,79,'顶'),COLORGREEN;
 STICKLINE(VR8,85,100,2,0),COLOR0099FF;