通达信涨跌家数统计指标(源码)

沪A涨家数:='999999$ADVANCE',COLORRED,NODRAW;
沪A跌家数:='999999$DECLINE',COLORGREEN,NODRAW;
深A涨家数:='399107$ADVANCE',COLORRED,NODRAW;
深A跌家数:='399107$DECLINE',COLORGREEN,NODRAW;
上涨总家数:沪A涨家数+深A涨家数,COLORRED,NODRAW;
上涨总家数比:(沪A涨家数+深A涨家数)/(沪A涨家数+沪A跌家数+深A涨家数+深A跌家数)*100,COLORRED,NODRAW;
下跌总家数:沪A跌家数+深A跌家数,COLORGREEN,NODRAW;
下跌总家数比:(沪A跌家数+深A跌家数)/(沪A涨家数+沪A跌家数+深A涨家数+深A跌家数)*100,COLORGREEN,NODRAW;
STICKLINE(上涨总家数>0,0,上涨总家数,1,0),COLORRED;
STICKLINE(下跌总家数>0,2500,2500+下跌总家数,1,0),COLORGREEN;
AAA1:=STRCAT('上涨总家数 ',CON2STR(上涨总家数,0) );
DRAWTEXT_FIX(ISLASTBAR,0.7,0.00,0,AAA1),COLORRED;
AAA2:=STRCAT(STRCAT('上涨总家数比 ',CON2STR(上涨总家数比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.7,0.06,0,AAA2),COLORRED;
AAA3:=STRCAT('下跌总家数 ',CON2STR(下跌总家数,0) );
DRAWTEXT_FIX(ISLASTBAR,0.7,0.12,0,AAA3),COLORGREEN;
AAA4:=STRCAT(STRCAT('下跌总家数比 ',CON2STR(下跌总家数比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.7,0.18,0,AAA4),COLORGREEN;