【Marney Volume Indicator】

1. {***********************************************}
   
2. {Marney Indicator(TM) - Marney Volume Indicator(TM)
   
3. Copyright Caspar Marney, Marney Capital 2010(C)}
   
4. {***********************************************}
   
5. 
   
6. input: avgLen(10), mins.in.session(1440), autobars(True), upcolor(cyan), dncolor(red);
   
7. var: start(0), end1(0), end2(0), x(0), p(-1), count(0), avg(0), barsinday(0), DayNumber(0);
   
8. array: xv[199,1440](0);  
   
9. 
   
10. if bartype < 2 then begin
    
11. 
    
12. start= (sessionstarttime(1,1));
    
13. end1= (sessionendtime(1,1));
    
14. end2= (sessionendtime(1,2));
    
15. 
    
16. value1 = timetominutes(start);
    
17. value2 = timetominutes(end2);
    
18. if start > end2 then
    
19. value3 = 1440+(value2-value1);
    
20. 
    
21. if start < end2 then
    
22.         value3 = -(value1-value2);
    
23. if autobars = false then value3 = mins.in.session;
    
24.          
    
25. barsinday = ceiling(value3/barinterval);
    
26. 
    
27. 
    
28. if d<>d[1] then begin  
    
29.     if count=barsinday then begin  
    
30.         p=iff(p<avgLen-1,p+1,0);  
    
31.         for x=1 to barsinday begin  
    
32.             xv[p,x]=ticks[barsinday+1-x];  
    
33.         end;  
    
34.     end;  
    
35.     count=1;  
    
36. end else count=count+1;  
    
37. 
    
38.        
    
39. if xv[avgLen-1,count]>0 then begin  
    
40.     avg=0;  
    
41.     for x=0 to avgLen-1 begin  
    
42.         avg=avg+xv[x,count];  
    
43.     end;  
    
44.     avg=avg/avgLen;  
    
45.    plot2(ticks,"ticks",default,1);  
    
46.    plot1(avg,"avg",yellow,default,1);  
    
47. end;
    
48. 
    
49. 
    
50. if close > open then setplotcolor(2,upcolor);
    
51. if close < open then setplotcolor(2,dncolor);
    
52. 
    
53. end;
    
54. 
    
55. if bartype > 1 then begin
    
56.     avg = averagefc(v,avglen);
    
57.     plot2(v,"ticks",default,1);
    
58.     plot1(avg,"avg",yellow,default,1);
    
59. 
    
60.     if close > open then setplotcolor(2,upcolor);
    
61.     if close < open then setplotcolor(2,dncolor);
    
62. end;

复制代码