通达信翻红买入未加密选股指标公式源码

源码正文：

N:=6{XG51};
VAR1:=(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N))*1000-700{XG51};
VAR2:=SMA(VAR1,N,1)+100{XG51};
VAR3:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*10000{XG51};
VAR4:=Sma(VAR3,3,1){XG51};
VAR5:=SMA(VAR4,3,1)+100{XG51};
VAR6:=VAR5-VAR2{XG51};
DDDD:= IF(VAR6>100,VAR6-100,0){XG51};
stICKLINE(REF(DDDD,1)<DDDD,DDDD,REF(DDDD,1),8,0),COLORWHITE{XG51};
STICKLINE(REF(DDDD,1)>DDDD,DDDD,REF(DDDD,1),8,0),COLORGREEN{XG51};
低吸:IF(crOSS(rsi,11),8000,0),COLORFF9900,LINETHICK3{XG51};
STICKLINE(低吸,6000,0,3,0),COLORFF9900{XG51};
DRAWTEXT(低吸,8500,'低吸!') ,COLORRED{XG51};
VAR7:=ema(AMOUNT/vol/100,3){XG51};
VAR8:=EMA(VAR7,88){XG51};
VAR9:=EMA(VAR7,88)*0.85{XG51};
VARA:=VAR9*0.87{XG51};
VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02{XG51};
STICKLINE(FILTER(VARB,6),1500,0,7,0),COLORWHITE{XG51};
坚决买进:IF(FILTER(VARB,6),2000,0),COLORGREEN,LINETHICK3{XG51};
VAR1R:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100{XG51};
VAR2R:=SMA(VAR1R,3,1){XG51};
VAR3R:=SMA(VAR2R,3,1)*VAR1R,LINETHICK2,COLORWHITE{XG51};
VAR4R:=SMA(VAR3R,3,1),LINETHICK2,COLOR0099FF{XG51};
VAR9R:=CROSS(VAR4R,VAR3R) AND VAR3R>80{XG51};
STICKLINE(VAR9R,VAR3R-5,100,1,0),LINETHICK2,COLORBLUE{XG51};
HL99 := MA(COST(99 ),5){XG51};
HL80:=MA(COST(80),5){XG51};
HL20:=MA(COST(20),5){XG51};
A5:=(HL99-HL80)/HL80*100{XG51};
A6:=(HL80-HL20)/HL20*100{XG51};
A8:=IF(A6<10 ,10000 ,0 ){XG51};
A9:=IF(A6<15 ,5000 ,0 ){XG51};
A10:=IF(A6<20 ,2500 ,0 ){XG51};
高密集:A8,COLORFF1493,LINETHICK2{XG51};
中密集:A9,COLORRED,LINETHICK2{XG51};
低密集:A10,COLORC187FF,LINETHICK2{XG51};
VARF:=(2*CLOSE+HIGH+LOW)/4{XG51};
VA4:=LLV(LOW,34){XG51};
VA5:=HHV(HIGH,34){XG51};
VA6:=EMA((VARF-VA4)/(VA5-VA4)*100,6){XG51};
VA7:=EMA(0.667*REF(VA6,1)+0.333*VA6,4){XG51};
出击:IF(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND REF(LOW,1)=LLV(LOW,120) AND
CLOSE>OPEN,1,0),5000,0),COLORWHITE,POINTDOT{XG51};
STICKLINE(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND
REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0),5000,0,3,0),COLORWHITE{XG51};
A:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
D1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)
+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/211{XG51};
D2:=EMA(D1,2){XG51};
D3:=EMA(D2,2){XG51};
K1:=EMA(D3,2){XG51};
波段买入:IF(CROSS(D1,K1),2500,0),COLOR0099FF,POINTDOT{XG51};
STICKLINE(CROSS(D1,K1),2500,0,3,0),COLOR0099FF{XG51};
多方趋势:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1){XG51};
天线:=7500.8900{XG51};
STICKLINE(CROSS(天线,多方趋势),7500,8900,6,0),COLOR00FF00{XG51};
DRAWTEXT(CROSS(天线,多方趋势),8000,'卖吧!别贪了!') ,COLORRED{XG51};
DRAWICON(CROSS(天线,多方趋势),8000,5){XG51};
VARL:=TROUGHBARS(3,15,1)<10{XG51};
VARK:=PEAKBARS(3,15,1)<10{XG51};
VARJ:=IF(VARL=1,5000,0){XG51};
VARH:=IF(VARK=1,5000,0){XG51};
底部:=IF(VARJ=5000,1000,0){XG51};
多头能量:0,COLORRED,LINETHICK2{XG51};
神仙脚买入:IF(底部=1000 AND REF(底部,1)=1000 AND REF(底部,2)=0,5000,0),COLORFFFF00,LINETHICK3{XG51};
DRAWTEXT(底部=1000 AND REF(底部,1)=1000 AND REF(底部,2)=0,7000,'神仙脚买入')COLORGREEN{XG51};
买入延迟线:底部,LINETHICK3 ,COLOR00CCFF{XG51};
VARQ:=LLV(LOW,3)<=LLV(LOW,240){XG51};
VARW:= C>O AND (C/O>1.08 OR C>=1.08*REF(C,1)){XG51};
绝地反击:IF(VARQ AND VARW,2500,0),COLORBLUE,LINETHICK2{XG51};
吸货线:1500,POINTDOT,LINETHICK5,COLORGREEN{XG51};
DRAWTEXT(ISLASTBAR,1500,'吸货线'),COLORFF9900{XG51};
强弱分界线:5000,POINTDOT,LINETHICK5,COLOR70DB93{XG51};
DRAWTEXT(ISLASTBAR,5000,'强弱分界'),COLOR70DB93{XG51};
卖股线:8000,POINTDOT,LINETHICK5,COLORGREEN{XG51};
DRAWTEXT(ISLASTBAR,8000,'卖股线'),COLORBLUE{XG51};
DRAWTEXT(FILTER(VARB,6),4000,'买吧!别等了!'),COLORBLUE;
DRAWTEXT(VAR9R AND COUNT(VAR9R,10)=1,VAR3R-15,'庄逃了！'),LINETHICK2,COLORRED{X~G+5=1~C~N~{};

源码正文：

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
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);
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);
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{XG51};
stICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,0),COLOR0000EE{XG51};
VAR20:=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(VAR20,REF(CLOSE,1),REF(CLOSE,2),4,0),COLOR00FF00{XG51};
E3:=ema(C,3),COLORFFFF00,LINETHICK1{XG51};
E5:=Ema(C,5),COLORFFFFFF,LINETHICK1{XG51};
E10:=EMA(C,10),COLOR44FF44,LINETHICK1{XG51};
E20:=EMA(C,20),COLORFF00FF,LINETHICK1{XG51};
E30:=EMA(C,30),COLORWHITE,LINETHICK2{XG51};
E95:=EMA(C,95),COLOR0088FF,LINETHICK2{XG51};
E12:=EMA(C,12),COLORFFFFFF,LINETHICK2{XG51};
E50:=EMA(C,50),COLOR00FFFF,LINETHICK2{XG51};
M4:=MA(C,4),COLOR0000FF,LINETHICK1{XG51};
M5:=MA(C,5),COLORFF00FF,LINETHICK1{XG51};
M10:=MA(C,10),COLOR00FFFF,LINETHICK1{XG51};
M10A:=EMA(M10,3),COLOR00FFAA{XG51};
M15:=MA(C,15),COLORFFFF00,LINETHICK1{XG51};
M20:=MA(C,20),COLOR70DB93,LINETHICK2{XG51};
M25:=MA(C,25),COLOR5C3317,LINETHICK2{XG51};
M18:=MA(C,18),POINTDOT,COLOR9F5F9F,LINETHICK2{XG51};
M30:MA((C+O+H+L)/4,30),COLORWHITE,LINETHICK3{XG51};
M95:MA(C,95),COLOR0088FF,LINETHICK3{XG51};
套牢盘:=(1-WINNER(C)*100),COLOR66FF00{XG51};
获利盘:=WINNER(C)*100,COLOR0000FF{XG51};
MB1:=EMA(C,20),COLORFF00FF, LINETHICK2{XG51};
MB2:=EMA(MB1,3),COLOR00FF00{XG51};
MB3:=EMA(MB2,3),COLOR33FF33{XG51};
MB4:=EMA(MB3,3),COLOR55FF55{XG51};
MB5:=EMA(MB4,3),COLOR88FF88, LINETHICK2{XG51};
M12A:=MA(C,12),COLORFF00FF{XG51};
M12B:=MA(M12A,3),COLOR00FF00{XG51};
M12C:=MA(M12B,3),COLOR33FF33{XG51};
M12D:=MA(M12C,3),COLOR55FF55{XG51};
M12E:=MA(M12D,3),COLOR88FF88{XG51};
V5:=MA(V,5);V13:=MA(V,13); V30:=MA(V,30){XG51};
A1:=100*vol/CAPITAL{XG51};
A2:=REF(A1,1){XG51};
A3:=REF(A1,2){XG51};
日:=181;昨前:=74{XG51};
高1:=REF(HHV(H,日),昨前){XG51};
低1:=REF(LLV(L,日),昨前),COLORYELLOW,LINETHICK3{XG51};
H1:=高1-(高1-低1)*0.191,POINTDOT;
H2:=高1-(高1-低1)*0.382,POINTDOT;
H3:=高1-(高1-低1)*0.5,POINTDOT;
H4:=高1-(高1-低1)*0.618,POINTDOT;
H5:=高1-(高1-低1)*0.809,COLORYELLOW,POINTDOT{XG51};
GJ:=(C+H+L+O)/4{XG51};
明日阻力:=L+(GJ-L)+(C-L){XG51};
明日支撑:=L+(C-GJ){XG51};
KOH:=L>REF(H,1){XG51};
KOL:=H<REF(L,1){XG51};
HIF:=L>REF(H,BArslAST(KOH)+1){XG51};
NHIF:=L<=REF(H,BARSLAST(KOH)+1){XG51};
LIF:=H<REF(L,BARSLAST(KOL)+1){XG51};
NLIF:=H>=REF(L,BARSLAST(KOL)+1){XG51};
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100){XG51};
RRRSV:=SMA(下档线,3,1){XG51};
KKK:=SMA(RRRSV,3,1){XG51};
DDDDD:=((3 * RRRSV) - (2 * KKK)){XG51};
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100){XG51};
RSV24:=SMA(JJ12,3,1){XG51};
K24:=SMA(RSV24,3,1){XG51};
D24:=((3 * RSV24) - (2 * K24)){XG51};
QA:=REF(H,10)=HHV(H,2*10+1){XG51};
QB:=BacKSET(QA,10+1){XG51};
QC:=FILTER(QB,10) AND H=HHV(H,10+1){XG51};
QD:=BARSLAST(QC){XG51};
QE:=IF(QC,CURRBARSCOUNT,0){XG51};
QF:=IF(QD,REF(QE,QD),QE){XG51};
QG:=CONST(QF){XG51};
QH:=REF(QF,QD+1){XG51};
QW:=CONST(QH){XG51};
DRAWLINE(CURRBARSCOUNT=QW,H,CURRBARSCOUNT=QG,H,1),COLORCYAN{XG51};
DRAWLINE(CURRBARSCOUNT=QW,H,ISLASTBAR,REF(H,QW-1),1),COLOR0099FF,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=QG,H,ISLASTBAR,REF(H,QG-1),1),COLOR0099FF,POINTDOT{XG51};
QM:=INTPART(3*8/5){XG51};
QR:=REF(H,QM)=HHV(H,2*QM+1){XG51};
QT:=FILTER(QR,QM){XG51};
QY:=BACKSET(QT,QM+1){XG51};
QU:=FILTER(QY,QM){XG51};
QI:=BACKSET(ISLASTBAR,BARSLAST(QU)+1){XG51};
QP:=QI>REF(QI,1){XG51};
DRAWLINE(QU,H,QP,H,1),COLORWHITE{XG51};
QA1:=REF(L,8)=LLV(L,2*8+1){XG51};
QB1:=BACKSET(QA1,8+1){XG51};
QC1:=FILTER(QB1,8) AND L=LLV(L,8+1){XG51};
QD1:=BARSLAST(QC1){XG51};
QE1:=IF(QC1,CURRBARSCOUNT,0){XG51};
QF1:=IF(QD1,REF(L,QD1),L){XG51};
QG1:=IF(QD1,REF(QE1,QD1),QE1){XG51};
QH1:=CONST(QG1){XG51};
QW1:=REF(QF1,QD1+1){XG51};
QM1:=REF(QG1,QD1+1){XG51};
QR1:=CONST(QM1){XG51};
DRAWLINE(CURRBARSCOUNT=QR1,L,CURRBARSCOUNT=QH1,L,1),COLORYELLOW{XG51};
DRAWLINE(CURRBARSCOUNT=QH1,L,ISLASTBAR,REF(L,QH1-1),1),COLORRED,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=QR1,L,ISLASTBAR,REF(L,QR1-1),1),COLORRED,POINTDOT{XG51};
QT1:=REF(L,QM)=LLV(L,2*QM+1){XG51};
QY1:=FILTER(QT1,QM){XG51};
QU1:=BACKSET(QY1,QM+1){XG51};
QI1:=FILTER(QU1,QM){XG51};
QP1:=BACKSET(ISLASTBAR,BARSLAST(QI1)+1){XG51};
QJ1:=QP1>REF(QP1,1){XG51};
DRAWLINE(QI1,L,QJ1,L,1),COLORWHITE{XG51};
SR1:=REF(HIGH,10)=HHV(HIGH,2*10+1){XG51};
SR2:=FILTER(SR1,10){XG51};
SR3:=BACKSET(SR2,10+1){XG51};
HD:=FILTER(SR3,10){XG51};
前高:=REF(H,BARSLAST(HD)){XG51};
DRAWICON(crOSS(C,前高),L-0.20,3);{XG51};
T1:=CONST(LLVBARS(LOW,10)){XG51};
T1HIGH:=CONST(REF(HIGH,T1)){XG51};
CC:=CONST(CURRBARSCOUNT){XG51};
T2:=CONST(BARSLAST(CURRBARSCOUNT>CC+T1 AND H>T1HIGH)){XG51};
T2HIGH:=CONST(REF(HIGH,T2)){XG51};
T3:=CONST(BARSLAST(CURRBARSCOUNT>CC+T2 AND HIGH>T2HIGH)){XG51};
T3HIGH:=CONST(REF(HIGH,T3)){XG51};
猎击线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK2,COLOR0000FF{XG51};
DRAWTEXT(ISLASTBAR, T3HIGH, '猎击线')LINETHICK1,COLOR0000FF{X-G*5?1-C-N-{};