通达信MACD彩色版未加密选股指标公式源码

通达信MACD彩色版未加密选股指标公式源码

源码正文：

difF:ema(CLOSE,12) - Ema(CLOSE,26),LINETHICK1{XG51};
DEA:EMA(DIFF,9),LINETHICK1{XG51};
macd1:=2*(DIFF-DEA),stICK{XG51};
STICKLINE(MacD1>=REF(MACD1,1) AND MACD1>0,0,MACD1,1,0),COLORWHITE{XG51};
STICKLINE(MACD1>=REF(MACD1,1) AND MACD1<0,0,MACD1,1,0),COLORWHITE{XG51};
STICKLINE(MACD1<REF(MACD1,1),0,MACD1,1,0),COLORCYAN{XG51};
MACD:MACD1,NODRAW,COLORLIMAGENTA{XG51};
JCCOUNT:=COUNT(crOSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWICON(二次金叉,DEA*1.04,13) {XG51};
A0:=CROSS(DIFF,DEA){XG51};
A:=A0 AND DIFF<0{XG51};
FT:=BARSLAST(A){XG51};
B:=COUNT(A0,FT){XG51};
零上二次金叉:=DIFF>0 AND DEA>0 AND A0 AND B<2{XG51};
DRAWICON(零上二次金叉,DEA*1.04,13) {XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA){XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF){XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)){XG51};
MACD底背:=IF(B1>0,-0.1,0),COLORWHITE,POINTDOT{XG51};
KDJ底背:=IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT{XG51};
RSI底背:=IF(B3>0,-0.1,0),COLORBLUE,POINTDOT{XG51};
MACD顶背:=IF(D1>0,0.1,0),COLOR00FF00,POINTDOT{XG51};
KDJ顶背:=IF(D2>0,0.1,0),COLORFFCC66,POINTDOT{XG51};
RSI顶背:=IF(D3>0,0.1,0),COLORRED,POINTDOT{XG51};
STICKLINE(B1>0,-0.3*HHV((Abs(MACD)),180),0,3,0),COLORWHITE{XG51};
STICKLINE(B2>0,-0.2*HHV((ABS(MACD)),180),0,3,0),COLORFF00FF{XG51};
STICKLINE(B3>0,-0.1*HHV((ABS(MACD)),180),0,3,0),COLORBLUE{XG51};
STICKLINE(D1>0,0.3*HHV((ABS(MACD)),180),0,3,0),COLOR00FF00{XG51};
STICKLINE(D2>0,0.2*HHV((ABS(MACD)),180),0,3,0),COLORFFCC66{XG51};
STICKLINE(D3>0,0.1*HHV((ABS(MACD)),180),0,3,0),COLORRED{XG51};
VAR01:=((CLOSE - LLV(LOW,30))/(HHV(HIGH,30) - LLV(LOW,30)))*(100);
VAR02:=SMA(VAR01,2,1);
VAR03:=SMA(VAR02,2,1);
VAR04:=((vol)/(CAPITAL))*(34);
VAR05:=REF(VAR04,1);
主力建仓提醒:=((VAR03 < 8.5) AND (VAR02 < 11))*HHV((ABS(MACD)),30) ,STICK,LINETHICK1,COLORFF00FF;
大户减仓:((VAR05 > 50) AND (VAR05 < 4.2))*HHV((ABS(MACD)),30),STICK,LINETHICK1,COLOR00FF00;
机构出货:((VAR03 > 89.5) AND (VAR02 > 91))*HHV((ABS(MACD)),30),STICK,LINETHICK1,COLORFFFFFF;
主力出货1:((VAR03 > 88.5) AND (VAR02 > 94.6))*HHV((ABS(MACD)),30),STICK,LINETHICK1,COLORFFFF00{XG51};
A10:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A10+1)>CLOSE AND DIFF>REF(DIFF,A10+1) AND CROSS(DIFF,DEA){XG51};
DEA0:=EMA(DIFF*100,9){XG51};
MACD0:=2*(DIFF*100-DEA0){XG51};
黑马:=(MACD0>REF(MACD0,1)*2.5 AND MACD0>15){XG51};
XG必涨:(底背离 AND 黑马)*HHV((ABS(MACD)),30),LINETHICK2,COLORLIMAGENTA{X^G_5~1^C^N^{};

通达信天胜至尊未加密选股指标公式源码

源码正文：

100{XG51};
0{XG51};
Var1:=IF(YEAR>2094,0,1) OR IF(YEAR>2093 AND MONTH>=1,0,1){XG51};
Var2:=dma(ema(CLOSE,12),SUM(vol,5)/3/CAPITAL){XG51};
Var3:=(CLOSE-Var2)/Var2*100{XG51};
Var4:=REF(Var3,1)<-40 AND Var3>REF(Var3,1) AND REF(Var3,1)<REF(Var3,2) AND Var3-REF(Var3,1)>2.5{XG51};
Var5:=(CLOSE-OPEN)/OPEN*100{XG51};
Var6:=REF(CLOSE,1){XG51};
Var7:=SMA(maX(CLOSE-Var6,0),6,1)/SMA(Abs(CLOSE-Var6),6,1)*100{XG51};
Var8:=COUNT(Var7<20,20)>=1{XG51};
Var9:=Var5>9 AND Var8{XG51};
VarA:=100*WINNER(OPEN){XG51};
VarB:=100*WINNER(CLOSE){XG51};
VarC:=VarB-VarA{XG51};
VarD:=VarC>=30{XG51};
VarE:=CLOSE/MA(CLOSE,3)>=1.07 AND CLOSE=HHV(CLOSE,3) AND MA(VOL,2)/MA(VOL,40)>=3 AND MA(VOL,2)=HHV(MA(VOL,2),3) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1){XG51};
VarF:=REF(CLOSE,1){XG51};
Var10:=SMA(MAX(CLOSE-VarF,0),5,1)/SMA(ABS(CLOSE-VarF),5,1)*100{XG51};
Var11:=COUNT(Var10<20,20)>=1{XG51};
Var12:=VarE AND Var11{XG51};
Var13:=MA(CLOSE,4){XG51};
Var14:=MA(CLOSE,10){XG51};
Var15:=MA(CLOSE,20){XG51};
Var16:=MA(CLOSE,25){XG51};
Var17:=COUNT(crOSS(Var14,Var15),2)=1{XG51};
Var18:=COUNT(CROSS(Var13,Var16),2)=1{XG51};
Var19:=Var17 AND Var18{XG51};
Var1A:=Var12 AND VarD AND Var19{XG51};
Var1B:=MA(CLOSE,80)-MA(CLOSE,10)/3{XG51};
Var1C:=CLOSE<Var1B AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3{XG51};
天胜至尊:if(Var4 OR Var9 OR Var1A OR Var1C*Var1,80,0),stick,linethick2,colorred{XG51};
drawtext(Var4 OR Var9 OR Var1A OR Var1C*Var1,70,'天胜至尊'),coloryellow{X^G?5*1^C^N^{};