通达信均线筹码未加密选股指标公式源码

源码正文：

X1:=(ema(C,5)-Ema(C,13))/EMA(C,13)*100;
X2:=(EMA(C,5)-EMA(C,34))/EMA(C,13)*100;
X3:=(EMA(C,5)-EMA(C,60))/EMA(C,13)*100;
X4:=(EMA(C,5)-EMA(C,120))/EMA(C,13)*100;
X5:=V/CAPITAL*(C+O+L+H)/4;
X6:=(H-MAX(C,O))-(MIN(C,O)-L)+(C-REF(C,1));
X7:=IF(X6>0,X5,0-X5);
X8:=H-MAX(C,O)-(MIN(C,O)-L);
X9:=(X7+X8)/2+C-REF(C,1);
X10:=SUM(X9,0)+100;
X11:=EMA(X10,5)+100;
X12:=EMA(X10,13)+100;
X13:=EMA(X10,34)+100;
X14:=EMA(X10,60)+100;
X15:=EMA(X10,120)+100;
X16:=(X11-X12)/EMA(C,13)*100;
X17:=(X11-X13)/EMA(C,13)*100;
X18:=(X11-X14)/EMA(C,13)*100;
X19:=(X11-X15)/EMA(C,13)*100;
X20:=(X19-X16);
X21:=(X19-X17);
X22:=(X19-X18);
Y1:=3*SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1);
Y2:=2*SMA(SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1);
Y3:=Y1-Y2;
Y4:=100-Y3;
Y5:=(0-(EMA(Y4,1)-50))+50;
Y6:=(0-(EMA(Y4,12)-50))+50;
Z1:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1);
Z2:=2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
Z3:=(Z1-Z2-50)*1.032+50;
Z4:=(2*C+H+L+O)/5;
Z5:=EMA((Z4-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100,13);
P0:X4-X1+X20+Y5-Y6,COLORBLUE{XG51};
P1:X4-X1+X20,COLORWHITE{XG51};
P2:X4-X2+X21{XG51};
P3:X4-X3+X22,COLORRED{XG51};
P4:(Z3-Z5)/2+P0,COLORCYAN{XG51};

BB1:=SMA(Abs(L-REF(L,1)),3,1);
BB2:=SMA(MAX((L-REF(L,1)),0),3,1);
BB3:=BB1/BB2*100;
BB4:=EMA(IF(C*1.2,BB3*10,BB3/10),3);
BB5:=LLV(L,38);
BB6:=HHV(BB4,38);
BB7:=IF(LLV(L,90),1,0);
BB8:=IF(L<=BB5,(BB4+BB6*2)/2,0);
BB9:=EMA(BB8,3)/618*BB7{XG51};
DRAWTEXT(crOSS(P4,P0) AND P4<50,(P4-1),'买'),COLORWHITE{X=G!5*1=C=N={};

源码正文：

W5:=COst(5){XG51};
W10:=COST(10){XG51};
W50:=COST(50){XG51};
W90:=COST(90){XG51};
W99:=COST(99){XG51};
粘合度:=(W90-W10)/W10*100{XG51};
HR:=HHV(HIGH,55){XG51};
HRY:=LLV(LOW,55){XG51};
HRY11:=HR*HRY{XG51};
HRY33:SQRT(HRY11),COLORCYAN,LINETHICK1{XG51};
IF(C>HRY33 AND HRY33 >=REF(HRY33 ,1), HRY33 ,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
H38:=HHV(HIGH,3){XG51};
HR38:=LLV(LOW,3){XG51};
HRY38:=H38*HR38{XG51};
HRYZS5:SQRT(HRY38),COLOR00FF00,LINETHICK1{XG51};
H13:=HHV(HIGH,8){XG51};
HR13:=LLV(LOW,8){XG51};
HRY13:=H13*HR13{XG51};
HRYZS13:SQRT(HRY13),COLORFF0000,LINETHICK1{XG51};
DRAWBAND(HRYZS5,RGB(200,50,55),HRYZS13,RGB(0,100,50)){XG51};
B:=ema(C,2){XG51};
S:=Ema(SLOPE(C,21)*20+C,42){XG51};
BUY:=crOSS(B,S) AND C<LLV(L,55)*1.193{XG51};
SEL:=CROSS(S,B) AND C>LLV(L,55)*1.3{XG51};
DRAWICON(BUY,L*0.98,6){XG51};
DRAWICON(SEL,H*1.03,7){XG51};
GET:=zig(3,3){XG51};
PL5:=ZIG(3,5){XG51};
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
PL10:=ZIG(3,10){XG51};
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3){XG51};
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3){XG51};
PL20:=ZIG(3,20){XG51};
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3){XG51};
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3){XG51};
PL40:=ZIG(3,40){XG51};
走强1:=BArslAST(PL5<REF(PL5,1)){XG51};
走弱1:=BARSLAST(PL5>REF(PL5,1)){XG51};
走强2:=BARSLAST(PL10<REF(PL10,1)){XG51};
走弱2:=BARSLAST(PL10>REF(PL10,1)){XG51};
走强3:=BARSLAST(PL20<REF(PL20,1)){XG51};
走弱3:=BARSLAST(PL20>REF(PL20,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0){XG51};
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0){XG51};
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0){XG51};
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0){XG51};
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0){XG51};
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0){XG51};
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0){XG51};
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'【A】'),COLOR00FFFF{XG51};
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'【B】'),COLOR00FF00{XG51};
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'【C】'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLORFF0000{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR00FF00{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLORFF00FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR00FF00{XG51};
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'〖Ⅰ〗'),COLORFF00FF{XG51};
DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'〖Ⅱ〗'),COLOR00FF00{XG51};
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'〖Ⅲ〗'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLORFFFF00{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)
AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF{XG51};
P1:=5{XG51};
P2:=10{XG51};
P3:=20{XG51};
P4:=30{XG51};
P5:=60{XG51};
P6:=120{XG51};
P7:=240{XG51};
P8:=340{XG51};
N:=4{XG51};
WX:=MA(CLOSE,0){XG51};
M1:=MA(CLOSE,P1){XG51};
M2:=(MA(CLOSE,P2) * IF((N < 2),WX,1)){XG51};
M3:=(MA(CLOSE,P3) * IF((N < 3),WX,1)){XG51};
M4:=(MA(CLOSE,P4) * IF((N < 4),WX,1)){XG51};
M5:=(MA(CLOSE,P5) * IF((N < 5),WX,1)){XG51};
M6:=(MA(CLOSE,P6) * IF((N < 6),WX,1)){XG51};
M7:=(MA(CLOSE,P7) * IF((N < 7),WX,1)){XG51};
M8:=(MA(CLOSE,P8) * IF((N < 8),WX,1)){XG51};
C1:=REF(CLOSE,1){XG51};
C2:=HHV(C1,2){XG51};
C3:=LLV(C1,1){XG51};
ET:=HHV(C1,2){XG51};
ET1:=REF(ET,1){XG51};
XB:=LLV(C1,1){XG51};
XB1:=REF(XB,1){XG51};
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1))){XG51};
M11:=REF(M,1){XG51};
N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1))){XG51};
N1:=REF(N9,1){XG51};
M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1){XG51};
N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1){XG51};
ET2:=HHV(ET,M21){XG51};
XB2:=LLV(XB,N2){XG51};
A:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2)){XG51};
H1:=IF(((M - N9) > 0),CLOSE,ET2){XG51};
H2:=IF((A = 1),CLOSE,C2){XG51};
H3:=IF(((M - N9) < 0),CLOSE,XB2){XG51};
H4:=IF((A = 1),CLOSE,XB2){XG51};
H5:=IF((((M - N9) > 0) OR (A = 1)),CLOSE,H3){XG51};
H6:=REF(H5,1){XG51};
H7:=REF(H5,2){XG51};
H8:=(H5 > H6){XG51};
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2))){XG51};
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2))){XG51};
W:=((H8 OR H9) OR H10){XG51};
T9:=((H5 < H6) AND (H5 < REF(H5,2))){XG51};
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2))){XG51};
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1))){XG51};
T12:=((H5 = REF(H5,1)) AND (H3 = H4)){XG51};
T13:=((H2 = REF(H2,1)) AND (H2 = H5)){XG51};
TW:=((((T9 OR T10) OR T11) OR T12) OR T13){XG51};
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4){XG51};
PK1:=IF((vol > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4)){XG51};
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.033),'明见短高,龙头除外'),COLOR00FF00{XG51};
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),'明见短低,跌停除外'),COLOR0000FF{XG51};
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.033),'看涨'),COLOR0015FF{XG51};
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'看跌'),COLOR00FF00{XG51};
DM:=CROSS((4*SMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5,1)
-3*SMA(SMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5,1),3,1)),8){XG51};
DRAWTEXT(DM,L*0.98,'★上轿!'),COLORGRAY{XG51};
CBFB:=COSTEX(C,REF(C,1)){XG51};
JL:=IF(C>CBFB,V,0){XG51};
CL:=IF(C<CBFB,V,0){XG51};
JLH:=SUM(JL,4){XG51};
CLH:=SUM(CL,4){XG51};
LHB:=CLH/JLH{XG51};
TJ16:=IF(HHV(LHB,5)>4 AND CROSS(2,LHB) AND C>=O,1,0){XG51};
DRAWICON(TJ16,L*0.96,9){XG51};
JLHS:=SUM(JL,4){XG51};
CLHS:=SUM(CL,4){XG51};
LHS:=JLHS/CLHS{XG51};
TJS1:=IF(HHV(LHS,5)>4 AND CROSS(2,LHS) AND C<O,1,0){XG51};
DRAWICON(TJS1,H*1.0096,19){X_G+5!1_C_N_{};