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;
PARTLINE(MA(VOL,5)》=REF(MA(VOL,5),1),MA(VOL,5)),COLORRED,LINETHICK4;
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,20,‘┃当日买卖总量 = ’+NUMTOSTR(VOL,2)),ColorA6B7F3;
{DRAWTEXTEX(c,1,2,200,‘┃当日主动买量 = ’+NUMTOSTR(主动买盘,2)),Color0000FF;}
{DRAWTEXTEX(c,1,240,200,‘┃当日主动卖量 = ’+NUMTOSTR(主动卖盘,2)),Color00FF00;}
{DRAWTEXTEX(c,1,2,320,‘┃当日买卖比 : ’+NUMTOSTR(买卖比,2)),ColorFFFFFF;}
DRAWTEXTEX(c,1,2,120,‘┃买入资金累计万元 : ’+NUMTOSTR(买入资金,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,300,120,‘┃卖出资金累计万元 : ’+NUMTOSTR(卖出资金,2)),Color00ff00,LINETHICK1;
DRAWTEXTEX(c,1,600,120,‘┃资金进出万元 : ’+NUMTOSTR(资金进出,2)),Coloryellow,LINETHICK1;
{DRAWTEXTEX(c,1,440,320,‘┃买卖资金比 : ’+NUMTOSTR(买卖资金比,2)),Coloryellow,LINETHICK1;}
DRAWTEXTEX(c,1,2,250,‘┃当日挂单买盘 : ’+NUMTOSTR(挂单买盘,2)),Colorred,LINETHICK1;
DRAWTEXTEX(c,1,260,250,‘┃当日挂单卖盘 : ’+NUMTOSTR(挂单卖盘,2)),Color00ff00,LINETHICK1;