通达信潜龙主图未加密选股指标公式源码

源码正文：

ma5:MA(C,5),COLORRED{XG51};
MA11:MA(C,11),COLORBLUE{XG51};
MA21:MA(C,21),COLORLIMAGENTA{XG51};
MA31:MA(C,41),COLORCYAN{XG51};
MA60:MA(C,61),COLORYELLOW{XG51};
LC:=REF(CLOSE,1){XG51};
rsi5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(Abs((CLOSE - LC)),5,1)) * 100){XG51};
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10){XG51};
HD:=(HIGH - REF(HIGH,1)){XG51};
LD:=(REF(LOW,1) - LOW){XG51};
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10){XG51};
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10){XG51};
pdi:=((DMP * 100) / TR1){XG51};
mdi:=((DMM * 100) / TR1){XG51};
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5){XG51};
AV:=(RSI5 + ADX){XG51};
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5){XG51};
wr10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10))){XG51};
NEWvol:=(RSI5 - WR10){XG51};
龙:=(AV + NEWVOL){XG51};
AA:=MA(C,40)>REF(MA(C,40),1) AND REF(MA(C,40),1)>REF(MA(C,40),2){XG51};
BB:=MA(C,60)>REF(MA(C,60),1) AND REF(MA(C,60),1)>REF(MA(C,60),2){XG51};
CC:=MA(C,20)>REF(MA(C,20),1) AND REF(MA(C,20),1)>REF(MA(C,20),2){XG51};
EE:=(AA OR BB OR CC){XG51};
DRAWTEXT(crOSS(龙,0) AND EE,L*0.98,'潜'),COLORWHITE{XG51};
V1:=dma((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9){XG51};
HY1:=REF(ema(V1,3),1){XG51};
上收:=C{XG51};
箱顶:MA(REF(HHV(上收,30),1),2),COLORYELLOW,LINETHICK1{XG51};
箱底:MA(REF(LLV(上收,30),1),2),COLORBLacK,LINETHICK1{XG51};
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
VAR12:=(HIGH+LOW+CLOSE)/3{XG51};
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14)){XG51};
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70)){XG51};
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0){XG51};
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15){XG51};
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
VAR18:=100-ABS(VAR17){XG51};
VAR19:=IF(VAR18<90,VAR18,100){XG51};
VAR1A:=IF(VARE>0,VARE,0){XG51};
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60{XG51};
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100{XG51};
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.05,'大笔出'),LINETHICK1,COLORFFCC66{XG51};
VAR2:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR4:=LLV(LOW,5){XG51};
VAR5:=HHV(HIGH,4){XG51};
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4){XG51};
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2){XG51};
DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L*0.92,'吸'),COLORWHITE{XG51};
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H*1.02,'抛'),COLORCYAN{XG51};
VVAR3:=REF(CLOSE,1){XG51};
VVAR4:=SMA(MAX(CLOSE-VVAR3,0),6,1)/SMA(ABS(CLOSE-VVAR3),6,1)*100{XG51};
DRAWTEXT(CROSS(84,VVAR4),H*1.05,'逃'),COLORBLUE {XG51};
VVAR5:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VVAR6:=SMA(ABS(LOW-VVAR5),13,1)/SMA(MAX(LOW-VVAR5,0),10,1){XG51};
VVAR7:=EMA(VVAR6,10){XG51};
VVAR8:=LLV(LOW,33){XG51};
VVAR9:=EMA(IF(LOW<=VVAR8,VVAR7,0),5){XG51};
主力:=FILTER(VVAR9>REF(VVAR9,1),5){XG51};
DRAWTEXT(主力,L*0.9,'入'),COLORWHITE{XG51};
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.96),'建'),COLORBLUE{X_G!5^1_C_N_{};

源码正文：

一165发财:EMA(CLOSE,165){XG51};
工作:EMA(CLOSE,17){XG51};
庄二25:EMA(CLOSE,25),LINETHICK2{XG51};
大生453:EMA(CLOSE,453),COLORWHITE,LINETHICK1{XG51};
疯九99:EMA(CLOSE,99),COLORCYAN,LINETHICK1{XG51};
牛熊线:EMA(CLOSE,905){XG51};
E1:=expma(C,7),COLORCYAN{XG51};
E2:=EXPMA(C,9),COLORCYAN{XG51};
E3:=EXPMA(C,12),COLORCYAN{XG51};
E4:=EXPMA(C,14),COLORCYAN{XG51};
E5:=EXPMA(C,17),COLORCYAN{XG51};
E6:=EXPMA(C,50),COLORFF8800,LINETHICK2{XG51};
A1:=crOSS(C,E1) AND CROSS(C,E5){XG51};
DRAWICON(A1,L*0.99,13){XG51};
LOWN:=5{XG51};
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1){XG51};
QY1:=BacKSET(AA1,LOWN+1){XG51};
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1){XG51};
DRAWICON(CC1,L*0.98,9){XG51};
DRAWTEXT_FIX(1,0.3,1.5,0,'★ 线上阴线买，买错也要买 ★★★ 线下阳线抛，抛错也要抛 ★')COLORBLUE{XG51};
AAA:=CONst(HHV(H,90)){XG51};
M20:=MA(CLOSE,18){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(88,rsi),(HIGH * 1.02),'出局'),COLORCYAN{XG51};
VARC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(Abs(C-REF(C,1)),6,1)*100{XG51};
DRAWTEXT(CROSS(84,VARC),H*1.01,'逃'){XG51};
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
VAR12:=(HIGH+LOW+CLOSE)/3{XG51};
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14)){XG51};
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70)){XG51};
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0){XG51};
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15){XG51};
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
VAR18:=100-ABS(VAR17){XG51};
VAR19:=IF(VAR18<90,VAR18,100){XG51};
VAR1A:=IF(VARE>0,VARE,0){XG51};
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60{XG51};
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100{XG51};
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.02,'大笔出货'),LINETHICK1,COLORFFCC66{XG51};
A75:=(CLOSE > MA(CLOSE,5)){XG51};
A76:=(MA(CLOSE,5) > MA(CLOSE,10)){XG51};
A77:=(CLOSE > MA(CLOSE,10)){XG51};
A78:=(MA(CLOSE,5) > MA(CLOSE,20)){XG51};
A79:=(CLOSE > MA(CLOSE,20)){XG51};
A710:=REF(M20,1){XG51};
A711:=(M20 > A710){XG51};
AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10)))
+ IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10))){XG51};
DSLX:=(CLOSE / INDEXC){XG51};
DSLX1:=MA(DSLX,5){XG51};
DSLX2:=MA(DSLX,10){XG51};
V1:=MA(vol,5){XG51};
V2:=MA(VOL,10){XG51};
T1:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T2:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0)){XG51};
T3:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)),1,0));
T4:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)),1,0)){XG51};
T5:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0)){XG51};
T6:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0)){XG51};
T7:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T8:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0)){XG51};
T9:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T10:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));
T11:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T12:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));
T13:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T14:=CONST(IF( C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0)){XG51};
T15:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T16:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0)){XG51};
T17:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));
T18:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));
T19:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 < V2)),1,0)){XG51};
T20:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 >= V2)),1,0)){XG51};
T21:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 < V2)),1,0));
T22:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)),1,0)){XG51};
T23:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)),1,0)){XG51};
T24:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)),1,0)){XG51};
T25:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)),1,0)){XG51};
DRAWTEXT(T1=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'量能理想,明显走强,中线参与，仓位在2/3左右。'),COLORFF00FF {XG51};
DRAWTEXT(T2=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'走势趋强,还显不足,短线进场，仓位在1/2左右。'),COLORFF00FF {XG51};
DRAWTEXT(T3=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'量价良好,没有明显走强，短线进场，仓位1/2左右。'),COLORFF00FF {XG51};
DRAWTEXT(T4=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右。'),COLORFF00FF {XG51};
DRAWTEXT(T5=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'形态变坏，重仓者减持大半，清仓者观望。'),COLORCYAN{XG51};
DRAWTEXT(T6=1 AND CURRBARSCOUNT=70,AAA*0.98
,'随大盘一起下跌，明显缩量走势，考虑到风险，减持或清仓。'),COLORCYAN{XG51};
DRAWTEXT(T7=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股放量下跌，走势明显偏弱，离场观望。'),COLORCYAN{XG51};
DRAWTEXT(T8=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股缩量下跌，走势偏弱，离场观望。'),COLORCYAN{XG51};
DRAWTEXT(T9=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股形态良好，强势明显，量能充足，可以继续持有。'),COLORFF00FF {XG51};
DRAWTEXT(T10=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'上行趋势不变，强势依然，量能开始转弱，注意风险。'),COLORBLUE{XG51};
DRAWTEXT(T11=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),COLORBLUE{XG51};
DRAWTEXT(T12=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股走势趋弱，量能不足，减持大部分筹码。'),COLORCYAN{XG51};
DRAWTEXT(T13=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股形态不佳，注意成交量的变化，目前不适合参与。'),COLORCYAN{XG51};
DRAWTEXT(T14=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLORCYAN{XG51};
DRAWTEXT(T15=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'有走强迹象，但量能不足，趋势不明，不适合操作。'),COLORCYAN{XG51};
DRAWTEXT(T16=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'该股走势太弱，没有参与价值。'),COLORCYAN{XG51};
DRAWTEXT(T17=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘理想，有明显走强迹象，中线参与，仓位在2/3左右。'),COLORFF00FF {XG51};
DRAWTEXT(T18=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'如前期经过一轮下跌，最佳买点，前期有过一段涨幅需谨慎。'),COLORBLUE{XG51};
DRAWTEXT(T19=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'考虑短线进场，仓位在1/2左右，一旦量能放大,加仓买入。'),COLORFF00FF {XG51};
DRAWTEXT(T20=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘形态走坏，重仓者可以减去大部分仓位。'),COLORCYAN{XG51};
DRAWTEXT(T21=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘缩量调整，注意风险，短线清仓观望。'),COLORCYAN{XG51};
DRAWTEXT(T22=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘走势良好，量能理想，可以继续持有强势股。'),COLORFF0000 {XG51};
DRAWTEXT(T23=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘形态良好，但量能稍显不足，随时准备减仓。'),COLORBLUE{XG51};
DRAWTEXT(T24=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),COLORCYAN{XG51};
DRAWTEXT(T25=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)
,'大盘趋势向下，量能萎缩，不适合进场。'),COLORCYAN{XG51};
M1:=30{XG51};
P2:=80{XG51};
VAR101:=(C+H+O+L)/4{XG51};
买入:=xma(VAR101,M1)*(1-P2/1000),COLORFFFFFF,LINETHICK2{XG51};
反弹:=EMA(EMA(EMA(HIGH,5),5),5)*0.95,COLORWHITE,LINETHICK1{XG51};
XG:=CROSS(买入,反弹){XG51};
DRAWICON(XG,L*0.97,5){XG51};
DRAWTEXT(XG,L*0.97,'暴涨' ),COLORWHITE{XG51};
超B:=L2_AMO(0,2)/10000.0{XG51};
大B:=L2_AMO(1,2)/10000.0{XG51};
中B:=L2_AMO(2,2)/10000.0{XG51};
小B:=L2_AMO(3,2)/10000.0{XG51};
超S:=L2_AMO(0,3)/10000.0{XG51};
大S:=L2_AMO(1,3)/10000.0{XG51};
中S:=L2_AMO(2,3)/10000.0{XG51};
小S:=L2_AMO(3,3)/10000.0{XG51};
净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),COLORWHITE,NODRAW;
dif:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2{XG51};
VAR113:=HHV(HIGH,60){XG51};
VAR114:=LLV(LOW,30){XG51};
VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100{XG51};
VAR116:=(VAR113+VAR114+VAR115)/3{XG51};
VAR117:=EMA(VAR116,5){XG51};
K01:=EMA(VAR117,5)*2, COLORFF00FF{XG51};
D01:=EMA(K01,5), COLORRED{XG51};
J01:=K01*3-D01*2, COLORBLUE{XG51};
ENTERLONG:=CROSS(K01,D01){XG51};
EXITLONG:=CROSS(D01,K01){XG51};
B01:=(DRAWICON((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)),L*0.98,1))*D01*2/3{XG51};
B02:=IF(TROUGHBARS(3,15,1)=1 AND HIGH>LOW+0.01,20,0){XG51};
必买:=(B01 AND B02) AND 净流入>0;
必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORCYAN,LINETHICK1{XG51};
QQ:=必卖=80{XG51};
B03:=((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};
VV1:=EMA(CLOSE,60)-EMA(CLOSE,300){XG51};
VV2:=EMA(VV1,300){XG51};
VV3:=(CLOSE-(LOW,8))/((HIGH,8)-LLV(LOW,8))*100{XG51};
VV4:=SMA(VV3,2,1),NODRAW{XG51};
VV5:=SMA(VV4,2,1),NODRAW{XG51};
VV6:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
VV7:=BACKSET(VV6,3){XG51};
大涨:=(VV7 AND COUNT(VV7,3)=1){XG51};
DRAWICON(必买,L-0.16,11){XG51};
DRAWICON(大涨,L-0.18,9){XG51};
DRAWICON(大涨 AND 必买,L-0.185,1){XG51};
DRAWICON(QQ,H+0.1,6){X_G-5~1_C_N_{};