软件名称：[B]未补上下缺口（源码、主图、飞狐、贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2019-04-27 07:26:47
软件简介:

指定周期范围内最近一次未补上下缺口和价咯【源码】

//缺口
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[i] 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[i] 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;
//缺口

[url=http://www.70822.com/soft/sort013/sort02/down-136095.html]未补上下缺口（源码、主图、飞狐、贴图）[/url]