通达信满堂红副图源码

 DIFF:=EMA(C,8)-EMA(C,13);

 DEA:=EMA(DIFF,5);

 MACD:=2*(DIFF-DEA);

 A1:=DIFF>DEA;

 K:=SMA((C-LLV(L,8))/(HHV(H,8)-LLV(L,8))*100,3,1);

 D:=SMA(K,3,1);

 J:=3*K-2*D;

 A2:=K>D;

 RSI1:=(SMA(MAX(C-REF(C,1),0),5,1))/(SMA(ABS(C-REF(C,1)),5,1))*100;

 RSI2:=(SMA(MAX(C-REF(C,1),0),13,1))/(SMA(ABS(C-REF(C,1)),13,1))*100;

 A3:=RSI1>RSI2;

 LWR1:=SMA(-(HHV(H,13)-C)/(HHV(H,13)-LLV(L,13))*100,3,1);

 LWR2:=SMA(LWR1,3,1);

  A4:=LWR1>LWR2;

 BBI:=(MA(C,3)+MA(C,5)+MA(C,8)+MA(C,13))/4;

 A5:=C>BBI;

 MMS:=100*EMA(EMA(C-REF(C,1),5),3)/EMA(EMA(ABS(C-REF(C,1)),5),3);

 MMM:=100*EMA(EMA(C-REF(C,1),13),8)/EMA(EMA(ABS(C-REF(C,1)),13),8);

 A6:=MMS>MMM;

 BIAS:=(C-MA(C,5))/MA(C,5);

 DIF:=(BIAS-REF(BIAS,16));

 DBCD:=SMA(DIF,76,1);

 MM:=MA(DBCD,5);

 A7:=DBCD>MM;

 双线持股:3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-

2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1),LINETHICK2,COLORRED;

单线持币:LLV(双线持股,3),LINETHICK2,COLORYELLOW;

运行方向:=MA(双线持股,12),LINETHICK1,COLOR6B8E23;

转向:CROSS(双线持股,运行方向),COLORGRAY;

 MA1:=MA(双线持股,5);

向下:CROSS(MA1,双线持股) AND MA1>80,COLORBLUE;

 A8:=双线持股>运行方向;

主力攻击:=100*EMA(EMA(C-REF(C,1),8),8)/EMA(EMA(ABS(C-REF(C,1)),8),8);

五日攻击:=MA(主力攻击,5);

 A9:=主力攻击>五日攻击;

 PJJ:=DMA((H+L+C*2)/4,0.9);

 JJ:=REF(EMA(PJJ,3),1);

 QJJ:=VOL/((H-L)*2-ABS(C-O));

 XVL:=IF(C>O,QJJ*(H-L),IF(C<O,QJJ*(H-O+C-L),VOL/2))+IF(C>O,0-QJJ*(H-C+O-L),IF(C<O,0-QJJ*(H-L),0-VOL/2));

 HSL:=(XVL/20)/1.15;

攻击流量:=((HSL*0.55+(REF(HSL,1)*0.33))+(REF(HSL,2)*0.22));

 GJJ:=EMA(攻击流量,8);

 LLJX:=EMA(攻击流量,3);

资金流量:=LLJX/1000,LINETHICK0,COLOR0000FF;

 A10:=资金流量>0;

夕阳无限好:=108,COLORYELLOW;

黎明前的黑暗:=0,COLORGRAY;

股价趋势:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100,

 COLORYELLOW,LINETHICK1;

极品逃亡:IF(股价趋势<REF(股价趋势,1) AND 股价趋势>79,股价趋势,夕阳无限好),

COLORGREEN,LINETHICK3;

短线绝杀:(A1+A2+A3+A4+A5+A6+A7+A8+A9+A10)*20,LINETHICK3,COLORFFFF00;{{超级快线，今天买明天卖，线形有点夸张}

VARA:=EMA((C-LLV(L,36))/(HHV(H,30)-LLV(L,36))*4,4)*25,COLOR0000FF,LINETHICK1;

花好月圆:(VARA-LLV(VARA,21))/(HHV(VARA,21)-LLV(VARA,21))*108,

 COLORFF5555,LINETHICK3;{短线}

VAR1:=(C*2+H+L)/4*10;

 VAR2:=EMA(VAR1,13)-EMA(VAR1,34);

 VAR3:=EMA(VAR2,5);

 VAR4:=2*(VAR2-VAR3)*5.5;

 VAR5:=(INDEXC*2+INDEXH+INDEXL)/4;

 VAR6:=EMA(VAR5,13)-EMA(VAR5,34);

 VAR7:=EMA(VAR6,3);

 VAR8:=(VAR6-VAR7)/2;

【以退为进】:=IF(VAR4<=0,VAR4,0),LINETHICK0;

【主动攻击】:=IF(VAR8>=0,VAR8,0),LINETHICK0;

抄底:IF((CROSS(双线持股,10) AND 【主动攻击】>=0.4 AND 【主动攻击】<17

 AND 【以退为进】>-0.68),50,黎明前的黑暗),LINETHICK2,COLORMAGENTA;