# Carregar pacoteslibrary(ggplot2)library(tibble)# Gerar sequência de valores de qq <-seq(0, 12, by =0.1)# Definir funçõeslucro <-function(q) -(1/3) * q^3+4.5* q^2-8* q -30lucro_prime <-function(q) -q^2+9* q -8# Calcular valoresdf <-tibble(q = q,Pi =lucro(q),dPi =lucro_prime(q))# Gráfico da função lucroggplot(df, aes(x = q, y = Pi)) +geom_line(color ="#1f77b4", linewidth =1.2) +geom_vline(xintercept =8, linetype ="dashed", color ="gray") +geom_hline(yintercept =0, color ="black", linewidth =0.4) +labs(title ="Função Lucro",x ="Quantidade produzida (q)",y ="Lucro" ) +theme_minimal()
Código
# Gráfico da derivada da função lucroggplot(df, aes(x = q, y = dPi)) +geom_line(color ="#ff7f0e", linewidth =1.2) +geom_vline(xintercept =8, linetype ="dashed", color ="gray") +geom_hline(yintercept =0, color ="black", linewidth =0.4) +labs(title ="Derivada da Função Lucro",x ="Quantidade produzida (q)",y =expression(frac(d * Pi, dq)) ) +theme_minimal()
Código
# Função receita# receita = preço x quantidadepreco <-10tibble(q =1:12, R = q * preco) |>ggplot(aes(x = q, y = R)) +geom_line(color ="darkgreen", linewidth =1.2) +labs(title ="Função Receita",x ="Quantidade produzida (q)",y ="Receita" ) +theme_minimal()
Contexto Econômico
A firma opera em concorrência perfeita: ela é tomadora de preços, ou seja, aceita o preço de mercado como dado e não influencia seu valor. Neste caso, o preço de venda do bem é:
\[
p = 15
\]
A função de custo total da firma é:
\[
C(q) = \frac{1}{3}q^3 - 4{,}5q^2 + 23q + 30
\]
Essa função contém:
Um termo cúbico positivo, indicando que os custos marginais crescem rapidamente após certo ponto;
Um termo quadrático negativo, sugerindo possíveis ganhos de escala iniciais;
A firma obtém lucro crescente enquanto o custo marginal é inferior ao preço (receita marginal). À medida que \(q\) aumenta, o custo marginal se aproxima e ultrapassa o preço, e o lucro começa a cair.
A quantidade ótima \(q^* = 8\) é o ponto onde:
\[
CMg(q) = RMg(q) = 15
\]
Ou seja, a receita gerada por uma unidade adicional iguala o custo de produzi-la.
Esse ponto é o equilíbrio de produção de uma firma competitiva no curto prazo.