Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-160/intgrt1.dat
There are no other files named intgrt1.dat in the archive.
TITLE NDTRAN TRACKING TEST                                                      
* NOWARN                                                                        
* NOSTATS                                                                       
* EULER                                                                         
C A=-1                                                                          
N Y=1                                                                           
R DY.KL=A*Y.K                                                                   
L Y.K=INTGRL(DY.JK)                                                             
PARM DT=.1                                                                      
PARM START=0                                                                    
PARM STOP=10                                                                    
PARM PRTPER=1                                                                   
S ACTUAL.K=EXP(A*TIME.K)                                                        
S ABSERR=ABS(ACTUAL.K-Y.K)                                                      
S RELERR.K=ABSERR.K/ACTUAL.K                                                    
PRINT Y,ABSERR,RELERR,ACTUAL                                                    
PRINT Y.2,ABSERR.2,RELERR.2,ACTUAL.2                                            
RERUN                                                                           
C A=1