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 * CHECK 0005 * EULER 0006 L LCG.K=INTGRL(-RCM.JK) 0007 R RCM.KL=CON*MULT.K*LCG.K*.05 0008 N LCG=10E2 0009 A MULT.K=5/7 0010 C CON=10 0011 PARM DT=1 0012 PARM STOP=52 0013 PARM PLTPER=2 0014 PARM PRTPER=2 0015 NOTE COAL MINED 0016 PRINT LCG,RCM 0017 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 357.14 2.000 0.4133 147.59 4.000 0.1708 61.00 6.000 0.0706 25.21 8.000 0.0292 10.42 10.000 0.0121 4.31 12.000 0.0050 1.78 14.000 0.0021 0.74 16.000 0.0009 0.30 18.000 0.0004 0.13 20.000 0.0001 0.05 22.000 0.0001 0.02 24.000 0.0000 0.01 26.000 0.0000 0.00 28.000 0.0000 0.00 30.000 0.0000 0.00 32.000 0.0000 0.00 34.000 0.0000 0.00 36.000 0.0000 0.00 38.000 0.0000 0.00 40.000 0.0000 0.00 42.000 0.0000 0.00 44.000 0.0000 0.00 46.000 0.0000 0.00 48.000 0.0000 0.00 50.000 0.0000 0.00 52.000 0.0000 0.00 1PAGE 3 COAL MINING PROBLEM - COAL MINED (C) 1978 UND L=LCG R=RCM L 1E-7 250 500 750 1000 R 3.7E-8 90 180 270 360 0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . L LR . . L . . . LR . RL . . . . T . L . . . . LR I . L . . . . LR M .L . . . . LR E L . . . . LR L . . . . LR L . . . . LR L . . . . LR 20 L . . . . . . . . . . . . . . . . . . . . . . . . . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR 40 L . . . . . . . . . . . . . . . . . . . . . . . . . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR L . . . . LR 52 L . . . . . . . . . . . . . . . . . . . . . . . . . . . . LR