[通达信指标/源码] 通达信极品时分T+0 副图

1. A1:=(DVOL/C)/2,NODRAW;
   
2. A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
   
3. A3:=SUM(IF(A1>100 AND CLOSE
   
4. A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
   
5. A5:=SUM(IF(A1<100 AND CLOSE
   
6. A6:=A2+A3+A4+A5;
   
7. 主买:(A2/A6)*100,LINETHICK1,COLORRED;
   
8. 主卖:(A3/A6)*100,LINETHICK1,COLORCYAN;
   
9. 散买:(A4/A6)*100,LINETHICK0;
   
10. 散卖:(A5/A6)*100,LINETHICK0;
    
11. 主差:主买-主卖,LINETHICK1,NODRAW;
    
12. 散差:散买-散卖,LINETHICK0,NODRAW;
    
13. DRAWTEXT(主差>0 AND REF(主差,1)<=0,C*2,'抢'),COLORRED;
    
14. DRAWTEXT(主差<0 AND REF(主差,1)>=0,C*1,'主'),COLORWHITE;
    
15. DRAWTEXT(散差>0 AND REF(散差,1)<=0,C*2,'散'),COLORCYAN;
    
16. DRAWTEXT(散差<0 AND REF(散差,1)>=0,C*1,'入'),COLORWHITE;
    
17. VAR1:=((CLOSE - LLV(LOW,50))/(HHV(HIGH,50) - LLV(LOW,50)))*(100);
    
18. VAR2:=REVERSE(VAR1);
    
19. VAR3:=SMA(VAR1,6,1);
    
20. K:=SMA(VAR3,4,1);
    
21. D:=SMA(K,4,1);
    
22. DRAWTEXT(CROSS(K,D) AND MA(CLOSE,5)
    
23. DRAWTEXT(CROSS(D,K) AND MA(CLOSE,5),D,'S'),COLORWHITE;
    
24. STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
    
25. STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
    
26. STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
    
27. STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
    
28. STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
    
29. STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
    
30. STICKLINE((K <= D),K,D,6,0),COLOR008800;
    
31. STICKLINE((K <= D),K,D,5,0),COLOR009900;
    
32. STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
    
33. STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
    
34. STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
    
35. STICKLINE((K <= D),K,D,1,0),COLOR00DD00;
    
36. 顶:90,DOTLINE;
    
37. 底:10,DOTLINE;

复制代码