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

源码正文：

DP0:="SH000001$CLOSE"/ma("SH000001$CLOSE",13){XG51};
DP1:=IF(DP0<=0.98,0.95,IF(DP0<1 AND DP0>0.98,0.9,IF(DP0>=1.02,0.8,0.85))){XG51};
DP2:=MA("SH000001$CLOSE",13)>REF(MA("SH000001$CLOSE",13),1){XG51};
ER:=V/CAPITAL{XG51};
A0:=TMA(ER,(1-ER)*12/13,1){XG51};
A1:=WINNER(C)-REF(WINNER(C),13){XG51};
A2:=HHV((A1>=A0)*(A1-A0)*DP1,8)*100{XG51};
解套不买:(SLOPE(A2,3)>=0)*A2,COLORCYAN,stICK{XG51};
NOTEXT不买:解套不买,COLORCYAN{XG51};
B0:=dma((C+O)/2,ER/A0){XG51};
B1:=DMA((C+O)/2,ER/TMA(ER,(1-ER),1)){XG51};
B2:=WINNER(HHV(H,15)*POW(1.1,-1.9))*100{XG51};
B3:=ema(COST(90),8){XG51};
获利不抛:(B0>=B1 AND B0>REF(B0,1) AND B3>=REF(B3,1))*B2,COLORWHITE,STICK{XG51};
NOTEXT不抛:获利不抛,,COLORWHITE{XG51};
C0:=POW(SUM(POW(C-MA(C,20),2),20)/19,0.5)/MA(C,20)*200{XG51};
C1:=SLOPE(C+O,20)/MA(C+O,20)*100{XG51};
C2:=B1>REF(B1,1) AND C0<=7 AND HHV(Abs(C1),20)<=1{XG51};
横盘洗不掉:C2*WINNER(LLV(C,30))*100,COLORBLUE,STICK{XG51};
NOTEXT横盘:横盘洗不掉,COLORBLUE{XG51};
STICKLINE(DP2>0,0,2,3,0),COLOR0000DC{XG51};
STICKLINE(DP2=0,0,2,3,0),COLOR00DC00{XG51};
NOTEXT20:20,COLORYELLOW,DOTLINE{XG51};
NOTEXT40:40,COLORGREEN,DOTLINE{XG51};
NOTEXT60:60,COLORLIMAGENTA,DOTLINE{X~G-5^1~C~N~{};

源码正文：

SHORT:=12;LONG:=26;MID:=9{XG51};
D1:=ema(C,3)-Ema(C,8){XG51};
D2:=EMA(O,3)-EMA(O,8){XG51};
D3:=EMA(H,3)-EMA(H,8){XG51};
D4:=EMA(L,3)-EMA(L,8){XG51};
stICKLINE(D1>=D2,D1,D2,3,0),COLOR0055AA{XG51};
STICKLINE(D1<=D2,D1,D2,3,0),COLOR006600{XG51};
STICKLINE(D1>=D2,D1,D2,2,0),COLOR0077CC{XG51};
STICKLINE(D1>=D2,D1,D2,1,0),COLOR0099DD{XG51};
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF{XG51};
STICKLINE(D1<=D2,D1,D2,2,0),COLOR009900{XG51};
STICKLINE(D1<=D2,D1,D2,1,0),COLOR00BB00{XG51};
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00{XG51};
dif:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORGREEN,LINETHICK1{XG51};
DEA:EMA(DIF,MID),COLOR66CC00,LINETHICK1{XG51};
TJ1:EMA(DEA,4),COLOR999933,LINETHICK1{XG51};
TJ2:=EMA(DIF,17),COLORYELLOW,LINETHICK1{XG51};
macd:(DIF-DEA)*2,COLORSTICK{XG51};
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2{XG51};
IF(DEA>REF(DEA,1),DEA,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(TJ1>REF(TJ1,1),TJ1,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
0,COLORBROWN,LINETHICK1{X!G=5+1!C!N!{};