DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),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];
DRAWTEXTEX(CLOSE,1,480,22,STR1),colorDDFF;
量5:MA(VOL,5),colorred;
量10:MA(VOL,10);
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:VOL,POINTDOT,COLORE4C1EE;
主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主动卖盘:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
STICKLINE(VOL>0,VOL,0,8,0),ColorA697AF;
STICKLINE(主动买盘>0,0,主动买盘,7,0),color6F41ED;
STICKLINE(主动卖盘>0,0,主动卖盘,5,0),COLOR6CD100;
PARTLINE(MA(VOL,5)>=REF(MA(VOL,5),1),MA(VOL,5)),COLORRED,LINETHICK2;
PARTLINE(MA(VOL,5)<=REF(MA(VOL,5),1),MA(VOL,5)),COLOR00C700,LINETHICK2;
换手率:IF(CAPITAL=0,INDEXV/ESTDATA(12),VOL/FINANCE(7)),PRECISION2,LINETHICK0;
买卖比:=主动买盘/主动卖盘;
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
买入量:=(VD9+VD8);
卖出量:=(VD6+VD7);
买入资金:=买入量*close/100;
卖出资金:=卖出量*close/100;
资金进出:=买入资金-卖出资金;
买卖资金比:=买入资金/卖出资金;
挂单买盘:=MA(主动买盘,3);
挂单卖盘:=(MA(主动卖盘,3));
yyzq:=(sysparam(3)-sysparam(2));
FILL:=barscount(c)>SYSPARAM(2) and barscount(c)<if(sysparam(3)-sysparam(2)>20,SYSPARAM(2)+INTPART(yyzq/2),20);
pich:=refx(hhv(成交,yyzq),yyzq);
picl:=refx(llv(挂单卖盘,yyzq),yyzq);
fillrgn(fill,refx(pich,yyzq),refx(picl,yyzq)),Color026C1D;
DRAWTEXTEX(c,1,2,120,'┃当日买卖总量 = '+NUMTOSTR(VOL,2)),ColorA6B7F3;
DRAWTEXTEX(c,1,2,200,'┃当日主动买量 = '+NUMTOSTR(主动买盘,2)),Color0000FF;
DRAWTEXTEX(c,1,2,280,'┃当日主动卖量 = '+NUMTOSTR(主动卖盘,2)),Color00FF00;
DRAWTEXTEX(c,1,2,360,'┃当日买卖比 : '+NUMTOSTR(买卖比,2)),ColorFF00FF;
DRAWTEXTEX(c,1,2,440,'┃买入资金累计万元 : '+NUMTOSTR(买入资金,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,2,520,'┃卖出资金累计万元 : '+NUMTOSTR(卖出资金,2)),Color00ff00,LINETHICK1;
DRAWTEXTEX(c,1,2,600,'┃资金进出万元 : '+NUMTOSTR(资金进出,2)),Coloryellow,LINETHICK1;
DRAWTEXTEX(c,1,2,680,'┃买卖资金比 : '+NUMTOSTR(买卖资金比,2)),Coloryellow,LINETHICK1;
DRAWTEXTEX(c,1,2,760,'┃当日挂单买盘 : '+NUMTOSTR(挂单买盘,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,2,840,'┃当日挂单卖盘 : '+NUMTOSTR(挂单卖盘,2)),Color00ff00,LINETHICK1;
