【UlcerIndex】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ) ;                                                
   
4. 
   
5. variables:
   
6.         var0( 0 ),
   
7.         var1( 0 ) ;
   
8. 
   
9. var0 = 0 ;
   
10. var1 = PriceValue[ Len - 1 ] ;
    
11. for Value1 = Len - 2 downto 0
    
12.         begin
    
13.         condition1 = var1 > PriceValue[Value1] and var1 <> 0;
    
14.         if condition1 then
    
15.                 var0 = var0 + Square( ( ( var1 - PriceValue[Value1] ) / var1 ) * 100 )
    
16.         else
    
17.                 var1 = PriceValue[Value1] ;
    
18.         end ;
    
19. UlcerIndex = SquareRoot( var0 / Len ) ;

复制代码