天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

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

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

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

查看: 1200|回复: 0

[大智慧] 大智慧------指标公式(源码)

[复制链接]
发表于 2011-8-22 09:02:22 | 显示全部楼层 |阅读模式
花银子换来的   大家记得要做什么了   不要只管下,不记得顶帖子   后面还有很多人呢  要人人下来看才是正道

{ 金戈铁马 }{主图叠加}{大智慧L2}{原公式限制:2009年 10月 19号}

a1:=BIGORDER(1) - BIGORDER(2);
a2:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a3:=((DYNAINFO(104) - DYNAINFO(105)) / VOL) * 100;
a4:=WINNER(CLOSE) * 100;
a5:=DYNAINFO(102) - DYNAINFO(103);
a6:=DYNAINFO(101);
D:SUM(((EMA(((HIGH + LOW) / 2),1)) / 3),3),linethick1,colorYellow;
E:EMA(D,3),linethick1,colorWhite;
F:EMA(E,3),linethick1,colorMagenta;
DRAWGBK((((D > E) AND (E > F)) AND (LOW > F)),STRIP(RGB(200,100,150),RGB(5,2,5),0));
DRAWICON(((CROSS(D,E)) = 1),(D * 0.99),7),ALIGN1;
DRAWTEXT(((CROSS(D,E)) = 1),(D * 0.96),'买点'),ALIGN1,colorRed;
DRAWFLAGTEXT((CLOSE > 0),CLOSE,'…… '+STKNAME+' ('+STKLABEL+')'+' ……   价:'+NUMTOSTRN(CLOSE,3)),colorYellow;
DRAWFLAGTEXT((((DYNAINFO(104) - DYNAINFO(105)) > 0) AND (BARSTATUS = 2)),LOW,'机构净吃:'+NUMTOSTRN(a5,0)+'笔   '+'净吃量:'+NUMTOSTRN((DYNAINFO(104) - DYNAINFO(105)),0)+'手'+' 增仓'+NUMTOSTRN(((a3 * VOL) / CAPITAL),2)+'%'),colorRed;
DRAWFLAGTEXT((((DYNAINFO(104) - DYNAINFO(105)) < 0) AND (BARSTATUS = 2)),LOW,'机构净吐:'+NUMTOSTRN(a5,0)+'笔   '+'净吐量:'+NUMTOSTRN((DYNAINFO(104) - DYNAINFO(105)),0)+'手'+' 减仓'+NUMTOSTRN(((a3 * VOL) / CAPITAL),2)+'%'),colorGreen;
DRAWFLAGTEXT(((a6 > 0) AND (BARSTATUS = 2)),LOW,'机构净挂:'+NUMTOSTRN(a6,0)+'单,  '+'买  单:'+NUMTOSTRN(DYNAINFO(99),0)+'单,'+' 卖单'+NUMTOSTRN(DYNAINFO(100),0)+' 单'),colorRed;
DRAWFLAGTEXT(((a6 < 0) AND (BARSTATUS = 2)),LOW,'机构净挂:'+NUMTOSTRN(a6,0)+'单,  '+'买  单:'+NUMTOSTRN(DYNAINFO(99),0)+'单,'+' 卖单'+NUMTOSTRN(DYNAINFO(100),0)+' 单'),colorGreen;
DRAWFLAGTEXT((a1 >= 0),CLOSE,'主力净买:'+NUMTOSTRN((a1 * 100),2)+'%  增仓:'+NUMTOSTRN((((a1 * VOL) / CAPITAL) * 100),2)),colorRed;
DRAWFLAGTEXT((a1 < 0),CLOSE,'主力净卖:'+NUMTOSTRN((a1 * 100),2)+'%  减仓:'+NUMTOSTRN((((a1 * VOL) / CAPITAL) * 100),2)),colorGreen;
DRAWFLAGTEXT((a4 <= 15),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 价值区'),colorRed;
DRAWFLAGTEXT(((a4 > 15) AND (a4 < 50)),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 安全区');
DRAWFLAGTEXT((a4 >= 50),CLOSE,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'+' 危险区'),colorYellow;
a7:=SUM((((a1 * VOL) / CAPITAL) * 100),5);
DRAWFLAGTEXT(((((a1 * VOL) / CAPITAL) * 100) < -0.7),CLOSE,'操盘建议: 主力出逃  赶快清仓'),colorGreen;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > -0.7) AND ((((a1 * VOL) / CAPITAL) * 100) < -0.3)),CLOSE,'操盘建议: 主力出货  适当减仓'),Color62EC9F;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > -0.3) AND ((((a1 * VOL) / CAPITAL) * 100) < 0.3)),CLOSE,'操盘建议: 远离观望  等待转机'),ColorF6B590;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > 0.3) AND ((((a1 * VOL) / CAPITAL) * 100) < 0.7)),CLOSE,'操盘建议: 持股待涨 适当补仓'),Color9F00EA;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > 0.7) AND (a7 > 0)),CLOSE,'操盘建议: 主力强劲 买入补仓'),Color0080FF;
a8:=FINANCE2(35);
a9:=FINANCE2(37);
a10:=FINANCE2(3);
a11:=DYNAINFO(39);
a12:=FINANCE2(11);
a13:=FINANCE2(10);
a14:=PFFIN(1609,0);
a15:=FINANCE2(5);
DRAWTEXT((FILTER(((((a1 * VOL) / CAPITAL) * 100) < -0.7),5)),CLOSE,'逃'),linethick3,ALIGN1,colorGreen;
DRAWICON((FILTER(((((a1 * VOL) / CAPITAL) * 100) < -0.7),5)),(CLOSE * 0.95),2),ALIGN1,colorGreen;
DRAWTEXTABS(20,62,'主营范围:'+F10TEXT((F10FIND('主营范围',1)),10)),colorYellow;
DRAWTEXTABS(20,49,'所属板块:'+BKNAME),colorRed;
DRAWTEXTABS(240,10,'净利增长:'+NUMTOSTRN(a13,0)+'%'),colorYellow;
DRAWTEXTABS(140,10,'市 盈 率:'+NUMTOSTRN(a11,2)),colorYellow;
DRAWTEXTABS(20,10,'总 股 本:'+NUMTOSTRN((a8 / 10000),2)+'亿股'),colorYellow;
DRAWTEXTABS(240,23,'主营增长:'+NUMTOSTRN(a12,0)+'%'),colorYellow;
DRAWTEXTABS(140,23,'每股收益:'+NUMTOSTRN(a10,3)),colorYellow;
DRAWTEXTABS(20,23,'流通 A股:'+NUMTOSTRN((a9 / 10000),2)+'亿股'),colorYellow;
DRAWTEXTABS(240,36,'资产收益:'+NUMTOSTRN(a15,0)+'%'),colorYellow;
DRAWTEXTABS(140,36,'每股净资:'+NUMTOSTRN(FINANCE2(4),2)),colorYellow;
DRAWTEXTABS(20,36,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'),colorYellow;
DRAWRECTABS(0,0,332,70,6558740),linethick5,Color00A1FF;
IF(((LLVALL(LOW) * 1.1) < HHVALL(HIGH)),(LLVALL(LOW) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((LLVALL(LOW) * 1.1) * 1.1) < HHVALL(HIGH)),((LLVALL(LOW) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((LLVALL(LOW) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;


回复

使用道具 举报

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

本版积分规则