通达信再发一个自制的“对应大盘”，用于“股性评价”

{对应大盘}

  {通达信 对应大盘 用于股性评价}

STICKLINE(INDEXC>=INDEXO,INDEXO,INDEXC,3,0),COLORRED;

STICKLINE(INDEXC>=INDEXO,INDEXH,INDEXL,0.1,0),COLORRED;

STICKLINE(INDEXC<INDEXO,INDEXO,INDEXC,3,0),COLORGREEN;

STICKLINE(INDEXC<INDEXO,INDEXH,INDEXL,0.1,0),COLORGREEN;

大盘收:INDEXC,NODRAW;

大盘开:INDEXO,NODRAW;

大盘高:INDEXH,NODRAW;

大盘低:INDEXL,NODRAW;

个股涨幅:(CLOSE-REF(C,1))/REF(C,1)*100,NODRAW;

大盘涨幅:(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100,NODRAW,COLORYELLOW;{对应}

个股振幅:(H-L)/L*100,NODRAW;{今日}

大盘振幅:(INDEXH-INDEXL)/INDEXL*100,NODRAW;{对应}

A:=REF(HY_INDEXC,1);{对应行业}

行业涨幅:IF(A>0,(HY_INDEXC-A)*100/A,0),NODRAW,COLORMAGENTA;

对应上涨家数:=INDEXADV{,LINETHICK0};

对应下跌家数:=INDEXDEC{,LINETHICK0};

DRAWTEXT_FIX(1,0.070,0.000,0,STRCAT(STRCAT('大盘总上涨家数: ',CON2STR(DYNAINFO(60),0)),' 家')),COLORRED;

DRAWTEXT_FIX(1,0.210,0.000,0,STRCAT(STRCAT('大盘总下跌家数: ',CON2STR(DYNAINFO(61),0)),' 家')),COLORGREEN;

DRAWTEXT_FIX(1,0.350,0.000,0,STRCAT(STRCAT('对应上涨家数: ',CON2STR(INDEXADV,0)),' 家')),COLORRED;

DRAWTEXT_FIX(1,0.490,0.000,0,STRCAT(STRCAT('对应下跌家数: ',CON2STR(INDEXDEC,0)),' 家')),COLORGREEN;