variable:x=0;
YD:=DYNAINFO(3);
Mm:=if(c=DYNAINFO(54) and l=DYNAINFO(54),h-yd,h-ref(c,1));
m:=if(mm>0,mm,0.0);
Ss:=if(c=DYNAINFO(55) and h=DYNAINFO(55),yd-h,ref(c,1)-L);
s:=if(ss>0,ss,0.0);
Hj:=m+s;
买入力度:=m/hj*AMOUNT/CAPITAL;
卖出力度:=s/hj*AMOUNT/CAPITAL;
买力合计:sum(买入力度,0)*10000,COLORMAGENTA,linethick2,PRECIS0;
卖力合计:sum(卖出力度,0)*10000,COLORgreen,linethick1,PRECIS0;
买力比:买力合计/(买力合计+卖力合计)*100,linethick0,PRECIS2;
净力比:(买力合计-卖力合计)/(买力合计+卖力合计)*100,linethick0,PRECIS2,COLORRED;
xz:=100;
yz:=80;
y1:=yz+110;
w:=买力比*2;
DRAWRECTREL(xz,yz,xz+200, y1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTREL(xz,yz,xz+w,y1,RGB(230,30 ,255)),COLORFF00FF;
DRAWRECTREL(xz,yz+10,xz+w,y1-10,RGB(255,60 ,255)),COLORFF30FF;
DRAWRECTREL(xz,yz+20,xz+w,y1-20,RGB(255,90 ,255)),COLORFF64FF;
DRAWRECTREL(xz,yz+30,xz+w,y1-30,RGB(255,110,255)),COLORFF6EFF;
DRAWRECTREL(xz,yz+40,xz+w,y1-40,RGB(255,130,255)),COLORFF82FF;
DRAWRECTREL(xz,yz+50,xz+w,y1-50,RGB(255,150,255)),COLORFF96FF;
DRAWTEXTREL(xz+38,yz+140,STRRIGHT(' '+NUMTOSTRN(买力比,1),5)+'%'),COLORyellow;
DRAWTEXTREL(xz+165,yz+140,STRRIGHT(' '+NUMTOSTRN(100-买力比,1),5)+'%'),ColorFFFFCC;
DRAWTEXTREL(xz+3,yz+140,'买力比：'),COLORyellow,linethick1;
DRAWTEXTREL(xz+130,yz+140,'卖力比：'),ColorFFFFCC,linethick1;
DRAWRECTREL(xz+200,yz,xz+w, y1,RGB(0,0,255) ),COLORFF1A1A;
DRAWRECTREL(xz+200,yz+10 ,xz+w,y1-10,RGB(30,30,255) ),COLORFF2B2B;
DRAWRECTREL(xz+200,yz+20 ,xz+w,y1-20,RGB(60,60,255) ),COLORFF3C3C;
DRAWRECTREL(xz+200, yz+30 ,xz+w,y1-30,RGB(90,90,255) ),COLORFF4D4D;
DRAWRECTREL(xz+200,yz+40 ,xz+w,y1-40,RGB(110,110,255) ),COLORFF6E6E;
DRAWRECTREL(xz+200, yz+50 ,xz+w,y1-50,RGB(120,120,255) ),COLORFF7878;
DRAWTEXTREL(500,0,'净力比：'+NUMTOSTRN(净力比,2)),COLORYELLOW,LINETHICK3;
A:=(买入力度-卖出力度);
A1:=SUM(A,0);
力度差:A*100000,colorstICK,LINETHICK2;
X:ema(A1,2)*50000,LINETHICK0;
PARTLINE(x,x>10,rgb(255,0,0),x<0,rgb(30,255,0),1,rgb(255,255,0)),LINETHICK3;
CT:=count(力度差*10>0,0);
ST:=count(力度差*10<0,0);
T1:=V>MA(V,0)*5;
T2:=SLOPE(c,5)>0.02;
T3:=SLOPE(c,4)>0.016;
X1:=t1 and t2 and A1>0 and ct>st*1.5;
X2:=(count(力度差*10>0,6)>5 OR count(力度差*10>0,10)>7) AND A1>0.1 and T3;
Y:=hhv(力度差*10,0);
B:=x1*y;
Bt:=X2*y;
做多:=count(BT,0);
DRAWTEXT(BT,x,'P'+count(BT,0)),colorAAAAAA,LINETHICK0;
DRAWTEXTABS(660,0,'主力做多次数:'+count(BT,0)),coloryellow,LINETHICK4;
