通达信压力与支撑主图未加密选股指标公式源码

源码正文：

N:=10{XG51};
VAR1:=BacKSET(REF(HIGH,2)=HHV(HIGH,N),3){XG51};
VAR2:=crOSS(VAR1,0.9){XG51};
VAR3:=BACKSET(REF(LOW,2)=LLV(LOW,N),3){XG51};
VAR4:=CROSS(VAR3,0.9){XG51};
压力:IF(BArslAst(VAR2)>=1,REF(HIGH,BARSLAST(VAR2)),DRAWNULL),COLORBLUE{XG51};
DRAWICON(VAR2,HIGH*1.002,12){XG51};
DRAWICON(VAR4,LOW*0.998,11){XG51};
支撑:IF(BARSLAST(VAR4)>=1,REF(LOW,BARSLAST(VAR4)),DRAWNULL),COLOREA91B5{XG51};
STICKLINE(C>REF(C,1),H,L,0,1),COLOR0000FF{XG51};
STICKLINE(C>REF(C,1),O,C,3,0),COLOR000066{XG51};
STICKLINE(C>REF(C,1),O,C,2,0),COLOR000099;
STICKLINE(C>REF(C,1),O,C,1.1,0),COLOR0000CC{XG51};
STICKLINE(C>REF(C,1),O,C,0.4,0),COLOR0000FF{XG51};
STICKLINE(C<REF(C,1),H,L,0,1),COLORFFFF00{XG51};
STICKLINE(C<REF(C,1),O,C,3,0),COLORCC0000;
STICKLINE(C<REF(C,1),O,C,2,0),COLORFF4400{XG51};
STICKLINE(C<REF(C,1),O,C,1.1,0),COLORFF8800{XG51};
STICKLINE(C<REF(C,1),O,C,0.4,0),COLORFFCC00{X_G?5_1_C_N_{};

源码正文：

N:=75;P:=5;P1:=10{XG51};
M1:=4;M2:=18;M3:=80{XG51};
A1:=REF(H,P)=HHV(H,2*P+1){XG51};
B1:=FILTER(A1,P){XG51};
C1:=BacKSET(B1,P+1){XG51};
D1:=FILTER(C1,P){XG51};
E1:=BACKSET(ISLAstBAR,BArslAST(D1)+1){XG51};
F1:=E1>REF(E1,1){XG51};
A2:=REF(L,P)=LLV(L,2*P+1){XG51};
B2:=FILTER(A2,P){XG51};
C2:=BACKSET(B2,P+1){XG51};
D2:=FILTER(C2,P){XG51};
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
F2:=E2>REF(E2,1){XG51};
AA1:=REF(H,P1)=HHV(H,2*P1+1){XG51};
BB1:=FILTER(AA1,P1){XG51};
CC1:=BACKSET(BB1,P1+1){XG51};
DD1:=FILTER(CC1,P1){XG51};
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1){XG51};
FF1:=EE1>REF(EE1,1){XG51};
AA2:=REF(L,P1)=LLV(L,2*P1+1){XG51};
BB2:=FILTER(AA2,P1){XG51};
CC2:=BACKSET(BB2,P1+1){XG51};
DD2:=FILTER(CC2,P1){XG51};
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1){XG51};
FF2:=EE2>REF(EE2,1){XG51};
STICKLINE(C>=O,C,O,3,0),COLOR000045{XG51};
STICKLINE(C>=O,C,O,2.5,0),COLOR000065{XG51};
STICKLINE(C>=O,C,O,2,0),COLOR000085{XG51};
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5{XG51};
STICKLINE(C>=O,C,O,1,0),COLOR0000C5{XG51};
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5{XG51};
STICKLINE(C>=O,H,L,0,0),COLOR0000F5{XG51};
STICKLINE(C<O,C,O,3,0),COLOR353500{XG51};
STICKLINE(C<O,C,O,2.5,0),COLOR454500{XG51};
STICKLINE(C<O,C,O,2,0),COLOR555500{XG51};
STICKLINE(C<O,C,O,1.5,0),COLOR656500{XG51};
STICKLINE(C<O,C,O,1,0),COLOR757500{XG51};
STICKLINE(C<O,C,O,0.5,0),COLOR858500{XG51};
STICKLINE(C<O,H,L,0,0),COLOR959500{XG51};
高:=REFDATE(HHV(H,N),DATE){XG51};
低:=REFDATE(LLV(L,N),DATE){XG51};
H1:=高-(高-低)*0.191{XG51};
H2:=高-(高-低)*0.382{XG51};
H3:=高-(高-低)*0.5{XG51};
H4:=高-(高-低)*0.618{XG51};
H5:=高-(高-低)*0.809{XG51};
DRAWTEXT(CURRBARSCOUNT=1,高,'高'),COLORCYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORGREEN{XG51};
DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORBROWN{XG51};
DRAWTEXT(CURRBARSCOUNT=1,H3,'中'),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORLICYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORmaGENTA{XG51};
DRAWTEXT(CURRBARSCOUNT=1,低,'低'),COLORWHITE{XG51};
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1){XG51};
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORGREEN{XG51};
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORBROWN{XG51};
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORBLUE{XG51};
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORLICYAN{XG51};
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORLIMAGENTA{XG51};
STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORWHITE{XG51};
EXP1:expma(CLOSE,M1),LINETHICK2{XG51};
EXP2:EXPMA(CLOSE,M2),LINETHICK2{XG51};
EXP3:EXPMA(CLOSE,M3),LINETHICK2,COLORCYAN{XG51};
TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3){XG51};
TYX4:=MA((C+L+O+H)/4,13){XG51};
TYX5:=ema((C+L+O+H)/4,21){XG51};
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (CLOSE/REF(CLOSE,1))>1.048,HIGH,LOW,3,0) ,COLORWHITE{XG51};
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (REF(CLOSE,1)/CLOSE)>1.048,HIGH,LOW,3,0) ,COLOR00FF00{XG51};
DRAWICON((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)),LOW*0.99,1){XG51};
DRAWICON((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)),H,2){XG51};
AZ6:=(3 * (SMA((((CLOSE - (LLV(LOW,27))) /
((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1))) - (2 * (SMA((SMA((((CLOSE -
(LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1)),3,1))){XG51};
VARC:=(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};
DRAWTEXT((VARC=1),L,'底买'),COLOR0000FF{X_G_5_1_C_N_{};