通达信黄金地量未加密选股指标公式源码

源码正文：

ma60:=MA(C,60){XG51};
UU:=vol=LLV(VOL,34) AND MA60>REF(MA60,1);{XG51};
地量选股:REF(VOL,1)=LLV(VOL,34) AND MA60>REF(MA60,1),COLORWHITE,LINETHICK3{XG51};
地量追踪:IF(VOL/CAPITAL>0.008,1,EXP(Abs(LOG(VOL/CAPITAL*100)))){X+G^5_1+C+N+{};

源码正文：

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100){XG51};
K:=ema(R,3){XG51};
D:=Ema(K,3){XG51};
SM:20,COLORWHITE{XG51};
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1){XG51};
N:=IF((陡峭度 > 0.35),6,65){XG51};
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110)){XG51};
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110)){XG51};
获利盘:=(WINNER(CLOSE))*(100){XG51};
获利线:=FORCAst(获利盘,7){XG51};
线:=(FORCAST(VAR1A,7))*((DATE < 20070110)){XG51};
满仓:=((线 > REF(线,1)) AND (线 < 25) AND (COUNT((线 > REF(线,1)),5) = 1) AND IF((N = 6),(获利盘 < 60),(获利盘 < 40)) AND (COUNT((获利线 > 20),20) > 0))*(40){XG51};
STICKLINE(满仓,0,40,5,0),COLOR008000{XG51};
DRAWTEXT(满仓,45,'满仓'),COLORRED{XG51};
轻仓:=IF((获利盘 >= 60) AND (线 > REF(线,1)) AND (REF(线,1) < 20) AND (线 < 40) AND (COUNT((线 > REF(线,1)),5) = 1) AND (REF(N,1) = 6),1,0){XG51};
STICKLINE(轻仓,20,D,4,1),COLORFF00FF{XG51};
DRAWTEXT(轻仓,45,'轻仓'),COLORFF00FF{XG51};
出击:=crOSS(线,20) AND IF((COUNT(CROSS(K,D),3) = 1) AND (D < 40),1,(线 > D) OR (K > D) AND (D < 60)) AND IF((N = 6),(获利盘 < 70),(获利盘 < 40)) AND (COUNT((获利线 > 20),20) > 0){XG51};
STICKLINE(出击,0,50,3,1),COLOR44BB00{XG51};
DRAWTEXT(出击,55,'出击'),COLORWHITE{XG51};
进一:CROSS(线,D) AND (D > 30) AND (D > REF(D,1)) AND (D < 80){XG51};
进二:CROSS(线,获利线) AND (D > 30) AND (获利线 > 25) AND (D > REF(D,1)){XG51};
低进:=IF(进一 AND (D > 获利线),进二,进一){XG51};
DRAWTEXT(低进,30,'低进'),COLORRED{XG51};
STICKLINE(低进,20,30,3,1),COLOR000080{XG51};
DRAWTEXT(进二,50,'高进'),COLOR800080{XG51};
STICKLINE(进二,30,50,3,1),COLORBLUE{XG51};
狂喜:=(30)*(CROSS(VAR1,(-2))){XG51};
STICKLINE(狂喜,0,20,3,1),COLORBLUE{XG51};
DRAWTEXT(狂喜,(-5),'要涨停'),COLORBLUE{XG51};
狂喜过望:=(50)*((VAR1 = 0)){XG51};
恐慌:=(20)*(VAR1 < -94);
STICKLINE(恐慌,0,(-20),5,0),COLORC1C1C1{XG51};
DRAWTEXT(恐慌,(-25),'恐慌'),COLORC1C1C1{XG51};
极度恐慌:=(-40)*(VAR1 = (-100));
STICKLINE(极度恐慌,0,(-40),7,1),COLOR800000{XG51};
DRAWTEXT(极度恐慌,(-45),'极度恐慌'),COLORCYAN{XG51};
半仓:=(30)*(CROSS(VAR1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(获利盘 < 60),(获利盘 < 40)) AND (COUNT((获利线 > 20),20) > 0)){XG51};
STICKLINE(半仓,0,30,4,1),COLORFFFF00{XG51};
DRAWTEXT(半仓,35,'半仓'),COLORFFFF00{XG51};
加仓:=(30)*(CROSS(K,20) AND (COUNT(半仓,5) > 0)){XG51};
STICKLINE(加仓,0,20,6,1),COLOR808080{XG51};
DRAWTEXT(加仓,25,'加仓'),COLOR808080{XG51};
背离:=(COUNT(恐慌,2) > 0) AND (CLOSE < REF(CLOSE,1)) AND (VAR1 > REF(VAR1,1)){XG51};
DRAWICON(背离,0,1),COLORFFFFFF{X.G_5?1.C.N.{};