{时间}
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,HIGH,'\n \n'+str1),PXUP10,ALIGN2,COLORFFEEAA;
str2:=' ╭☆╯大均习作╰☆╮';
DRAWTEXT(BARPOS=p,HIGH,'\n \n'+str2),PXUP10,ALIGN2,COLOR0088FF;
DRAWTEXT(BARPOS=p,HIGH,'\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);小于30a:=SUM(ESTDATA(4),5)/5;
小于30b:FORCAST(小于30a,5);
小于60a:=SUM(ESTDATA(5),5)/5;
小于60b:FORCAST(小于60a,5);
小于120a:=SUM(ESTDATA(6),5)/5;
小于120b:FORCAST(小于120a,5);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;{DRAWTEXT(BARPOS=SYSPARAM(2),上海A[p],' \n \n \n ★上海A股的总个数：'+NUMTOSTR(上海A[p],0)),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),深圳A[p],' \n \n \n \n ●深圳A股的总个数：'+NUMTOSTR(深圳A[p],0)),PXDN6,align4,COLORYELLOW;
}
{柱线}
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p],18,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p],15,0),COLOR0000AA;
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p],10,0),COLOR0000BB;
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p], 8,0),COLOR0000CC;
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p], 5,0),COLOR0000DD;
STICKLINE(BARPOS=DATACOUNT ,1,小于120b[p], 2,0),COLORRED;STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p],18,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p],15,0),COLOR00AAFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p],10,0),COLOR00BBFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p], 8,0),COLOR00CCFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p], 5,0),COLOR00DDFF;
STICKLINE(BARPOS=DATACOUNT-3 ,0,小于60b[p], 2,0),Coloryellow;STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p],18,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p],15,0),COLOR00AA00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p],10,0),COLOR00BB00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p], 8,0),COLOR00CC00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p], 5,0),COLOR00DD00;
STICKLINE(BARPOS=DATACOUNT-6 ,0,小于30b[p], 2,0),COLORGREEN;DRAWTEXT(BARPOS=DATACOUNT-7 ,小于30b[p],'MA\n30'),PXUP42,align5,COLORYELLOW;
DRAWTEXT(BARPOS=DATACOUNT-4 ,小于60b[p],'MA\n60'),PXUP42,align5,COLORWHITE;
DRAWTEXT(BARPOS=DATACOUNT-1 ,小于120b[p],'MA\n120'),PXUP42,align5,Coloryellow;PARTLINE(小于30b>REF(小于30b,1),MA(小于30b,1)),LINETHICK2,COLORGREEN;
PARTLINE(小于30b<=REF(小于30b,1),MA(小于30b,1)),LINETHICK1,COLORGREEN;
PARTLINE(小于60b>REF(小于60b,1),MA(小于60b,1)),LINETHICK2,COLORYELLOW;
PARTLINE(小于60b<=REF(小于60b,1),MA(小于60b,1)),LINETHICK1,COLORYELLOW;
PARTLINE(小于120b>REF(小于120b,1),MA(小于120b,1)),LINETHICK2,COLORRED;
PARTLINE(小于120b<=REF(小于120b,1),MA(小于120b,1)),LINETHICK1,COLORRED; |
