适合飞狐5.07用
指定周期范围内最近一次未补上下缺口和价格【源码】
//缺口
input:缺(240); //默认240日内,设为0则全部
s:=l>ref(h,1);x:=h<ref(l,1);l1:=l;h1:=h;swz:=0;xwz:=0;dt:=datacount;l2:=l;h2:=h;
for i=dt downto max(lbound(s)+1,dt-if(缺=0,dt,缺)) do begin
if s then begin
for m=i to dt do begin
if h1[i-1]>l1[m] then break;
end;
if m>dt then
begin
swz:=i;
break;
end;
end;
end;
for i=dt downto max(lbound(x)+1,dt-if(缺=0,dt,缺)) do begin
if x then begin
for m=i to dt do begin
if l1[i-1]<h1[m] then break;
end;
if m>dt then begin
xwz:=i;
break;
end;
end;
end;
t:=sort(l2,1,swz,dt);t:=sort(h2,0,xwz,dt);
if xwz>0 then FILLRGN(barpos>=xwz-1,l1[xwz-1],h2[dt]),COLOR888888;
if swz>0 then FILLRGN(barpos>=swz-1,h1[swz-1],l2[dt]),COLOR888888;
if xwz>0 then drawtext(dt-barpos=5,(l1[xwz-1]+h2[dt])/2,NUMTOSTR(l1[xwz-1], 2)+'--'+NUMTOSTR(h2[dt], 2)),coloryellow;
if swz>0 then drawtext(dt-barpos=5,(h1[swz-1]+l2[dt])/2,NUMTOSTR(h1[swz-1], 2)+'--'+NUMTOSTR(l2[dt], 2)),colorwhite;
//缺口
20194278401160297.png
|
