通达信分批减仓未加密选股指标公式源码

源码正文：

VAR1:=ema(CLOSE, 5)/Ema(EMA(CLOSE, 9), 16){XG51};
VAR5:=(CLOSE-LLV(LOW, 75))/(HHV(HIGH, 75)-LLV(LOW, 75))*100{XG51};
VAR6:=SMA(VAR5, 20, 1){XG51};
VAR7:=SMA(VAR6, 15, 1){XG51};
VAR8:=100-3*VAR6+2*VAR7{XG51};
VAR9:=((EMA(IF(VAR8>REF(VAR8, 1), VAR8, VAR8-3), 3)-50)*(-1)*2/2+50)/10{XG51};
VAR10:=EMA(AMOUNT, 13)/EMA(vol, 13){XG51};
VAR11:=(VAR10/REF(VAR10, 1)-1)*100{XG51};
VAR12:=VOL/CAPITAL*100{XG51};
VAR13:=(HIGH-LOW)/((HIGH+LOW)/2)*100{XG51};
VAR14:=(VAR9+VAR12)*VAR13*VAR11{XG51};
VAR15:=REF(CLOSE, 1){XG51};
VAR18:=(CLOSE-LLV(LOW, 9))/(HHV(HIGH, 9)-LLV(LOW, 9))*100{XG51};
VAR19:=SMA(VAR18, 3, 1){XG51};
VAR20:=SMA(VAR19, 3, 1){XG51};
VAR21:=3*VAR19-2*VAR20{XG51};
VAR22:=(CLOSE-LLV(LOW, 26))/(HHV(HIGH, 26)-LLV(LOW, 26))*100{XG51};
VAR23:=SMA(VAR22, 6, 1){XG51};
VAR24:=SMA(VAR23, 3, 1){XG51};
VAR25:=3*VAR23-2*VAR24{XG51};
VAR26:=IF(crOSS(VAR21, VAR25) AND VAR25<20, (-1), 0)+IF(CROSS(VAR25, VAR21) AND VAR25>80, 1, 0){XG51};
VAR27:=(HIGH+LOW+CLOSE)/3{XG51};
VAR28:=(VAR27-MA(VAR27, 14))/(0.015*AVEDEV(VAR27, 14))/2{XG51};
VAR29:=SMA(MAX(CLOSE-VAR15, 0), 6, 1)/SMA(Abs(CLOSE-VAR15), 6, 1)*100{XG51};
VAR30:=LLV(LOW, 36){XG51};
VAR31:=HHV(HIGH, 36){XG51};
VAR32:=EMA((CLOSE-VAR30)/(VAR31-VAR30)*100, 9){XG51};
VAR33:=IF(VAR28>100 AND VAR32>50 AND CLOSE>OPEN, 0.5, 0)+IF(VAR29>80 AND VAR32>50 AND CLOSE>OPEN, 0.5, 0){XG51};
VAR34:=(CLOSE-LLV(LOW, 100))/(HHV(HIGH, 100)-LLV(LOW, 100))*100{XG51};
VAR35:=SMA(VAR34, 21, 1){XG51};
VAR36:=SMA(VAR19, 3, 1){XG51};
VAR37:=3*VAR35-2*VAR36{XG51};
VAR38:=IF(VAR37>80 AND VAR29>88, 0.5, 0){XG51};
减四分一:IF((VAR14>50 AND VAR14<100) OR (VAR26+VAR33+VAR38>0), 25, 0), stICK, COLORRED{XG51};
减三分一:IF(VAR14>100 AND VAR14<200, 33, 0), STICK, COLORBLUE{XG51};
减二分一:IF(VAR14>200, 50, 0), STICK, COLORLIMAGENTA{XG51};
减三分二:IF(VAR1>1.100 AND VAR1<1.150 AND VAR1<REF(VAR1, 1) OR VAR1>1.150 AND VAR1<REF(VAR1, 1), 67, 0), STICK, COLORCYAN{XG51};
警示录:MAX(MAX(减四分一, 减三分一), MAX(减二分一, 减三分二)), POINTDOT,LINETHICK2, COLORWHITE{X.G_5!1.C.N.{};

源码正文：

VAR1:=ema(HHV(HIGH,500),21){XG51};
VAR2:=Ema(HHV(HIGH,250),21){XG51};
VAR3:=EMA(HHV(HIGH,90),21){XG51};
VAR4:=EMA(LLV(LOW,500),21){XG51};
VAR5:=EMA(LLV(LOW,250),21){XG51};
VAR6:=EMA(LLV(LOW,90),21){XG51};
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21){XG51};
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21){XG51};
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21){XG51};
VAR10:=IF(DATE>=1340722,0,1){XG51};
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21){XG51};
VARB:=REF(LOW,1){XG51};
VARC:=SMA(Abs(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100{XG51};
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC*VAR10/10),3){XG51};
VARE:=LLV(LOW,30)*VAR10{XG51};
VARF:=HHV(VARD,30){XG51};
VAR11:=IF(MA(CLOSE,58),1,0){XG51};
火焰山后股启航:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR11,COLOR00EEFF,LINETHICK2,POINTDOT{XG51};
火焰:=stICKLINE(火焰山后股启航>0 ,0 ,火焰山后股启航 ,4 ,1){XG51};
今量:=火焰山后股启航*VAR10{XG51};
STICKLINE(火焰山后股启航>0,0 ,今量*1.2,6,0 ),COLOR00EEFF{XG51};
STICKLINE(火焰山后股启航>0,0 ,今量*0.6,5,0 ),COLOR0099FF{XG51};
STICKLINE(火焰山后股启航>0,0 ,今量*0.4,3,0 ),COLOR0066FF{XG51};
STICKLINE(火焰山后股启航>0,0 ,今量*0.2,2,0 ),COLOR0000FF{XG51};
QW1:=(HIGH+LOW+CLOSE*2)/4{XG51};
QW3:=EMA(QW1,10){XG51};
QW4:=STD(QW1,10){XG51};
QW5:=(QW1-QW3)*100/QW4{XG51};
QW6:=EMA(QW5,5){XG51};
RK7:=EMA(QW6,10){XG51};
红烛看涨:EMA(QW6,10)+100/2-5,LINETHICK1,COLORWHITE{XG51};
绿烛看跌:IF(红烛看涨<REF(红烛看涨,1),红烛看涨,DRAWNULL),COLORCYAN,LINETHICK1{XG51};
STICKLINE(红烛看涨<REF(红烛看涨,1),红烛看涨,MA(红烛看涨,3),3,0 ),COLOR008800{XG51};
STICKLINE(红烛看涨> REF(红烛看涨,1),红烛看涨,EMA(红烛看涨,3),2,0) ,COLORWHITE{XG51};
VARG:= zig(3,18)<REF(ZIG(3,18),1) AND REF(ZIG(3,18),1)>=REF(ZIG(3,18),2){XG51};
逃顶抛股:=PEAKBARS(3,15,1)<10{XG51};
做空:=IF(逃顶抛股=1,2,0){XG51};
逃顶抛股做空:= IF(做空=2,2,0),STICK,{XG51};
□创新高减仓:IF(逃顶抛股做空>REF(逃顶抛股做空,1),2,0),STICK,COLORFF937F{XG51};
STICKLINE(PEAKBARS(3,18,1)=0 AND HIGH*0.96>LOW,221,195,2,1),COLORFF937F{XG51};
DRAWTEXT(PEAKBARS(3,18,1)=0 AND HIGH*0.96>LOW,220,'创近期新高,逢高减仓!'),COLORFF937F{XG51};
□庄撤俺撤:FILTER(VARG,1)*1,COLOR999999,POINTDOT{XG51};
STICKLINE(VARG=1,205,195,2,1),COLOR999999{XG51};
DRAWTEXT(VARG,205,'庄撤俺撤!'),COLOR999999{XG51};
X1:=(3*C+H+L+O)/6{XG51};
X2:=EMA(X1,10){XG51};
X3:=REF(X2,1){XG51};
XL11:=EMA(CLOSE,10)/100{XG51};
XL2:= MA((XL11-REF(XL11,10))/REF(XL11,10),3)*100{XG51};
XL3:= MA(XL2,3){XG51};
XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1){XG51};
DRAWTEXT(IF(crOSS(3*XL4-2*SMA(XL4,3,1),8),87,0) AND X2>X3,L+50,'反弹'),COLORFF5ED8{X^G~5_1^C^N^{};