通达信自用量能副图指标 源码分享 附图

通达信自用量能副图指标 源码分享 附图

X_1:=30;
X_2:=10;
X_3:=VOL/10000*CLOSE/100;
X_4:=REF(CLOSE,1);
X_5:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100);
X_6:=(CLOSE-X_4)*X_5;
X_7:=SUM(X_6,0);
X_8:=X_7;
X_9:=MA(X_8,X_1);
DRAWBAND(X_9,RGB(0,0,80),X_8,RGB(160,0,0));
X_10:=REF(X_8,X_2)=HHV(X_8,2*X_2+1);
X_11:=FILTER(X_10,X_2);
X_12:=BACKSET(X_11,X_2+1);
X_13:=FILTER(X_12,X_2);
T线:REF(X_8,BARSLAST(X_13)),COLORWHITE,NODRAW;
STICKLINE(CLOSE>0,T线,T线,6,0),COLORMAGENTA;
JZOBV:X_8,COLORWHITE;
MA30:MA(JZOBV,X_1),COLORYELLOW;
量线:HHV(X_7,0),LINETHICK2,COLORRED;

获利筹码:=CONST(WINNER(C)*100);
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能饱和:=(IF(SAT>1,1,SAT)*100);
LC1:=REF(CLOSE,1);
WRSI:=SMA(MAX(CLOSE-LC1,0),5,1)/SMA(ABS(CLOSE-LC1),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.84,0.35,1,STRCAT(STRCAT('活跃度比： ',CON2STR(活跃度比,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(1,0.94,0.15,1,STRCAT(STRCAT('量能饱和： ',CON2STR(量能饱和,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(1,0.94,0.35,1,STRCAT(STRCAT('获利筹码： ',CON2STR(获利筹码,2)),'％')),COLORYELLOW;