通达信支撑压力买卖主图选股指标公式源码

通达信支撑压力买卖主图选股指标公式源码

源码正文：

涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);        
stICKLINE(涨停,O,C,1,0),COLORBLUE;        
ZDF:=(C-REF(C,1))/REF(C,1)*100;        
STICKLINE(ZDF<-9.9,O,C,1,0),COLORYELLOW;        
       
VAR3:=LLV(HIGH,240);        
VAR4:=100*(CLOSE-VAR3)/VAR3;        
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;        
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;        
VAR7:=0;        
VAR8:=SMA(maX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(Abs(CLOSE-REF(CLOSE,1)),7,1)*100;        
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;        
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);        
VAR11:=zig(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);        
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);        
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);        
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);        
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);        
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);        
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);        
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);        
VAR19:=ema(CLOSE,2)-EMA(CLOSE,150);        
买１:=VAR10;        
买２:=(VAR11+VAR13+VAR15+VAR17);        
卖１:=(VAR12+VAR14+VAR16+VAR18);        
B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),crOSSDOT,LINETHICK3,COLORBLUE;        
S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORCYAN;        
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));        
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));        
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));        
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;        
DRAWTEXT(CROSS(S,卖１),S,'&larr;逃'),COLORRED,LINETHICK1;        
DRAWTEXT(CROSS(B,买１),B,'&larr;准备'),COLORWHITE,LINETHICK1;        
       
       
PH:=TROUGHBARS(2,5,1);        
LL:=HHV(H,PH);        
TJ1:=LL=HIGH AND LL<REF(LL,1);        
TS:=SUMBARS(TJ1,2);        
TJ:=PEAKBARS(2,5,1)=1 AND TS>=PH;        
DRAWICON(TJ,HIGH*1.01+0.02,2);        
警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORGREEN;        
PL:=BArslAST(TJ);        
支撑:IF(BARSLAST(TJ1),        
REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;        
压力:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORBLUE;        
TJ_2:=LOW>REF(REF(LOW,TS),PL);        
DRAWTEXT(ISLASTBAR,压力,'压力'),COLORBLUE;        
DRAWTEXT(ISLASTBAR,支撑,'支撑'),COLOREA91B5;        
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;        
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);        
QY:=BacKSET(AA,HIGHN+1);        
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);        
DRAWICON(CC,H*1.02,2);        
DDD:=BARSLAST(CC);        
GDTS:=IF(CC,CURRBARSCOUNT,0);        
DINGBU:=IF(DDD,REF(H,DDD),H);        
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);        
DINGBU1:=REF(DINGBU,DDD+1);        
GDCS1:=CONST(DINGBUTS);        
DINGBUTS1:=REF(DINGBUTS,DDD+1);        
GDCS2:=CONST(DINGBUTS1);        
DINGBU2:=REF(DINGBU1,DDD+1);        
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);        
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORCYAN,LINETHICK2;        
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT;        
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORBLUE,POINTDOT;        
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);        
QY1:=BACKSET(AA1,LOWN+1);        
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);        
DRAWICON(CC1,L*0.98,1);        
DD1:=BARSLAST(CC1);        
DDTS:=IF(CC1,CURRBARSCOUNT,0);        
YDB:=IF(DD1,REF(L,DD1),L);        
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);        
DDCS1:=CONST(DDTS1);        
ZDB:=REF(YDB,DD1+1);        
DDTS2:=REF(DDTS1,DD1+1);        
DDCS2:=CONST(DDTS2);        
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORWHITE,LINETHICK2;        
ZGSTAR:=(高点压力+低点支撑)/2;        
ZGEND:=CONST((高点压力+低点支撑)/2);        
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);        
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2;        
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLORLIMAGENTA,POINTDOT,;        
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORGREEN,POINTDOT;        
VAR1:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0){XG51};
STICKLINE(VAR1>90,L,L*0.92,0.1,0),COLORWHITE{XG51};
DRAWTEXT(VAR1>90,LOW*0.92,'B'),COLORWHITE{XG51};
买线:=EMA(CLOSE,2);
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
B11:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORWHITE;
S11:IF(CROSS(80,rsi)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORCYAN;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK4,COLORCYAN;
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;
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;
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.16,'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.08,'K顶'),COLORFFFFCC;
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.04,'R顶'),COLORFF9900;{X!G~5_1!C!N!{};