[文华源码] 文华仓量指标

1. NN:=BARSLAST(DATE<>REF(DATE,1))+1;
   
2. 
   
3. KH:=HHV(NN,300);
   
4. 
   
5. VERTLINE(DATE<>REFX(DATE,1) AND ISLASTBAR<>1 AND KH<>1,COLORBLUE);
   
6. 
   
7. QQ:=OPI-REF(OPI,1);
   
8. 
   
9. K1:=IF(CLOSE>OPEN AND QQ>=0,QQ,0);
   
10. 
    
11. KK1:=IF(CLOSE<OPEN AND QQ<0,QQ,0);
    
12. 
    
13. KKK1:=IF(CLOSE=OPEN,QQ*0.5,0);
    
14. 
    
15. K2:=IF(CLOSE<OPEN AND QQ>=0,QQ,0);
    
16. 
    
17. KK2:=IF(CLOSE>OPEN AND QQ<0,QQ,0);
    
18. 
    
19. DO:=SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN);
    
20. 
    
21. KO:=SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN);
    
22. 
    
23. N4:=IF(NN<=4,NN,4);
    
24. 
    
25. VK1:=IF(CLOSE>=OPEN,VOL,0);
    
26. 
    
27. VK2:=IF(CLOSE<=OPEN,VOL,0);
    
28. 
    
29. VDO:=SUM(VK1,N4);
    
30. 
    
31. VKO:=SUM(VK2,N4);
    
32. 
    
33. VDK:=VDO-VKO;
    
34. 
    
35. STICKLINE(VDK>=0,VDK,0,COLORRED,0);
    
36. 
    
37. STICKLINE(VDK<=0,VDK,0,COLORCYAN,0);
    
38. 
    
39. CC:=SUM(QQ,NN);
    
40. 
    
41. DRAWNUMBER(ISLASTBAR AND CC>0,0,CC,0,COLORMAGENTA);
    
42. 
    
43. DRAWNUMBER(ISLASTBAR AND CC<0,0,CC,0,COLORBLUE);
    
44. 
    
45. POLYLINE(CLOSE>0,DO,COLORRED);
    
46. 
    
47. POLYLINE(CLOSE>0,KO,COLORGREEN);
    
48. 
    
49. W:=MOD(NN,5);
    
50. 
    
51. J:=BACKSET(ISLASTBAR,5);
    
52. 
    
53. DRAWNUMBER(ISLASTBAR,DO,DO,0,COLORYELLOW);
    
54. 
    
55. DRAWNUMBER(ISLASTBAR,KO,KO,0,COLORGREEN);
    
56. 
    
57. DRAWNUMBER(W=0 AND J=0,DO,DO,0,COLORYELLOW);
    
58. 
    
59. DRAWNUMBER(W=0 AND J=0,KO,KO,0,COLORGREEN);

复制代码