通达信波段彩霞主图未加密选股指标公式源码

源码正文：

ma250:MA(C,250),LINETHICK2,COLORWHITE{XG51};
VAR1:=(HIGH+LOW+OPEN+CLOSE)/4{XG51};
黄金线:=ema(3*VAR1-2*SMA(VAR1,2,1),13),COLORBLUE,LINETHICK2{XG51};
CJ:=(3*C+L+O+H)/6{XG51};
多空线:=(20*CJ+19*REF(CJ,1)+18*REF(CJ,2)+17*REF(CJ,3)+16*REF(CJ,4)+15*
REF(CJ,5)+14*REF(CJ,6)+13*REF(CJ,7)+12*REF(CJ,8)+11*REF(CJ,9)+10*
REF(CJ,10)+9*REF(CJ,11)+8*REF(CJ,12)+7*REF(CJ,13)+6*REF(CJ,14)+5*
REF(CJ,15)+4*REF(CJ,16)+3*REF(CJ,17)+2*REF(CJ,18)+REF(CJ,20))/210,
COLORFF00FF,LINETHICK2{XG51};
亚当:=((HIGH + LOW + CLOSE)/3-MA((HIGH + LOW + CLOSE)/3,14))*100/
(1.5*AVEDEV((HIGH + LOW + CLOSE)/3,14)){XG51};
N:=1,100,12{XG51};
夏娃:=EMA(亚当,N); X2:=亚当; X3:=夏娃{XG51};
stICKLINE(X2>=X3,LOW,HIGH,0,0),COLORWHITE{XG51};
STICKLINE(X2>=X3,CLOSE,OPEN,3,0),COLOR0000AA{XG51};
STICKLINE(X2>=X3,CLOSE,OPEN,2,0),COLOR0000CC{XG51};
STICKLINE(X2>=X3,CLOSE,OPEN,1,0),COLOR0000DD{XG51};
STICKLINE(X2>=X3,CLOSE,OPEN,0.3,0),COLOR0000FF{XG51};
STICKLINE(X2<X3,CLOSE,OPEN,0.3,0),COLORFFFF00{XG51};
STICKLINE(X2<X3,CLOSE,OPEN,1,0),COLORDDDD00{XG51};
STICKLINE(X2<X3,CLOSE,OPEN,2,0),COLORAAAA00{XG51};
STICKLINE(X2<X3,CLOSE,OPEN,3,0),COLOR888800{XG51};
STICKLINE(X2<X3,LOW,HIGH,0,0),COLORFFFF00{XG51};
STICKLINE(X2<X3 AND C>=黄金线 AND 黄金线>=多空线,OPEN,CLOSE,3,0),COLORFF00FF{XG51};
STICKLINE(X2<X3 AND C>=多空线 AND C<黄金线,OPEN,CLOSE,3,0),COLORYELLOW{XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'∠45升'),COLORRED{XG51};
E1:=BARSCOUNT(C){XG51};
AH:=HHV(H,200){XG51};
AL:=LLV(L,200){XG51};
B0:=(AH-AL)/40{XG51};
KB1:=H+B0{XG51};
KB2:=L-B0{XG51};
STICKLINE((E1+0)/34=FLOOR((E1+0)/34),KB2,KB2-0.8*B0,1,0),COLORBLUE,LINETHICK3{XG51};
DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-B0,'时窗'),COLORBLUE{XG51};
VAR81:=1{XG51};
VAR82:=((((2*CLOSE)+HIGH)+LOW) / 4){XG51};
低金叉进:=20,COLORBLUE,LINETHICK2{XG51};
高死叉出:=90,COLORCYAN,LINETHICK3{XG51};
VAR84:=LLV(LOW,5){XG51};
VAR85:=HHV(HIGH,4){XG51};
C1:=(EMA((((VAR82-VAR84)/(VAR85-VAR84))*100),4)*VAR81),COLORFF00FF,LINETHICK2{XG51};
C2:=(EMA(((0.667*REF(C1,1))+(0.333*C1)),2)*VAR81),COLORFFFFFF,LINETHICK2{XG51};
条件:=crOSS(C1,C2) AND C1<40{XG51};
条件0:=CROSS(C2,C1) AND C1>90{XG51};
TJ1:=CROSS(C1,C2){XG51};
TJ2:=CROSS(C2,C1){XG51};
TJ3:=CROSS(C1,C2) AND REF(C1,1)<20{XG51};
TJ4:=CROSS(C2,C1) AND REF(C1,1)>80{XG51};
DRAWTEXT(条件0,H*1.02,'S'),COLORYELLOW{XG51};
DRAWTEXT(TJ3,L*0.98,'买'),COLORBLUE{XG51};
DRAWTEXT(TJ4,H*1.02,'逃'),COLORRED{XG51};
均线:=MA(C,13),COLOR00FFFF{XG51};
X8:="macd.MacD"{XG51};
X:=HHV(REF(X8,1),BArslAST(X8>0)+1){XG51};
A8:=(X8/REF(X8,1)-1)*100{XG51};
A1:=BARSLAST(CROSS(0,A8))+1{XG51};
DRAWTEXT(X8>0.618 AND CROSS(X,X8),H*1.035,'止赢'),COLORYELLOW{XG51};
STICKLINE(X8>0.618 AND CROSS(X,X8),H*1.02,H*1.021,20,1),COLORYELLOW{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.dif","MACD.DEA"),1))+1)>C AND
REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)
<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")
>0,L-0.02,'★M'),COLORFF00FF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("kdj.K","kdj.D"),1))+1)>C AND
REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND
CROSS("KDJ.K","KDJ.D"),L-0.10,'◎K'),COLORFF00FF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1))+1)>C AND
REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)
<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")
>0,L-0.18,'◆R'),COLORFF00FF;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)<C
AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)
>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")
>0,H+0.16,'★M'),COLORCYAN;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)<C
AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)
>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'◎K'),COLORCYAN{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)<C AND
REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)>"RSI.RSI1"{XG51};
AND CROSS("RSI.RSI2","RSI.RSI1")>0,H+0.04,'◆R'),COLORCYAN;{XG51};
分水岭: dma(EMA(CLOSE,12),SUM(vol,5)/3/CAPITAL),COLOR00FFFF,POINTDOT{XG51};
CCC:C,COLORFFFFFF{XG51};
UPPER : MA(CLOSE,14)*1.06,POINTDOT,COLORFF99FF,LINETHICK2{XG51};
LOWER : MA(CLOSE,14)*0.94,POINTDOT,COLORFF00FF,LINETHICK2{XG51};
MID:(UPPER+LOWER)/2,NODRAW,COLOR00FFFF,LINETHICK1{XG51};
VAR91:=(2*CLOSE+HIGH+LOW+OPEN)/5{XG51};
A51: (EMA(VAR91,1)+EMA(VAR91,2)+EMA(VAR91,3)+EMA(VAR91,4))/4,COLORGREEN,LINETHICK1{XG51};
W51:=(EMA(VAR91,1)+EMA(VAR91,2)+EMA(VAR91,3)+EMA(VAR91,4))/4{XG51};
A52: EMA(A51,2),COLORGREEN,LINETHICK1{XG51};
W52:=EMA(A51,2){XG51};
A53: EMA(A52,2),COLORGREEN,LINETHICK1{XG51};
W53:=EMA(A52,2){XG51};
A54: EMA(A53,2),COLORGREEN,LINETHICK1{XG51};
W54:=EMA(A53,2){XG51};
A55: EMA(A54,2),COLORGREEN,LINETHICK1{XG51};
W55:=EMA(A54,2){XG51};
A56: EMA(A55,2),COLORGREEN,LINETHICK1{XG51};
W56:= EMA(A55,2){XG51};
A57: EMA(A56,2),COLORGREEN,LINETHICK1{XG51};
W57:= EMA(A56,2){XG51};
IF(W51>REF(W51,1),A51,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W52,1),A52,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W53,1),A53,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W54,1),A54,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W55,1),A55,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W56,1),A56,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
IF(W52>REF(W57,1),A57,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
DRAWICON(CROSS(CCC,LOWER ) AND CROSS(CCC,A53 ),LOWER,23){XG51};
DRAWICON(CROSS(UPPER,CCC),UPPER,15){XG51};
V1:=EMA(CLOSE,5){XG51};
V2:=EMA(EMA(CLOSE,90)*1.01,10){XG51};
DRAWTEXT(CROSS(V1,V2),V1+0.01,'←牛起步'),COLOR00FF00{X*G!5~1*C*N*{};

源码正文：

EM7:=ema(C,7){XG51};
EM19:=Ema(C,19){XG51};
MA20:=MA(C,20){XG51};
MA30:=MA(C,30){XG51};
MXS:=MA20>MA30 AND MA20>REF(MA20,1) AND MA30>REF(MA30,1){XG51};
ZF:=(C/REF(C,1)-1)*100{XG51};
N1:=BArslAst(crOSS(C,MA(C,5))){XG51};
N2:=BARSLAST(CROSS(MA(C,5),C)){XG51};
HM:=IF(N1<N2,N1+1,0)*MXS{XG51};
Z2:=HM=1 AND ZF>=0 AND C>O AND MXS{XG51};
KX1:=ZF<=-3 AND C<O{XG51};
XDSJ:=BARSLAST(KX1){XG51};
KX2:=ZF>=3 AND C>O{XG51};
JBY:=KX2 AND XDSJ<=2 AND C>=REF(O*0.99,XDSJ) AND ZF>Abs(REF(ZF,XDSJ)*0.99){XG51};
Z3:=IF(FILTER(JBY,1) AND MXS,1,0){XG51};
VAR11:=EMA(HHV(HIGH,500),21){XG51};
VAR2:=EMA(HHV(HIGH,250),21){XG51};
VAR3:=EMA(HHV(HIGH,90),21){XG51};
VAR4:=EMA(LLV(LOW,500),21){XG51};
VAR5:=EMA(LLV(LOW,250),21){XG51};
VAR6:=EMA(LLV(LOW,90),21){XG51};
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR11*0.558+VAR2*0.558+VAR3*0.558)/6,21){XG51};
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR11*0.55+VAR2*0.55+VAR3*0.65)/6,21){XG51};
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR11*0.68+VAR2*0.68+VAR3*0.68)/6,21){XG51};
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21){XG51};
VARB:=REF(LOW,1){XG51};
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100{XG51};
VARD:=EMA(IF(C*1.35<=VARA,VARC*10,VARC/10),3){XG51};
VARE:=LLV(L,30){XG51};
VARF:=HHV(VARD,30){XG51};
AA3:=(EMA(IF(L<=VARE,(VARD+VARF*2)/2,0),3)/618){XG51};
AR3:=(1-(MA(L,3))/(MA((H+L+2*C)/4,20)))*100-5{XG51};
AH1:=MA(HHV(H,485),17){XG51};
AH2:=MA(HHV(H,222),17){XG51};
AH3:=MA(HHV(H,96),17){XG51};
AD4:=MA(LLV(L,485),17){XG51};
AD5:=MA(LLV(L,222),17){XG51};
AD6:=MA(LLV(L,96),17){XG51};
AVAR7:=MA((AD4*0.96+AD5*0.96+AD6*0.96+AH1*0.558+AH2*0.558+AH3*0.558)/6,17){XG51};
AVAR8:=MA((AD4*1.25+AD5*1.23+AD6*1.2+AH1*0.55+AH2*0.55+AH3*0.65)/6,17){XG51};
AVAR9:=MA((AD4*1.3+AD5*1.3+AD6*1.3+AH1*0.68+AH2*0.68+AH3*0.68)/6,17){XG51};
AA:=MA(((AVAR7*3+AVAR8*2+AVAR9)/6)*1.738,17){XG51};
LL:=LOW{XG51};
ZL:=REF(LOW,1){XG51};
AE:=((SMA(ABS(LL-ZL),3,1)/SMA(MAX(LL-ZL,0),3,1)))*100{XG51};
RB:=IF((DATE<=1341231),AA,AA*DAY){XG51};
RF:=MA(IF(C*1.35<=RB,AE*10,AE/10),3){XG51};
R10:=LLV(LOW,30){XG51};
R11:=HHV(RF,30){XG51};
MT:=C-REF(C,1){XG51};
II:=EMA(EMA(MT,6),6)/EMA(EMA(ABS(MT),6),6){XG51};
涨:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(EM19,EM7))+1),LLV(L,BARSLAST(CROSS(EM19,EM7))+1),
H=HHV(H,BARSLAST(CROSS(EM7,EM19))+1),HHV(H,BARSLAST(CROSS(EM7,EM19))+1),0)NODRAW,COLORMAGENTA{XG51};
跌:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(EM7,EM19))+1),HHV(H,BARSLAST(CROSS(EM7,EM19))+1),
L=LLV(L,BARSLAST(CROSS(EM19,EM7))+1),LLV(L,BARSLAST(CROSS(EM19,EM7))+1),0)NODRAW,COLORGREEN{XG51};
买进:=((LLV(II,2)=LLV(II,7)AND COUNT(II<0,2)AND CROSS(II,MA(II,2)))AND REF(跌,1)
<REF(跌,2)AND 涨>REF(跌,1))*0.8,COLORBLUE,STICK,LINETHICK2{XG51};
捡钱了未来:IF(买进,0,1),COLORLIMAGENTA,STICK,LINETHICK1{XG51};
抢钱了:Z2 AND Z3,LINETHICK1,COLORGREEN,STICK{XG51};
DRAWTEXT(买进=0,0.5,'买进')COLORBLUE{XG51};
大底:=FILTER(AA3>10 ,1){XG51};
找钱了:大底>0 AND C<O,COLORRED,NODRAW{XG51};
印钞机:IF(AR3>0,1,DRAWNULL),COLORWHITE,{XG51};
点钞机:IF(1,MA(IF((L<=R10),(RF+R11*2)/2,0),3),DRAWNULL),COLORCYAN,NODRAW{XG51};
STICKLINE(大底>0 AND C<O,0,1,0,0),COLORRED{XG51};
STICKLINE(印钞机>0,0.1,0,1,0),COLORWHITE{XG51};
STICKLINE(点钞机>0,0.1,0.2,1,0),COLORCYAN{XG51};
RR:II,COLORWHITE{XG51};
RCO:CROSS(RR,0),COLORBLUE,NODRAW{XG51};
RMA:MA(RR,2),COLORCYAN{XG51};
RR2:=IF(RR>0,RR,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
RRJ:=MA(RR2,2),COLORLIBLUE{XG51};
弱R:=IF(RR2>RRJ,RR2,RRJ)COLORGREEN{XG51};
强R:=IF(RR>0,RR,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
J:"kdj.J"/100,COLORLIMAGENTA,LINETHICK1{XG51};
STICKLINE(J<0,0,J,0.1,0)COLORRED{XG51};
VC:=(2*C+H+L)/4{XG51};
L3:=LLV(L,3){XG51};
H3:=HHV(H,3){XG51};
RSV3:=(VC-L3)/(H3-L3)*100,COLORGREEN{XG51};
V12:=EMA(RSV3,5){XG51};
V13:=EMA(V12,2){XG51};
rsi2:=SMA(RSI,6,1){XG51};
RS:=IF(RSI>RSI2,RRJ,DRAWNULL),COLORLICYAN,NODRAW{XG51};
强势:IF(V12>V13,J,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
必买:IF((CROSS(V12,V13)AND REF(V12<30,1))AND(CROSS(RSI,RSI2)AND RR<0),1,DRAWNULL),COLORCYAN{XG51};
M18:=(C-LLV(L,18))/(HHV(H,18)-LLV(L,18)){XG51};
K18:=SMA(M18,3,1){XG51};
D18:=SMA(K18,3,1){XG51};
J18:(3*K18-2*D18),COLORBLUE,DOTLINE{XG51};
STICKLINE(CROSS(RSI,RSI2)AND RR<0,-0.1,0.2,0,0),COLORLICYAN{XG51};
DRAWTEXT(CROSS(RSI,RSI2)AND RR<0,-0.08,'R买'),COLORLICYAN{XG51};
STICKLINE(CROSS(V12,V13)AND REF(V12<30,1),0.8,1.1,0,0),COLORWHITE{XG51};
STICKLINE((CROSS(V12,V13)AND REF(V12<30,1))AND(CROSS(RSI,RSI2)AND RR<0),0,1,0,0),COLORLIBLUE{XG51};
DRAWTEXT(必买=1,0.95,'BM'),COLORLIBLUE{XG51};
DRAWTEXT(CROSS(V12,V13)AND REF(V12<30,1),1.03,'.U买'),COLORWHITE{XG51};
STICKLINE(RSI>RSI2 AND RR>0 AND RR>RMA,RR2,REF(RR2,1),2,1),COLOR0055AA{XG51};
STICKLINE(RCO=1,0,-0.1,0.1,0),COLORBLUE{XG51};
STICKLINE(涨>REF(涨,1),0,0,3,0)COLORWHITE{XG51};
STICKLINE(跌<REF(跌,1),0,0,3,0),COLORCYAN{XG51};
1,COLORGREEN,DOTLINE{XG51};
0.5,COLORBROWN,DOTLINE{XG51};
IF(AR3>0,1,DRAWNULL),COLORWHITE,{XG51};
IF(L<=R10,0,DRAWNULL),COLORRED,{X~G_5=1~C~N~{};