【cummratio】

1. inputs:
   
2.         SrcArray[MaxSize1]( numericarray ),
   
3.         DstArray[MaxSize2]( NumericArrayRef ),
   
4.         last_idx(NumericSimple),
   
5.         InitCapital(NumericSimple);
   
6.        
   
7. var : cumm(0);
   
8. cumm = InitCapital;
   
9. for value1 = 1 to last_idx begin
   
10.         value2 = SrcArray[value1];
    
11.         if 0 <> cumm then
    
12.                 DstArray[value1] = value2 / absvalue(cumm)
    
13.         else
    
14.                 DstArray[value1] = 0;
    
15.         cumm += value2;
    
16. end;

复制代码