天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 1308|回复: 0
打印 上一主题 下一主题

[通达信] 【主力资金】源码 副图 贴图

[复制链接]
跳转到指定楼层
楼主
发表于 2011-7-13 10:19:15 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
AB1:=VOL*CLOSE;{A}
AB2:=SUM(AB1,1)/SUM(VOL,1);{B}
AB3:=EMA(AB2,17);{B1}
AB4:=(C*2+H+L)/4*10;{V1B}
AB5:=EMA(AB4,13)-EMA(AB4,34);{V2B}
AB6:=EMA(AB5,5);{V3B}
AB7:=2*(AB5-AB6)*5.5;{V4B}
AB8:=(INDEXC*2+INDEXH+INDEXL)/4;{V8B}
AB9:=EMA(AB8,13)-EMA(AB8,34);{V9B}
AB10:=EMA(AB9,3);{VA}
AB11:=(AB9-AB10)/2;{VB}
个股资金:=(AB2-AB3)*100/AB2;
主力资金:=AB7;
大资金:=AB11;
红点主力进场:IF(个股资金>0 AND 主力资金>0 AND 大资金>0,-10,DRAWNULL),COLORRED,CIRCLEDOT,LINETHICK1;
V1:=EMA(EMA(CLOSE,20),20);{V1}
力度:=(V1-REF(V1,1))/REF(V1,1)*1000,COLORFF00FF,LINETHICK2;{控盘力度}
开始控盘:IF(CROSS(力度,0),20,0),LINETHICK2,COLORYELLOW;
【庄控盘】:IF(力度>REF(力度,1) AND 力度>0,8,0),LINETHICK2,COLORRED;
白线主力减仓:IF(力度< REF(力度,1) AND 力度>0,力度,0),LINETHICK2,COLORWHITE;
绿点主力出场:IF(个股资金<=0 AND 主力资金<=0 AND 大资金<=0,-10,DRAWNULL),COLORGREEN,CIRCLEDOT,LINETHICK1;
主力动态:(个股资金+主力资金+大资金),COLORYELLOW,NODRAW;
STICKLINE(主力动态>0,0,主力动态,1,0),COLORFF00FF;
STICKLINE(主力动态<=0,0,ABS(主力动态),1,0),COLORGREEN;
比例:(主力动态-REF(主力动态,1))/REF(主力动态,1),NODRAW;
底部:0,COLORFFCC66,LINETHICK2;
虚:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,虚,0,-1,-1),COLOR00C0C0;
实:VOL,VOLSTICK;
换手:=VOL/CAPITAL*100;
贰换:SUM(V/CAPITAL*100,20),NODRAW,COLORMAGENTA;
动态市盈:=C/FINANCE(33),COLOR16CDEC,LINETHICK0 ;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK2;
主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),LINETHICK2;
买卖盘:=-(主动买盘/主动卖盘),NODRAW,COLORYELLOW;
日净入(WS):(主动买盘+主动卖盘)/10000,NODRAW,COLORMAGENTA;
STICKLINE(主动买盘>0,0,主动买盘,1,0),COLORRED;
STICKLINE(主动卖盘<0,VOL,主动买盘,1,0),COLOR00FF00;
STICKLINE(换手>0 ,0, 主动买盘,0,0),COLORYELLOW;
STICKLINE(换手>0,VOL, 主动买盘, 0,0) ,COLORRED;
AHC2:=(HIGH - LOW);
AHC3:=ABS((OPEN - CLOSE));
AHC4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
AHC5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
AHC6:=((AHC3 / AHC2) * VOL);
AHC7:=((AHC4 / AHC2) * VOL);
AHC8:=((AHC5 / AHC2) * VOL);
AHCA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
AHCB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
AHCC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
AB601:=HHV(V,5);
AB602:=O>C;
AB702:=C>O;
AB703:=C=O;
AB704:=((SUM(V,5)/AB601));
AB705:=IF(AB704>0.3,1,0);
AB706:=IF(AB602 AND AB705,V,0);
AB707:=IF(AB702 AND AB705,V,0);
钱出A:=SUM(AB706,5),COLORGREEN,LINETHICK2;
钱入A:=SUM(AB707,5),COLORRED,LINETHICK2;
钱出:=SUM(AB706,20),COLORGREEN,LINETHICK2;
钱入:=SUM(AB707,20),COLORRED,LINETHICK2;
伍净入(SW):(钱入A-钱出A)/100000,COLORYELLOW,NODRAW;
贰净入:(钱入-钱出)/100000,COLORRED,NODRAW;
P5:MA(实,5),COLORMAGENTA,LINETHICK2;
P35:MA(实,35),COLORBLUE,LINETHICK2;
P135:MA(实,135),COLORWHITE,LINETHICK2;
DRAWTEXT(CROSS(P5,P135),(V *1.05),'★'),COLORYELLOW;
0,COLORBROWN;


主力资金.rar (3.95 KB, 下载次数: 0)

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 有用有用 没用没用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则