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));

DRAWTEXT_FIX(1,0.45,0.25,1,STRCAT(STRCAT('',CON2STR(活跃度比,2)),'％')),COLORYELLOW;

{BIJ:=VOL/DYNAINFO(50)*100;

DRAWTEXT_FIX(1,0.45,0.25,1,STRCAT(STRCAT('',CON2STR(BIJ,2)),'')),COLORRED;}

竞价金额:=DYNAINFO(15)/10000,NODRAW;

竞价量:=DYNAINFO(15)/DYNAINFO(4)/100,NODRAW,LINETHICK3;

TT3:=CONST(BARSLAST(竞价量));

{STICKLINE(PERIOD=5 AND CURRBARSCOUNT=TT3+1,竞价量,竞价量,20,0),COLORMAGENTA;}

P:=CONST(BARSLAST(竞价量));

{STICKLINE(CURRBARSCOUNT=P+1,O,竞价量,2.5,0),COLORMAGENTA;}

OO:=DYNAINFO(15)/DYNAINFO(4)/100;

A:=OO/REF(V,1)*100>10000;

AAZ:=STRCAT(STRCAT(' ',CON2STR(A,0)),'');

{DRAWTEXT_FIX(ISLASTBAR,0.4,0,0,AA),COLORLIRED;}

DRAWTEXT_FIX(ISLASTBAR,0.05,0.05,0,AAZ),COLORGREEN;

涨停1:REF(C,1)*1.1,NODRAW,COLORRED;

跌停1:REF(C,1)*0.9,NODRAW,COLORGREEN;

{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.40,0,BBB3),COLOR00FFFF;

ZZZ:=BBB3;

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

DRAWTEXT_FIX(1,0.0,0.55,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.70,0,STRCAT(STRCAT('H ',CON2STR(资金攻击度,2)),' ')),COLORYELLOW;

A1:=MA(CLOSE,5);

MA2:=MA(CLOSE,10);

MA3:=MA(CLOSE,20);

MA4:=MA(CLOSE,30);

MA5:=MA(CLOSE,60);

MA6:=MA(CLOSE,120);

流通市值:=STRCAT(STRCAT('流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');

股本市值:=STRCAT(流通市值,'元');

X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};

优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};

NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);{通用个股/ST股}

涨停:=C/REF(C,1)-1>=NE-0.01/REF(C,1) AND C=H AND PERIOD=5;{仅在日线上变色}

STICKLINE(涨停,C,O,-1,0),COLORFF00F5;

跌停:=REF(C,1)/C-1>=NE-0.01/REF(C,1) AND L=C AND PERIOD=5;

STICKLINE(跌停,C,O,-1,0),COLOR00FF00;

{曾涨跌停 K线变色}

曾涨停:=H/REF(C,1)-1>=NE-0.01/REF(C,1) AND C<H AND PERIOD=5;

STICKLINE(曾涨停,H-(H-MAX(O,C)),H,0,0),COLORFF00B5;

曾跌停:=REF(C,1)/L-1>=NE-0.01/REF(C,1) AND L<C AND PERIOD=5;

STICKLINE(曾跌停,L+(MIN(O,C)-L),L,0,0),COLOR00BB00;

{涨跌停开盘 K线变色}

涨停开盘:=O/REF(C,1)-1>=NE-0.01/REF(C,1) AND O=H AND PERIOD=5;{阴阳线的十分之一变色}

STICKLINE(涨停开盘,C+(O-C)*0.9,O,-1,0),COLORFF00F5;

跌停开盘:=REF(C,1)/O-1>=NE-0.01/REF(C,1) AND L=O AND PERIOD=5;

STICKLINE(跌停开盘,C-(C-O)*0.9,O,-1,0),COLOR00FF00;

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>1000,2)>1000,' ')),COLORYELLOW;

JJ1:=STRCAT(JJ,'');

{DRAWTEXT_FIX(1,0.55,0.40,0,STRCAT(JJ1,JJJE1)),COLORYELLOW;};

{}

VARA1:=(DVOL/C)/2,NODRAW;

VARA2:=SUM(IF(VARA1>100 AND CLOSE>REF(CLOSE,1),VARA1,0),0);

VARA3:=SUM(IF(VARA1>100 AND CLOSE<REF(CLOSE,1),VARA1,0),0);

VARA4:=SUM(IF(VARA1<100 AND CLOSE>REF(CLOSE,1),VARA1,0),0);

VARA5:=SUM(IF(VARA1<100 AND CLOSE<REF(CLOSE,1),VARA1,0),0);

VARA6:=VARA2+VARA3+VARA4+VARA5;

机买:=(VARA2/VARA6)*100,LINETHICK2,COLORRED;

机卖:=(VARA3/VARA6)*100,LINETHICK2,COLORGREEN;

主力差:=机买-机卖,LINETHICK2,NODRAW;

强度:=主力差-REF(主力差,1),NODRAW,COLORYELLOW;

{STICKLINE(强度>1.5,-3.01,-3.3,2,0),COLORYELLOW;}

L2:=MA(AMOUNT/(100*V),13);

CYS13:= (C-L2)/L2*100 ;

强庄:STICKLINE(CYS13>3 AND TIME<=0935,-11111,1,2,0 ),COLORCYAN;