Problema 10

Clear[q, pAntes, pDespués, qAntes, qDespués] ;

PrecioDemanda[q_] := (70000 - q)/100 ;

PrecioOferta[q_] := (q - 35000)/100 ;

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, 700}] ;

Cantidad de equilibrio antes de la intervención: 52500

Precio de equilibrio antes de la intervención: 175

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

Elasticidad de la oferta: 0.333333;  Elasticidad de la demanda:  -0.333333

Clear[pc, pv] ;

impuesto = 10 ;

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

{{q→52000., pc→180., pv→170.}}

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

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

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

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

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

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

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

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

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


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