通达信顶底背离主图未加密选股指标公式源码

源码正文：

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
stICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,0),COLORWHITE;
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORBLUE;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORmaGENTA;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR008800;
A:=MA(CLOSE,17)+Abs(MA(CLOSE,17)-REF(MA(CLOSE,17),1));
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
中线:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORLIMAGENTA,LINETHICK2;
操作线:=中线-(ema(C,3)-中线),COLOR00FFFF,LINETHICK2;
PM:MA(C,5),COLORWHITE ,LINETHICK2{XG51};
IF(PM> REF(PM,1),PM,DRAWNULL),COLORBLACK ,LINETHICK2{XG51};
IF(PM=REF(PM,1),PM,DRAWNULL),COLORBLACK ;
IF(PM<REF(PM,1),PM,DRAWNULL), COLORFF9900,LINETHICK2{XG51};
S:=(PM> 操作线);
DD:=中线<REF(中线,1);
IF(DD,中线,DRAWNULL),COLORLIBLUE ,LINETHICK2{XG51};
IF(S,中线,DRAWNULL),COLORLIBLUE ,POINTDOT,LINETHICK4;
DRAWICON(crOSS(中线,操作线),中线-0.4,11){XG51};
A1:=BArslAST(REF(CROSS("macd.dif","MacD.DEA"),1));
B1:=REF(C,A1+1)> C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(B1> 0,L-0.02,'*M底'),COLOR00FFFF{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K","kdj.D"),1));
B2:=REF(C,A2+1)> C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(B2,L-0.10,'*K底'),COLORFF00FF{XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)> C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(B3> 0,L-0.18,'*R底'),COLOR0000FF;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)> "MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
DRAWTEXT(D1> 0,H+0.30,'*M顶'),COLOR00FF00;
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)> "KDJ.K" AND CROSS("KDJ.D","KDJ.K");
DRAWTEXT(D2> 0,H+0.25,'*K顶'),COLORFFFFCC{XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)> "RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(D3> 0,H+0.13,'*R顶'),COLORFF9900{XG51};
V1:=dma((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9){XG51};
V2:=(1-7/100)*(DMA(CLOSE,V1)){XG51};
决策:REFDATE(V2,DATE),,LINETHICK2,COLORBLACK{XG51};
DRAWTEXT(ISLASTBAR,决策,'*决策线'),COLORRED{XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLORLIGREEN{XG51};
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.00,0.12,0,'财务分折：')COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(1,0.07,0.06,0,EXTERNSTR(0,1))COLOR0000FF{XG51};
DRAWTEXT_FIX (1,0.05,0.12,0,'现金流:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.086,0.12,0,CONST(FInaNCE(25)/1000000000)),COLOR00CCCC{XG51};
DRAWTEXT_FIX (1,0.125,0.12,0,'应收款:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.159,0.12,0,CONST(FINANCE(22)/100000000)),COLOR00CCCC{XG51};
DRAWTEXT_FIX (1,0.193,0.12,0,'存货:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.218,0.12,0,CONST(FINANCE(27)/100000000)),COLOR00CCCC{XG51};
DRAWTEXT_FIX(1,0.253,0.12,0,'流动比率:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.299,0.12,0,CONST(FINANCE(11)/FINANCE(15))),COLOR00CCCC{XG51};
DRAWTEXT_FIX(1,0.336,0.12,0,'速动比率:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.383,0.12,0,CONST(FINANCE(11)-FINANCE(27)/FINANCE(15))),COLOR00CCCC{XG51};
DRAWTEXT_FIX (1,0.47,0.12,0,'套牢盘%:'),COLOR00CCCC{XG51};
DRAWNUMBER_FIX(1,0.507,0.12,0,CONST(100-WINNER(CLOSE)*100)),COLOR00CCCC{X*G!5~1*C*N*{};

源码正文：

Z_1:=C-REF(C,1){XG51};
空:=ema(Ema(Z_1,6),6)/EMA(EMA(Abs(Z_1),6),6)*20,LINETHICK0,COLOR00FF00{XG51};
多:=(空*2-FORCAst(空,9)),LINETHICK0,COLORFF59FF{XG51};
J1:=IF(多<=空,多,DRAWNULL){XG51};
J2:=IF(多<=空,多,REF(J1,1)){XG51};
J3:=IF(多<=空,多,REF(J2,1)){XG51};
J4:=IF(多<=空,多,REF(J3,1)){XG51};
J5:=IF(多<=空,多,REF(J4,1)){XG51};
J6:=IF(多<=空,多,REF(J5,1)){XG51};
J7:=IF(多<=空,多,REF(J6,1)){XG51};
J8:=IF(多<=空,多,REF(J7,1)){XG51};
J9:=IF(多<=空,多,REF(J8,1)){XG51};
J10:=IF(多<=空,多,REF(J9,1)){XG51};
J11:=IF(多<=空,多,REF(J10,1)){XG51};
J12:=IF(多<=空,多,REF(J11,1)){XG51};
J13:=IF(多<=空,多,REF(J12,1)){XG51};
J14:=IF(多<=空,多,REF(J13,1)){XG51};
J15:=IF(多<=空,多,REF(J14,1)){XG51};
JJ_1:=IF(多<=空,多,REF(J15,1)){XG51};
JJ1:=IF(多>空,空,DRAWNULL){XG51};
JJ2:=IF(多>空,空,REF(JJ1,1)){XG51};
JJ3:=IF(多>空,空,REF(JJ2,1)){XG51};
JJ4:=IF(多>空,空,REF(JJ3,1)){XG51};
JJ5:=IF(多>空,空,REF(JJ4,1)){XG51};
JJ6:=IF(多>空,空,REF(JJ5,1)){XG51};
JJ7:=IF(多>空,空,REF(JJ6,1)){XG51};
JJ8:=IF(多>空,空,REF(JJ7,1)){XG51};
JJ9:=IF(多>空,空,REF(JJ8,1)){XG51};
JJ10:=IF(多>空,空,REF(JJ9,1)){XG51};
JJ11:=IF(多>空,空,REF(JJ10,1)){XG51};
JJ12:=IF(多>空,空,REF(JJ11,1)){XG51};
JJ13:=IF(多>空,空,REF(JJ12,1)){XG51};
JJ14:=IF(多>空,空,REF(JJ13,1)){XG51};
JJ15:=IF(多>空,空,REF(JJ14,1)){XG51};
JJ_2:=IF(多>空,空,REF(JJ15,1)){XG51};
K1:=IF(多>空,1,IF(多<空,-1,0)){XG51};
KJ1:=IF(K1!=0,K1,DRAWNULL){XG51};
KJ2:=IF(K1!=0,K1,REF(KJ1,1)){XG51};
KJ3:=IF(K1!=0,K1,REF(KJ2,1)){XG51};
KJ4:=IF(K1!=0,K1,REF(KJ3,1)){XG51};
KJ5:=IF(K1!=0,K1,REF(KJ4,1)){XG51};
KJ6:=IF(K1!=0,K1,REF(KJ5,1)){XG51};
KJ7:=IF(K1!=0,K1,REF(KJ6,1)){XG51};
KJ8:=IF(K1!=0,K1,REF(KJ7,1)){XG51};
KJ9:=IF(K1!=0,K1,REF(KJ8,1)){XG51};
KJ10:=IF(K1!=0,K1,REF(KJ9,1)){XG51};
KJ11:=IF(K1!=0,K1,REF(KJ10,1)){XG51};
KJ12:=IF(K1!=0,K1,REF(KJ11,1)){XG51};
KJ13:=IF(K1!=0,K1,REF(KJ12,1)){XG51};
KJ14:=IF(K1!=0,K1,REF(KJ13,1)){XG51};
KJ15:=IF(K1!=0,K1,REF(KJ14,1)){XG51};
K2:=IF(K1!=0,K1,REF(KJ15,1)){XG51};
警报:IF(K2>0,JJ_1,JJ_2),COLOR00B4FF{XG51};
DRAWBAND(空,RGB(0,158,0),多,RGB(180,0,0)){XG51};
RSV:=(C-LLV(L,3))/(HHV(H,3)-LLV(L,3))*100{XG51};
K:=SMA(RSV,2,1); D:=SMA(K,2,1); J:=3*K-2*D;
引力:SMA(J,2,1)-SMA(J,3,1),COLORSTICK{XG51};
空头:空,COLOR00FF00{XG51};
多头:多,COLORFF59FF{XG51};
JT_B1:=(O+L+H+C*3)/6{XG51};
WMAA:=(5*JT_B1+4*REF(JT_B1,1)+3*REF(JT_B1,2)+2*REF(JT_B1,3)+1*REF(JT_B1,4))/(5+4+3+2+1){XG51};
JT_B2:=REVERSE(JT_B1)+2*WMAA{XG51};
JT_B3:=3*JT_B2-2*SMA(JT_B2,2,1){XG51};
JTB4:=IF(BArslAST(C>JT_B3),JT_B3,DRAWNULL){XG51};
JT_B4:=IF(BARSLAST(C>JT_B3),JT_B3,REF(JTB4,1)){XG51};
JTB5:=IF(BARSLAST(C<=JT_B3),JT_B3,DRAWNULL){XG51};
JT_B5:=IF(BARSLAST(C<=JT_B3),JT_B3,REF(JTB5,1)){XG51};
JT_B6:=IF(C<=JT_B3,JT_B4,JT_B5){XG51};
近台比:(C-JT_B6)/JT_B6*100,NODRAW,COLORBLUE{X?G*5_1?C?N?{};