[转载]■动态 顾比倒数线■完美版■源码图■
[code]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;
[/code]
[attach]4656[/attach]
页:
[1]