1PAGE 1    USE OF THE STEP FUNCTION                          (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE USE OF THE STEP FUNCTION                                          
     0002  * EULER                                                                 
     0003  * NARROW                                                                
     0004  * NOSTATS                                                               
     0005  L LEVEL.K=INTGRL(RATE.JK)                                               
     0006  N LEVEL=100                                                             
     0007  R RATE.KL=(CON.K)(DL-LEVEL.K)/ADJTM                                     
     0008  A CON.K=STEP(HT,PYEAR)                                                  
     0009  C PYEAR=10                                                              
     0010  C HT=1                                                                  
     0011  C ADJTM=5                                                               
     0012  C DL=500                                                                
     0013  PARM DT=1                                                               
     0014  PARM START=0                                                            
     0015  PARM STOP=20                                                            
     0016  PARM PRTPER=1                                                           
     0017  PARM PLTPER=1                                                           
     0018  NOTE OUTPUT OF STEP FUNCTION                                            
     0019  PRINT CON,LEVEL,DL                                                      
     0020  PLOT CON/LEVEL/DL                                                       
1PAGE 2    USE OF THE STEP FUNCTION - OUTPUT OF STEP FUNCTI  (C) 1978 UND
 
        TIME      CON      LEVEL       DL     
                                                                                                                   
        0.000    0.0000    100.00    500.00   
        1.000    0.0000    100.00    500.00   
        2.000    0.0000    100.00    500.00   
        3.000    0.0000    100.00    500.00   
        4.000    0.0000    100.00    500.00   
        5.000    0.0000    100.00    500.00   
        6.000    0.0000    100.00    500.00   
        7.000    0.0000    100.00    500.00   
        8.000    0.0000    100.00    500.00   
        9.000    0.0000    100.00    500.00   
       10.000    1.0000    100.00    500.00   
       11.000    1.0000    180.00    500.00   
       12.000    1.0000    244.00    500.00   
       13.000    1.0000    295.20    500.00   
       14.000    1.0000    336.16    500.00   
       15.000    1.0000    368.93    500.00   
       16.000    1.0000    395.14    500.00   
       17.000    1.0000    416.11    500.00   
       18.000    1.0000    432.89    500.00   
       19.000    1.0000    446.31    500.00   
       20.000    1.0000    457.05    500.00   
1PAGE 3    USE OF THE STEP FUNCTION - OUTPUT OF STEP FUNCTI  (C) 1978 UND
 
      C=CON       L=LEVEL     D=DL        
 
     C  0             .25           .5            .75           1             
     L  100           190           280           370           460           
     D  480           490           500           510           520           
     0  C . . . . . . . . . . . . . D . . . . . . . . . . . . . .  CL    
        C             .             D             .             .  CL    
        C             .             D             .             .  CL    
 T      C             .             D             .             .  CL    
 I      C             .             D             .             .  CL    
 M      C             .             D             .             .  CL    
 E      C             .             D             .             .  CL    
        C             .             D             .             .  CL    
        C             .             D             .             .  CL    
        C             .             D             .             .  CL    
    10  L . . . . . . . . . . . . . D . . . . . . . . . . . . . C        
        .           L .             D             .             C        
        .             .       L     D             .             C        
        .             .             D L           .             C        
        .             .             D        L    .             C        
        .             .             D             L             C        
        .             .             D             .   L         C        
        .             .             D             .      L      C        
        .             .             D             .         L   C        
        .             .             D             .           L C        
    20  . . . . . . . . . . . . . . D . . . . . . . . . . . . . C  CL