Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/coal2.lst
There are no other files named coal2.lst in the archive.
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