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

源码正文：

ma1:=MA(C,5);MA2:=MA(C,10); MA3:=MA(C,20);MA4:=MA(C,40){XG51};
MA5:=MA(C,60);MA6:=MA(C,30);MA7:=MA(C,120){XG51};
P3:=Abs(MA1-MA2)+ABS(MA2-MA3)+ABS(MA1-MA3){XG51};
良知之花:=IF(P3/C<6/100,2,0)COLORFF00FF,LINETHICK3{XG51};
K1:=1;M1:=5;M2:=10;M3:=20;M4:=60;P:=vol{XG51};
牛波波:=IF(MA(P,M1)>MA(P,M4)*0.9,2,0)COLORFF33CC,LINETHICK3{XG51};
VOLUME:=VOL{XG51};
LB:=VOL/REF(MA(VOL,5),1)COLORCYAN{XG51};
LONG:=26;SHORT:=12;M:=9{XG51};
difF:=ema(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
顽强绽放:=IF(crOSS(DIFF,DEA) AND MacD>REF(MACD,1),1,0)COLORWHITE,LINETHICK2{XG51};
香飘世界:=IF(CROSS(DIFF,DEA) AND DIFF<0 AND DEA<0
AND MACD>REF(MACD,1),1,0)COLORWHITE,LINETHICK2{XG51};
空依子:=IF(DIFF>0 AND DEA>0 AND CROSS(DIFF,DEA)
AND MACD>REF(MACD,1),1,0)COLORWHITE,LINETHICK2{XG51};
地量180:IF(VOL<REF(LLV(VOL,180),1),1.8,0)COLOR9999FF,LINETHICK3{XG51};
地量150:IF(VOL<REF(LLV(VOL,150),1),1.5,0)COLORFFFF00,LINETHICK3{XG51};
地量120:IF(VOL<REF(LLV(VOL,120),1),1.2,0)COLOR0066FF,LINETHICK3{XG51};
地量90:IF(VOL<REF(LLV(VOL,90),1),0.9,0)COLORBLUE,LINETHICK3{XG51};
地量60:IF(VOL<REF(LLV(VOL,60),1),0.6,0)COLORFF00FF,LINETHICK3{XG51};
地量40:=IF(VOL<REF(LLV(VOL,40),1),0.4,0)COLORCYAN,LINETHICK3{XG51};
春天里:=IF(香飘世界=1 AND REF(EXIst(香飘世界=1,40),12)
AND (DEA>REF(DEA,12) OR DEA>REF(DEA,13)
OR DEA>REF(DEA,14) OR DEA>REF(DEA,15)
OR DEA>REF(DEA,16) OR DEA>REF(DEA,17)
OR DEA>REF(DEA,18) OR DEA>REF(DEA,19)
OR DEA>REF(DEA,20) OR DEA>REF(DEA,21)
OR DEA>REF(DEA,22) OR DEA>REF(DEA,23)
OR DEA>REF(DEA,24) OR DEA>REF(DEA,25)
OR DEA>REF(DEA,26)),1,0)COLORFF00FF,LINETHICK2{XG51};
希望1:=IF((EXIST(地量150=1.5,12) OR EXIST(地量120=1.2,12)
OR EXIST(地量90=0.9,12)) AND 顽强绽放,1,0)COLORRED,LINETHICK8{XG51};
希望2:=IF((EXIST(地量150=1.5,12) OR EXIST(地量120=1.2,12)
OR EXIST(地量90=0.9,12)) AND 顽强绽放,1,0)COLORBLUE,LINETHICK8{XG51};
希望3:=IF((EXIST(地量120=1.2,10) OR EXIST(地量90=0.9,10)
OR EXIST(地量60=0.6,10) OR EXIST(地量40=0.4,10))
AND 顽强绽放,1,0)COLORBLUE,LINETHICK8{XG51};
安全奖:IF(希望1 AND 香飘世界
AND (春天里 OR REF(春天里,1))
AND LB>1,1.8,0)COLORCYAN,LINETHICK8{XG51};
平和奖:IF(希望2 AND C<MA5*1.2
AND LB>2.2,1.2,0)COLORWHITE,LINETHICK8{XG51};
WJ:=(MA5>REF(MA5,1) AND REF(MA5,1)>REF(MA5,2))
AND (MA1>REF(MA1,1) AND MA2>REF(MA2,1) AND MA3>REF(MA3,1));
勇气奖:IF(希望3 AND 空依子
AND (良知之花 OR REF(良知之花,1)) AND WJ
AND C>MA1 AND MA1>MA5 AND MA3>MA5
AND EXIST(MA1<MA3,5) AND LB>2,1,0)COLORBLUE,LINETHICK8{X^G*5.1^C^N^{};

源码正文：

N1:=5;N2:=10{XG51};
stICKLINE(C>0,0,10,15,0),COLOR781816{XG51};
LC:=REF(CLOSE,1){XG51};
rsi5:SMA(maX(CLOSE-LC,0),N1,1)/SMA(Abs(CLOSE-LC),N1,1)*10,COLORFF00FF,LINETHICK1{XG51};
RSI10:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*10,COLOR00FFFF{XG51};
VAR1:=C-REF(C,1){XG51};
VAR2:=100*ema(EMA(VAR1,6),6)/EMA(EMA(ABS(VAR1),6),6){XG51};
MA5:=EMA(C,5){XG51};
MA13:=EMA(C,13){XG51};
UP:=DRAWLINE(L=LLV(L,BArslAST(crOSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF{XG51};
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00{XG51};
BT:(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1){XG51};
0,COLORFF00FF{XG51};
10,COLORFF0000{XG51};
STICKLINE(UP,0,0.2,3,0),COLOR0000FF{XG51};
STICKLINE(DOWN,0,0.2,3,0),COLOR00FF00{XG51};
STICKLINE(BT,0,3,2,0),COLOR000088{XG51};
STICKLINE(BT,0,3,1,0),COLOR0000CC{XG51};
STICKLINE(BT,0,3,0.22,0),COLOR0000FF{XG51};
DRAWTEXT(BT,3,'短牛'),COLOR0000FF{XG51};
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82{XG51};
STICKLINE(TJ1,0,2,3,0),COLOR880088{XG51};
STICKLINE(TJ1,0,2,1.5,0),COLORAA00AA{XG51};
STICKLINE(TJ1,0,2,0.8,0),COLORCC00CC{XG51};
STICKLINE(TJ1,0,2,0.2,0),COLORFF00FF{XG51};
DRAWTEXT(TJ1,2,'中牛'),COLORFF00FF{XG51};
HR:=HHV(HIGH,55){XG51};
HRY:=LLV(LOW,55){XG51};
HRY11:=HR*HRY{XG51};
HRY33:=SQRT(HRY11){XG51};
TJ2:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33{XG51};
STICKLINE(TJ2,0,1,5,0),COLOR008888{XG51};
STICKLINE(TJ2,0,1,2,0),COLOR00AAAA{XG51};
STICKLINE(TJ2,0,1,1,0),COLOR00CCCC{XG51};
STICKLINE(TJ2,0,1,0.2,0),COLOR00FFFF{XG51};
DRAWTEXT(TJ2,1,'大牛'),COLOR00FFFF{XG51};
ST:=REF(UP,1)>REF(UP,2) AND DOWN<REF(UP,1){XG51};
STICKLINE(ST,10,9,5,0),COLOR008800{XG51};
STICKLINE(ST,10,9,2,0),COLOR00AA00{XG51};
STICKLINE(ST,10,9,1,0),COLOR00CC00{XG51};
STICKLINE(ST,10,9,0.2,0),COLOR00FF00{XG51};
DRAWTEXT(ST,9,'卖'),COLOR00FF00{X_G=5^1_C_N_{};