通达信平台MACD筹码分析副图指标 买卖量化指标 源码 贴图

ZLCM:=EMA(WINNER(C)*70,3);
SHCM:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,3);
ZSHTL:=EMA(EMA(SHCM/(ZLCM+SHCM)*100,2),2);
ZZLKP:=EMA(EMA(ZLCM/(ZLCM+SHCM)*100,2),2);
ZZLKP5:=MA(ZZLKP,5);
ZSHJJ:=EMA(ZSHTL,89);
ZZLJJ:=EMA(ZZLKP,89);
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);
ZJLRQD3:=MA(ZJLRQD,3);
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
{绿}
STICKLINE(C,0,8,9,0),COLOR00AA00;
STICKLINE(C,0,8,5,0),COLOR00CE00;
STICKLINE(C,0,8,1,0),COLOR2DFF2D;
{红}
STICKLINE(ZZLKP>80,0,8,9,0 ),COLOR0000BB;
STICKLINE(ZZLKP>80,0,8,5,0 ),COLOR0000F0;
STICKLINE(ZZLKP>80,0,8,1,0 ),COLOR3535FF;
{紫}
STICKLINE((DKB>0 OR ZJLRQD>ZJLRQD3) AND ZZLKP>80,0,8,9,0 ),COLOR9B009B;
STICKLINE((DKB>0 OR ZJLRQD>ZJLRQD3) AND ZZLKP>80,0,8,5,0 ),COLORCA00CA;
STICKLINE((DKB>0 OR ZJLRQD>ZJLRQD3) AND ZZLKP>80,0,8,1,0 ),COLORFF28FF;
强:=EMA((C-REF(C,1))/C*10,2);
差A:=3*EMA(EMA(EMA(EMA(强,2),2),2),2),NODRAW;
参数:=IF(C>500,100,10);
净流:=3*EMA(EMA(EMA(EMA(差A,1),2),2),2)*参数;
{绿}
STICKLINE(C,16,24,9,0),COLOR00AA00;
STICKLINE(C,16,24,5,0),COLOR00CE00;
STICKLINE(C,16,24,1,0),COLOR2DFF2D;
{红}
STICKLINE(ZZLKP>ZZLKP5 AND C>MA(C,15) AND 净流>0,16,24,9,0 ),COLOR0000BB;
STICKLINE(ZZLKP>ZZLKP5 AND C>MA(C,15) AND 净流>0,16,24,5,0 ),COLOR0000F0;
STICKLINE(ZZLKP>ZZLKP5 AND C>MA(C,15) AND 净流>0,16,24,1,0 ),COLOR3535FF;
{紫}
STICKLINE((C>MA(C,15) AND 净流>0 AND (净流>REF(净流,1) OR ZJLRQD> ZJLRQD3)) OR (ZZLKP>ZZLKP5 AND ZJLRQD>ZJLRQD3 AND ZZLJJ>REF(ZZLJJ,1)),16,24,9,0 ),COLOR9B009B;
STICKLINE((C>MA(C,15) AND 净流>0 AND (净流>REF(净流,1) OR ZJLRQD> ZJLRQD3)) OR (ZZLKP>ZZLKP5 AND ZJLRQD>ZJLRQD3 AND ZZLJJ>REF(ZZLJJ,1)),16,24,5,0 ),COLORCA00CA;
STICKLINE((C>MA(C,15) AND 净流>0 AND (净流>REF(净流,1) OR ZJLRQD> ZJLRQD3)) OR (ZZLKP>ZZLKP5 AND ZJLRQD>ZJLRQD3 AND ZZLJJ>REF(ZZLJJ,1)),16,24,1,0 ),COLORFF28FF;
主力控盘:ZZLKP,NODRAW;{WWW.GPXIAZAI.COM}
RSV1:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K1:=SMA(RSV1,3,1);
D1:=SMA(K1,3,1);
KK:=INTPART(K1);
DD:=INTPART(D1);
{绿}
STICKLINE(C,32,40,9,0),COLOR00AA00;
STICKLINE(C,32,40,5,0),COLOR00CE00;
STICKLINE(C,32,40,1,0),COLOR2DFF2D;
{红}
STICKLINE(ZZLKP>ZZLKP5 AND (K1>REF(K1,1) OR DKB>0 OR K1>D1),32,40,9,0 ),COLOR0000BB;
STICKLINE(ZZLKP>ZZLKP5 AND (K1>REF(K1,1) OR DKB>0 OR K1>D1),32,40,5,0 ),COLOR0000F0;
STICKLINE(ZZLKP>ZZLKP5 AND (K1>REF(K1,1) OR DKB>0 OR K1>D1),32,40,1,0 ),COLOR3535FF;
TFXXS:=KK+DD;
TGLXS:=EMA(EMA((TFXXS-REF(TFXXS,1)),2),2);
STICKLINE(C,18,23,8,0),COLORGREEN;
STICKLINE(ZJLRQD>ZSHTL, 18,23,8,0),COLORRED;
STICKLINE(ZJLRQD>ZSHTL AND TGLXS>0, 18,23,8,0),COLORMAGENTA;
平台:=100;
{绿}
STICKLINE(C,平台,平台+净流,9,0),COLOR00AA00;
STICKLINE(C,平台,平台+净流,5,0),COLOR00CE00;
STICKLINE(C,平台,平台+净流,1,0),COLOR2DFF2D;
{红}
STICKLINE((净流<REF(净流,1)AND 净流>0) OR (净流>REF(净流,1)AND 净流<0),平台,平台+净流,9 ,0 ),COLOR0000BB;
STICKLINE((净流<REF(净流,1)AND 净流>0) OR (净流>REF(净流,1)AND 净流<0),平台,平台+净流,5 ,0 ),COLOR0000F0;
STICKLINE((净流<REF(净流,1)AND 净流>0) OR (净流>REF(净流,1)AND 净流<0),平台,平台+净流,1 ,0 ),COLOR3535FF;
{红}
STICKLINE(TGLXS>0 AND 净流>0,平台,平台+净流,9,0 ),COLOR0000BB;
STICKLINE(TGLXS>0 AND 净流>0,平台,平台+净流,5,0 ),COLOR0000F0;
STICKLINE(TGLXS>0 AND 净流>0,平台,平台+净流,1,0 ),COLOR3535FF;
{黄}
STICKLINE(净流<REF(净流,1)AND 净流>0,平台,平台+净流,9,0 ),COLOR00C4C4;
STICKLINE(净流<REF(净流,1)AND 净流>0,平台,平台+净流,5,0 ),COLOR00EAEA;
STICKLINE(净流<REF(净流,1)AND 净流>0,平台,平台+净流,1,0 ),COLOR46FFFF;
{黄}
STICKLINE(ZJLRQD>0,60,60+ZJLRQD,9,0 ),COLOR00C4C4;
STICKLINE(ZJLRQD>0,60,60+ZJLRQD,5,0 ),COLOR00EAEA;
STICKLINE(ZJLRQD>0,60,60+ZJLRQD,1,0 ),COLOR46FFFF;
{红}
STICKLINE(ZJLRQD>0 AND ZZLKP>REF(ZZLKP,1)AND 净流>0,60,60+ZJLRQD,9 ,0 ),COLOR0000BB;
STICKLINE(ZJLRQD>0 AND ZZLKP>REF(ZZLKP,1)AND 净流>0,60,60+ZJLRQD,5 ,0 ),COLOR0000F0;
STICKLINE(ZJLRQD>0 AND ZZLKP>REF(ZZLKP,1)AND 净流>0,60,60+ZJLRQD,1 ,0 ),COLOR3535FF;
出:IF(ZZLKP>75 AND C>MA(C,15),70,0),COLORWHITE;
打:IF(C>MA(C,20) AND ZZLKP>REF(ZZLKP,1) AND 净流>REF(净流,1),50,0),COLORWHITE;