Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/coal2.dat
There are no other files named coal2.dat in the archive.
TITLE COAL MINING PROBLEM 00000010
* NOSTATS 00000020
* NARROW 00000030
* 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