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(JJ,0))COLORCYAN;

A:=VOL*CLOSE;

B:=SUM(A,1)/SUM(VOL,1);

B1:=EMA(B,17);

进:STICKLINE(((B-B1)*1500/B)>=0 AND 0>=REF(0,1),0,((B-B1)*1500/B),2,1),COLORRED;

出:STICKLINE(((B-B1)*1500/B)<0 AND 0>=REF(0,1),0,((B-B1)*1500/B),2,1),COLORGREEN;

主力突破:(B-B1)*1500/B COLORRED,NODRAW;

100;

XG:主力突破>85 AND TIME<=0935;

DRAWICON(主力突破>85 AND NOT(L=H)AND 主力突破>REF(主力突破,1) ,主力突破,24);

{DRAWGBK(XG, RGB(255,126,0),RGB(255,126,0),0,'11',1);}

量价:=(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.05,0,BBB3),COLORBLUE;

ZZZ:=BBB3;

N:=8;

M:=13;

P:=60;

S:=3;

V1:=(C*2+H+L)/4*10;

V2:=EMA(V1,13)-EMA(V1,34);

V3:=EMA(V2,5);

V4:=2*(V2-V3)*5.5;

超大主力吃: IF(V4>=0,V4,0),COLORYELLOW,LINETHICK3;

超大主力吐: IF(V4<=0,V4,0),COLOR66FF00,LINETHICK3;

V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;

V6:=EMA(3*V5-2*SMA(V5,18,1),5);

V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;

V8:=(INDEXC*2+INDEXH+INDEXL)/4;

V9:=EMA(V8,13)-EMA(V8,34);

VA:=EMA(V9,3);

VB:=(V9-VA)/2;

超大主力吃线:28,COLORFF80FF,LINETHICK3;

{}

UPRATE:=IF(SETCODE==2,1.05,1.02);

{DOWNRATE:=IF(SETCODE==2,0.95,0.98);}

ISAG:=(FINANCE(3)>0 AND FINANCE(3)<6);

TENRATE:=MINDIFF*10;

上限:=MAX(UPRATE*C,C+TENRATE);

笼子上限:=IF(DYNAINFO(26)>0,IF(DYNAINFO(26)>0 AND USEDDATANUM<250,MIN(上限,DYNAINFO(26)),上限),C),DOTLINE,COLORRED;

DRAW1:=IF(ISAG,DYNAINFO(28),C);

{DRAWNUMBER(ISLASTBAR AND ISAG,DRAW1,DRAW1),COLORRED;}

{下限:=MIN(DOWNRATE*C,C-TENRATE);}

{笼子下限:=IF(DYNAINFO(27)>0,IF(DYNAINFO(27)>0 AND USEDDATANUM<250,MAX(下限,DYNAINFO(27)),下限),C),DOTLINE,COLORGREEN;}

DRAW2:=IF(ISAG,DYNAINFO(29),C);

{DRAWNUMBER(ISLASTBAR AND ISAG,DRAW2,DRAW2),COLORGREEN;}

TPLZ:=CROSS(C,UPRATE*REF(C,1));

DRAWTEXT(TPLZ AND TIME<=0932 AND ISAG,L*9,'突破笼子'),COLORYELLOW;

{DPLZ:=CROSS(DOWNRATE*REF(C,1),C);}

{DRAWTEXT(DPLZ AND ISAG,C,'跌破笼子'),COLORGREEN;};