Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/lake.dat
There are no other files named lake.dat in the archive.
TITLE CEDAR LAKE ENERGY BALANCE
* SOURCE
* NOWARN
* NARROW
* ABINT
NOTE
NOTE
NOTE PLANTS
N PLANT=24.0
A PL1.K=(CC1+C255+C48)*PLANT.K
A P2.K=CLIP(P65,ONE,PLANT.K,N28)*PLANT.K
R RPLANT.KL=SUN.K-PL1.K
L PLANT.K=INTGRL(RPLANT.JK)
NOTE
NOTE
NOTE HERBEVIORS
N HERB=.6
A H1.K=C48*PLANT.K
A H2.K=(C690+C612+C485)*HERB.K
R RHERB.KL=(CC1)(H1.K-H2.K)
L HERB.K=INTGRL(RHERB.JK)
NOTE
NOTE
NOTE CARNIVORS
N CARN=.6
A C1.K=C485*HERB.K
A C2.K=(C270+C195)(CARN.K)
R RCARN.KL=C1.K-C2.K
L CARN.K=INTGRL(RCARN.JK)
NOTE
NOTE
NOTE ORGANIC
N ORGAN=0
A O1.K=C255*PLANT.K
A O2.K=C612*HERB.K
A O3.K=C270*CARN.K
R RORGAN.KL=O1.K+O2.K+O3.K
L ORGAN.K=INTGRL(RORGAN.JK)
NOTE
NOTE
NOTE ENVIRONMENT
N ENVIRO=0
A E1.K=CC1*PLANT.K
A E2.K=C690*HERB.K
A E3.K=C270*CARN.K
R RENVRO.KL=E1.K+E2.K+E3.K
L ENVIRO.K=INTGRL(RENVRO.JK)
NOTE
NOTE
NOTE SUN'S ENERGY INPUT TO THE LAKE
A SUN.K=C959*(CC1+C0635*SIN(TIME.K*CC2*C314))
NOTE AVERAGE ENERGY IN THE LAKE
A ENERGY.K=(PLANT.K+HERB.K+CARN.K+ORGAN.K-ENVIRO.K+SUN.K)/TIME.K
NOTE CONSTANTS
C P003=.003
C P0416=.0416
C P1=.1
C P3=.3
C P5=.5
C P6=.6
C P65=.65
C P7=.7
C ONE=1
C ZERO=0
C N28=28
C CC1=1.00
C C255=2.55
C C48=.48
C C690=6.90
C C612=6.12
C C485=4.85
C C270=2.70
C C959=95.9
C C0635=.0635
C CC2=2.00
C C314=3.14
C C195=1.95
NOTE CONTROL CARDS
PARM DT=.01
PARM START=1
PARM STOP=51
PARM PRTPER=2
PARM PLTPER=2
PRINT PLANT,CARN,ORGAN,ENVIRO,ENERGY
PLOT PLANT/CARN/ORGAN/ENVIRO/ENERGY