[大智慧指标] [转载]经典指标 想赔都难（分水岭 资金博弈 源码 无未来）

公式源码：

1. MA25:EMA(CLOSE,25);
   
2. 买卖分水岭:EMA(CLOSE,905);
   
3. STICKLINE((MA25 > 买卖分水岭),MA25,买卖分水岭,1,0),Color0000FF;
   
4. STICKLINE((MA25 < 买卖分水岭),MA25,买卖分水岭,1,0),Color00FF00;
   
5. DRAWICON(CROSS(MA25,买卖分水岭),(买卖分水岭 * 0.98),6);
   
6. 
   
7. 
   
8. {资金博弈}
   
9. 分钟数:IF(TIME0/60-570<=130,TIME0/60-570,TIME0/60-660),PRECIS0,linethick0;
   
10. 总成交量:=SUM(VOL,分钟数+1)/100;
    
11. 总成交额:=SUM(AMOUNT,分钟数+1)/10000;
    
12. {逐笔总量:=SUM(ordervol(1,0)-ordervol(2,0),分钟数)/100;
    
13. 逐笔总额:ma((逐笔总量/总成交量*总成交额),0),linethick2,colorred;}
    
14. 特单净量:=SUM(ordervol(1,3)-ordervol(2,3),分钟数)/100;
    
15. 特单净额:特单净量/总成交量*总成交额,colorred;
    
16. 主力净量:=SUM(ordervol(1,2)-ordervol(2,2),分钟数)/100;
    
17. 主力净额:主力净量/总成交量*总成交额,colorff00ff;
    
18. 散户净量:=SUM(-(ordervol(1,1)-ordervol(2,1)),分钟数)/100;
    
19. 散户净额:散户净量/总成交量*总成交额,colorgreen;
    
20. drawicon(cross(主力净额,散户净额),主力净额*1.8,1),align1;
    
21. 0,colorgreen;
    
22. VAR0:=VOL/CLOSE/2;
    
23. VAR1:=SUM(IF(VAR0 > 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
    
24. VAR2:=SUM(IF(VAR0 > 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
    
25. VAR3:=SUM(IF(VAR0 < 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
    
26. VAR4:=SUM(IF(VAR0 < 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
    
27. VAR5:=VAR1 + VAR2 + VAR3 + VAR4;
    
28. VAR6:=IF(BARSTATUS=2,100 * VAR1/VAR5,0);
    
29. VAR7:=IF(BARSTATUS=2,100 * VAR2/VAR5,0);
    
30. VAR8:=IF(BARSTATUS=2,100 * VAR3/VAR5,0);
    
31. VAR9:=IF(BARSTATUS=2,100 * VAR4/VAR5,0);
    
32. 机构买盘:VAR1,LINETHICK3,COLORFF55FF;
    
33. 机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
    
34. 散户买盘:VAR3,COLOR5555FF;
    
35. 散户卖盘:VAR4,COLOR55FF55;
    
36. DRAWTEXTREL(950,870,'机构买盘'),COLORFF00ff;
    
37. DRAWTEXTREL(950,570,'机构卖盘'),COLORFFFF00;
    
38. DRAWTEXTREL(950,320,'散户买盘'),COLOR0000FF;
    
39. DRAWTEXTREL(950,50,'散户卖盘'),COLOR00FF00;
    
40. IF BARSTATUS=2 THEN BEGIN
    
41. DRAWTEXTREL(1030,870,'' + FLOOR(VAR6) + '%'),COLORFF00FF;
    
42. END
    
43. IF BARSTATUS=2 THEN BEGIN
    
44. LOOP0:=FLOOR(VAR7);
    
45. VAR10:='' + LOOP0;
    
46. VAR11:=VAR10 + '%';
    
47. DRAWTEXTREL(1030,570,VAR11),COLORFFFF00;
    
48. END
    
49. IF BARSTATUS=2 THEN BEGIN
    
50. LOOP1:=FLOOR(VAR8);
    
51. VAR12:='' + LOOP1;
    
52. VAR13:=VAR12 + '%';
    
53. DRAWTEXTREL(1030,320,VAR13),COLOR0000FF;
    
54. END
    
55. IF BARSTATUS=2 THEN BEGIN
    
56. LOOP2:=FLOOR(VAR9);
    
57. VAR14:='' + LOOP2;
    
58. VAR15:=VAR14 + '%';
    
59. DRAWTEXTREL(1030,50,VAR15),COLOR00FF00;
    
60. END;

复制代码

下载 (419.35 KB)

2018-10-11 13:38