Problema 7

PrecioDemanda[q_] := (150 - q)/50 ;

PrecioOferta[q_] := (q - 60)/40 ;

qAntes = Solve[PrecioDemanda[q] == PrecioOferta[q], q, Reals] ;

qAntes = q/.qAntes[[1]] ;

pAntes = PrecioDemanda[qAntes] ;

Print["Cantidad de equilibrio antes de la intervención: ", qAntes] ;

Print["Precio de equilibrio antes de la intervención: ", pAntes] ;

FilledPlot[{PrecioDemanda[q], PrecioDemanda[qAntes], PrecioOferta[q]}, {q, 0, qAntes}, PlotRange→ {0, 3}] ;

Cantidad de equilibrio antes de la intervención: 100

Precio de equilibrio antes de la intervención: 1

[Graphics:../HTMLFiles/index_162.gif]

Clear[pc, pv] ;

impuesto = 1/2 ;

(sol = Solve[{pc == PrecioDemanda[q], pv == PrecioOferta[q], pc - pv == impuesto}, {q, pc, pv}, Reals])//N

{{q→88.8889, pc→1.22222, pv→0.722222}}

qDespués = q/.sol[[1]] ;

pc = pc/.sol[[1]] ;

pv = pv/.sol[[1]] ;

Show[GraphicsArray[{g1, g2}], Frame→True] ;

[Graphics:../HTMLFiles/index_173.gif]

La pérdida de excedente para los consumidores (rectángulo verde claro + triángulo rojo superior) es 20.9877 u.m.

La pérdida de excedente para los productores (rectángulo azul claro + triángulo rojo inferior) es 26.2346 u.m.

La recaudación del Estado (rectángulo verde claro + rectángulo azul claro) es 44.4444 u.m.

La pérdida de eficiencia (en rojo) es 2.77778 u.m.


Created by Mathematica  (March 18, 2007) Valid XHTML 1.1!