软件名称：[B]缺口提示[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2009-04-27 06:47:48
软件简介:

缺口提示.alg

INPUT:p1(5,1,100), p2(26,1,100),p3(55,1,100);
M1:MA(CLOSE,P1);
M2:MA(CLOSE,P2);
M3:MA(CLOSE,P3);
if datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
pL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL[i]<pL then pL:=LL[i];
  if HH[i]>pH then pH:=HH[i];
  if tk[i]=1 and pL<=HH[i-1] then tk[i]:=0;
  if tk[i]=-1 and pH>=LL[i-1] then tk[i]:=0;
end;

DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
向下跳空未回补:count(tk=-1,0),linethick0

[url=http://www.70822.com/soft/sort013/sort02/down-8681.html]缺口提示[/url]