- {<成交密集区>}
- 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;
[ 本帖最后由 may158 于 2008-11-13 10:15 编辑 ]