千钧今日大丰收了，收到了很多朋友们的短信祝福，以及祝福图片。
为答谢这些朋友，和理想指标区的所有会员近十个月以来的支持，中秋伊始、送大家【看长做短】第8版、即第一次升级版。
原理和思路我在发第一版的贴中已经叙述，这里就不再重复。
本次升级是在淘汰前7个版本的情况下完成的，有人可能会问（尤其是茶舍的朋友）：这是终结版吗？回答是否定的，不是！
我还会不断寻找突破口，力争把我对【量比价先】目前的理解，整合进去，使之融为一体。
图示：
上证指数月线图
指标源码：
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;
//
[ 本帖最后由 一发千钧 于 2008-9-13 15:24 编辑 ]
