%--------------------------------------------------------------------------
%Programa que va a mostrar gráficamente de dos maneras diferentes la regla
%de oro en el modelo de Solow con crecimiento de la tecnología.
%--------------------------------------------------------------------------
%Borro todo antes
clear
clc
%Parámetros del modelo
a=0.02;
theta=0.36;
n=0.05;
delta=0.1;
%El cambio importante con respecto a los otros programas viene en el ahorro
%Acá el ahorro debe ser un vector que va de 0 a 1 y que nos va a mostrar
%donde se de un consumo máximo
s=[0:0.01:1];
kbar=((s)./(a+n+a*n+delta)).^(1/(1-theta));
ybar=kbar.^(theta);
cbar=(1-s).*ybar;
%Lo que hago es graficar este consumo con respecto al ahorro y ver donde
%esta el máximo
plot(s,cbar,'g')
legend('cbar')
title('La regla de oro')