通达信区间顶底均线主图选股指标公式源码

通达信区间顶底均线主图选股指标公式源码

源码正文：

Y低:=2012;M低:=9;D低:=5;Y高:=2012;M高:=6;D高:=18;Y:=2012;M:=8;D:=10{XG51};
测底:=120;测顶:=60;顶系数数:=2;底系数数:=7;M1:=3;N1:=5{XG51};
HSL:=100*vol/(FINANCE(7)/100){XG51};
ma3:=MA(C,M1){XG51};
T移动:=CONst(HHVBARS(MA(HSL,1),N1)){XG51};
移动量能平台:IF(CURRBARSCOUNT<=N1+1,CONST(IF(T移动=0,MA3,REF(MA3,T移动))),DRAWNULL),
COLORBLUE{XG51};
IF(CURRBARSCOUNT=T移动+1,移动量能平台,DRAWNULL),COLORBLUE,CIRCLEDOT,LINETHICK2{XG51};
TTJ10:=BArslAST((MA(HSL,M1)=HHV(MA(HSL,M1),10))),NODRAW{XG51};
K10:=TTJ10=0{XG51};
P10:=SUMBARS(K10,1),NODRAW{XG51};
ABA10:STICKLINE(P10<=1100,REF(MA3,P10-1)*1.001,REF(MA3,P10-1),0.5,0),COLORRED{XG51};
TTJ30:=BARSLAST((MA(V,M1)=HHV(MA(V,M1),30))),NODRAW{XG51};
K30:=TTJ30=0{XG51};
P30:=SUMBARS(K30,1),NODRAW{XG51};
ABA30:STICKLINE(P30<=1100,REF(MA3,P30-1)*1.0005,REF(MA3,P30-1),0.5,0),COLORBLUE{XG51};
加权均线:=(H+L+3*O+8*C)/13,COLORBLUE,NODRAW{XG51};
MM:=(Y低-1900)*10000+M低*100+D低{XG51};
区间时间低:=(BARSLASTCOUNT(DATE>MM)+1),NODRAW{XG51};
A:=MA(加权均线,区间时间低){XG51};
低点均线:IF(区间时间低>1,A,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
T低:=CONST(REF(L,区间时间低-1)){XG51};
DRAWTEXT(L=T低,L,'&uarr;起点'),COLORWHITE{XG51};
MM1:=(Y高-1900)*10000+M高*100+D高{XG51};
区间时间高:=(BARSLASTCOUNT(DATE>MM1)+1),NODRAW{XG51};
B:=MA(加权均线,区间时间高){XG51};
高点均线:IF(区间时间高>1,B,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
T高:=CONST(REF(H,区间时间高-1)){XG51};
DRAWTEXT(H=T高,H,'&darr;起点'),COLORCYAN{XG51};
MM2:=(Y-1900)*10000+M*100+D{XG51};
区间时间:=(BARSLASTCOUNT(DATE>MM2)+1),NODRAW{XG51};
D=MA(加权均线,区间时间){XG51};
区间均线:IF(区间时间>1,D,DRAWNULL),COLORBLUE,LINETHICK2{XG51};
T001:=CONST(REF(H,区间时间-1)){XG51};
DRAWTEXT(H=T001,H,'&darr;起点'),COLORBLUE{XG51};
顶系数:(1+3*顶系数数/100),NODRAW{XG51};
底系数:(1+3*底系数数/100),NODRAW{XG51};
阶段高点:CONST(HHV(H,测底)),COLORBLUE{XG51};
阶段低点:CONST(LLV(L,测顶)),COLORBLUE{XG51};
测顶部:阶段低点*顶系数,COLORCYAN,DOTLINE{XG51};
测底部:阶段高点/底系数,COLORLIMAGENTA,DOTLINE{XG51};
DRAWTEXT_FIX(C>0,0.90,0.001,1,'测顶部:'),COLORCYAN,LINETHICK5{XG51};
DRAWNUMBER_FIX(C>0,0.902,0.001,0,CONST(测顶部)),COLORCYAN,LINETHICK5{XG51};
DRAWTEXT_FIX(C>0,0.90,0.05,1,'测底部:'),COLORLIMAGENTA,LINETHICK5{XG51};
DRAWNUMBER_FIX(C>0,0.902,0.05,0,CONST(测底部)),COLORLIMAGENTA,LINETHICK5{XG51};
DRAWTEXT_FIX(C>0,0.90,0.1,1,'顶系数:'),COLORLIMAGENTA,LINETHICK5{XG51};
DRAWNUMBER_FIX(C>0,0.902,0.1,0,CONST(顶系数)),COLORLIMAGENTA,LINETHICK5{XG51};
DRAWTEXT_FIX(C>0,0.90,0.15,1,'底系数:'),COLORLIMAGENTA,LINETHICK5{XG51};
DRAWNUMBER_FIX(C>0,0.902,0.15,0,CONST(底系数)),COLORLIMAGENTA,LINETHICK5{XG51};
Q:=L>REF(H,1){XG51};
Q1:=H<REF(L,1){XG51};
STICKLINE(Q,L,REF(H,1),10,1),COLORWHITE{XG51};
STICKLINE(Q1,H,REF(L,1),10,2),COLORCYAN{X_G-5-1_C_N_{};