通达信活跃强度指标公式源码附图
{指标介绍：粉柱主力拉升阶段。}
强度:C/MA(C,60)*100-100;
高:15;
中:10;
零:0;
强弱线:IF(C>MA(C,5),1,0)+IF(C>MA(C,13),1,0)+IF(C>MA(C,21),1,0)+IF(C>MA(C,34),1,0)+IF(C>MA(C,55),1,0)+IF(C>MA(C,89),1,0)+IF(C>MA(C,144),1,0)+IF(C>MA(C,233),1,0)+-3.8,COLORMAGENTA,NODRAW;
主拉:MA(((H+L+C)/3-LLV((H+L+C)/3,15))/(HHV((H+L+C)/3,15)-LLV((H+L+C)/3,15)),2)*100,COLOR000080,NODRAW;
VR1:=AMOUNT/((HIGH-LOW)*2-Abs(CLOSE-OPEN));
庄线:=EMA(3*SMA((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,3,1),3,1),6),COLORRED,LINETHICK1;
散:100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55)),COLORGREEN,NODRAW;
STICKLINE(强弱线=4.2 AND 强度>=15,15,强度,4,0),COLORFF00FF;
STICKLINE(主拉=100 AND 强度>=15,15,强度,2,0),COLORGRAY;
STICKLINE(散=0 AND 强度>=15,15,强度,1,0),COLORYELLOW;
U_1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,9))/3;
U_2:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20)+MA(CLOSE,25)+MA(CLOSE,30))/6;
IF(U_1>REF(U_1,1) AND U_1>U_2,U_1,DRAWNULL),COLORRED;
U_3:=CLOSE/REF(CLOSE,1)>=1.098 AND CLOSE=HIGH;
U_4:=COUNT(U_3,2)>=1 AND NOT(COUNT(U_3,3)>=2);
U_5:=FILTER(U_4,13),COLORRED;
U_6:=COUNT(U_3,3)>=2 AND NOT(COUNT(U_3,4)>=3);
U_7:=U_5 AND COUNT(U_5,18)=1,COLORRED;
U_8:=FILTER(U_6,13);
DRAWICON(U_7,0,24);
DRAWICON(U_8,0,25);
过头:crOSS(C,REF(HHV(H,60),1)),NODRAW,COLORRED;
DRAWTEXT(过头=1,强度*1.5,'过头'),COLORCYAN;
活跃度:INTPART(MAX(MAX(MAX(MAX(MAX(MAX((HIGH-IF(CLOSE>=OPEN,CLOSE,OPEN))/IF(CLOSE>=OPEN,CLOSE,OPEN)*100+(IF(CLOSE<=OPEN,CLOSE,OPEN)-LOW)/LOW*100,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100),(CLOSE-OPEN)/OPEN*100+(IF(CLOSE<=OPEN,CLOSE,OPEN)-LOW)/LOW*100),(CLOSE-OPEN)/OPEN*100+(HIGH-IF(CLOSE>=OPEN,CLOSE,OPEN))/IF(CLOSE>=OPEN,CLOSE,OPEN)*100),(IF(CLOSE<=OPEN,CLOSE,OPEN)-LOW)/LOW*100),(HIGH-IF(CLOSE>=OPEN,CLOSE,OPEN))/IF(CLOSE>=OPEN,CLOSE,OPEN)*100),(OPEN-REF(CLOSE,1))/REF(CLOSE,1)*100)*10),COLORBLUE,NODRAW;
STICKLINE(活跃度>=99 AND 强度>14,0,10,1,0),COLORLIRED;
