通达信稳定获利美化版未加密选股指标公式源码

通达信稳定获利美化版未加密选股指标公式源码

源码正文：

obv:=ma(SUM(IF(C>REF(C,1),V,IF(C<REF(C,1),-V,0)),0)/25000,1);QA:=ema(OBV,12)-EMA(OBV,26){XG51};
QB:=QA-REF(QA,1);QC:=EMA(QA,9);QD:=QC-REF(QC,1);QE:=2*(QA-QC){XG51};
stICKLINE(QE>0 AND QE>REF(QE,1),0,QE,0,-1),COLORLICYAN;STICKLINE(QE>0 AND QE<REF(QE,1),0,QE,0,-1),COLORLIBLUE{XG51};
STICKLINE(QE<0 AND QE<REF(QE,1),0,QE,0,-1),COLORLIRED;STICKLINE(QE<0 AND QE>REF(QE,1),0,QE,0,-1),COLORBLACK{XG51};
NOTEXTAAA:0,DOTLINE,COLORBROWN{XG51};
EA:=2*(QA-QC);EB:=EA-REF(EA,1);NOTEXTA1:IF(QB>0,QA,DRAWNULL);NOTEXTA2:IF(QB<=0,QA,DRAWNULL){XG51};
NOTEXTA3:IF(QD>0,QC,DRAWNULL);NOTEXTA4:IF(QD<=0,QC,DRAWNULL);NOTEXTA5:IF(EB>0,EA,DRAWNULL){XG51};
NOTEXTA6:IF(EB<=0,EA,DRAWNULL);KK:=QB>0;DRAWICON(crOSS(KK>REF(KK,1),0.2),-0.36,1){XG51};
RT:=(C-LLV(L,10))/(HHV(H,10)-LLV(L,10))*100;RE:=RT/2+24;PE:=EMA(vol,13){XG51};
PF:=EMA(AMOUNT,13);PD:=(PF/PE)/100;PC:=((C-PD)/PD)*100;PA:=PC<0 AND V;PB:=PA AND RT<RE{XG51};
CS:=PB>0 AND MA(C,5)>REF(MA(C,5),2) AND C>O;STICKLINE(FILTER(CS=1,5),2.4,0,0.5,0),COLORBROWN{XG51};
短线变盘信号:QA,COLORRED,LINETHICK2;短线上涨:NOTEXTA1,COLORWHITE,LINETHICK2;短线下跌:NOTEXTA2,COLORCYAN,LINETHICK2{XG51};
趋势转向:EA,COLORBLACK;逐渐走强:NOTEXTA5,COLORLICYAN,LINETHICK1;逐渐转弱:NOTEXTA6,COLORLIRED,LINETHICK1{XG51};
长线变盘信号:QC,COLORBLUE,LINETHICK2;长线上涨:NOTEXTA3,COLORLIMAGENTA,LINETHICK2;长线下跌:NOTEXTA4,COLORGREEN,LINETHICK2{XG51};
尾进明早出挣1%:CS,COLORBROWN,NODRAW{X_G~5_1_C_N_{};

通达信超MACD未加密选股指标公式源码

源码正文：

LONG:=26{XG51};
SHORT:=12{XG51};
M:=9;N1:=6;N2:=12; N3:= 24; N:=3{XG51};
DIFF:=IF(V!=INDEXV,(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG))*100,
(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG))*1){XG51};
DEA:=EMA(DIFF,M){XG51};
macd:=3*(DIFF-DEA){XG51};
A:=HHV(DIFF,300){XG51};
B:=MacD-REF(MACD,1){XG51};
D1:=REF(MACD,1)-REF(MACD,2){XG51};
stICKLINE(MACD>0 AND B>0,0,MACD,1,0)COLORWHITE{XG51};
STICKLINE(MACD>0 AND B<0,0,MACD,1,0)COLORBROWN{XG51};
STICKLINE(MACD<0 AND B>0,0,MACD,1,0)COLORLIMAGENTA{XG51};
STICKLINE(MACD<0 AND B<0,0,MACD,1,0)COLORGREEN{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:SMA(RSV,3,1),COLORRED{XG51};
D:SMA(K,3,1),COLORBLUE{XG51};
J:3*K-2*D,COLORWHITE,LINETHICK2{XG51};
RSV1:EMA((C-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*-100,3),COLORWHITE,LINETHICK2{XG51};
RSV2:EMA((C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*-100,3),COLORRED,LINETHICK2{XG51};
RSV3:EMA((C-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*-100,3){XG51};
RSV4:EMA((C-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*-100,3){XG51};
RSV5:EMA((C-LLV(LOW,120))/(HHV(HIGH,120)-LLV(LOW,120))*-100,3){XG51};
火山:IF(J<=0,20,0),LINETHICK0{XG51};
STICKLINE(J<=0,90,100,8,0),COLORWHITE{XG51};
KDJ1:=REF(COUNT(J<REF(J,1),5)>=3,1) AND REF(J,1)<20{XG51};
KDJ2:=J>REF(J,1){XG51};
反转:IF(FILTER(KDJ1 AND KDJ2,3),50,0),COLORFFFF00{XG51};
VAR22:=REF(LOW,1){XG51};
VAR33:=SMA(Abs(LOW-VAR22),3,1)/SMA(MAX(LOW-VAR22,0),3,1)*100{XG51};
VAR44:=EMA(IF(CLOSE*1.3,VAR33*10,VAR33/10),3){XG51};
VAR55:=LLV(LOW,13){XG51};
VAR66:=HHV(VAR44,13){XG51};
VAR77:=IF(MA(CLOSE,34),1,0){XG51};
VAR888:=EMA(IF(LOW<=VAR55,(VAR44+VAR66*2)/2,0),3)/618*VAR77{XG51};
VAR999:=IF(VAR888>100,100,VAR888){XG51};
吸筹:VAR999,LINETHICK1,COLORCD7F32 {XG51};
STICKLINE(VAR999>-120,0,VAR999,2,10),COLORFF00FF{XG51};
低位金:=crOSS(K,D) AND D<20{XG51};
STICKLINE(低位金,D,D+8,5,0),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(K,D),BArslAST(K>=D)){XG51};
二次金:=CROSS(K,D) AND D<20 AND COUNT(JCCOUNT=2,34)=1{XG51};
STICKLINE(二次金,D,D+5,5,0),COLORFF80FF{XG51};
DRAWICON(二次金,D*0.85,1) {XG51};
A1:=BARSLAST(REF(CROSS(K,D),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND K>REF(K,A1+1) AND CROSS(K,D){XG51};
STICKLINE(底背离,D,D+5,5,0),COLORWHITE{XG51};
DRAWLINE(A1=0,D,底背离,D,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背离>0,J,'底背离'),COLORWHITE{XG51};
A2:=BARSLAST(REF(CROSS(D,K),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(D,A2+1)>D AND CROSS(D,K){XG51};
DRAWLINE(A2=0,D,顶背离,D,0),COLORCYAN,LINETHICK2{XG51};
DRAWTEXT(顶背离>0,K+2,'顶背离'),COLORCYAN{XG51};
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低位金叉,0,0.08,6,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORRED{XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*0.9,1) {XG51};
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORBLUE{XG51};
STICKLINE(((MACD>REF(MACD,1)) AND (MACD>0)),0,MACD,1,0),COLORWHITE{XG51};
STICKLINE(((MACD<REF(MACD,1)) AND (MACD>0)),0,MACD,1,0),COLORCYAN{XG51};
DRAWTEXT(CROSS(K,D) AND CROSS(J,D), K,' '){XG51};
DRAWTEXT(CROSS(D,K) AND CROSS(K,J), D,' '){XG51};
DRAWICON(CROSS(D,K) AND CROSS(K,J),D+10,2){XG51};
DRAWTEXT(((LLV(LOW,21) = LOW) AND NOT((LLV(CCI,21) =CCI))),LLV(CCI,21)+150,'▲'),COLORWHITE{XG51};
DRAWTEXT(((HHV(HIGH,34) = HIGH) AND (MA(CCI,3)<REF(MA(CCI,3),1) OR
CCI<REF(CCI,1)) AND NOT((HHV(CCI,34) = CCI))),HHV(CCI,55)-150,'▼'),COLORCYAN{XG51};
CROSS(83,RSI)*15,LINETHICK2,COLORYELLOW{XG51};
CROSS(27,RSI)*15,LINETHICK2,COLORRED{XG51};
SQX:=(C-MA(CLOSE,13))*100{XG51};
低位金叉1:IF(CROSS(DIFF,DEA) AND DIFF<-0.1,15,DRAWNULL),COLORBLUE,LINETHICK4,CROSSDOT{XG51};
JCCOUNT1:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0)){XG51};
二次金叉1:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT1=2,21)=1,28,DRAWNULL),COLORFF00FF,LINETHICK4,CROSSDOT{XG51};
A11:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离1:IF(REF(CLOSE,A11+1)>CLOSE AND DIFF>REF(DIFF,A11+1) AND CROSS(DIFF,DEA),40,DRAWNULL),COLORWHITE,LINETHICK4,CROSSDOT{XG51};
势: DRAWLINE(A11=0,DEA,底背离,DEA,0),COLORCYAN,LINETHICK3{XG51};
A12:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离1:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORRED{XG51};
顶背离_:=IF(REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),66,DRAWNULL),COLORF08000,LINETHICK4,CROSSDOT{XG51};
压: DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORFFBB99,LINETHICK3{XG51};
A13:=CROSS(DIFF,DEA) AND DEA<0{XG51};
零下二次金叉1_:IF(FILTER(COUNT(A13,21)=2,10),53,DRAWNULL),COLORRED,LINETHICK4,CROSSDOT,LINETHICK3{XG51};
VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
短顶:STICKLINE(VAR1>9 AND FILTER(VAR1<REF(VAR1,1),5),VAR1+2,0,3,0),COLORBLUE{XG51};
大顶:STICKLINE(VAR1>20 AND FILTER(VAR1<REF(VAR1,1),5),VAR1+5,0,7,0),COLORRED{XG51};
LC := REF(CLOSE,1){XG51};

F1:=REF(CLOSE,2){XG51};
F2:=SMA(MAX(CLOSE-F1,0),7,1)/SMA(ABS(CLOSE-F1),7,1)*100{XG51};
波段介入点:=IF(F2<19,19,0),COLORRED{X!G~5~1!C!N!{};