通达信『红紫共振』副图及选股指标，红柱潜伏紫柱启动聚焦主力吸筹阶段

gsptGL1:=IF(CODELIKE('68') OR CODELIKE('8') OR CODELIKE('9') OR CODELIKE('4'),0,1);

gsptGL2:=IF(CODELIKE('ST') OR CODELIKE('*ST') OR CODELIKE('*S') OR CODELIKE('S'),0,1);

gsptGL3:=gsptGL1 AND gsptGL2;

TDX:=REF(CLOSE,1);

ZBLJ:=((SMA(MAX((CLOSE - TDX),0),3,1) / SMA(ABS((CLOSE - TDX)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA21:=EMA(CLOSE,21);

gspt1:=IF(YEAR>=2038 AND MONTH>=1,0,1);

gspt2:=REF(LOW,1)*gspt1;

gspt3:=SMA(ABS(LOW-gspt2),3,1)/SMA(MAX(LOW-gspt2,0),3,1)*100*gspt1;

gspt4:=EMA(IF(CLOSE*1.3,gspt3*10,gspt3/10),3)*gspt1;

gspt5:=LLV(LOW,30)*gspt1;

gspt6:=HHV(gspt4,30)*gspt1;

gspt7:=IF(MA(CLOSE,58),1,0)*gspt1;

gspt8:=EMA(IF(LOW<=gspt5,(gspt4+gspt6*2)/2,0),3)/618*gspt7*gspt1  红柱:IF(gspt8>100,100,gspt8)*gspt1,COLORRED;

共振:STICKLINE(红柱>-150,0,红柱,8,0),COLORRED;

M:=55;

N:=34;

SH:=100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),COLORLIBLUE,LINETHICK1;

ZBLJ1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;

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

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

J:=3*K-2*D;

阶段:EMA(J,6),COLORLIRED,LINETHICK2;

ZBLJ4:=C>MA(C,30);

TDXLFXJ:=HIGH-MAX(CLOSE, OPEN);

ZBLJ2:=ABS(CLOSE-OPEN);

ZBLJ3:=TDXLFXJ<=ZBLJ2;

STICKLINE(CROSS(阶段,SH)AND ZBLJ3 AND gsptGL3 AND C>O,0,60,2,0),LINETHICK3,COLORMAGENTA;

DRAWICON(CROSS(阶段,SH)AND ZBLJ3 AND  gsptGL3 AND C>O,60,9);

DRAWTEXT(CROSS(阶段,SH)AND ZBLJ3 AND  gsptGL3 AND C>O,56,'▲启动'),COLORYELLOW;