TITLE COAL MINING PROBLEM 00000010 * NOSTATS 00000020 * NARROW 00000030 * CHECK 00000035 * EULER 00000040 L LCG.K=INTGRL(-RCM.JK) 00000050 R RCM.KL=CON*MULT.K*LCG.K*.05 00000060 N LCG=10E2 00000070 A MULT.K=5/7 00000080 C CON=10 00000090 PARM DT=1 00000100 PARM STOP=52 00000110 PARM PLTPER=2 00000120 PARM PRTPER=2 00000130 NOTE COAL MINED 00000140 PRINT LCG,RCM 00000150 PLOT LCG=L/RCM=R 00000160