资金进出量统计指标

GoldMan

1. N:=3;
   
2. K1:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW);
   
3. K2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE);
   
4. DT:=VOL*K1/(K1+K2);
   
5. KT:=(VOL-DT);
   
6. 买量:SUM(DT,N),COLOR0000FF;
   
7. 卖量:-SUM(KT,N),COLORFFFF00;
   
8. DRAWBAND(买量,RGB(0,120,0),0,DRAWNULL);
   
9. DRAWBAND(0,RGB(0,80,0),卖量,DRAWNULL);
   
10. 进出量:买量+卖量,POINTDOT,COLOR00FFFF;
    
11. 净量换手:100*进出量/CAPITAL,POINTDOT,COLOR00FF33;
    
12. STICKLINE(进出量>=0,0,进出量,3,1),COLOR0000FF;
    
13. STICKLINE(进出量<0,0,进出量,3,1),COLORFFFF00;
    
14. D3:=100*SUM(DT,3)/CAPITAL;
    
15. K3:=100*SUM(KT,3)/CAPITAL;
    
16. J3:=D3-K3;
    
17. D6:=100*SUM(DT,6)/CAPITAL;
    
18. K6:=100*SUM(KT,6)/CAPITAL;
    
19. J6:=D6-K6;
    
20. D9:=100*SUM(DT,9)/CAPITAL;
    
21. K9:=100*SUM(KT,9)/CAPITAL;
    
22. J9:=D9-K9;
    
23. DAZHI:=CONST(MAX(ABS(D3),MAX(ABS(K3),MAX(ABS(J3),MAX(ABS(D6),MAX(ABS(K6),MAX(ABS(J6),MAX(ABS(D9),MAX(ABS(K9),ABS(J9)))))))))),NODRAW;
    
24. DRAWRECTREL(0,0,230,999.4,IF(120,RGB(100,100,100),0));
    
25. {3日画直方图}
    
26. DRAWRECTREL(38,CONST(830-(ABS(D3)*500/DAZHI)),51,935,IF(CONST(D3)>0,RGB(150,0,0),RGB(150,0,0)));
    
27. DRAWRECTREL(53,CONST(830-(ABS(K3)*500/DAZHI)),65,935,IF(CONST(K3)>0,RGB(0,150,150),RGB(0,150,150)));
    
28. DRAWRECTREL(68,CONST(830-(ABS(J3)*500/DAZHI)),80,935,IF(CONST(J3)>0,RGB(150,150,0),RGB(150,150,0)));
    
29. {6日画直方图}
    
30. DRAWRECTREL(100,CONST(830-(ABS(D6)*500/DAZHI)),112,935,IF(CONST(D6)>0,RGB(150,0,0),RGB(150,0,0)));
    
31. DRAWRECTREL(114,CONST(830-(ABS(K6)*500/DAZHI)),126,935,IF(CONST(K6)>0,RGB(0,150,150),RGB(0,150,150)));
    
32. DRAWRECTREL(128,CONST(830-(ABS(J6)*500/DAZHI)),140,935,IF(CONST(J6)>0,RGB(150,150,0),RGB(150,150,0)));
    
33. {9日画直方图}
    
34. DRAWRECTREL(160,CONST(830-(ABS(D9)*500/DAZHI)),172,935,IF(CONST(D9)>0,RGB(150,0,0),RGB(150,0,0)));
    
35. DRAWRECTREL(174,CONST(830-(ABS(K9)*500/DAZHI)),186,935,IF(CONST(K9)>0,RGB(0,150,150),RGB(0,150,150)));
    
36. DRAWRECTREL(188,CONST(830-(ABS(J9)*500/DAZHI)),200,935,IF(CONST(J9)>0,RGB(150,150,0),RGB(150,150,0)));
    
37. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.01,0,'资金进出统计'),COLORYELLOW;
    
38. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.15,0,'名称'),COLORWHITE;
    
39. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.042,0.15,0,'买量'),COLORRED;
    
40. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.098,0.15,0,'卖量'),COLORGREEN;
    
41. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.160,0.15,0,'进出量'),COLORCYAN;
    
42. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.30,0,'今日'),COLORYELLOW;
    
43. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.30,0,CONST(100*DT/CAPITAL)),COLORRED;
    
44. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.30,0,CONST(100*KT/CAPITAL)),COLORGREEN;
    
45. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.30,0,CONST(100*DT/CAPITAL-100*KT/CAPITAL)),COLORCYAN;
    
46. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.48,0,' 3日'),COLORYELLOW;
    
47. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.48,0,CONST(D3)),COLORRED;
    
48. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.48,0,CONST(K3)),COLORGREEN;
    
49. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.48,0,CONST(J3)),COLORCYAN;
    
50. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.68,0,' 6日'),COLORYELLOW;
    
51. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.68,0,CONST(D6)),COLORRED;
    
52. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.68,0,CONST(K6)),COLORGREEN;
    
53. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.68,0,CONST(J6)),COLORCYAN;
    
54. DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.98,0,' 9日'),COLORYELLOW;
    
55. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.98,0,CONST(D9)),COLORRED;
    
56. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.98,0,CONST(K9)),COLORGREEN;
    
57. DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.98,0,CONST(J9)),COLORCYAN;

复制代码