联系方式 Contact

云指标公式网

淘宝:iyungs.taobao.com

电话:18020657357

微信:396950280

Q Q:332879389

点击这里给我发消息

网址:www.yzhibiao.com

搜索 Search

五线谱“九首版” 通达信主图源码

2016-7-13 16:23:13点击:

{主图}

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HH,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
XL:=REFX(L,BARSNEXT(T1=0));
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)/2+XL,ISLASTBAR,REF((HH-XL)/2+XL,T),0),DOTLINE,COLORGREEN;
NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*2/3+XL,ISLASTBAR,REF((HH-XL)*2/3+XL,T),0),DOTLINE,COLORLIMAGENTA;
NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)/3+XL,ISLASTBAR,REF((HH-XL)/3+XL,T),0),DOTLINE,COLORBROWN;
低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*1.04,VARCAT(VARCAT('中间价:',VAR2STR(NOTEXT1,2)),'元')),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT2*1.04,VARCAT(VARCAT('上阻力价:',VAR2STR(NOTEXT2,2)),'元')),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT3*1.04,VARCAT(VARCAT('下阻力价:',VAR2STR(NOTEXT3,2)),'元')),COLORBROWN;
STICKLINE(T1=0,C,O,2,0),COLORYELLOW;
STICKLINE(T1=0,H,L,0,0),COLORYELLOW;