通达信股市红绿灯（鹏腾2009版本）主图 源码介绍
通达信股市红绿灯（鹏腾2009版本）主图 源码
简单，实用，直观，绿灯亮，买入，黄灯亮观望，红灯亮卖出。向各位老师汇报一下操盘简单思路:股票在下跌过程中，以20天最低价，最低价振幅为4%，从最高价下跌以来最大成交量画线，画线分为上线买入，中线观望，下线卖出，用到未来函数，但不是先有结果，后有图形，股市本来就是动动态的，本人同样讨厌未来函数，看到论坛中的一些看似很好的指标，认真分析原来是结果在先，然后在结果后画线，真是害人，zig字转向是根据所取的价格进行转向，本指标中只是借用高低点来判断近期高低点。
{股市红绿灯主图}
n:=20;
CC:=ZIG(3,N);
GT1:PEAKBARS(1,N,1),NODRAW;
DT1:=TROUGHBARS(2,N,1);
H1:DRAWLINE(CURRBARSCOUNT=CONST(GT1)+1,H,ISLASTBAR,REF(H,CONST(GT1)),0),DOTLINE,LINETHICK1,COLORWHITE;
L1:DRAWLINE(CURRBARSCOUNT=CONST(DT1)+1,L,ISLASTBAR,REF(L,CONST(DT1)),0),DOTLINE,LINETHICK1,COLORCYAN;
HX0:=IF(H/L>1.04 AND V>=HHV(V,BARSLAST(CURRBARSCOUNT=CONST(GT1)+1)+1) AND LLV(L,N)=L,L,99);
HXW:=CONST(LLV(HX0,N))=L AND NOT(ISLASTBAR);
BW:=CURRBARSCOUNT=CONST(BARSLAST(HXW))+1;
YZX:REF(H,BARSLAST(BW))DOTLINE,COLORGREEN;
YZA:REF(L,BARSLAST(BW))DOTLINE,COLORYELLOW;
YZU:REF((H+L)/2,BARSLAST(BW))DOTLINE,COLORRED;
DRAWTEXT(BW,L*0.97,VAR2STR(L,2));
DRAWTEXT(ISLASTBAR,H1,'近期高点')COLORWHITE;
DRAWTEXT(ISLASTBAR,L1,'近期低点')COLORCYAN;
DRAWTEXT(ISLASTBAR,YZX,'上线就买')COLORGREEN;
DRAWTEXT(ISLASTBAR,(YZX+YZA)/2,'中线观望')COLORYELLOW;
DRAWTEXT(ISLASTBAR,YZA,'下线就卖')COLORRED;
DRAWICON(CROSS(C>YZX,0.5),H,1);
DRAWICON(CROSS(C<YZA,0.5),L,2);
IF(BW,H,DRAWNULL)COLORGREEN,CIRCLEDOT,LINETHICK3;
IF(BW,(H+L)/2,DRAWNULL)COLORYELLOW,CIRCLEDOT,LINETHICK3;
IF(BW,L,DRAWNULL)COLORRED,CIRCLEDOT,LINETHICK3;
gd40055
