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