〖擒庄极峰〗基于涨停跌停行为动态计算压力与支撑源码

	{主图源码如下} MA5:MA(C,5),COLORLIBLUE,LINETHICK1; MA10:MA(C,10),COLOR0000FF,LINETHICK2; MA20:MA(C,20),COLOR00FF00,LINETHICK1; 沪A:=CODELIKE('60') OR CODELIKE('00') OR CODELIKE('11'); K20:=CODELIKE('30') OR CODELIKE('68'); M30:=CODELIKE('9'); 风险ST:=NAMELIKE('ST') OR NAMELIKE('*ST');{ST风险过滤} UP_LIM:=IF(沪A,C>=ZTPRICE(REF(C,1),0.1),IF(K20,C>=ZTPRICE(REF(C,1),0.2),IF(M30,C>=ZTPRICE(REF(C,1),0.3),0)));{分市场涨停判断} DN_LIM:=IF(沪A,C<=DTPRICE(REF(C,1),0.1),IF(K20,C<=DTPRICE(REF(C,1),0.2),IF(M30,C<=DTPRICE(REF(C,1),0.3),0)));{分市场跌停判断} 炸板:=H>=ZTPRICE(REF(C,1),IF(沪A,0.1,IF(K20,0.2,IF(M30,0.3,0)))) AND C< ZTPRICE(REF(C,1),IF(沪A,0.1,IF(K20,0.2,IF(M30,0.3,0))));{涨停炸板K线条件} 板封A:=UP_LIM AND NOT(风险ST) AND C=H;{涨停封死无开板} 距板A:=IF(COUNT(板封A,20)=0,0,BARSLAST(板封A));{距离最近封板周期数} 距跌A:=IF(COUNT(DN_LIM,20)=0,0,BARSLAST(DN_LIM));{距离最近跌停周期数} H20:=HHV(H,20);{20日周期最高价} L20:=LLV(L,20);{20日周期最低价} 重要压力:IF(距板A>0,CONST(REF(H,距板A)),REF(H20,1)),COLORLIBLUE,LINETHICK1,DOTLINE; 重要支撑:IF(距跌A>0,CONST(REF(L,距跌A)),REF(L20,1)),COLOR0000FF,LINETHICK1,DOTLINE; 信号突:=CROSS(C,重要压力) AND C>O AND V>REF(V,1)*0.8;{放量向上突破压力} 信号破:=CROSS(重要支撑,C) AND C< O AND V>REF(V,1)*0.8;{放量向下跌破支撑} DRAWTEXT_FIX(1,0.980,20,1,' '),COLOR333333; DRAWKLINE(H,O,L,C); STICKLINE(C>=O,O,C,2.5,0),COLOR0000FF; STICKLINE(C<OPEN,OPEN,CLOSE,2.5,0),COLORGREEN; STICKLINE(UP_LIM,OPEN,CLOSE,2.8,0),COLORYELLOW; STICKLINE(DN_LIM,O,C,2.8,0),COLORFF0000; STICKLINE(炸板,O,C,2.8,0),COLORGRAY; 倍量A:=V>=REF(V,1)*2.5 AND CLOSE>OPEN;{基础倍量阳线条件} 超倍量:=V>=REF(V,1)*2.5*1.5 AND C>O;{高强度倍量阳线} DRAWSL(超倍量,C,0,5,0),COLORMAGENTA,LINETHICK1; 均成交价:=AMOUNT/VOL/100;{计算当日成交均价} 主力成本:MA(均成交价,21),COLORWHITE,LINETHICK2; DRAWICON(信号突,L*0.98,5),COLORMAGENTA; DRAWTEXT(信号突,L*0.96,' ★突'),COLORMAGENTA; DRAWICON(信号破,H*1.02,6),COLORFF0000; DRAWTEXT(信号破,H*1.04,'☆破'),COLORFF0000; {选股源码如下} ZBGS31:=MA(C,5),COLORLIBLUE,LINETHICK1; ZBGS32:=MA(C,10),COLOR0000FF,LINETHICK2; ZBGS33:=MA(C,20),COLOR00FF00,LINETHICK1; ZBGS34:=CODELIKE('60') OR CODELIKE('00') OR CODELIKE('11'); ZBGS35:=CODELIKE('30') OR CODELIKE('68'); ZBGS36:=CODELIKE('9'); ZBGS37:=NAMELIKE('ST') OR NAMELIKE('*ST'); ZBGS38:=IF(ZBGS34,C>=ZTPRICE(REF(C,1),0.1),IF(ZBGS35,C>=ZTPRICE(REF(C,1),0.2),IF(ZBGS36,C>=ZTPRICE(REF(C,1),0.3),0))); ZBGS39:=IF(ZBGS34,C<=DTPRICE(REF(C,1),0.1),IF(ZBGS35,C<=DTPRICE(REF(C,1),0.2),IF(ZBGS36,C<=DTPRICE(REF(C,1),0.3),0))); ZBGS310:=H>=ZTPRICE(REF(C,1),IF(ZBGS34,0.1,IF(ZBGS35,0.2,IF(ZBGS36,0.3,0)))) AND C< ZTPRICE(REF(C,1),IF(ZBGS34,0.1,IF(ZBGS35,0.2,IF(ZBGS36,0.3,0)))); ZBGS311:=ZBGS38 AND NOT(ZBGS37) AND C=H; ZBGS312:=IF(COUNT(ZBGS311,20)=0,0,BARSLAST(ZBGS311)); ZBGS313:=IF(COUNT(ZBGS39,20)=0,0,BARSLAST(ZBGS39)); ZBGS314:=HHV(H,20); ZBGS315:=LLV(L,20); ZBGS316:=IF(ZBGS312>0,CONST(REF(H,ZBGS312)),REF(ZBGS314,1)); 擒庄极峰X:CROSS(C,ZBGS316) AND C>O AND V>REF(V,1)*0.8; 未