diff options
author | bnewbold <bnewbold@robocracy.org> | 2017-01-16 17:24:08 -0800 |
---|---|---|
committer | bnewbold <bnewbold@robocracy.org> | 2017-01-16 17:24:08 -0800 |
commit | 33718f831a54e30254c194116baba82e9d8c6bad (patch) | |
tree | aa2df02f97a985f3a9e2a3c592768abea18534d6 /examples/solow_swan_economic_growth/model.modelica | |
parent | 135616d37d1586d243017504777ce8b1bf361151 (diff) | |
download | modelthing-33718f831a54e30254c194116baba82e9d8c6bad.tar.gz modelthing-33718f831a54e30254c194116baba82e9d8c6bad.zip |
examples: solo-swan economic growth model
Diffstat (limited to 'examples/solow_swan_economic_growth/model.modelica')
-rw-r--r-- | examples/solow_swan_economic_growth/model.modelica | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples/solow_swan_economic_growth/model.modelica b/examples/solow_swan_economic_growth/model.modelica new file mode 100644 index 0000000..1a91faf --- /dev/null +++ b/examples/solow_swan_economic_growth/model.modelica @@ -0,0 +1,19 @@ +model SolowSwan + "Simple economic growth model" + Real Y "total production"; + Real K "capital factor"; + Real L "labor factor"; + Real A "labor-augmentation factor"; + parameter Real L_0=1 "initial labor"; + parameter Real A_0=1 "initial labor augmentation"; + parameter Real alpha "elasticity of output with respect to capital (0 to 1)"; + parameter Real n "labor (population) growth rate"; + parameter Real g "augmentation growth rate"; + parameter Real delta "rate of capital deprecation"; + parameter Real c "consumption vs. investment fraction (0 to 1)"; +equation + Y = K^alpha * (A * L)^(1-alpha); + L = L_0 * e^(n*t); + A = A_0 * e^(g*t); + der(K) = (1-c)*Y - delta*K; +end SolowSwan; |