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*LCG.K*.05 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 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