通达信主力生变未加密选股指标公式源码

源码正文：

AA:=0.01*expma(AMOUNT,34)/EXPma(vol,34){XG51};
量价强弱:=(AA/REF(AA,1)-1)*100{XG51};
stICKLINE(量价强弱>0,0,量价强弱,1,1),COLORMAGENTA{XG51};
STICKLINE(量价强弱<0,量价强弱,0,1,1),COLORLIGREEN{XG51};
均强弱:ema(EMA(量价强弱,5),3){XG51};
月强弱:MA(均强弱,20){XG51};
IF(均强弱>0 AND 均强弱>REF(均强弱,1),均强弱,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
底变:量价强弱<-1 AND 量价强弱>REF(量价强弱,1) AND V/REF(V,1)>0.5,COLORWHITE,LINETHICK0{XG51};
顶变:量价强弱>1 AND 量价强弱<REF(量价强弱,1),COLORCYAN,LINETHICK0{XG51};
STICKLINE(底变,0,量价强弱,1,0),COLORMAGENTA{XG51};
STICKLINE(顶变,0,量价强弱,1,0),COLORLIGREEN{X_G*5_1_C_N_{};

源码正文：

DE:=CONst(LLV(L,90)){XG51};
JI:=CONST(HHV(H,90))-DE{XG51};
DE_K:=DE+JI/3*2{XG51};
JI_K:=JI/2{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
DE_A:=CONST(LLV(RSV,90)){XG51};
DD_A:=CONST(HHV(RSV,90))-DE_A{XG51};
R:=(RSV-DE_A)/DD_A{XG51};
RSV1:=R*JI_K+DE_K{XG51};
K:SMA(RSV1,3,1){XG51};
D:Sma(K,3,1){XG51};
J:3*K-2*D{XG51};
DE_M:=DE+JI/3{XG51};
JI_M:=JI/2{XG51};
kdL:=CONST(LLV(ema(C,26),90)){XG51};
KDH:=CONST(HHV(EMA(C,26),90))-KDL{XG51};
R_K1:=(EMA(C,12)-KDL)/KDH{XG51};
R_K2:=(EMA(C,26)-KDL)/KDH{XG51};
dif~:(R_K1-R_K2)*JI*1.5+DE_M{XG51};
DEA~:EMA(DIF~,9){XG51};
macd~:=(DIF~-DEA~)*2+DE_M{XG51};
STICKLINE(MacD~>=DE_M,MACD~,DE_M,0,0),COLORLIGREEN{XG51};
D_1:=MACD~>H AND H>=DE_M AND DE_M>=L{XG51};
D_2:=MACD~>H AND H>=L AND L>DE_M{XG51};
D_3:=H>MACD~ AND MACD~>=L AND L>DE_M{XG51};
D_4:=H>MACD~ AND MACD~>DE_M AND DE_M>=L{XG51};
STICKLINE(D_1>0,H,DE_M,0,0),COLORBLUE{XG51};
STICKLINE(D_2,H,L,0,0),COLORBLUE;
STICKLINE(D_3,MACD~,L,0,0),COLORBLUE{XG51};
STICKLINE(D_4,MACD~,DE_M,0,0),COLORBLUE{XG51};
D_5:=MACD~<L AND L<=DE_M AND DE_M<=H{XG51};
D_6:=MACD~<L AND H<DE_M{XG51};
D_7:=L<MACD~ AND MACD~<=H AND H<DE_M{XG51};
D_8:=L<MACD~ AND MACD~<DE_M AND DE_M<=H{XG51};
STICKLINE(MACD~<DE_M,DE_M,MACD~,0,0),COLORAA00AA{XG51};
STICKLINE(D_5,DE_M,L,0,0),COLORBLUE{XG51};
STICKLINE(D_6,H,L,0,0),COLORBLUE{XG51};
STICKLINE(D_7,H,MACD~,0,0),COLORBLUE{XG51};
STICKLINE(D_8,DE_M,MACD~,0,0),COLORBLUE{XG51};
L_00:DE_K{XG51};
L_20:JI_K/5+DE_K{XG51};
L_80:JI_K*4/5+DE_K{XG51};
L_100:JI_K+DE_K{XG51};
Z:zig(3,50/5),DOTLINE,COLORD2691E{XG51};
G:MA(Z,5),DOTLINE,COLOR4B0082{XG51};
S:=crOSS(Z,G){XG51};
W:=CROSS(G,Z){XG51};
DRAWTEXT(W=1,Z*1.01,'∩S∩'){XG51};
DRAWTEXT(S=1,Z*0.99,'∪B∪'){X_G!5~1_C_N_{};