tzwxlj1 2007-11-30 09:28
统计家数A
{统计家数A}
{时间}
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,'\n \n'+str1),PXUP10,ALIGN2,COLORFFEEAA;
str2:=' ╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H,'\n \n'+str2),PXUP10,ALIGN2,COLOR0088FF;
DRAWTEXT(barpos=p,H,'\n \n'+str2),PXUP9,ALIGN2,COLOR0088FF;
上海【亿元】:"SH1A0001$AMOUNT"/100000000,Color91FFEF,LINETHICK0,PRECISION2;
深圳【亿元】:"SZ399001$AMOUNT"/100000000,Color9CFF7A,LINETHICK0,PRECISION2;
上涨:indexadv,LINETHICK0;
下跌:indexdec,LINETHICK0;
上海A股的总个数:STKCOUNT('上海A股'),LINETHICK0;
深圳A股的总个数:(STKCOUNT('深圳A股')+STKCOUNT('中小企业')),LINETHICK0;
上海A:=上海A股的总个数;
深圳A:=深圳A股的总个数;
总:=(上海A+深圳A);
小于30 :=ESTDATA(4);
小于60 :=ESTDATA(5);
小于120:=ESTDATA(6);
aa:=小于120/总;
bb:=小于60/总;
cc:=小于30/总;
-240,COLORBLACK;
{-----------------【图解模板】---------------------}
DRAWTEXT(BARPOS=SYSPARAM(2),小于120[p],' \n \n \n★小于MA120的家数：'+NUMTOSTR(小于120[p],0)),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),aa[p],' \n \n \n ★占：'+NUMTOSTR(aa[p]*100,2)+'%'),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),小于60[p],' \n \n \n \n●小于MA60的家数 ：'+NUMTOSTR(小于60[p],0)),PXDN6,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),bb[p],' \n \n \n \n ●占：'+NUMTOSTR(bb[p]*100,2)+'%'),PXDN6,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),小于30[p],' \n \n \n \n \n◆小于MA30的家数 ：'+NUMTOSTR(小于30[p],0)),PXDN10,align4,COLORGREEN;
DRAWTEXT(BARPOS=SYSPARAM(2),cc[p],' \n \n \n \n \n ◆占：'+NUMTOSTR(cc[p]*100,2)+'%'),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;
//