软件名称：[B]■动态 顾比倒数线■完美版■源码图■[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2012-04-08 03:45:07
软件简介:

if BARSTATUS=2 then begin
Nx:=19;{近期时间设置}
nK:=30;{寻K设置,太大循环慢}
aaa:='＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿';
zK1:LLVBARS(L,Nx),LINETHICK0; zK2:zK1+0,LINETHICK0;
WHILE zK2<nK and zK2<BARPOS and REF(H,zK2)<=REF(H,zK1) DO zK2:=zK2+1; zK3:zK2+0,LINETHICK0;
WHILE zK3<nK and zK3<BARPOS and REF(H,zK3)<=REF(H,zK2) DO zK3:=zK3+1;
HHHL:if(REF(H,zK3)>REF(H,zK2),REF(H,zK3),if(REF(H,zK2)>REF(H,zK1),REF(H,zK2),REF(H,zK1))),LINETHICK0;
DRAWTEXT(BARSTATUS=2,HHHL,'＿＿进场 顾比倒数线 压'+NUMTOSTR(if(zK3<nk,zK3,-1)+1)+'.'+NUMTOSTR(if(zK2<nk,zK2,-1)+1)+'.'+NUMTOSTR(zK1+1)+aaa),ALIGN2,VALIGN1;

xK1:HHVBARS(H,Nx),LINETHICK0; xK2:xK1+0,LINETHICK0;
WHILE xK2<nK and xK2<BARPOS and REF(L,xK2)>=REF(L,xK1) DO xK2:=xK2+1; xK3:xK2+0,LINETHICK0;
WHILE xK3<nK and xK3<BARPOS and REF(L,xK3)>=REF(L,xK2) DO xK3:=xK3+1;
LLLH:if(REF(L,xK3)<REF(L,xK2),REF(L,xK3),if(REF(L,xK2)<REF(L,xK1),REF(L,xK2),REF(L,xK1))),LINETHICK0;
DRAWTEXT(BARSTATUS=2,LLLH,'＿＿离场 顾比倒数线 撑'+NUMTOSTR(if(xK3<nk,xK3,-1)+1)+'.'+NUMTOSTR(if(xK2<nk,xK2,-1)+1)+'.'+NUMTOSTR(xK1+1)+aaa),ALIGN2,VALIGN1;
end;

[url=http://www.70822.com/soft/sort013/sort03/down-46709.html]■动态 顾比倒数线■完美版■源码图■[/url]