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=.05/10E73 $ 1) ***** E R R O R ***** ND0612 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 (C) 1978 UND ERRORS DURING RUN 1: UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 0 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 1 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 2 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 3 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 4 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 5 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 6 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 7 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 8 UNDERFLOW HAS OCCURRED IN STATEMENT 0009 AT TIME = 9 RUN 1PAGE 3 COAL MINING PROBLEM - COAL MINED (C) 1978 UND TIME LCG RCM E+00 E+03 E+00 0.0000 1.0000 0.0000 2.0000 1.0000 0.0000 4.0000 1.0000 0.0000 6.0000 1.0000 0.0000 8.0000 1.0000 0.0000 1PAGE 4 COAL MINING PROBLEM - COAL MINED (C) 1978 UND L=LCG R=RCM L 800 900 1000 1100 1200 R -.2 -.1 0 .1 .2 0 . . . . . . . . . . . . . . L . . . . . . . . . . . . . . LR . . L . . LR . . L . . LR T . . L . . LR 8 . . . . . . . . . . . . . . L . . . . . . . . . . . . . . LR