R Interativo — Oferta e Demanda

Carregando WebR (~10s na primeira vez)...

Edite o código e clique "Executar" R

# Oferta e Demanda — Estática Comparativa
# Cap. 1: O que é Microeconomia?

# Parâmetros (altere e re-execute!)
a_d <- 120    # intercepto da demanda
b_d <- 2      # inclinação da demanda
a_s <- 10     # intercepto da oferta
b_s <- 1.5    # inclinação da oferta

# Choque: aumento de renda desloca a demanda
choque <- 30  # desloca a demanda para a direita

# Equilíbrio original
Q_eq <- (a_d - a_s) / (b_d + b_s)
P_eq <- a_s + b_s * Q_eq

# Equilíbrio pós-choque
Q_eq2 <- (a_d + choque - a_s) / (b_d + b_s)
P_eq2 <- a_s + b_s * Q_eq2

cat("=== Equilíbrio Original ===\n")
cat(sprintf("  P* = %.2f,  Q* = %.2f\n", P_eq, Q_eq))
cat("\n=== Após choque de renda (+%d) ===\n", choque)
cat(sprintf("  P* = %.2f,  Q* = %.2f\n", P_eq2, Q_eq2))
cat(sprintf("  ΔP = %.2f,  ΔQ = %.2f\n", P_eq2 - P_eq, Q_eq2 - Q_eq))

# Gráfico
Q <- seq(0, 60, length.out = 200)
P_d  <- a_d - b_d * Q
P_d2 <- (a_d + choque) - b_d * Q
P_s  <- a_s + b_s * Q

plot(Q, P_d, type = "l", col = "#C8102E", lwd = 2,
     xlab = "Quantidade (Q)", ylab = "Preço (P)",
     main = "Oferta e Demanda — Estática Comparativa",
     xlim = c(0, 55), ylim = c(0, 130))
lines(Q, P_d2, col = "#C8102E", lwd = 2, lty = 2)
lines(Q, P_s,  col = "#2a7f2a", lwd = 2)

points(Q_eq,  P_eq,  pch = 19, col = "#333", cex = 1.5)
points(Q_eq2, P_eq2, pch = 19, col = "#C8102E", cex = 1.5)
arrows(Q_eq + 1, P_eq, Q_eq2 - 1, P_eq2,
       length = 0.12, col = "#ff9800", lwd = 2)

legend("topright",
       legend = c("Demanda (D)", "Demanda' (D')", "Oferta (S)"),
       col = c("#C8102E", "#C8102E", "#2a7f2a"),
       lty = c(1, 2, 1), lwd = 2, cex = 0.85)
text(Q_eq2 + 2, P_eq2 + 4,
     sprintf("(%0.f, %0.f)", Q_eq2, P_eq2),
     col = "#C8102E", font = 2, cex = 0.85)

Saída do R

Aguardando execução...

WebR executa R diretamente no navegador via WebAssembly — sem servidor. Altere os parâmetros de oferta, demanda e o choque para ver como o equilíbrio se desloca. Experimente: o que acontece se a oferta ficar mais inclinada (b_s maior)?