统计家数

统计家数



{时间}
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:='                   '+'  今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXT(barpos=p,H*2.18+5,str1),PXDN43,ALIGN4,COLORFFEEAA;
str1:='╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H*2.18+5,str1),PXDN40,ALIGN4,COLOR0088FF;
DRAWTEXT(barpos=p,H*2.18+5,str1),PXDN39,ALIGN4,COLOR0088FF;

上海【亿元】:"SH1A0001$AMOUNT"/100000000,Color91FFEF,LINETHICK0,PRECISION2;
深圳【亿元】:"SZ399001$AMOUNT"/100000000,Color9CFF7A,LINETHICK0,PRECISION2;

上海A股的总个数:STKCOUNT('上海A股'),LINETHICK0;
深圳A股的总个数:STKCOUNT('深圳A股'),LINETHICK0;

小于30 :=ESTDATA(4);
小于60 :=ESTDATA(5);
小于120:=ESTDATA(6);

-240,COLORBLACK;

{-----------------【图解模板】---------------------}

DRAWTEXT(BARPOS=SYSPARAM(2),小于120[p],' \n \n \n★小于MA120的家数：'+NUMTOSTR(小于120[p],0)),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),小于60[p],' \n \n \n \n●小于MA60的家数 ：'+NUMTOSTR(小于60[p],0)),PXDN6,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),小于30[p],' \n \n \n \n \n◆小于MA30的家数 ：'+NUMTOSTR(小于30[p],0)),PXDN10,align4,COLORGREEN;

{柱线}
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p],18,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p],15,0),COLOR0000AA;
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p],10,0),COLOR0000BB;
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p], 8,0),COLOR0000CC;
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p], 5,0),COLOR0000DD;
STICKLINE(BARPOS=DATACOUNT   ,1,小于120[p], 2,0),COLORRED;

STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p],18,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p],15,0),COLOR00AAFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p],10,0),COLOR00BBFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p], 8,0),COLOR00CCFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p], 5,0),COLOR00DDFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60[p], 2,0),Coloryellow;

STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p],18,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p],15,0),COLOR00AA00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p],10,0),COLOR00BB00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p], 8,0),COLOR00CC00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p], 5,0),COLOR00DD00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30[p], 2,0),COLORGREEN;

DRAWTEXT(BARPOS=DATACOUNT-7 ,小于30[p],'MA\n30'),PXUP42,align5,COLORYELLOW;
DRAWTEXT(BARPOS=DATACOUNT-4 ,小于60[p],'MA\n60'),PXUP42,align5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-1 ,小于120[p],'MA\n120'),PXUP42,align5,Coloryellow;

partline(小于30>ref(小于30,1),ma(小于30,1)),LINETHICK2,COLORGREEN;
partline(小于30<=ref(小于30,1),ma(小于30,1)),LINETHICK1,COLORGREEN;
partline(小于60>ref(小于60,1),ma(小于60,1)),LINETHICK2,COLORYELLOW;
partline(小于60<=ref(小于60,1),ma(小于60,1)),LINETHICK1,COLORYELLOW;
partline(小于120>ref(小于120,1),ma(小于120,1)),LINETHICK2,COLORRED;
partline(小于120<=ref(小于120,1),ma(小于120,1)),LINETHICK1,COLORRED;

//