通达信峰谷撑压主图选股指标公式源码

通达信峰谷撑压主图选股指标公式源码

源码正文：

N:=5;N1:=5;N2:=5;N3:=5{XG51};
AA:=REF(H,N)=HHV(H,2*N+1){XG51};
QY:=BACKSET(AA,N+1){XG51};
CC:=FILTER(QY,N) AND H=HHV(H,N+1){XG51};
DDD:=BArslAst(CC),NODRAW{XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0),NODRAW{XG51};
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS),NODRAW{XG51};
GDCS1:=CONST(DINGBUTS),NODRAW{XG51};
GDCS13:=CONST(REF(HIGH,GDCS1-1)){XG51};
DINGBUTS1:=REF(DINGBUTS,DDD+1),NODRAW{XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
GDCS23:=CONST(REF(HIGH,DINGBUTS1-1)){XG51};
XG1:=BACKSET(ISLASTBAR,GDCS1){XG51};
XG2:=BACKSET(ISLASTBAR,DINGBUTS1){XG51};
STICKLINE(XG2,GDCS23,GDCS23,0.5,1),COLORRED,LINETHICK3{XG51};
STICKLINE(XG1,GDCS13,GDCS13,0.5,1),COLORBLUE,LINETHICK3{XG51};
AA1:=REF(L,N1)=LLV(L,2*N1+1){XG51};
QY1:=BACKSET(AA1,N1+1){XG51};
CC1:=FILTER(QY1,N1) AND L=LLV(L,N1+1){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
DDCS13:=CONST(REF(L,DDCS1-1)){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
DDCS23:=CONST(REF(L,DDTS2-1)){XG51};
XD1:=BACKSET(ISLASTBAR,DDCS1){XG51};
XD2:=BACKSET(ISLASTBAR,DDTS2){XG51};
STICKLINE(XD2,DDCS23,DDCS23,0.5,1),COLORmaGENTA,LINETHICK3{XG51};
STICKLINE(XD1,DDCS13,DDCS13,0.5,1),COLORGREEN,LINETHICK3{XG51};
M:=INTPART(3*N2/5){XG51};
AAA:=REF(H,M)=HHV(H,2*M+1){XG51};
QYY:=BACKSET(AAA,M+1){XG51};
CCC:=FILTER(QYY,M) AND H=HHV(H,M+1){XG51};
DDDD:=BARSLAST(CCC),NODRAW{XG51};
GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW{XG51};
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW{XG51};
GDCS11:=CONST(DINGBUTSS),NODRAW{XG51};
DINGBUTS11:REF(DINGBUTSS,DDDD+1),NODRAW{XG51};
GDCS22:=CONST(DINGBUTS11){XG51};
高点压力M:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORCYAN,LINETHICK1{XG51};
W:=INTPART(3*N3/5){XG51};
AA11:=REF(L,W)=LLV(L,2*W+1){XG51};
QY11:=BACKSET(AA11,W+1){XG51};
CC11:=FILTER(QY11,W) AND L=LLV(L,W+1){XG51};
DD11:=BARSLAST(CC11){XG51};
DDTSS:=IF(CC11,CURRBARSCOUNT,0){XG51};
DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS){XG51};
DDCS11:=CONST(DDTS11){XG51};
DDTS22:=REF(DDTS11,DD11+1){XG51};
DDCS22:=CONST(DDTS22){XG51};
低点支撑M:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1) COLORWHITE,LINETHICK1{XG51};

V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1){XG51};
STICKLINE(V2V,O,C,-1,0),COLORBLUE{XG51};
ZT:=C/REF(C,1)>1.097{XG51};
STICKLINE(ZT,O,C,-1,0),COLORLIMAGENTA{X-G_5~1-C-N-{};