一发千钧 2008-10-12 23:09
初来乍到，送海风朋友们【看长做短】！
闲话不多说，看图，源码自然了解千钧的意图！
图示：
[attach]843918[/attach]
副图指标【看长做短】
流通:FINANCE(7)/10000,LINETHICK;
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)/IF(CAPITAL<1,vol/SUM(vol,55),CAPITAL);
SZ:=SUM(J1-J2,22)/IF(CAPITAL<1,vol/SUM(vol,55),CAPITAL);
长资金:IF(CAPITAL<1,200*EMA(SZ,55),50*MA(SZ,3)),COLOR0000FF,LINETHICK;
长趋势:IF(CAPITAL<1,WMA(长资金,360),WMA(长资金,21)),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 长资金<REF(长资金,1),1,600,10,'长资金趋势一直向下'),Color00DDFF;
DRAWTEXTEX(长资金<长趋势 and 长资金>=REF(长资金,1),1,600,10,'长资金趋势一直向下、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>18,0,长资金>=REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>18,0,长资金<REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向下的趋势'),Color00DDFF;
//
[[i] 本帖最后由 一发千钧 于 2008-10-14 23:39 编辑 [/i]]
木头 2008-10-13 00:30
非常感谢“一发千钧”给大家的分享！:handshake
木头 2008-10-13 14:09
[quote]原帖由 [i]wkkboy[/i] 于 2008-10-13 12:07 发表 [url=http://www.96bbs.com/redirect.php?goto=findpost&pid=6192835&ptid=1323898][img]http://www.96bbs.com/images/common/back.gif[/img][/url]
什么软件用？通达信不行 [/quote]
是飞狐股软的。
龙三 2008-10-14 13:48
谢谢源码提供!!
请教楼主 ESTDATA(8) 如何设定?
一发千钧 2008-10-14 23:42
[quote]原帖由 [i]731[/i] 于 2008-10-14 16:01 发表 [url=http://www.96bbs.com/redirect.php?goto=findpost&pid=6198278&ptid=1323898][img]http://www.96bbs.com/images/common/back.gif[/img][/url]
多谢楼主的热情奉献，只是有未来啊。 [/quote]
哈哈哈
海风的“高手”果然不少！
连我自己都没看出来那个是未来函数，你真是“高”，实在是“高”！
一发千钧 2008-10-14 23:43
[quote]原帖由 [i]龙三[/i] 于 2008-10-14 13:48 发表 [url=http://www.96bbs.com/redirect.php?goto=findpost&pid=6197559&ptid=1323898][img]http://www.96bbs.com/images/common/back.gif[/img][/url]
谢谢源码提供!!
请教楼主 ESTDATA(8) 如何设定? [/quote]
你好：
这是横向统计数据，你可以用【vol/sum(vol,55)】来替代。
一楼的源码已经修正，你也可以重新下载。
龙三 2008-10-15 10:12
谢谢LZ解答.
实际上用【vol/sum(vol,55)】是近似地代表大盘的流通盘,可视情况作调整.
paulpipi 2008-10-15 22:08
看不懂,不用也顶
丢丢龙 2008-10-26 20:17
一发千钧的帖子要重视,他是一个高手
[[i] 本帖最后由 丢丢龙 于 2008-10-26 20:18 编辑 [/i]]
3hgu66 2008-11-17 22:52
非常感谢“一发千钧”给大家的分享！能改成大智慧就好了。
