*	APPENDIX A
*
*	DYNAMO EQUATIONS FOR SIMULATION
NOTE
NOTE	INVENTORY
NOTE
L	IV.K=IV.J+(DT)(Y.J-FS.J)
N	IV=EY*NIC
C	NIC=.3
A	Y.K=PTY.K*(1-FCU)+SED.K*FCU
C	FCU=.5
A	PTY.K=EY*EXP((1-ALFA)*LOGN(E.K/EE))*EXP(ALFA*LOGN(K.K/EK)+SAMPLE(NORMRN(0,SDVY*EY),TSNY,0)
C	EY=2E12
C	ALFA=.25
C	SDVY=0
C	TSNY=.25
A	DII.K=(DIV.K-IV.K)/TAI
C	TAI=.4
A	DIV.K=NIC*LED.K
L	SED.K=SED.J+(DT)(A.J-SED.J)/TSSD
N	SED=EY
C	TSSD=.5
A	A.K=FS.K+DII.K + SAMPLE(NORMRN(0,SDVA*EY),TSNA,0)
C	SDVA=0
C	TSNA=.25
A	FS.K=C.K+IVST.K+G.K+PULSE(PLSH*EY/DT,PLST,1000)
N	PLSH=.01
C	PLST=1000
NOTE
NOTE	        LABOR
NOTE
L	E.K=E.J+(DT)(DE.J-E.J)/TAE
N	E=EE
C	EE=100E6
C	TAE=.4
A	DE.K=(1-ALFA)*SED.K/RW
N	RW=(1-ALFA)*EY/EE
A	U.K=(EE/(1-NRU)-E.K)/(EE/(1-NRU))
N	U=NRU
C	NRU=.05
NOTE
NOTE	          CAPITAL
NOTE
L	K.K=K.J+(DT)(IVST.J-KD.J)
N	K=EK
N	EK=ALFA*EY/(1/ALK+LR)
A	KD.K=K.K/ALK
C	ALK=14
A	IVST.K=(KD.K+(DK.K-K.K)/TAK) 
C	TAK=3
A	DK.K=ALFA*LED.K/(1/ALK+R.K)
L	LED.K=LED.J+(DT)(A.J-LED.J)/TSLD
N	LED=EY
C	TSLD=4

NOTE
NOTE	CONSUMPTION
NOTE
A	C.K=APC*PY.K
N	APC=(PY-KD)/PY
L	PY.K=PY.J+(DT)(CDY.J-PY.J)/TSY
N	PY=EY-(T-GT)
C	TSY=2.5
A	CDY.K=Y.K-(T.K-GT.K)
NOTE
NOTE	         INTEREST RATE
NOTE
A	R.K=LR*EXP(-1/IEM*LOGN(EY*P.K/(M.K*EYVM)))*EXP(-YEM/IEM*LOGN
X	(AY.K/EY))
C	LR=.03
C	YEM=.7
C	EYVM=5
C	IEM=-1
L	AY.K=AY.J+(DT)(Y.J-AY.J)/TSAY
N	AY=EY
C	TSAY=2.5
L	M.K=M.J+(DT)(RCM.J)
N	M=EM
N	EM=EY*EP/EYVM
NOTE
NOTE	         PRICE LEVEL
NOTE
L	PK=P.J+(DT)(P.J*SPC*(NRU/U.J-1))
N	P=EP
C	EP=1
C	SPC=.0175
NOTE
NOTE	         GOVERNMENT
NOTE
A	G.K=EGS+CGS.K
C	EGS=400E6
A	CGS.K=EGS*PT.K*SCGS
C	SCGS=0
A	T.K=(EGS+EGT)*(1-SGYT)+Y.K*NTR*SGYT
C	SGYT=1
N	NTR=(EGS+EGT)/EY
A	GT.K=EGT+CGT.K
C	EGT=200E9
A	CGT.K=EGT*SCGT*PT.K
C	SCGT=0
A	RCM.K=M.K*PT.K*SCMG+STM*(TMS.K-M.K)/TAM
C	TAM=.00625
C	SCMG=0
C	STM=0
A	TMS.K=EM*(1+SCMS*PT.K)
C	SCMS=0
A	PT.K=(LU.K-NRU)+SDC*(E.K-DE.K)/(TAE*E.K)
C	SDC=0
L	LU.K=LU.J+(DT)(U.J-LU.J)/TSU
N	LU=U
C	TSU=.0625
NOTE
NOTE	         CONTROL CONSTANTS

NOTE
C	DT=.0625
C	LENGTH=12.5
C	PLTPER=.5
C	PRTPER=0
S	RCI.K=Y.K-C.K-IVST.K-G.K
S	RCE.K=((DE.K-E.K)/TAE)/E.K
S	PERY.K=Y.K-KD.K
PLOT	Y=Y/IV=V/IVST=I/R=R/RCI=C/RCE=H/U=U/PERY=P
NOTE	PLOT  Y=Y,FS=S,A=A(1980E9,2020E9)/IV=I/U=U/E=E/SED=D/DII=V
PRINT	E,DE,U,K,DK,IVST,KD,R
PRINT	Y,A,SED,LED,C,G,T,GT,PY,CDY,AY
PRINT	P,M,TMS,RCM,CGS,CGT,LU,PT,PTY
PRINT	IV,DIV,DII,PERY,RCI,RCE,FS