竞价动能指标 （友友收好）

{现价:=IF(DYNAINFO(4)=0,C,DYNAINFO(7));}

XG:=HHV(H,480);
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.995,‘突‘)AND C<ZTPRICE(REF(CLOSE,1),0.1),COLORYELLOW;{突}
RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
MA01:=REF(C,JY);
MA02:=REF(MA01,JY);
MA03:=REF(MA02,JY);
MA04:=REF(MA03,JY);
MA05:=REF(MA04,JY);
MA6:=REF(MA05,JY);
MA7:=REF(MA6,JY);
MA8:=REF(MA7,JY);
MA9:=REF(MA8,JY);
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:=L1+P1*8/9,COLORLIRED,DOTLINE;
支撑:=L1+P1*0.5/9,COLORGREEN,DOTLINE;
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
主力:=EXPMA(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120);
底:=1;1.022,NODRAW;高:=1.033;
{DRAWTEXT(CROSS(主力,1.02),C*0.999,‘ 拉‘)AND C<ZTPRICE(REF(CLOSE,1),0.1),COLORMAGENTA;
DRAWTEXT(CROSS(主力,1.04),C*0.999,‘ 冲‘)AND C<ZTPRICE(REF(CLOSE,1),0.1),COLORRED;
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,7);
DRAWICON(LONGCROSS(C,阻力,2)AND C<ZTPRICE(REF(CLOSE,1),0.1),C+0.01,8);}

ZG:=分时引用JIN.H1#DAY;
ZJ:=分时引用JIN.昨均价#DAY;
ZD:=分时引用JIN.L1#DAY;
ZK:=分时引用JIN.K1#DAY;
{DRAWTEXT_FIX(1,1,1-0.638,1,STRCAT(‘昨高: ‘,CON2STR(ZG,2))),COLORWHITE;
DRAWTEXT_FIX(1,1,1-0.538,1,STRCAT(‘昨均: ‘,CON2STR(ZJ,2))),COLORCYAN;
DRAWTEXT_FIX(1,1,1-0.438,1,STRCAT(‘昨低: ‘,CON2STR(ZD,2))),COLORWHITE;
DRAWTEXT_FIX(1,1,1-0.338,1,STRCAT(‘昨开: ‘,CON2STR(ZK,2))),COLORWHITE;
五日:=分时引用JIN.M5#DAY;
十日:=分时引用JIN.M10#DAY;
二十日:=分时引用JIN.M20#DAY;
DRAWTEXT_FIX(1,1,1-0.238,1,STRCAT(‘M5 : ‘,CON2STR(五日,2))),COLORGREEN;
DRAWTEXT_FIX(1,1,1-0.138,1,STRCAT(‘M10: ‘,CON2STR(十日,2))),COLORWHITE;
DRAWTEXT_FIX(1,1,1-0.038,1,STRCAT(‘M20: ‘,CON2STR(二十日,2))),COLORWHITE;
DK:=分时引用JIN.DKX#DAY;
DRAWTEXT_FIX(1,0,1,0,STRCAT(‘BBI : ‘,CON2STR(DK,2))),COLORGREEN;
量价:=(VOL/CLOSE)/3;
A52:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
A53:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
A56:=A52+A53;DD1:=1;比:=A52/A53;
AAA1:=STRCAT(STRCAT(‘买= ‘,CON2STR((100*A52)/A56,0)),‘%‘);
AAA2:=STRCAT(STRCAT(‘卖= ‘,CON2STR((100*A53)/A56,0)),‘%‘);
AAA3:=STRCAT(STRCAT(‘差= ‘,CON2STR((100*(A52-A53))/A56,0)),‘%‘);
DRAWTEXT_FIX(DD1=1,0,0.23,0,AAA3),COLOR00FFFF;
DRAWTEXT_FIX(DD1=1,0,0.23,0,AAA3),COLOR00FFFF; }

LTPDW:=IF((FINANCE(46))/1000000>1,‘亿股‘,‘万股‘);
LTP:=IF((FINANCE(46))/1000000>1,CON2STR((FINANCE(46))/100000000,2),CON2STR((FINANCE(46))/10000,0));
LTP1:=STRCAT(STRCAT(‘自由流通盘：‘,LTP),LTPDW);
LTPWS:=STRCAT(VAR2STR(FINANCE(46)/1000000,2),‘万手‘);
LTP2:=STRCAT(LTP1,‘ ≈ ‘);
DRAWTEXT_FIX(1,0.50,0.85,0,STRCAT(LTP2,LTPWS))COLORMAGENTA;

DRAWTEXT_FIX(1,0.50,0.90,0,STRCAT(STRCAT(‘流通市值：‘,CON2STR(FINANCE(46)*C/100000000,2)),‘亿元‘))COLORMAGENTA;

市盈率:=STRCAT(‘市盈率：‘,CON2STR(C/FINANCE(33),2));
DRAWTEXT_FIX(1,0.50,0.95,0,STRCAT(市盈率,‘倍‘))COLORYELLOW;

DRAWTEXT_FIX(1,0.30,0.85,0,STRCAT(‘最高价：‘,CON2STR(DYNAINFO(5),2)))COLORYELLOW;
DRAWTEXT_FIX(1,0.30,0.90,0,STRCAT(‘最低价：‘,CON2STR(DYNAINFO(6),2)))COLORYELLOW;
HS:=100*DYNAINFO(8)/CAPITAL;
ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),‘万手‘);
JHS:=STRCAT(‘今换手：‘,STRCAT(VAR2STR(HS,2),‘%‘));
JHS1:=STRCAT(JHS,‘ ≈ ‘);
DRAWTEXT_FIX(1,0.30,0.95,0,STRCAT(JHS1,ZHWS))COLORYELLOW;

JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
JJJEDW:=IF(DYNAINFO(15)>10000,‘万元‘,‘元‘);
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT(‘竞价：‘,STRCAT(CON2STR(JJCJL,0),‘手‘));
JJ1:=STRCAT(JJ,‘ = ‘);
DRAWTEXT_FIX(1,0.1,0.75,0,STRCAT(JJ1,JJJE1))COLORMAGENTA;

今日竞价股数:=DYNAINFO(15)/DYNAINFO(4);
ZSPJ:=分时引用JIN.ZSP#DAY;
A:=今日竞价股数/FINANCE(46)*10000*(O-ZSPJ)/ZSPJ;
DRAWTEXT_FIX(1,0.1,0.8,0,STRCAT(STRCAT(‘竞价动能值：‘,CON2STR(A,2)),‘‘))COLORRED;

KP:=(DYNAINFO(4)-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXT_FIX(1,0.1,0.85,0,STRCAT(‘开盘：‘,STRCAT(VAR2STR(KP,2),‘%‘)))COLORYELLOW;

开盘换手Z:=DYNAINFO(15)/DYNAINFO(4)/FINANCE(46)*100;
DRAWTEXT_FIX(1,0.1,0.9,0,STRCAT(STRCAT(‘开盘换手Z：‘,CON2STR(开盘换手Z,2)),‘‘))COLORYELLOW;

CJE:=DYNAINFO(8)*DYNAINFO(11);
DW:=IF(CJE/1000000>1,‘亿‘,‘万‘);
AB:=IF(CJE/1000000>1,CJE/1000000,CJE/100);
DRAWTEXT_FIX(1,0.1,0.95,0,STRCAT(STRCAT(‘成交额：‘,CON2STR(AB,2)),DW))COLORYELLOW;

DRAWTEXT_FIX(1,0.1,0.65,0,STRCAT(‘‘,EXTERNSTR(0,4))),COLORRED,LINETHICK2;
DRAWTEXT_FIX(1,0.1,0.70,0,STRCAT(‘‘,EXTERNSTR(0,5))),COLORYELLOW,LINETHICK2;

DRAWTEXT_FIX(1,0.70,0.67,0,STRCAT(‘净流入(万元):= ‘,CON2STR(ZJBY.净流入#DAY,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.70,0.74,0,STRCAT(‘超大单(万元):= ‘,CON2STR(ZJBY.超大单#DAY,2))),COLORRED;
DRAWTEXT_FIX(1,0.70,0.81,0,STRCAT(‘大单(万元):= ‘,CON2STR(ZJBY.大单#DAY,2))),COLORGREEN;
DRAWTEXT_FIX(1,0.70,0.88,0,STRCAT(‘中单(万元):= ‘,CON2STR(ZJBY.中单#DAY,2))),COLORMAGENTA;
DRAWTEXT_FIX(1,0.70,0.95,0,STRCAT(‘小单(万元):= ‘,CON2STR(ZJBY.小单#DAY,2))),COLORCYAN;
超大单:="ZJBY.超大单#DAY";
大单:="ZJBY.大单#DAY";
中单:="ZJBY.中单#DAY";
小单:="ZJBY.小单#DAY";
ZDZ:=MAX(MAX(ABS(超大单),ABS(大单)),MAX(ABS(中单),ABS(小单)));
M1:=超大单/ZDZ*300;
M2:=大单/ZDZ*300;
M3:=中单/ZDZ*300;
M4:=小单/ZDZ*300;
DRAWRECTREL(850,700-M1,870,700,RGB(255,0,0));
DRAWRECTREL(875,700-M2,895,700,RGB(0,255,0));
DRAWRECTREL(900,700-M3,920,700,RGB(255,0,255));
DRAWRECTREL(925,700-M4,945,700,RGB(0,255,255));

AF1:=1;
TT:=BARSLAST(HOUR=9 AND MINUTE=(30+AF1))+1;
均价:=AMOUNT/VOL/100,COLORYELLOW;
价位:=C,COLORWHITE,LINETHICK4;
盘整:=IF(HOUR>9 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK2;

突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);

{日牛熊线:=EMA(C,120),COLORFF0080,LINETHICK1;
最新:=CLOSE,LINETHICK1,COLORWHITE;}
{CLOSE,LINETHICK1,COLORWHITE;}
{AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(‘ 我赢涨↑‘,CON2STR(最新,2))),COLOR0000FF;
DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(‘ 跌↓‘,CON2STR(最新,2))),COLOR00FF00;};