动态顾比倒数线主图指标 (源码)

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;
{九毛八股票公式指标网 全网优质指标下载平台www.9m8.cn}
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;