通达信真涨未加密选股指标公式源码

源码正文：

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0){XG51};
VAR11:=zig(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3){XG51};
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3){XG51};
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3){XG51};
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3){XG51};
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3){XG51};
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3){XG51};
买１:=VAR10{XG51};
买２:=(VAR11+VAR13+VAR15+VAR17){XG51};
RSV:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100{XG51};
K:=SMA(RSV,15,1){XG51};
D:=Sma(K,15,1){XG51};
J:=3*K-2*D{XG51};
FF:=ema(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
TTJ:=crOSS(FF,MA15){XG51};
上:=EMA(C,3),COLORYELLOW,LINETHICK1{XG51};
MM:=上>REF(上,1) AND REF(上,1)<REF(上,2){XG51};
VAR02:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4){XG51};
VAR04:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1){XG51};
金叉:=CROSS(J,D){XG51};
买1:=(VAR14 OR VAR15) AND VAR11{XG51};
买2:=(VAR14 OR VAR15) AND VAR04{XG51};
买3:=(VAR14 OR VAR15) AND VAR02{XG51};
买4:=(VAR02 AND VAR11) OR (VAR04 AND VAR11){XG51};
买5:=(金叉 AND VAR04) OR (金叉 AND VAR02) OR (金叉 AND VAR11){XG51};
TTJ0:=VAR16{XG51};
TTJ1:=买1 OR 买2 OR 买3 OR 买4 OR 买5 AND MM{XG51};
XG0:=TTJ AND TTJ0{XG51};
XG1:=TTJ AND TTJ1{XG51};
XG11:=XG0 OR XG1{XG51};
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
PL10:=ZIG(3,10){XG51};
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3){XG51};
PL20:=ZIG(3,20){XG51};
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3){XG51};
走强2:=BArslAst(PL10<REF(PL10,1)){XG51};
走强3:=BARSLAST(PL20<REF(PL20,1)){XG51};
走弱3:=BARSLAST(PL20>REF(PL20,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0){XG51};
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0){XG51};
TJ11:=EN2 AND ZTJZ5=1{XG51};
TJ22:=EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2{XG51};
TJ33:=EN2 AND DTJZ10=1{XG51};
TJ44:=EN3 AND ZTJZ10=1{XG51};
TJ55:=EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2{XG51};
XG22:=TJ11 OR TJ22 OR TJ33 OR TJ44 OR TJ55{XG51};
放心买:=XG11 OR XG22 COLORGREEN{XG51};
dif1:=EMA(DCLOSE,12)-EMA(DCLOSE,26){XG51};
DEA1:=EMA(DIF1,9){XG51};
黑马线:=16{XG51};
DD:=CROSS(DIF1,DEA1){XG51};
陶金上:=DD AND 黑马线 COLORWHITE;陶金1:=(DIF1-DEA1)*2*60{XG51};
主力:=陶金1-REF(陶金1,1){XG51};
主力信号:=主力>5 AND 主力>REF(主力,1)COLORWHITE{XG51};
VAR20:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3){XG51};
VAR21:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3){XG51};
VAR22:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3){XG51};
VAR23:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3){XG51};
VAR24:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3){XG51};
VAR25:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3){XG51};
VAR26:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3){XG51};
VAR27:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3){XG51};
买点二:=(VAR20+VAR22+VAR24+VAR26){XG51};
卖点一:=(VAR21+VAR23+VAR25+VAR27){XG51};
买入待涨:=(VAR20+VAR22+VAR24+VAR26)COLOR00FFFF{XG51};
快卖欲跌:=(VAR21+VAR23+VAR25+VAR27) COLOR00FF00{XG51};
真涨:买入待涨 AND 放心买 AND 陶金上 AND 主力信号{X+G_5-1+C+N+{};

源码正文：

DRAwrECTREL(350,0,542,115,RGB(72,61,139)){XG51};
DRAWKLINE(HIGH,OPEN,LOW,CLOSE){XG51};
M:=1{XG51};
年:=YEAR,NODRAW;月:=MONTH,NODRAW;日:=DAY,NODRAW{XG51};
星期:=WEEkdAY,NODRAW{XG51};
DA:=DATE,NODRAW{XG51};
S:=DATETODAY(DA),NODRAW{XG51};
前M日:REF(日,M),NODRAW{XG51};
K:=PERIOD=3 OR PERIOD=4 OR PERIOD=5 OR PERIOD=6{XG51};
D:=CURRBARSCOUNT{XG51};
DRAWNUMBER_FIX(D=M AND K=1,0.39,0.01,1,YEAR)COLORBLUE{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.395,0.01,0,'年')COLORCYAN{XG51};
DRAWNUMBER_FIX(D=M AND K=1,0.42,0.01,1,MONTH)COLORBLUE{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.43,0.01,0,'月')COLORCYAN{XG51};
DRAWNUMBER_FIX(D=M AND K=1,0.46,0.01,1,DAY)COLORBLUE{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.47,0.01,0,'日')COLORCYAN{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.49,0.01,0,'星期')COLORCYAN{XG51};
DRAWNUMBER_FIX(D=M AND K=1,0.52,0.01,1,WEEKDAY)COLORBLUE{XG51};
{XG51};
{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.38,0.08,0,'收盘价：')COLORCYAN{XG51};
DRAWNUMBER_FIX(D=M AND K=1,0.46,0.08,1,C)COLORBLUE{XG51};
DRAWTEXT_FIX(D=M AND K=1,0.47,0.08,0,'元')COLORCYAN{XG51};
DRAWTEXT(DATE=1140102,H*1.01,'一月二日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140207,H*1.01,'二月七日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140303,H*1.01,'三月三日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140401,H*1.01,'四月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140505,H*1.01,'五月五日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140603,H*1.01,'六月三日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140701,H*1.01,'七月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140801,H*1.01,'八月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1140901,H*1.01,'九月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1141008,H*1.01,'十月八日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1141103,H*1.01,'十一月三日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1141201,H*1.01,'十二月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1130902,H*1.01,'九月二日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1131008,H*1.01,'十月八日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1131101,H*1.01,'十一月一日'),COLORCYAN{XG51};
DRAWTEXT(DATE=1131202,H*1.01,'十二月二日'),COLORCYAN{X_G_5=1_C_N_{};