源码
AA:=SUM(IF(CLOSE>REF(CLOSE,1) AND VOL>REF(VOL,1),VOL,0),2);
BB:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL<REF(VOL,1),VOL,0),2);
DD:=AA-BB;
X0:=IF(DD>0 AND (CLOSE/REF(CLOSE,1)-1)*100>0,AMOUNT/10000,0);
X1:=IF(DD<0 AND (CLOSE/REF(CLOSE,1)-1)*100<0,AMOUNT/10000,0);
DDX:(X0-X1)/FINANCE(7)*CLOSE/100,LINETHICK0;
选股:DDX>=0 AND (CLOSE/REF(CLOSE,1)-1)*100>4,LINETHICK0;
STICKLINE(DDX>0,0,DDX,8,0),colorAAFF;
STICKLINE(DDX>0,0,DDX,6.6,0),colorBBFF;
STICKLINE(DDX>0,0,DDX,4.4,0),colorCCFF;
STICKLINE(DDX>0,0,DDX,3.3,0),colorDDFF;
STICKLINE(DDX>0,0,DDX,2.2,0),colorEEFF;
STICKLINE(DDX>0,0,DDX,1.1,0),colorFFFF;
STICKLINE(DDX<0,0,DDX,8,0),colorFF2200;
STICKLINE(DDX<0,0,DDX,1,0),colorFF2200;
STICKLINE(DDX<0,0,DDX,5,0),colorFF6600;
STICKLINE(DDX<0,0,DDX,3,0),colorFF9900;
STICKLINE(DDX<0,0,DDX,1.5,0),colorFFDD00;
STICKLINE(DDX<0,0,DDX,0,0),colorFFDD00;
周净流入:SUM(X0-X1,5),LINETHICK0,color6622FF;
DDX1:EMA(DDX,60)*15.367;
DDX2:MA(DDX1,5);
DDX3:MA(DDX1,10);
天:=COUNT(X0-X1>0,5);
DRAWTEXT(选股,DDX*1.06,'★'),PXUP6,colorFF;
DRAWTEXTEX(CLOSE,1,380,0,'一周内翻红:'+NUMTOSTR(天,0)+' 天'),colorFFDD00;
DRAWTEXTEX(DD>=0,1,200,0,'大单动向:'+'↑'),colorFFDD00;
DRAWTEXTEX(DD<0,1,200,0,'大单动向:'+'↓'),colorFFDD00;
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>0,1,650,0,STR1),colorFFDD00;
DRAWTEXTEX(CLOSE,1,10,0,STKLABEL+' '+STKNAME+''),colorFFBF00;