指标公式第1177：通达信红紫共振

UU111:=IF(CODELIKE('68') OR CODELIKE('8') OR CODELIKE('9') OR CODELIKE('4'),0,1);
UU112:=IF(CODELIKE('ST') OR CODELIKE('*ST') OR CODELIKE('*S') OR CODELIKE('S'),0,1);
UU113:=UU111 AND UU112;
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);
GPGSZB1:=IF(YEAR>=2038 AND MONTH>=1,0,1);
GPGSZB2:=REF(LOW,1)*GPGSZB1;
GPGSZB3:=SMA(ABS(LOW-GPGSZB2),3,1)/SMA(MAX(LOW-GPGSZB2,0),3,1)*100*GPGSZB1;
GPGSZB4:=EMA(IF(CLOSE*1.3,GPGSZB3*10,GPGSZB3/10),3)*GPGSZB1;
GPGSZB5:=LLV(LOW,30)*GPGSZB1;
GPGSZB6:=HHV(GPGSZB4,30)*GPGSZB1;
GPGSZB7:=IF(MA(CLOSE,58),1,0)*GPGSZB1;
GPGSZB8:=EMA(IF(LOW<=GPGSZB5,(GPGSZB4+GPGSZB6*2)/2,0),3)/618*GPGSZB7*GPGSZB1 ;
红柱:IF(GPGSZB8>100,100,GPGSZB8)*GPGSZB1,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 UU113 AND C>O,0,60,2,0),LINETHICK3,COLORMAGENTA;
DRAWICON(CROSS(阶段,SH)AND ZBLJ3 AND UU113 AND C>O,60,9);
DRAWTEXT(CROSS(阶段,SH)AND ZBLJ3 AND UU113 AND C>O,56,'▲启动'),COLORYELLOW;

GPGSZB1:=IF(CODELIKE('68') OR CODELIKE('8') OR CODELIKE('9') OR CODELIKE('4'),0,1);
GPGSZB2:=IF(CODELIKE('ST') OR CODELIKE('*ST') OR CODELIKE('*S') OR CODELIKE('S'),0,1);
GPGSZB3:=GPGSZB1 AND GPGSZB2;
M:=55;
N:=34;
SH:=100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M));
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;
XG:CROSS(阶段,SH)AND ZBLJ3 AND GPGSZB3 AND C>O;