【WAverage】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ) ;                                                
   
4. 
   
5. variables:
   
6.         var0( 0 ),
   
7.         var1( 0 ) ;
   
8. 
   
9. var0 = 0 ;
   
10. for Value1 = 0 to Len - 1
    
11.         begin
    
12.         var0 = var0 + ( Len - Value1 ) * PriceValue[Value1] ;
    
13.         end ;
    
14. var1 = ( Len + 1 ) * Len * .5 ;
    
15. WAverage = var0 / var1 ;

复制代码