[大智慧指标] [转载]■动态 顾比倒数线■完美版■源码图■

1. if BARSTATUS=2 then begin
   
2. Nx:=19;{近期时间设置}
   
3. nK:=30;{寻K设置,太大循环慢}
   
4. aaa:='＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿';
   
5. zK1:LLVBARS(L,Nx),LINETHICK0; zK2:zK1+0,LINETHICK0;
   
6. WHILE zK2<nK and zK2<BARPOS and REF(H,zK2)<=REF(H,zK1) DO zK2:=zK2+1; zK3:zK2+0,LINETHICK0;
   
7. WHILE zK3<nK and zK3<BARPOS and REF(H,zK3)<=REF(H,zK2) DO zK3:=zK3+1;
   
8. 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;
   
9. DRAWTEXT(BARSTATUS=2,HHHL,'＿＿进场 顾比倒数线 压'+NUMTOSTR(if(zK3<nk,zK3,-1)+1)+'.'+NUMTOSTR(if(zK2<nk,zK2,-1)+1)+'.'+NUMTOSTR(zK1+1)+aaa),ALIGN2,VALIGN1;
   
10. 
    
11. xK1:HHVBARS(H,Nx),LINETHICK0; xK2:xK1+0,LINETHICK0;
    
12. WHILE xK2<nK and xK2<BARPOS and REF(L,xK2)>=REF(L,xK1) DO xK2:=xK2+1; xK3:xK2+0,LINETHICK0;
    
13. WHILE xK3<nK and xK3<BARPOS and REF(L,xK3)>=REF(L,xK2) DO xK3:=xK3+1;
    
14. 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;
    
15. DRAWTEXT(BARSTATUS=2,LLLH,'＿＿离场 顾比倒数线 撑'+NUMTOSTR(if(xK3<nk,xK3,-1)+1)+'.'+NUMTOSTR(if(xK2<nk,xK2,-1)+1)+'.'+NUMTOSTR(xK1+1)+aaa),ALIGN2,VALIGN1;

复制代码

下载 (207.24 KB)

2018-10-20 09:40