TITLE COAL MINING PROBLEM 00000010 * NOSTATS 00000020 * NARROW 00000030 * CHECK 00000031 * EULER 00000040 L LCG.K=INTGRL(RCM.JK) 00000050 R RCM.KL=CON*LCG.K*LCG.K 00000060 N LCG=10E2 00000070 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