市场情绪副图指标通达信指标 副图 源码 测试图

SJ:=ISLASTBAR AND MACHINETIME>085000 AND MACHINETIME<170000 AND MACHINEWEEK<6 AND MACHINEWEEK<>0;
N:=MONTH;
YF:=IF(C<>0,MONTH,DRAWNULL);
CZ:=YF<>REF(YF,1);
JJ0:=BARSLAST(CZ);
 
{JJ1:=BARSLASTS(CZ,N-(N-1));}
{JJ2:=BARSLASTS(CZ,N-(N-1)+1);}
QS1:=COUNT("880005$C">=3000,JJ0+1);
{QS2:=COUNT("880005$C">=3000,JJ2-JJ1+1);}
{　上涨:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$C",0),'家')),COLORRED,NODRAW;}
　下跌:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$O",0),'家')),COLORGREEN,NODRAW;
　涨幅≥3%:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$C"-"880005$ADVANCE"-"880006$C",0),'家')),COLORLIRED,NODRAW;{不包含涨停}
　跌幅≥3%:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$O"-"880005$DECLINE"-"880006$O",0),'家')),COLORLIGREEN,NODRAW;{不包含跌停}
　涨停:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(SJ,"880006$C",SCJYVALUE(24,1,0)),0),'家')),NODRAW,COLORMAGENTA;{交易日8:50-17:00返回停板家数里的数据,其余时间返回不包含ST涨停的涨停家数}
　跌停:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(SJ,"880006$O",SCJYVALUE(24,2,0)),0),'家')),NODRAW,COLORCYAN;{交易日8:50-17:00返回停板家数里的数据,其余时间返回不包含ST跌停的跌停家数};
{　上涨≥3000家:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(YF<>0,QS1,QS2),0),'天')),COLOR09C9E0,NODRAW; }  {当月或往月上涨家数>=3000的天数统计};