Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-160/intgrt1.lst
There are no other files named intgrt1.lst in the archive.
1PAGE 1    NDTRAN TRACKING TEST                                                                              (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE NDTRAN TRACKING TEST                                                      
     0002  * NOWARN                                                                        
     0003  * NOSTATS                                                                       
     0004  * EULER                                                                         
     0005  C A=-1                                                                          
     0006  N Y=1                                                                           
     0007  R DY.KL=A*Y.K                                                                   
     0008  L Y.K=INTGRL(DY.JK)                                                             
     0009  PARM DT=.1                                                                      
     0010  PARM START=0                                                                    
     0011  PARM STOP=10                                                                    
     0012  PARM PRTPER=1                                                                   
     0013  S ACTUAL.K=EXP(A*TIME.K)                                                        
     0014  S ABSERR=ABS(ACTUAL.K-Y.K)                                                      
     0015  S RELERR.K=ABSERR.K/ACTUAL.K                                                    
     0016  PRINT Y,ABSERR,RELERR,ACTUAL                                                    
     0017  PRINT Y.2,ABSERR.2,RELERR.2,ACTUAL.2                                            
     0018  RERUN                                                                           
     0019  C A=1                                                                           
1PAGE 2    NDTRAN TRACKING TEST                                                                              (C) 1978 UND
 
        TIME       Y       ABSERR    RELERR    ACTUAL   
        E+00      E+00      E-03      E-03      E+00                                                               
 
        0.000    1.0000     0.000      0.00    1.0000   
        1.000    0.3487    19.201     52.19    0.3679   
        2.000    0.1216    13.759    101.66    0.1353   
        3.000    0.0424     7.396    148.55    0.0498   
        4.000    0.0148     3.535    192.99    0.0183   
        5.000    0.0052     1.584    235.11    0.0067   
        6.000    0.0018     0.682    275.03    0.0025   
        7.000    0.0006     0.285    312.87    0.0009   
        8.000    0.0002     0.117    348.74    0.0003   
        9.000    0.0001     0.047    382.73    0.0001   
       10.000    0.0000     0.019    414.95    0.0000   
1PAGE 3    NDTRAN TRACKING TEST                                                                              (C) 1978 UND
 
        TIME      Y.2     ABSERR.2  RELERR.2  ACTUAL.2  
        E+00      E+03      E+03      E-03      E+03                                                               
 
        0.000     0.001    0.0000      0.00     0.001   
        1.000     0.003    0.0001     45.82     0.003   
        2.000     0.007    0.0007     89.53     0.007   
        3.000     0.017    0.0026    131.25     0.020   
        4.000     0.045    0.0093    171.05     0.055   
        5.000     0.117    0.0310    209.03     0.148   
        6.000     0.304    0.0989    245.27     0.403   
        7.000     0.790    0.3069    279.84     1.097   
        8.000     2.048    0.9326    312.84     2.981   
        9.000     5.313    2.7901    344.32     8.103   
       10.000    13.781    8.2459    374.36    22.026