MA5:MA(CLOSE,5);
{背景}
DRAWGBK(O>C,RGB(110,35,120),RGB(0,25,50),0,'0',0);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
DRAWKLINE(H,O,L,C);
今日竞价额:DYNAINFO(15)/10000 ,NODRAW;
DRAWTEXT_FIX(1,0.009,0.10,0,STRCAT('今日竞价额：',STRCAT(VAR2STR(今日竞价额,1),' 万')))COLORMAGENTA;
今日竞价量:DYNAINFO(15)/DYNAINFO(4)/100,NODRAW;
DRAWTEXT_FIX(1,0.009,0.15,0,STRCAT('今日竞价量：',STRCAT(VAR2STR(今日竞价量,0),' 手')))COLORMAGENTA;
竞价换手率:DYNAINFO(15)/OPEN/FINANCE(46)*100,NODRAW;
DRAWTEXT_FIX(1,0.009,0.20,0,STRCAT('竞价换手率：',STRCAT(VAR2STR(竞价换手率,2),' %')))COLORMAGENTA;
{主题概念}
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,STRCAT(Z3,GNBLOCK)),COLORCYAN;
{带状线}
DRAWBAND(MA(CLOSE,3),RGB(155,50,50),MA(CLOSE,5),RGB(0,91,0));
DRAWBAND(MA(CLOSE,13),RGB(100,50,100),MA(CLOSE,15),RGB(0,0,180));
DRAWKLINE(H,O,L,C);
红:MA(CLOSE,3),COLORBBBBBB{MA3};
绿:MA(CLOSE,5),COLORYELLOW{MA5};
AA:=红>绿;
紫:MA(CLOSE,13),COLORFF00CC{MA13};
蓝:MA(CLOSE,15),COLORABFF46{MA15};
BB:=紫>蓝;
军号:=MA(CLOSE,20)COLOR3399CC,NODRAW;
台阶线:MA(CLOSE,30),NODRAW;
台阶线1:STICKLINE(C>台阶线,台阶线,台阶线-0.01,3,0)COLOR3399CC;
台阶线2:STICKLINE(C<台阶线,台阶线,台阶线-0.01,3,0)COLOR3399CC;
N1:=6;
mtm:=C-REF(C,1);
ZLGJ:=100*EMA(EMA(MTM,N1),N1)/EMA(EMA(Abs(MTM),N1),N1);
买1:=IF(LLV(ZLGJ,2)=LLV(ZLGJ,7) AND COUNT(ZLGJ<0,2) AND crOSS(ZLGJ,MA(ZLGJ,2)),1,0);
卖1:=IF(HHV(ZLGJ,2)=HHV(ZLGJ,7) AND COUNT(ZLGJ>50,2) AND CROSS(MA(ZLGJ,2),ZLGJ),1,0);
STICKLINE(FILTER(买1=1,5),C,O,1,0),COLORRED;
DRAWICON(FILTER(卖1=1,1),H*1.06,15),COLOR00FF00;
STICKLINE(FILTER(卖1=1,1),C,O,1,0),COLOR00FF00;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
BDGD:=HHV(J,2)=HHV(J,8) AND J>80;
注意:=IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),1,0);
DRAWTEXT(注意 AND 卖1<1,HIGH*1.01,'J'),COLOR00FF00,LINETHICK3;
STICKLINE(注意 AND 卖1<1,O,CLOSE,1,0),COLORYELLOW,LINETHICK2;
{13天内}
板后13天内:=COUNT(C/REF(C,1)>1.099,13)>1;
XG:=FILTER(买1=1,5);
钱袋:=板后13天内 AND XG;
{注册制涨停变色}
BK:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('创业板'),0.2,IF(INBLOCK('ST板块'),0.05,0.1)));
XA_1:=IF(DATE<=1200823,1,0);
STICKLINE((C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H) AND XA_1=1,O,C,2.7,0),COLORFF00FF;
STICKLINE((C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L) AND XA_1=1,O,C,2.7,0),COLORBLUE;
STICKLINE((C>=ZTPRICE(REF(C,1),BK) AND C=H),O,C,1,0),COLORYELLOW;
STICKLINE((C<=DTPRICE(REF(C,1),BK) AND C=L),O,C,1,0),COLORBLUE;
STICKLINE((H>=ZTPRICE(REF(C,1),BK) AND C<H) OR (H>=ZTPRICE(REF(CLOSE,1),0.1) AND C<H AND XA_1=1),H,MAX(C,O),0.5,0),COLORMAGENTA;{涨停后回落}
STICKLINE((L<=DTPRICE(REF(C,1),BK) AND C>L) OR (L<=DTPRICE(REF(CLOSE,1),0.1) AND C>L AND XA_1=1),L,MIN(C,O),0.5,0),COLORBLUE;
{板块定义}
科创业板:=IF(INBLOCK('创业板') OR INBLOCK('科创板'),1,0);
深圳股:=IF(INBLOCK('深证Ａ股') AND 科创业板=0,1,0);
{涨停定义}
涨停价:=IF(科创业板=1,ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1));
{实施时间2022年7月11日,也就是说第一只新规股在11日出现：山西路桥}
时间:=IF(DATE>1220769,1,1);
{异动定义 深证}
老异动A:=(IF(REF(C,2)=REF(涨停价,2),1.10,REF(C,2)/REF(C,3))+IF(REF(C,1)=REF(涨停价,1),1.10,REF(C,1)/REF(C,2))+IF(C=涨停价,1.10,C/REF(C,1))-3)*100-(REF("399107$C",2)/REF("399107$C",3)+REF("399107$C",1)/REF("399107$C",2)+"399107$C"/REF("399107$C",1)-3)*100;{3天异动}
老异动:=IF(老异动A>19.99,1,0);
老异动价:=(REF("399107$C",2)/REF("399107$C",3)+REF("399107$C",1)/REF("399107$C",2)+"399107$C"/REF("399107$C",1)+0.2-IF(REF(C,2)=REF(涨停价,2),1.10,REF(C,2)/REF(C,3))-IF(REF(C,1)=REF(涨停价,1),1.10,REF(C,1)/REF(C,2)))*REF(C,1);
新异动A:=(C/REF(C,2)-1)*100-("399107$C"/REF("399107$C",2)-1)*100;
新异动B:=(C/REF(C,3)-1)*100-("399107$C"/REF("399107$C",3)-1)*100;
新异动:=IF(新异动A>19.99,1,IF(新异动B>19.99,1,0));
新异动价A:=(("399107$C"/REF("399107$C",2)) + 0.2) * REF(C,2);{2天就异动}
新异动价B:=(("399107$C"/REF("399107$C",3)) + 0.2) * REF(C,3);{3天才异动}
异动:=IF(时间=0 AND 老异动=1,1,IF(时间=1 AND 新异动=1,1,0));
第一次异动:=IF(异动=1 AND EXISTR(异动 = 1,10,1)=0,1,0);
第二次异动:=FILTER(IF(时间=0 AND 老异动=1 AND EXISTR(第一次异动 = 1,10,3)=1,1,IF(时间=1 AND 新异动A>19.99 AND EXISTR(第一次异动 = 1,10,2),1,IF(时间=1 AND 新异动B>19.99 AND EXISTR(第一次异动 = 1,10,3),1,0))),10);
第三次异动:=FILTER(IF(时间=0 AND 老异动=1 AND EXISTR(第二次异动 = 1,10,3)=1,1,IF(时间=1 AND 新异动A>19.99 AND EXISTR(第二次异动 = 1,10,2),1,IF(时间=1 AND 新异动B>19.99 AND EXISTR(第二次异动 = 1,10,3),1,0))),10);
第四次异动:=FILTER(IF(时间=0 AND 老异动=1 AND EXISTR(第三次异动 = 1,10,3)=1,1,IF(时间=1 AND 新异动A>19.99 AND EXISTR(第三次异动 = 1,10,2),1,IF(时间=1 AND 新异动B>19.99 AND EXISTR(第三次异动 = 1,10,3),1,0))),10);
第五次异动:=FILTER(IF(时间=0 AND 老异动=1 AND EXISTR(第四次异动 = 1,10,3)=1,1,IF(时间=1 AND 新异动A>19.99 AND EXISTR(第四次异动 = 1,10,2),1,IF(时间=1 AND 新异动B>19.99 AND EXISTR(第四次异动 = 1,10,3),1,0))),10);
第六次异动:=FILTER(IF(时间=0 AND 老异动=1 AND EXISTR(第五次异动 = 1,10,3)=1,1,IF(时间=1 AND 新异动A>19.99 AND EXISTR(第五次异动 = 1,10,2),1,IF(时间=1 AND 新异动B>19.99 AND EXISTR(第五次异动 = 1,10,3),1,0))),10);{马丁丁指标}
{异动线 深证}
MA1:MA(CLOSE,20);
{DRAWNUMBER(PERIOD=5,L-0.2,第二次异动),COLORGREEN;}
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第一次异动=1,L,'第一次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第一次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第一次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第二次异动=1,L,'第二次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第二次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第二次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第三次异动=1,L,'第三次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第三次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第三次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第四次异动=1,L,'第四次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第四次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第四次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第五次异动=1,L,'第五次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第五次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第五次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWTEXT(PERIOD=5 AND 深圳股=1 AND 第六次异动=1,L,'第六次异动'),COLORYELLOW;
DRAWSL(PERIOD=5 AND 时间=0 AND 深圳股=1 AND 第六次异动=1,老异动价,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND 第六次异动=1 AND 新异动A>19.99,新异动价A,0,1,2),COLORGREEN,LINETHICK2;
DRAWSL(PERIOD=5 AND 时间=1 AND 深圳股=1 AND EXISTR(异动 = 1,2,1)=0 AND 涨停价>新异动价B,新异动价B,0,1,2),COLORWHITE,LINETHICK1;
