通达信风云变色未加密选股指标公式源码

源码正文：

V1:=IF(DATE<1140730,1,0){XG51};
顶:=85*V1{XG51};
中:=50*V1{XG51};
底:=20*V1{XG51};
VAR1:=HHV(HIGH,9)-LLV(LOW,9)*V1{XG51};
VAR2:=HHV(HIGH,9)-CLOSE*V1{XG51};
VAR3:=CLOSE-LLV(LOW,9)*V1{XG51};
VAR4:=VAR2/VAR1*100-70*V1{XG51};
VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100*V1{XG51};
VAR6:=(2*CLOSE+HIGH+LOW)/4*V1{XG51};
VAR7:=SMA(VAR3/VAR1*100,3,1)*V1{XG51};
VAR8:=LLV(LOW,34)*V1{XG51};
VAR9:=Sma(VAR7,3,1)-SMA(VAR4,9,1)*V1{XG51};
VARA:=IF(VAR9>100,VAR9-100,0)*V1{XG51};
VARB:=HHV(HIGH,34)*V1{XG51};
AA:= VARA*2*V1{XG51};
BB:= ema((VAR6-VAR8)/(VARB-VAR8)*100,13)*V1{XG51};
VARC:=EMA(0.667*REF(BB,1)+0.333*BB,2)*V1{XG51};
CC:=SMA(VAR5,20,1)*V1,COLORWHITE{XG51};
CC1:=SMA(CC,5,1)*V1,COLORCYAN{XG51};
IF(CC<REF(CC,1),CC,DRAWNULL),COLORYELLOW,LINETHICK1{XG51};
IF(CC>REF(CC,1),CC,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(CC1<REF(CC1,1),CC1,DRAWNULL),COLORYELLOW,LINETHICK1{XG51};
IF(CC1>REF(CC1,1),CC1,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
stICKLINE(CC>CC1,CC,CC1,1,0)*V1,COLORWHITE{XG51};
STICKLINE(CC1>CC,CC,CC1,1,0)*V1,COLORYELLOW{XG51};
出击:IF((crOSS(CC,CC1) AND (CC1 < 顶) ),80,0),COLORWHITE{XG51};
DRAWICON(CC < REF(CC,1) AND REF(CC,1) < REF(CC,2) AND CC > CC1,100,2){XG51};
DRAWICON(CROSS(CC1,CC),100,15){X~G-5-1~C~N~{};

源码正文：

VAR1:=(C- LLV(L,32)) / (HHV(H,32) - LLV(L,32)) * 1.2 * C{XG51};
VAR2:=ema(VAR1,3){XG51};
VAR3:=Ema(VAR1,5){XG51};
VAR4:=EMA(VAR1,7){XG51};
VARA:=VAR3 >= VAR4 AND VAR2 < REF(VAR2,1){XG51};
VARB:=VAR3 < VAR4 AND VAR2 > REF(VAR2,1){XG51};
超短:MA(VAR2,6){XG51};
短线:MA(超短,2){XG51};
加仓:=C/REF(C,1)>=1.09 OR ((H-L)/REF(C,1)>0.1 AND C=H){XG51};
stICKLINE(VAR2 >= VAR3,VAR4,VAR2,3,0),COLORWHITE{XG51};
STICKLINE(VARA,VAR2,VAR4,3,0),COLORFFEE44{XG51};
STICKLINE(VARA,VAR2,VAR4,1,0),COLORYELLOW{XG51};
STICKLINE(VARB,VAR2,VAR4,3.3,0),COLOR00ddfF{XG51};
STICKLINE(VARB,VAR2,VAR4,1,0),COLORWHITE{XG51};
STICKLINE(加仓,VAR2,VAR4,1,0),COLORBLUE{XG51};
DRAWTEXT(FILTER(VARB,3),VAR2*0.96,'醒醒'),COLORFF00FF{XG51};
DRAWTEXT(crOSS(短线,超短),VAR4*1.05,'睡觉'),COLORLIGREEN{XG51};
DRAWTEXT(CROSS(短线,超短) AND COUNT(CROSS(短线,超短),10)=2,VAR4*1.2,'跑'),COLORCYAN{XG51};
顶部:HHV(HIGH,60)*0.98{XG51};
地量:vol<LLV(VOL,34)*1.001,COLORYELLOW,LINETHICK1.5{XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'★∠45升'),COLORRED{XG51};
阿:=(CLOSE+HIGH+LOW)/3{XG51};
杜:=EMA(阿,0){XG51};
强:=REF(杜,1){XG51};
IF(杜,0,DRAWNULL),COLORCYAN,LINETHICK9{XG51};
黄珠买: IF(杜>强,0,DRAWNULL), COLORBLUE,LINETHICK9{XG51};
蓝珠卖: IF(杜<强,0,DRAWNULL),COLORYELLOW,LINETHICK9{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
kdj_K:="kdj.K"(9,3,3);KDJ_D:="KDJ.D"(9,3,3);KDJ_J:="KDJ.J"(9,3,3){XG51};
买一:=CROSS(KDJ_J,0) OR (CROSS(KDJ_J,KDJ_K) AND KDJ_D<26){XG51};
买二:=CROSS("rsi.RSI1"(6,2,2),20) OR CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
买三:=CROSS("macd.dif","MacD.DEA") OR CROSS("MACD.MACD",0){XG51};
买0:=买一+买二+买三{XG51};
买:IF(买0>1,买0,0){XG51};
DRAWICON(买0>1,L*0.98,16){X?G*5_1?C?N?{};