Google
 

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