千钧老师【看长做短】第8版
指标源码：
TS:=BARSCOUNT(CLOSE);J0:=(HIGH+LOW)/2;QJ:=EMA(J0,3);
J1:=IF(CLOSE>QJ,VOL,0);J2:=IF(CLOSE<QJ,VOL,0);
SE:=(SUM(J1-J2,3)-(VOL/CLOSE<REF(CLOSE,1)))/10000;
SZ:=(SUM(J1-J2,5)-(VOL/CLOSE<REF(CLOSE,1)))/10000;
长资金:EMA(SZ,55),COLOR0000FF,LINETHICK;
长趋势:WMA(长资金,360),COLOR00CC00,LINETHICK;
FILLRGN(长资金>长趋势,长资金,长趋势),Color0000CC;
FILLRGN(长资金<长趋势,长资金,长趋势),COLOR008800;
资金:SMA(SE,3,1);趋势:WMA(资金,6);
短选股:FILTER(CROSS(资金,趋势),9) and "macd.dea"<0,LINETHICK;
长选股:短选股 and 长资金>长趋势,LINETHICK;
BB:=FILTER(CROSS(趋势,资金),5) and "kdj.d">60;
DRAWICON(短选股,资金,4);DRAWICON(BB,资金,5);
DRAWICON(短选股 and 长资金>长趋势,趋势,10);
DRAWICON(BB and 长资金<长趋势,趋势,12);
DRAWICON(CROSS(长资金,长趋势),长资金,1);
DRAWICON(CROSS(长趋势,长资金),长资金,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 长资金<REF(长资金,1),1,600,10,'长资金趋势一直向下'),Color00DDFF;
DRAWTEXTEX(长资金<长趋势 and 长资金>=REF(长资金,1),1,600,10,'长资金趋势一直向下、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>360,0,长资金>=REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>360,0,长资金<REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向下的趋势'),Color00DDFF;
//