DRAWTEXT_FIX(1,0.073,0,0,HYBLOCK),COLORRED; {行业}

LC:=REF(CLOSE,1);

WRSI:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;

WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;

活跃:=(WRSI-WR10);

活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2));

DRAWTEXT_FIX(1,0.90,0.45,1,STRCAT(STRCAT('活跃：',CON2STR(活跃度比,2)),'％')),COLORCYAN;

MACD:="MACD.MACD",NODRAW;

KK:="KDJ.K",NODRAW;

DD:="KDJ.D",NODRAW;

JJ:="KDJ.J",NODRAW;

MKDJ:=HHV(ABS(MACD),20)/HHV(ABS(MACD),60);

{DRAWBAND((JJ-50)*MKDJ+50,RGB(155,0,0),(KK-50)*MKDJ+50,RGB(0,155,255));

DRAWBAND((KK-50)*MKDJ+50,RGB(155,95,0),(DD-50)*MKDJ+50,RGB(15,45,75));}

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

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

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

J:=3*K-2*D;

A4:=MA(CLOSE,20);

{}

DIF60:=EMA(CLOSE,12/4)-EMA(CLOSE,26/4);

DEA60:=EMA(DIF60,9/2);

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

周MD:=MACD.DIF#WEEK;

周MA:=MACD.DEA#WEEK;

月MD:=MACD.DIF#MONTH;

月MA:=MACD.DEA#MONTH;

RSV60:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36));

K60:=SMA(RSV60,3,1);

D60:=SMA(K60,3,1);

周K:="KDJ.K#WEEK" ;

周D:="KDJ.D#WEEK" ;

月K:="KDJ.K#MONTH" ;

月D:="KDJ.D#MONTH" ;

XG1:=DIF60>=DEA60;

XG2:=DIF>=DEA;

XG3:=周MD>=周MA;

XG4:=月MD>=月MA;

XG5:=K60>= D60;

XG6:=K>=D;

XG7:=周K>=周D;

XG8:=月K>=月D;

XG9:=XG1 AND XG2 AND XG3 AND XG4 AND XG5 AND XG6 AND XG7 AND XG8;

XGE:=XG1 + XG2 + XG3 + XG4 + XG5 + XG6 + XG7 + XG8;

{DRAWNUMBER(XGE=8 AND TIME<=0935,52,XGE),COLORMAGENTA;}

XG:REF(XG9,1)<>1 AND XG9=1,NODRAW;

STICKLINE(XG AND TIME<=0935,0,99,700,0),COLORMAGENTA;