通达信发现庄迹未加密选股指标公式源码

源码正文：

AA:=(O+H+L+C)/4{XG51};
BB:=ma(AA,3){XG51};
CC:=SUM(IF(AA>REF(AA,1),AA*vol,0),4)/SUM(IF(AA<REF(AA,1),AA*VOL,0),4){XG51};
DD:=REF(100-(100/(1+CC)),1){XG51};
A1:=HHV(AA,15){XG51};
A2:=LLV(AA,15){XG51};
A3:=A1-A2{XG51};
A4:=ema((AA-A2)/A3,2)*100{XG51};
B1:=HHV(AA,60){XG51};
B2:=LLV(AA,60){XG51};
B3:=B1-B2{XG51};
B4:=EMA((AA-B2)/B3,2)*100{XG51};
C1:=HHV(AA,240){XG51};
C2:=LLV(AA,240){XG51};
C3:=C1-C2{XG51};
C4:=EMA((AA-C2)/C3,2)*100{XG51};
短期:A4,COLOR0099FF,LINETHICK2{XG51};
中期:B4,COLORWHITE,LINETHICK1{XG51};
长期:C4,COLORFF00FF,LINETHICK1{XG51};
stICKLINE(短期>90 AND 中期>70,86,94,1,0),COLORCYAN{XG51};
STICKLINE(短期<5 AND 中期<30,0,8,1,0),COLORWHITE{XG51};
IF(FILTER(中期<REF(中期,1)AND 中期>90 AND BB<REF(BB,1),5),80,100),COLORCYAN,LINETHICK1{XG51};
IF(FILTER(中期>REF(中期,1)AND 中期<5 AND C>REF(C,1),5),20,0),COLORGREEN,LINETHICK1{XG51};
D1:=中期>REF(中期,1) AND 短期>REF(短期,1)AND 长期>REF(长期,1)AND 长期<8 AND 中期<10 AND 短期<15{XG51};
D2:=crOSS(短期,中期) AND 中期<8{XG51};
D3:=CROSS(短期,长期) AND 长期<8 AND 中期<20{XG51};
DRAWICON(FILTER((D1 OR D2 OR D3) AND DD<15 AND C>REF(C,1),5),5,1){XG51};
DRAWICON(FILTER((中期<REF(中期,1)AND 短期<REF(短期,1)AND 长期<REF(长期,1)AND 中期>95 AND 短期>85)OR (长期>100 AND 中期>100 AND 短期>100),5),95,2){XG51};
强弱分界:50,POINTDOT,COLORRED{XG51};
警戒区:90,LINETHICK1,COLORRED{XG51};
安全区:20,COLORRED{XG51};
N:=5; N1:=21;
VAR1:=4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),COLORBLUE,LINETHICK1;
VAR2:=8,COLORCYAN,LINETHICK0;
小试牛刀: IF(CROSS(VAR1,VAR2),8,0),STICK,COLORWHITE;
DRAWICON(小试牛刀>0,8,11);
发现庄迹: IF(VAR1<=8,8,0),STICK,COLORGREEN,LINETHICK2;
短线获利:STICKLINE(REF("kdj.J",1)<0 AND "kdj.J">0,60,42,1,0),COLORBLUE{XG51};
VARK1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100{XG51};
VARK2:=REVERSE(VARK1){XG51};
VARK3:=SMA(VARK1,3,1){XG51};
VAR21:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1){XG51};
VAR22:=8{XG51};
SS:=CROSS(VAR21,VAR22){XG51};
DRAWTEXT(SS,L*0.98,'●买进！'),COLORBLUE{X*G!5~1*C*N*{};

源码正文：

保护价:(REF(CLOSE,1)+REF(CLOSE,2)+OPEN)/3,COLORBLUE,LINETHICK0{XG51};
心理价:(CLOSE*14+OPEN*7+HIGH*2+LOW*2)/25,COLORWHITE,LINETHICK0{XG51};
TYP:=(OPEN+CLOSE*2+HIGH+LOW)/5{XG51};
突破:(TYP+HIGH-LOW),COLORBLUE,LINETHICK0{XG51};
阻力:TYP*2-LOW,COLORWHITE,LINETHICK0{XG51};
支撑:TYP*2-HIGH,COLORGREEN,LINETHICK0{XG51};
下降:TYP-HIGH+LOW,COLORmaGENTA,LINETHICK0{XG51};
A001:=CLOSE-REF(CLOSE,6){XG51};
A002:=MA(A001,6){XG51};
A003:=((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100{XG51};
A004:=SMA(A003,3,1){XG51};
A005:=SMA(A004,3,1){XG51};
A006:=ema((3*A004-2*A005),2){XG51};
A007:=(HIGH+LOW+CLOSE)/3{XG51};
A008:=((A007-MA(A007,14))/(0.015*AVEDEV(A007,14)))/2{XG51};
A009:=(A008+(EMA(((0-(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))))+100)/100,3)*200-100))/2{XG51};
A010:=A009-REF(A009,14){XG51};
A011:=A009-REF(A009,26){XG51};
A012:=(A009+A010+A011)/3{XG51};
KKM:=EMA(A012,4){XG51};
A013:=HHV(HIGH,34){XG51};
A014:=(2*CLOSE+HIGH+LOW)/4{XG51};
A015:=LLV(LOW,34){XG51};
A016:=EMA(((A014-A015)/(A013-A015))*100,13){XG51};
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2){XG51};
KKMD:=A016-A017>1 AND A016<30 AND A017<30{XG51};
KKML:=A016-A017<0 AND A016>80 AND A017>80 AND REF(A016-A017,1)>0{XG51};
KKMQ:=COUNT(A016-A017>0,2)=2{XG51};
KKAL:=(A016-A017)<0{XG51};
生命线:MA(CLOSE,20),COLOR0000FF{XG51};
取舍线:MA(CLOSE,10){XG51};
DRAWTEXT(FILTER(KKMD,30),L*1.05,'最佳买入时机'),COLOR00FFFF{XG51};
DRAWTEXT(FILTER(KKML,30),H*1.05,'最佳卖出时机'),COLORFFFF00{XG51};
DRAWTEXT(FILTER(KKMQ,30),C*1.05,'持仓区'),COLOR00FF00{XG51};
DRAWTEXT(FILTER(KKAL,30),H,'空仓区'),COLORFF8080{XG51};
DRAWTEXT(FILTER(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),30),L*0.95,'该股强于大盘'),COLORFF00FF{XG51};
DRAWTEXT(crOSS(MA(CLOSE,5),MA(CLOSE,10)),L*0.92,'可出手'),COLORFF00FF{XG51};
DRAWTEXT(CROSS(MA(CLOSE,10),MA(CLOSE,5)),H*1.08,'收手了'),COLORFF0000{XG51};
DRAWTEXT(FILTER(KKM>EMA(KKM,4) AND KKM>REF(KKM,1),30),L*0.98,'快速介入'){XG51};
DRAWTEXT(FILTER(KKM<EMA(KKM,4) AND KKM<REF(KKM,1),30),H*1.02,'风险较大'){XG51};
DRAWTEXT(FILTER(KKM>EMA(KKM,4) AND KKM<REF(KKM,1),30),H,'休息观望~'),COLORAA8800{XG51};
DRAWTEXT(FILTER(KKM<EMA(KKM,4) AND KKM>REF(KKM,1),30),L,'有防御能力'){X.G!5-1.C.N.{};