1PAGE 1    COAL MINING PROBLEM                               (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE COAL MINING PROBLEM                                               
     0002  * NOSTATS                                                               
     0003  * NARROW                                                                
     0004  * EULER                                                                 
     0005  L LCG.K=INTGRL(-RCM.JK)                                                 
     0006  R RCM.KL=CON*MULT.K                                                     
     0007  N LCG=10E2                                                              
     0008  A MULT.K=5/7                                                            
     0009  C CON=10                                                                
     0010  PARM DT=1                                                               
     0011  PARM STOP=52                                                            
     0012  PARM PLTPER=2                                                           
     0013  PARM PRTPER=2                                                           
     0014  NOTE COAL MINED                                                         
     0015  PRINT LCG,RCM                                                           
     0016  PLOT LCG=L/RCM=R                                                        
1PAGE 2    COAL MINING PROBLEM - COAL MINED                  (C) 1978 UND
 
        TIME      LCG       RCM     
        E+00      E+03      E+00                                                                                   
 
        0.000    1.0000    7.1429   
        2.000    0.9857    7.1429   
        4.000    0.9714    7.1429   
        6.000    0.9571    7.1429   
        8.000    0.9429    7.1429   
       10.000    0.9286    7.1429   
       12.000    0.9143    7.1429   
       14.000    0.9000    7.1429   
       16.000    0.8857    7.1429   
       18.000    0.8714    7.1429   
       20.000    0.8571    7.1429   
       22.000    0.8429    7.1429   
       24.000    0.8286    7.1429   
       26.000    0.8143    7.1429   
       28.000    0.8000    7.1429   
       30.000    0.7857    7.1429   
       32.000    0.7714    7.1429   
       34.000    0.7571    7.1429   
       36.000    0.7429    7.1429   
       38.000    0.7286    7.1429   
       40.000    0.7143    7.1429   
       42.000    0.7000    7.1429   
       44.000    0.6857    7.1429   
       46.000    0.6714    7.1429   
       48.000    0.6571    7.1429   
       50.000    0.6429    7.1429   
       52.000    0.6286    7.1429   
1PAGE 3    COAL MINING PROBLEM - COAL MINED                  (C) 1978 UND
 
      L=LCG       R=RCM       
 
     L  620           715           810           905           1000          
     R  7.1           7.125         7.15          7.175         7.2           
     0  . . . . . . . . . . . . R . . . . . . . . . . . . . . . L        
        .             .         R   .             .           L .        
        .             .         R   .             .         L   .        
 T      .             .         R   .             .       L     .        
 I      .             .         R   .             .     L       .        
 M      .             .         R   .             .  L          .        
 E      .             .         R   .             .L            .        
        .             .         R   .            L.             .        
        .             .         R   .          L  .             .        
        .             .         R   .        L    .             .        
    20  . . . . . . . . . . . . R . . . . .L. . . . . . . . . . .        
        .             .         R   .    L        .             .        
        .             .         R   .  L          .             .        
        .             .         R   .L            .             .        
        .             .         R  L.             .             .        
        .             .         L   .             .             .  LR    
        .             .       L R   .             .             .        
        .             .     L   R   .             .             .        
        .             .   L     R   .             .             .        
        .             . L       R   .             .             .        
    40  . . . . . . . L . . . . R . . . . . . . . . . . . . . . .        
        .           L .         R   .             .             .        
        .         L   .         R   .             .             .        
        .       L     .         R   .             .             .        
        .    L        .         R   .             .             .        
        .  L          .         R   .             .             .        
    52  .L. . . . . . . . . . . R . . . . . . . . . . . . . . . .