Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-160/stepdls.lst
There are no other files named stepdls.lst in the archive.
1PAGE 1    STEP RESPONSE OF DLINF1 AND DLINF3                (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE STEP RESPONSE OF DLINF1 AND DLINF3                                
     0002  * NARROW                                                                
     0003  * NOWARN                                                                
     0004  * NOSTATS                                                               
     0005  * EULER                                                                 
     0006  A INPUT.K=STEP(1,5)                                                     
     0007  EXPND DLINF1(OUT1,INPUT,TRX)                                            
     0008+ R $R11.KL=(INPUT.K-$L11.K)/TRX                                          
     0009+ L $L11.K=INTGRL($R11.JK)                                                
     0010+ N $L11=INPUT                                                            
     0011+ A OUT1.K=$L11.K                                                         
     0012+ MEND                                                                    
     0013  EXPND DLINF3(OUT3,INPUT,TRX)                                            
     0014+ R $R12.KL=(INPUT.K-$L12.K)/(TRX/3)                                      
     0015+ L $L12.K=INTGRL($R12.JK)                                                
     0016+ N $L12=INPUT                                                            
     0017+ R $R22.KL=($L12.K-$L22.K)/(TRX/3)                                       
     0018+ L $L22.K=INTGRL($R22.JK)                                                
     0019+ N $L22=INPUT                                                            
     0020+ R $R32.KL=($L22.K-$L32.K)/(TRX/3)                                       
     0021+ L $L32.K=INTGRL($R32.JK)                                                
     0022+ N $L32=INPUT                                                            
     0023+ A OUT3.K=$L32.K                                                         
     0024+ MEND                                                                    
     0025  C TRX=15                                                                
     0026  PARM DT=1                                                               
     0027  PARM START=0                                                            
     0028  PARM STOP=50                                                            
     0029  PARM PLTPER=1                                                           
     0030  PLOT INPUT=S,OUT1=A,OUT3=B                                              
1PAGE 2    STEP RESPONSE OF DLINF1 AND DLINF3                (C) 1978 UND
 
      S=INPUT     A=OUT1      B=OUT3      
 
   BAS  0             .25           .5            .75           1             
     0  S . . . . . . . . . . . . . . . . . . . . . . . . . . . .  SAB   
        S             .             .             .             .  SAB   
        S             .             .             .             .  SAB   
 T      S             .             .             .             .  SAB   
 I      S             .             .             .             .  SAB   
 M      A             .             .             .             S  AB    
 E      B   A         .             .             .             S        
        B      A      .             .             .             S        
        B         A   .             .             .             S        
        . B           A             .             .             S        
    10  . .B. . . . . . A . . . . . . . . . . . . . . . . . . . S        
        .     B       .    A        .             .             S        
        .       B     .      A      .             .             S        
        .          B  .         A   .             .             S        
        .             .B          A .             .             S        
        .             .   B         A             .             S        
        .             .      B      . A           .             S        
        .             .          B  .   A         .             S        
        .             .             B    A        .             S        
        .             .             .  B   A      .             S        
    20  . . . . . . . . . . . . . . . . . B A . . . . . . . . . S        
        .             .             .       BA    .             S        
        .             .             .          A  .             S  AB    
        .             .             .           AB.             S        
        .             .             .            A.B            S        
        .             .             .             A B           S        
        .             .             .             .A  B         S        
        .             .             .             . A  B        S        
        .             .             .             .  A   B      S        
        .             .             .             .  A    B     S        
    30  . . . . . . . . . . . . . . . . . . . . . . . A . B . . S        
        .             .             .             .    A   B    S        
        .             .             .             .    A    B   S        
        .             .             .             .     A    B  S        
        .             .             .             .     A    B  S        
        .             .             .             .      A    B S        
        .             .             .             .      A    B S        
        .             .             .             .       A   B S        
        .             .             .             .       A    BS        
        .             .             .             .        A   BS        
    40  . . . . . . . . . . . . . . . . . . . . . . . . . .A. .BS        
        .             .             .             .        A   BS        
        .             .             .             .         A  BS        
        .             .             .             .         A  BS        
        .             .             .             .         A  BS        
        .             .             .             .         A   S  SB    
        .             .             .             .          A  S  SB    
        .             .             .             .          A  S  SB    
        .             .             .             .          A  S  SB    
        .             .             .             .          A  S  SB    
    50  . . . . . . . . . . . . . . . . . . . . . . . . . . .A. S  SB