LCZ:=REF(CLOSE,1);

WRSI:=SMA(MAX(CLOSE-LCZ,0),5,1)/SMA(ABS(CLOSE-LCZ),5,1)*100;

WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;

活跃:=(WRSI-WR10);

活跃度比:=IF(活跃>=0 AND TIME<=0930,(活跃+100)/2,100-ABS((活跃-100)/2)>=90);

DRAWTEXT_FIX(1,0.0,0.70,0,STRCAT(STRCAT('',CON2STR(活跃度比,2)),'％')),COLORMAGENTA;

CJL:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2)<10,'亿'),STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万'));

DRAWTEXT_FIX(01,0.25,0.55.0,0,CJL),COLOR0099FF;

量价:=(VOL/CLOSE)/3;

B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);

B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);

B6:=B2+B3;DD1:=1;比:=B2/B3;

BBB1:=STRCAT(STRCAT('买= ',CON2STR((100*B2)/B6,0)),'%');

BBB2:=STRCAT(STRCAT('卖= ',CON2STR((100*B3)/B6,0)),'%');

BBB3:=STRCAT(STRCAT('B ',CON2STR((100*(B2-B3))/B6>=25,0)),'.00');

{DRAWTEXT_FIX(DD1=1,0,0.50,0,BBB1),COLORRED;

DRAWTEXT_FIX(DD1=1,0,0.60,0,BBB2),COLORGREEN;}

DRAWTEXT_FIX(DD1=1,0,0.20,0,BBB3),COLOR00FFFF;

ZZZ:=BBB3;

KPLB:=DYNAINFO(15)/DYNAINFO(4)/100/DYNAINFO(16)>2;

DRAWTEXT_FIX(1,0.0,0.35,0,STRCAT('K ',STRCAT(CON2STR(KPLB,2),' ')))COLORYELLOW;

KPLB2:=DYNAINFO(15)/DYNAINFO(4)/100/DYNAINFO(16)>2;

HSL:IF((SETCODE==0||SETCODE==1),100*VOL,VOL)/(FINANCE(7)/100),COLORYELLOW;

攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;

攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;

攻击量B:=-SUM(IF(C<REF(C,1),攻击量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;

攻击流量:=攻击量A+攻击量B,COLORSTICK;

攻击比:=攻击流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1;

资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50)))>150,COLORYELLOW;

资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;

资金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00;

资金出入:=资金流入+资金流出,COLORSTICK;

资金比:=资金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1;

资金流量比:=IF(资金比>=0,(资金比+100)/2,100-ABS((资金比-100)/2));

{DRAWTEXT_FIX(1,0.550,0.75,0,STRCAT(STRCAT('流量比',CON2STR(资金流量比,2)),'％买')),COLORCYAN;}

DRAWTEXT_FIX(1,0.0,0.50,0,STRCAT(STRCAT('H ',CON2STR(资金攻击度,2)),' ')),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/10000,2),'万手'));

JJ1:=STRCAT(JJ,' = ');

DRAWTEXT_FIX(1,0.25,0.15,0,STRCAT(JJ1,JJJE1))COLORCYAN;{竞价量额位置};