通达信组合生命线主图选股指标公式源码

通达信组合生命线主图选股指标公式源码

源码正文：

使用说明：股价上穿买入，偏离线上10%抛，线下15%底.

日均价:=(C*3+H+L+O)/6{XG51};
SA1:=ma(C,5){XG51};
SA:=IF(C>SA1,L,H){XG51};
JUNJ:=SA{XG51};
ED1:=(-2*REF(JUNJ,2)+REF(JUNJ,1)+2*JUNJ),COLORYELLOW{XG51};
ED2:=(-0.4*REF(JUNJ,4)-0.4*REF(JUNJ,3)-1.1*REF(JUNJ,2)+0.9*REF(JUNJ,1)+2*JUNJ),COLORYELLOW{XG51};
ED3:=(-0.8*REF(JUNJ,4)-0.8*REF(JUNJ,3)-0.2*REF(JUNJ,2)+0.8*REF(JUNJ,1)+2*JUNJ),COLORYELLOW{XG51};
JF1:=SMA(SMA(ED1,3,1),3,1),COLOR999900{XG51};
bias1 :=(JF1-MA(JF1,5))/MA(JF1,5)*100{XG51};
XAM1:=FLOOR(((JF1-MA(JF1,5))/MA(JF1,5)*100)/5){XG51};
生命线:SMA(SMA((ema(日均价,Abs(5- XAM1))),3,1),3,1),COLORGREEN{XG51};
T10:=CONst(HHVBARS(V,10)){XG51};
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORFEFEFE;
IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORFEFEFE{XG51};
T20&rarr;10:=CONST(REF(HHVBARS(V,10),10)+10){XG51};
EP20&rarr;10:IF(CURRBARSCOUNT<=20+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T20&rarr;10)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T20&rarr;10+1,EP20&rarr;10,DRAWNULL),CIRCLEDOT,COLOR00CC00{XG51};
T30&rarr;20:=CONST(REF(HHVBARS(V,10),20)+20){XG51};
EP30&rarr;20:IF(CURRBARSCOUNT<=30+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T30&rarr;20)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T30&rarr;20+1,EP30&rarr;20,DRAWNULL),CIRCLEDOT,COLOR00CC00{XG51};
T45&rarr;30:=CONST(REF(HHVBARS(V,15),30)+30){XG51};
EP45&rarr;30:IF(CURRBARSCOUNT<=45+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T45&rarr;30)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T45&rarr;30+1,EP45&rarr;30,DRAWNULL),CIRCLEDOT,COLOR00CC00{XG51};
T65&rarr;45:=CONST(REF(HHVBARS(V,20),45)+45){XG51};
EP65&rarr;45:IF(CURRBARSCOUNT<=65+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T65&rarr;45)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T65&rarr;45+1,EP65&rarr;45,DRAWNULL),CIRCLEDOT,COLOR00CC00{XG51};
涨家数:INDEXADV,NODRAW, {XG51};
跌家数:INDEXDEC,NODRAW,COLORCYAN{XG51};
C3:=REF(C,1){XG51};
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORWHITE{XG51};
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORCYAN{XG51};
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
K:=(C+H+L)/3{XG51};
D:=MA(K,4){XG51};
DRAWTEXT(REF(C,1)>D AND C<D AND D>REF(D,1),H*0.95, 'S'),COLORCYAN{XG51};
DRAWTEXT(REF(C,1)<D AND C>D AND D<REF(D,1),L*0.98 ,'B'),COLORWHITE{X=G*5*1=C=N={};