通达信短线有钱途未加密选股指标公式源码

源码正文：

A:=4{XG51};
高1:=REF(HHV(H,1500),1){XG51};
低1:=REF(LLV(L,1500),1){XG51};
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809{XG51};
顶:REFDATE(高1,DATE),POINTDOT,COLORRED{XG51};
%19:REFDATE(H1,DATE),POINTDOT,COLORBLUE{XG51};
%38:REFDATE(H2,DATE),POINTDOT,COLORBLUE{XG51};
%50:REFDATE(H3,DATE),POINTDOT,COLORRED{XG51};
%61:REFDATE(H4,DATE),POINTDOT,COLORBLUE{XG51};
%80:REFDATE(H5,DATE),POINTDOT,COLORBLUE{XG51};
突破:REF(ema(C,A),1)COLORmaGENTA,LINETHICK1{XG51};
A1X:=(EMA(C,A)-突破)/突破*100{XG51};
出击:IF(A1X>=0,REF(EMA(C,A),BArslAst(crOSS(A1X,0))+1),DRAWNULL)COLORWHITE,LINETHICK1{XG51};
休假:IF(A1X<0,REF(EMA(C,A),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORCYAN,LINETHICK1{XG51};
STICKLINE(A1X>=0,出击,突破,0,-1),COLORWHITE{XG51};
STICKLINE(A1X<0,休假,突破,0,-1),COLORCYAN{XG51};
STICKLINE(CROSS(A1X,0),C,O,2,0),COLORBLUE{XG51};
STICKLINE(CROSS(0,A1X),C,O,2,0),COLORCYAN{XG51};
DRAWICON(CROSS(A1X,0),L-0.3,1),COLORBLUE{XG51};
DRAWICON(CROSS(0,A1X),H+0.4,9),COLORCYAN{XG51};

DRAWTEXT(CROSS(A1X,0),H,'参考介入价:'+'C'+' '){XG51};
{X!G=5+1!C!N!{};

源码正文：

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~{};