通达信红绿缺口主图指标 源码 贴图

{显示最近的缺口，但超过十个缺口的显示不出来}
{主图}{公式网WWW.GPXIAZAI.COM}
{===下缺口===}
XQK:=H<REF(L,1);
YXXQK1:=SUMBARS(XQK,1);
YXXQK2:=SUMBARS(XQK,2);
YXXQK3:=SUMBARS(XQK,3);
YXXQK4:=SUMBARS(XQK,4);
YXXQK5:=SUMBARS(XQK,5);
YXXQK6:=SUMBARS(XQK,6);
YXXQK7:=SUMBARS(XQK,7);
YXXQK8:=SUMBARS(XQK,8);
YXXQK9:=SUMBARS(XQK,9);
YXXQK10:=SUMBARS(XQK,10);
XQKZQ:=IF(EXIST(XQK,YXXQK1) AND EVERY(H<CONST(REF(L,YXXQK1)),YXXQK1),YXXQK1-1,
IF(EXIST(XQK,YXXQK2) AND EVERY(H<CONST(REF(L,YXXQK2)),YXXQK2),YXXQK2-1,
IF(EXIST(XQK,YXXQK3) AND EVERY(H<CONST(REF(L,YXXQK3)),YXXQK3),YXXQK3-1,
IF(EXIST(XQK,YXXQK4) AND EVERY(H<CONST(REF(L,YXXQK4)),YXXQK4),YXXQK4-1,
IF(EXIST(XQK,YXXQK5) AND EVERY(H<CONST(REF(L,YXXQK5)),YXXQK5),YXXQK5-1,
IF(EXIST(XQK,YXXQK6) AND EVERY(H<CONST(REF(L,YXXQK6)),YXXQK6),YXXQK6-1,
IF(EXIST(XQK,YXXQK7) AND EVERY(H<CONST(REF(L,YXXQK7)),YXXQK7),YXXQK7-1,
IF(EXIST(XQK,YXXQK8) AND EVERY(H<CONST(REF(L,YXXQK8)),YXXQK8),YXXQK8-1,
IF(EXIST(XQK,YXXQK9) AND EVERY(H<CONST(REF(L,YXXQK9)),YXXQK9),YXXQK9-1,
IF(EXIST(XQK,YXXQK10) AND EVERY(H<CONST(REF(L,YXXQK10)),YXXQK10),YXXQK10-1,DRAWNULL))))))))));
DYKX:=BARSLAST(H=CONST(REF(H,XQKZQ+1)) AND O=CONST(REF(O,XQKZQ+1)) AND L=CONST(REF(L,XQKZQ+1)) AND C=CONST(REF(C,XQKZQ+1)));
下缺口低界:=CONST(IF(EVERY(H<REF(L,DYKX),DYKX),HHV(H,DYKX),DRAWNULL));
下缺口高界:=CONST(REF(L,DYKX));
STICKLINE(EXIST(XQK,DYKX+1) AND EVERY(H<下缺口高界,DYKX),下缺口高界,下缺口低界,5,0),COLOR006000;
{===上缺口===}
SQK:=L>REF(H,1);
YXSQK1:=SUMBARS(SQK,1);
YXSQK2:=SUMBARS(SQK,2);
YXSQK3:=SUMBARS(SQK,3);
YXSQK4:=SUMBARS(SQK,4);
YXSQK5:=SUMBARS(SQK,5);
YXSQK6:=SUMBARS(SQK,6);
YXSQK7:=SUMBARS(SQK,7);
YXSQK8:=SUMBARS(SQK,8);
YXSQK9:=SUMBARS(SQK,9);
YXSQK10:=SUMBARS(SQK,10);
SQKZQ:=IF(EXIST(SQK,YXSQK1) AND EVERY(L>CONST(REF(H,YXSQK1)),YXSQK1),YXSQK1-1,
IF(EXIST(SQK,YXSQK2) AND EVERY(L>CONST(REF(H,YXSQK2)),YXSQK2),YXSQK2-1,
IF(EXIST(SQK,YXSQK3) AND EVERY(L>CONST(REF(H,YXSQK3)),YXSQK3),YXSQK3-1,
IF(EXIST(SQK,YXSQK4) AND EVERY(L>CONST(REF(H,YXSQK4)),YXSQK4),YXSQK4-1,
IF(EXIST(SQK,YXSQK5) AND EVERY(L>CONST(REF(H,YXSQK5)),YXSQK5),YXSQK5-1,
IF(EXIST(SQK,YXSQK6) AND EVERY(L>CONST(REF(H,YXSQK6)),YXSQK6),YXSQK6-1,
IF(EXIST(SQK,YXSQK7) AND EVERY(L>CONST(REF(H,YXSQK7)),YXSQK7),YXSQK7-1,
IF(EXIST(SQK,YXSQK8) AND EVERY(L>CONST(REF(H,YXSQK8)),YXSQK8),YXSQK8-1,
IF(EXIST(SQK,YXSQK9) AND EVERY(L>CONST(REF(H,YXSQK9)),YXSQK9),YXSQK9-1,
IF(EXIST(SQK,YXSQK10) AND EVERY(L>CONST(REF(H,YXSQK10)),YXSQK10),YXSQK10-1,DRAWNULL))))))))));
SDYKX:=BARSLAST(H=CONST(REF(H,SQKZQ+1)) AND O=CONST(REF(O,SQKZQ+1)) AND L=CONST(REF(L,SQKZQ+1)) AND C=CONST(REF(C,SQKZQ+1)));
上缺口高界:=CONST(IF(EVERY(L>REF(H,SDYKX),SDYKX),LLV(L,SDYKX),DRAWNULL));
上缺口低界:=CONST(REF(H,SDYKX));
STICKLINE(EXIST(SQK,SDYKX+1) AND EVERY(L>上缺口低界,SDYKX),上缺口高界,上缺口低界,5,0),COLOR00006A;