通达信623四线主图选股指标公式源码

通达信623四线主图选股指标公式源码

源码正文：

ma5:MA(CLOSE,5),COLORRED,LINETHICK2{XG51};
MA7:MA(CLOSE,7),COLORBLUE,LINETHICK2{XG51};
MA10:MA(CLOSE,10),COLORLIMAGENTA,LINETHICK3{XG51};
HIGHN:=10{XG51};
AA:=REF(C,HIGHN)=HHV(C,2*HIGHN+1){XG51};
QY:=BacKSET(AA,HIGHN+1){XG51};
CC:=FILTER(QY,HIGHN) AND C=HHV(C,HIGHN+1){XG51};
DDD:=BArslAst(CC){XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0){XG51};
DINGBU:=IF(DDD,REF(C,DDD),C){XG51};
DINGBU1:=REF(DINGBU,DDD+1){XG51};
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDD+10){XG51};
LOWN:=10{XG51};
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1){XG51};
QY1:=BACKSET(AA1,LOWN+1){XG51};
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
DINGBU2:=REF(DINGBU1,DDD+1){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
ZZ:=5{XG51};
AC:=REF(C,ZZ)=HHV(C,2*ZZ+1){XG51};
AD:=BACKSET(AC,ZZ+1){XG51};
AE:=FILTER(AD,ZZ) AND C=HHV(C,ZZ+1){XG51};
AF:=BARSLAST(AE){XG51};
AG:=IF(AE,CURRBARSCOUNT,0){XG51};
AH:=IF(AF,REF(C,AF),C){XG51};
AI:=IF(AF,REF(AG,AF),AG){XG51};
AL:=CONST(AI){XG51};
短T:DRAWLINE(CURRBARSCOUNT=AL,C,ISLASTBAR,REF(C,AL-1),1),DOTLINE,COLORBLUE LINETHICK3;
T线:DRAWLINE(CURRBARSCOUNT=GDCS1,C,ISLASTBAR,REF(C,GDCS1-1),1),DOTLINE,COLORCYAN{XG51};
ZT:= CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE=HIGH{XG51};
冲击涨停:=HIGH>=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE < HIGH AND CLOSE > OPEN AND (PERIOD=5){XG51};
开盘%:(OPEN - REF(CLOSE,1))/REF(CLOSE,1)*100,NODRAW,COLORMAGENTA{XG51};
KBTB:=(CLOSE>=ZTPRICE(REF(CLOSE,1),0.1)) AND OPEN = CLOSE{XG51};
KB_CNT:=COUNT(KBTB,135){XG51};
DRAWTEXT(ZT AND 开盘%>5 AND (PERIOD=5),HIGH*0.96,'★'),COLOR00D7FF{XG51};
STICKLINE(ZT AND NOT(KBTB) AND (PERIOD=5),CLOSE*0.9985,OPEN*1.0015,1.286,0),COLOR00D7FF{XG51};
STICKLINE(冲击涨停 AND (PERIOD=5),CLOSE*0.9985,OPEN+(C-O)*0.4,1.286,0),COLOR00D7FF{XG51};
boll轨:=EMA(CLOSE,20) COLORYELLOW LINETHICK1  DOTLINE{XG51};
BOLL翘:=IF(BOLL轨>REF(BOLL轨,1),BOLL轨,DRAWNULL),COLORWHITE,LINETHICK1 POINTDOT{XG51};
UB:BOLL+2*STD(CLOSE,20)COLORWHITE  LINETHICK2   DOTLINE{XG51};
LB:=BOLL-2*STD(CLOSE,20)COLORWHITE LINETHICK1  DOTLINE{XG51};
SS1:=C>O AND C/O<1.02 {XG51};
SS2:=C>MA(C,13) AND C/MA(C,13)<1.03{XG51};
SS3:=MA(C,13)>REF(MA(C,13),2){XG51};
Z1:=STRCAT(DYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,HYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.4,0,0,STRCAT(Z3,GNBLOCK)),COLORBLUE{X+G=5=1+C+N+{};