{STICKLINE((O/REF(C,1)>1.04),L,L*9,2000,0),COLORBLUE,LINETHICK9;

STICKLINE(DYNAINFO(4)=DYNAINFO(5),L,L*9,2000,0),COLORBLUE;

TEN:=IF(DYNAINFO(4)!=DYNAINFO(5),STRCAT(CON2STR(DYNAINFO(7)<2,60),'1'),STRCAT(CON2STR(DYNAINFO(7)<2,0),'1')),COLORGREEN;

DRAWTEXT_FIX(1,0.510,0.20,0,TEN),COLORRED;}

{量价:=(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,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.01,0,BBB3),COLOR00FFFF;}

{免费源码:STICKLINE(HOUR>=9 AND HOUR<10 ,0, V/((TIME-93000)/100)*240,4.5,1),COLORWHITE;

STICKLINE(HOUR>=10 AND HOUR<11 ,0, V/((TIME-100000)/100+30)*240,4.5,1),COLORWHITE;

STICKLINE(HOUR>=11 AND HOUR<12 ,0, V/((TIME-110000)/100+90)*240,4.5,1),COLORWHITE;

STICKLINE(HOUR>=13 AND HOUR<=14,0, V/((TIME-130000)/100+120)*240,4.5,1),COLORWHITE;

STICKLINE(HOUR>=14 AND HOUR<=15,0, V/((TIME-140000)/100+180)*240,4.5,1),COLORWHITE;}

VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));

主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));

{STICKLINE(C>O,0,VOL,4.5,1),COLORRED;

STICKLINE(C<O ,0,VOL,4.5,1),COLORFFFF00;

STICKLINE(C=O AND C<REF(C,1),0,VOL,4.5,1),COLORFFFF00;

STICKLINE(C=O AND C>REF(C,1),0,VOL,4.5,1),COLORRED;

STICKLINE(主动买盘>0,0,主动买盘,4.5,0),COLORRED;}

换手: VOL/CAPITAL*100;

STICKLINE(换手>=3 AND 换手<8,0, 主动买盘,2,0),COLORYELLOW;

{STICKLINE(换手>=8,0, 主动买盘, 2,0) ,COLORGREEN;}

MA5:=MA(VOL,5),COLORYELLOW;

MA13:=MA(VOL,13),COLORWHITE;

DRAWTEXT(CROSS(MA5,MA13),CROSS(MA5,MA13),'*'),COLORYELLOW;

{LC:=REF(CLOSE,1);

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

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

活跃:=(WRSI-WR10);

活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2));

DRAWTEXT_FIX(1,0.20,0.35,1,STRCAT(STRCAT('活跃：',CON2STR(活跃度比,2)),'％')),COLORCYAN;}

A1:=MA(CLOSE,5);

MA2:=MA(CLOSE,10);

MA3:=MA(CLOSE,20);

MA4:=MA(CLOSE,30);

MA5Z:=MA(CLOSE,60);

MA6:=MA(CLOSE,120);

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

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

X2X:=(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,2),'万手'));

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

DRAWTEXT_FIX(1,0.15,0.15,0,STRCAT(JJ1,JJJE1))COLORYELLOW;}

金牛:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK2,COLORCYAN;

金钻趋势:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,COLORCYAN;

金牛2:=EMA(金钻趋势,25)COLORCYAN;

STICKLINE(金钻趋势>LOW AND 金钻趋势<HIGH,金钻趋势,MIN(MIN(OPEN,CLOSE),金钻趋势),2,0),COLORYELLOW;

STICKLINE(金钻趋势>MIN(C,O) AND 金钻趋势<MAX(C,O),金钻趋势,MIN(OPEN,CLOSE),2,0),COLORYELLOW;

STICKLINE(金钻趋势>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(金钻趋势>HIGH,HIGH,LOW,2,0),COLORYELLOW;

VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);

回调买:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));

XG:=金钻趋势>HIGH AND 回调买 AND L<=金钻趋势;

DRAWTEXT(XG,L*9999,'▲买入'),COLORMAGENTA;

STICKLINE(XG,L,L*9999,2,0),COLOR0099FF,LINETHICK9;