N:=9;
P:=14;
M:=26;
{指标}
个股涨幅:(C-REF(C,1))/REF(C,1)*100,COLORRED,NODRAW;
行业涨幅:(HY_INDEXC-REF(HY_INDEXC,1))/REF(HY_INDEXC,1)*100,COLORYELLOW,NODRAW;
大盘涨幅:(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100,COLORCYAN,NODRAW;
A1:=MA(LLV(C,N)*1.1,P);
A2:=MA(HHV(C,M)*0.9,P);
DPC:=INDEXC;
A3:=MA(LLV(DPC,N)*1.1,P);
A4:=MA(HHV(DPC,M)*0.9,P);
HYC:=HY_INDEXC;
A31:=MA(LLV(HYC,N)*1.1,P);
A41:=MA(HHV(HYC,M)*0.9,P);
A5:=(A1+A2)/2;
A6:=(A3+A4)/2;
A61:=(A31+A41)/2;
A71:=C-A5-A5*(A61-EXPMEMA(HYC,3))/A61;{强于行业}
A7:=C-A5-A5*(A6-EXPMEMA(DPC,3))/A6;{强于大盘}
能量释放强大盘:=(A7>=0)*A7,COLORRED,NODRAW;
能量释放强行业:=(A71>=0)*A71,COLORYELLOW,NODRAW;
LTP:=C*CAPITAL/100,;{万股}
ER:=vol/LTP;
A8:=ER<2 AND C>O AND C>MA(C,7) AND
MA(C,7)>MA(C,37) AND A7>-0.9 AND VOL>MA(VOL,5);
{脉冲拉升:A8,COLORLIMAGENTA,NODRAW;
STICKLINE(A8,(A7>=0)*A7*1.7,0,0.8,-1)COLORLIMAGENTA;}
STICKLINE((A71>=0)*A71,(A7>=0)*A7*1.4,0,2,-1)COLORYELLOW;
STICKLINE((A71<0)*A71,(A7<0)*A7*1.4,0,2,-1)COLORCYAN;
STICKLINE((A7<0)*A7,0,(A7<0)*A7*1.2,3,0),COLOR779900;
STICKLINE((A7<0)*A7,0,(A7<0)*A7*1.2,2.2,0),COLOR77BB00;
STICKLINE((A7<0)*A7,0,(A7<0)*A7*1.2,1.5,0),COLOR77DD00;
STICKLINE((A7<0)*A7,0,(A7<0)*A7*1.2,0.5,0),COLOR77FF00;
STICKLINE((A7>=0)*A7,0,(A7>=0)*A7*1.2,3,0)COLOR000099;
STICKLINE((A7>=0)*A7,0,(A7>=0)*A7*1.2,2.2,0),COLOR0000BB;
STICKLINE((A7>=0)*A7,0,(A7>=0)*A7*1.2,1.5,0),COLOR0000DD;
STICKLINE((A7>=0)*A7,0,(A7>=0)*A7*1.2,0.5,0),COLOR0000FF;
DRAwrECTREL(487,5,999,999,0);
DRAWRECTREL(1,5,487,999,RGB(0,0,51));
{三强共振}
DRAWTEXT_FIX(ISLASTBAR,0.01,0.85,0,STRCAT(STRCAT('【情绪共振】 ',CON2STR(DRAWNULL,0)),' ')),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 个股涨幅>=行业涨幅,0.25,0.85,1,STRCAT(STRCAT(' 个股强 ',CON2STR(DRAWNULL,0)),' ')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 个股涨幅<行业涨幅,0.25,0.85,1,STRCAT(STRCAT(' 个股弱 ',CON2STR(DRAWNULL,0)),' ')),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND 大盘涨幅<=行业涨幅,0.35,0.85,1,STRCAT(STRCAT(' 行业强 ',CON2STR(DRAWNULL,0)),' ')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 大盘涨幅>行业涨幅,0.35,0.85,1,STRCAT(STRCAT(' 行业弱 ',CON2STR(DRAWNULL,0)),' ')),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND REF(大盘涨幅,1)<=大盘涨幅,0.45,0.85,1,STRCAT(STRCAT(' 大盘强 ',CON2STR(DRAWNULL,0)),' ')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND REF(大盘涨幅,1)>大盘涨幅,0.45,0.85,1,STRCAT(STRCAT(' 大盘弱 ',CON2STR(DRAWNULL,0)),' ')),COLORCYAN;
{量能基因}
DRAWTEXT_FIX(ISLASTBAR,0.01,0.75,0,STRCAT(STRCAT('【量能基因】今日量',CON2STR(V/10000,2)),'万')),COLORWHITE;
{个股行业大盘量比}
G今量比昨量:=V/REF(V,1);
D今量比昨量:=INDEXV/REF(INDEXV,1);
H今量比昨量:=HY_INDEXV/REF(HY_INDEXV,1);
JLZL1:=STRCAT('个股比昨: ',CON2STR(G今量比昨量,2));
JLZL2:=STRCAT(' 行业比昨: ',CON2STR(H今量比昨量,2));
JLZL3:=STRCAT(' 大盘比昨: ',CON2STR(D今量比昨量,2));
ZTTJ0:=STRCAT(JLZL1,JLZL2);
ZTTJ1:=STRCAT(ZTTJ0,JLZL3);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.19,0.75,0,ZTTJ1),COLORYELLOW;
{股性活跃}
换手率％:=VOL/((FINANCE(7)-FINVALUE(244))/100)*100,NODRAW;
温和活跃:=IF(CAPITAL<500000,换手率％<7,IF(CAPITAL>=500000 AND CAPITAL<1000000,换手率％<5,
IF(CAPITAL>=1000000 AND CAPITAL<10000000,换手率％<3,
IF(CAPITAL>=10000000 AND CAPITAL<50000000,换手率％<1,IF(CAPITAL>=50000000,换手率％<0.5,DRAWNULL)))));
异动活跃:=IF(CAPITAL<500000,换手率％>7 AND 换手率％<=10,IF(CAPITAL>=500000 AND CAPITAL<1000000,换手率％>5 AND 换手率％<=7,
IF(CAPITAL>=1000000 AND CAPITAL<10000000,换手率％>3 AND 换手率％<=5,
IF(CAPITAL>=10000000 AND CAPITAL<50000000,换手率％>1 AND 换手率％<=3,IF(CAPITAL>=50000000,换手率％>0.5 AND 换手率％<=1,DRAWNULL)))));
非常活跃:=IF(CAPITAL<500000,换手率％>10 AND 换手率％<=14,IF(CAPITAL>=500000 AND CAPITAL<1000000,换手率％>7 AND 换手率％<=10,
IF(CAPITAL>=1000000 AND CAPITAL<10000000,换手率％>5 AND 换手率％<=7,
IF(CAPITAL>=10000000 AND CAPITAL<50000000,换手率％>3 AND 换手率％<=5,IF(CAPITAL>=50000000,换手率％>1 AND 换手率％<=3,DRAWNULL)))));
高度活跃:=IF(CAPITAL<500000,换手率％>14 AND 换手率％<=20,IF(CAPITAL>=500000 AND CAPITAL<1000000,换手率％>10 AND 换手率％<=14,
IF(CAPITAL>=1000000 AND CAPITAL<10000000,换手率％>7 AND 换手率％<=10,
IF(CAPITAL>=10000000 AND CAPITAL<50000000,换手率％>5 AND 换手率％<=7,IF(CAPITAL>=50000000,换手率％>3 AND 换手率％<=5,DRAWNULL)))));
极度活跃:=IF(CAPITAL<500000,换手率％>20,IF(CAPITAL>=500000 AND CAPITAL<1000000,换手率％>14,
IF(CAPITAL>=1000000 AND CAPITAL<10000000,换手率％>10,
IF(CAPITAL>=10000000 AND CAPITAL<50000000,换手率％>7,IF(CAPITAL>=50000000,换手率％>5,DRAWNULL)))));
DRAWTEXT_FIX(ISLASTBAR,0.01,0.65,0,STRCAT(STRCAT('【股性活跃】真实换手',CON2STR(换手率％,2)),'%')),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 温和活跃,0.20,0.65,0,'温和活跃'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 异动活跃,0.20,0.65,0,'异动活跃'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 非常活跃,0.20,0.65,0,'非常活跃'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 高度活跃,0.20,0.65,0,'高度活跃'),COLORLIMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 极度活跃,0.20,0.65,0,'极度活跃'),COLORRED;
{涨停状态}
涨停:=IF(NAMELIKE('ST') OR NAMELIKE('*ST'),(C+0.01)>ZTPRICE(REF(C,1),0.05),IF(CODELIKE('688') OR (CODELIKE('300') AND DATE>=1200824),(C+0.01)>ZTPRICE(REF(C,1),0.2),
(C+0.01)>ZTPRICE(REF(C,1),0.1))) AND C=H;
ZTCS:=COUNT(涨停,BARSSINCE(涨停)+1);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.55,0,STRCAT(STRCAT('【涨停状态】',CON2STR(DRAWNULL,0)),'')),COLORWHITE;
封单金额:=IF(FINANCE(3)==0,DRAWNULL,IF(GPJYVALUE(15,1,0)==2,GPJYVALUE(15,2,0),IF(GPJYVALUE(15,2,0)=0 AND 涨停,DYNAINFO(58)*DYNAINFO(20)*100/10000,0))),COLORYELLOW;
涨停溢价:=封单金额/(DYNAINFO(7)*CAPITAL*100/10000)*100;
涨停溢价高:=涨停 AND 涨停溢价>20;
涨停溢价中:=涨停 AND 涨停溢价>5 AND 涨停溢价<20;
涨停溢价低:=涨停 AND 涨停溢价<5;
失控板1:=涨停 AND VOL>HHV(REF(VOL,1),2)*2.1;
失控板2:=涨停 AND (C-REF(C,2))/REF(C,2)*100>=20 ;
失控板:=失控板1 AND 失控板2;
加速板:=涨停 AND NOT(失控板) AND (VOL<=REF(VOL,1)*0.7 OR VOL<=REF(VOL,2)*0.5);
分歧板:=涨停 AND NOT(失控板) AND NOT(加速板) ;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 失控板,0.20,0.55,0,'失控板'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 分歧板,0.20,0.55,0,'分歧板'),COLORLIMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 加速板,0.20,0.55,0,'加速板'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 涨停溢价低,0.35,0.55,0,'涨停溢价低'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 涨停溢价中,0.35,0.55,0,'涨停溢价中'),COLORLIMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 涨停溢价高,0.35,0.55,0,'涨停溢价高'),COLORRED;
B11:=BArslASTCOUNT(涨停);
连续板:=(B11>1 AND REFX(NOT(涨停),1)) OR (REF(涨停,1) AND 涨停 AND ISLASTBAR);
{DRAWTEXT(连续板,H*0.95,VARCAT(VAR2STR(B11,0),'天连板'))COLORYELLOW;}
DRAWTEXT_FIX(1 AND 连续板,0.30,0.55,1,STRCAT(STRCAT('【',CON2STR(B11,0)),'天连板】')),COLORRED;
