天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

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

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

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

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

[通达信] 乾坤决策眼分时主图

[复制链接]
跳转到指定楼层
楼主
发表于 2015-4-27 09:41:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

昨开:='REF(O,1)#DAY',NODRAW;
昨高:='REF(H,1)#DAY',NODRAW;
昨低:='REF(L,1)#DAY',NODRAW;
昨收:=DYNAINFO(3),NODRAW;
A1:=CROSS(C,昨高);
B:=CROSS(昨高,C);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.01,0,STRCAT('昨高: ',CON2STR(昨高,2))),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.06,0,STRCAT('昨低: ',CON2STR(昨低,2))),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.11,0,STRCAT('昨收: ',CON2STR(昨收,2))),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.16,0,STRCAT('昨开: ',CON2STR(昨开,2))),COLORWHITE;
N0:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y:=STRCAT(CON2STR(MONTH,0),' 月 ');
R:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(N0,Y), R);
DRAWTEXT_FIX(C>0,0.68,0,0,SJ);
A:=O>C AND C>REF(C,1) AND O/REF(C,1)>1.03;  
DRAWTEXT(ABS(A)>0,L, '假阴'),COLORYELLOW;
DRAWICON(C<O AND C>REF(C,1),H,6);{假阴真阳}
均价5:AMOUNT/VOL/100,NODRAW;
假阴0:=O>C AND 均价5>REF(C,1);
DRAWTEXT(假阴0,L-0.2,'↖假阴真阳'),COLORE8E8E8;
STICKLINE(假阴0,O,C,1,0),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.5,0.05,0,CODE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.05,0,STKNAME)COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.05,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.6,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.85,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.90,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.95,0,ZSBLOCK),COLORYELLOW;
时间:=TIME=100000;
N:=BARSLAST(时间),COLOR808080;
常数:CONST(IF(N=0,C,REF(C,N))),COLOR004848,DOTLINE;
CS1:=CONST(IF(N,HHV(H,0),REF(HHV(H,0),N))),COLOR808080;
CS2:=CONST(IF(N,LLV(L,0),REF(LLV(L,0),N))),COLOR808080;
STICKLINE(时间=1,CS1,CS2,-1,0),COLOR808080;  
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORFFFFFF,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,阻力,'      阻力'),COLORFFFFFF;
支撑:L1+P1*0.5/8,COLORFFFFFF,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,支撑,'      支撑'),COLORFFFFFF;
中:(支撑+阻力)/2,COLORFFFFFF,DOTLINE;
现价:CLOSE,COLORWHITE,LINETHICK1;
MR:=C<支撑 AND CROSS(C,REF(C,2));
STICKLINE(CROSS(现价,支撑),C,中,2,0),COLOR00CCCC;
STICKLINE(MR=1,支撑,中,2,0),COLOR00CCCC;
DRAWICON(MR=1 OR CROSS(现价,支撑),中,34);
STICKLINE(CROSS(支撑,现价),支撑,(支撑-中)/5+支撑,2,0),COLOR00CCCC;
MC:=C>阻力 AND CROSS(REF(C,2),C);
STICKLINE(CROSS(阻力,现价),C,中,2,0),COLOR8C8C00;
STICKLINE(MC=1,阻力,中,2,0),COLOR8C8C00;
DRAWICON(MC=1 OR CROSS(阻力,现价),中,35);
STICKLINE(CROSS(现价,阻力),阻力,阻力-(支撑-中)/5,2,0),COLOR8C8C00;
DRAWTEXT(ISLASTBAR,(支撑+阻力)/2,'      中'),COLORFFFFFF;
均价:SUM(V*C,0)/SUM(V,0),COLOR004080,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=4,均价,'            均价'),COLORFFFFFF;
最新:C,LINETHICK9,COLORFFFF00;
IF(C>=REF(C,1),C,DRAWNULL),LINETHICK9,COLOR0909FF;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWICON(ISLASTBAR AND C>REF(C,1),C,1);
DRAWICON(ISLASTBAR AND C<REF(C,1),C,2);
{分时均线}
W:=BARSLAST(DAY-REF(DAY,1))+1;
FSJX:SUM(CLOSE*VOL,W)/SUM(VOL,W),LINETHICK2,COLOR00FFFF;
IF(FSJX<REF(FSJX,1),FSJX,DRAWNULL),LINETHICK2,COLOR00A100;


2015426205935205.rar

4.59 KB, 下载次数: 0

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

使用道具 举报

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

本版积分规则