源码
流通:FINANCE(7)/10000,LINETHICK;
TS:=BARSCOUNT(CLOSE);J0:=(HIGH+LOW)/2;QJ:=EMA(J0,3);
J1:=IF(CLOSE>QJ,VOL,0);J2:=IF(CLOSE
SE:=SUM(J1-J2,5);
SZ:=SUM(J1-J2,10);
长资金:IF(CAPITAL<1,600*EMA(SZ,55),50*MA(SZ,5)),COLOR0000FF,LINETHICK;
长趋势:IF(CAPITAL<1,WMA(长资金,360),WMA(长资金,14)),COLOR00CC00,LINETHICK;
FILLRGN(长资金>长趋势,长资金,长趋势),Color0000CC;
FILLRGN(长资金<长趋势,长资金,长趋势),COLOR008800;
资金:IF(CAPITAL<1,1000,100)*SMA(SE,3,1),COLORFFFFFF;趋势:SMA(资金,3,1),COLOR00FFFF;
短选股:FILTER(CROSS(资金,趋势),5) and "macd.dea"<0,LINETHICK;
长选股:短选股 and 长资金>长趋势,LINETHICK;
BB:=FILTER(CROSS(趋势,资金),5) and "kdj.d">60;
DRAWICON(短选股,REF(趋势,1),4);DRAWICON(BB,REF(资金,1),5);
DRAWICON(短选股 and 长资金>长趋势,REF(趋势,1),10);
DRAWICON(BB and 长资金<长趋势,REF(趋势,1),12);
DRAWICON(CROSS(长资金,长趋势),长资金,1);
DRAWICON(CROSS(长趋势,长资金) and 长资金>0,长资金,2);
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,240,10,str1),Color00DDFF;
DRAWTEXTEX(CLOSE,1,10,10,STKLABEL+' '+STKNAME+''),Color00DDFF;
DRAWTEXTEX(长资金>长趋势 and 长资金>REF(长资金,1),1,600,10,'长资金趋势一直向上'),Color00DDFF;
DRAWTEXTEX(长资金>长趋势 and 长资金<=REF(长资金,1),1,600,10,'长资金趋势一直向上、有走平向下的趋势'),Color00DDFF;
DRAWTEXTEX(长资金<长趋势 and 长资金
DRAWTEXTEX(长资金<长趋势 and 长资金>=REF(长资金,1),1,600,10,'长资金趋势一直向下、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>18,0,长资金>=REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向上的趋势'),Color00DDFF;
