通达信K线斜率未加密选股指标公式源码

源码正文：

X1:=ema(C,4){XG51};
X2:=REF(X1,1){XG51};
X3:=Ema(C,7){XG51};
X4:=REF(X3,1){XG51};
X5:=EMA(C,25){XG51};
X6:=REF(X5,1){XG51};
三日斜率:EMA(EMA(((X1-X2)/X2*100)*10,3),3){XG51};
七日斜率:EMA(EMA(((X3-X4)/X4*100)*10,7),7){XG51};
廿五斜率:EMA(EMA(((X5-X6)/X6*100)*10,25),25),COLORWHITE,LINETHICK2{XG51};
XG1:crOSS(三日斜率,七日斜率) AND 七日斜率>REF(七日斜率,1){XG51};
XG2:CROSS(七日斜率,廿五斜率){XG51};
stICKLINE(XG1,16,XG1,1,0),COLORBLUE{XG51};
STICKLINE(XG2,8,XG2,2,0),COLORMAGENTA{XG51};
DRAWICON(REF(三日斜率,1)<三日斜率 AND 三日斜率>REF(三日斜率,1),0,1){XG51};
DRAWICON(三日斜率<REF(三日斜率,1),4,2){X_G-5_1_C_N_{};

源码正文：

VAR1:=ema(Ema(CLOSE,9),9){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
stICKLINE(控盘<0,控盘,0,1,0),COLORRED{XG51};
A10:=crOSS(控盘,0){XG51};
散户割肉:IF(控盘<0,控盘,0),COLORRED,NODRAW{XG51};
开始控盘:IF(A10,5,0),LINETHICK1,COLORBLUE{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLORWHITE{XG51};
主力拉升:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORWHITE,NODRAW{XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,0),COLORFF00FF{XG51};
猛烈拉抬:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW{XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR00FF00{XG51};
黑庄出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW{X_G!5^1_C_N_{};