Profit Maximization over Capital and Labor
Model Components and Maximization Problem
Assume that the firm has fixed free labor, but can choose capital input. At the start of a period, a firm rents capital inputs and combines capital with labor to produce. At the end of the period, the firm sells its output and pays interest rates based on how much capital it rented (no wage costs). Profit is denoted by π, period interest rate is r, the price of output is p, the firm makes y units of output, and the production function is Cobb-Douglas: - Profit:
Profit Maximization:
The r here is just the interest on loans, in another word, if the borrowing rate is 2 percent, . Alternatively, one could replace the r in the equation above by . The implication of just having r is that the K that was borrowed could be resold and so the firm does not need to generate revenue to pay for the principle borrowed, only the interest rate. If however, during the process of production, ther capital depreciates, then the firm would have to pay back more than r. In the extreme case where the capital fully gets used up and can not be resold for any value, then the cost term in the equation above becomes: . Finding Optimal Choices--Brute Force Grid
We can visualize the solution here like we do for the household savings problem
capital_grid=linspace(0, 1,choice_grid_count);
profit_at_capitalgrid=p*A*(capital_grid.^alpha)*(L^0.5)-(r*capital_grid);
[max_profit, max_profit_index]=max(profit_at_capitalgrid);
optimal_capital_choice = capital_grid(max_profit_index);
plot(capital_grid, profit_at_capitalgrid);
scatter(optimal_capital_choice, max_profit, 'filled');
xlabel('Capital Choices along Grid');
ylabel('Profit at different capital choices');
title({'Optimal capital choice (red dot) on feasible choice grid';...
['optimal capital = ', num2str(optimal_capital_choice)]});
Analytical Solution
You can use the symbolic toolbox to take derivative and find root:
fpi = p*A*K^(alpha)*L^0.5 - r*K
fpi = dPIdK = diff(fpi, K)
dPIdK = KOpti = solve(dPIdK == 0, K, 'REAL',true)
Warning: Solutions are valid under the following conditions: 0 < r/(A*L^(1/2)*alpha*p) & in((r/(A*L^(1/2)*alpha*p))^(1/(alpha - 1)), 'real'). To include parameters and conditions in the solution, specify the 'ReturnConditions' value as 'true'.
KOpti =
Demand Curve For Capital
With the optimal capital choice as a function of interest rate, we can plot out the demand for capital.
p=1.15; %From the question.
A=3; %You can pick a random number.
alpha=0.45; %You can pick a random number.
% Vector of interest rates
r = linspace(1.0,1.2,grid_points);
K= (r/(p*A*alpha*(L^0.5))).^(1/(alpha-1));
xlabel('Capital (Borrowed from Banks)');
title({'Inverse Demand For Capital'});
Demand and Supply Intersection
Combining the Firm's problem here, and the household's problem from the other file, we have the equilibrium result.
Note that you should adjust your interest rate range so that you can see the intersection. For the problem here, there exists an interest rate that clears the market for capital.
z=10;% from household problem
beta=0.80; % from household problem
p=1.15; %From the question.
A=3; %You can pick a random number.
alpha=0.45; %You can pick a random number.
% Vector of interest rates
r = linspace(1.0,1.2,grid_points);
Demand = (r/(p*A*alpha*(L^0.5))).^(1/(alpha-1));
Supply = (z*beta*(1+r)-(z/2))./((1+r)*(1+beta));
xlabel('Capital Demand and Supply');
title({'Inverse Demand and Supply For Capital'});
legend({'Demand', 'Supply'});