?

1. Vars
   
2. ? ?? ???NumericSeries baramount;
   
3. ? ?? ???NumericSeries barvol;
   
4. ? ?? ???numericseries dayavg;
   
5. Begin
   
6. ? ?? ???if(truedate(0)!=truedate(1))
   
7. ? ?? ???{
   
8. ? ?? ?? ?? ?? ? baramount=close*Vol;
   
9. ? ?? ?? ?? ?? ? barvol=vol;
   
10. ? ?? ???}else
    
11. ? ?? ???{
    
12. ? ?? ?? ?? ?? ? baramount = baramount+close*vol;
    
13. ? ?? ?? ?? ?? ? barvol = barvol+vol;
    
14. ? ?? ???}
    
15. ? ? dayavg = baramount / barvol;
    
16. ? ? Plotnumeric("dayavg",dayavg);
    
17. End

?