成交密集区

{<成交密集区>}
hs:=VOL/CAPITAL*100,linethick0;
XX1:=HHV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
XX2:=LLV(hs,SYSPARAM(3)-SYSPARAM(2)+1);
G1:=XX1[SYSPARAM(3)];
G2:=XX2[SYSPARAM(3)];
hsl:=(12*(hs-G2)/(G1-G2)+2);

n:=SUMBARS(v,capital),linethick0;
换手周期:n,linethick0;
hh:=hhv(h,n),linethick0;
ll:=llv(l,n),linethick0;
kk:=(hh-ll)/10;
v1:=IF(CAPITAL>0,N,100);
cc:=c;
vv:=v;
for i=datacount-V1[datacount] to datacount do begin
  dd:=0;
  for k=1 to 10 do begin
     tm:=0;
     for j=i-n[i]+1 to i do begin
       if cc[j]<ll[i]+kk[i]*k and cc[j]>ll[i]+kk[i]*(k-1) then tm:=tm+vv[j];
     end;
    if tm>dd then begin
       dd:=tm;
       jj:=ll[i]+kk[i]*(k-1);
       jj1:=ll[i]+kk[i]*k;
    end;
  end;
  jg[i]:=jj;
  jg1[i]:=jj1;
end;
成交最大区间价上限:MAX(jg,JG1),linethick0;
成交最大区间价下限:MIN(jg1,JG),linethick0;
DRAWICON(CROSS(C,成交最大区间价上限),L,8);
FILLRGN(C,jg1,jg),colorgray;
成交最大区间量:dd,linethick0;