Problema 9d

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

PrecioDemanda[q_] := (3600 - q)/160 ;

PrecioOferta[q_] := q/200 ;

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

Cantidad de equilibrio antes de la intervención: 2000

Precio de equilibrio antes de la intervención: 10

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

Print["Producción objetivo: ", (qDespués = (1 + 10/100) qAntes)] ;

Print["Precio objetivo: ", (pDespués = (1 + 10/100) pAntes)] ;

Producción objetivo: 2200

Precio objetivo: 11

Clear[pc, pv, subsidio] ;

(sol = Solve[{pc == PrecioDemanda[qDespués], pv == PrecioOferta[qDespués], pv - pc == subsidio}, {pc, pv, subsidio}, Reals])//N

{{pc→8.75, pv→11., subsidio→2.25}}

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

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

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

Show[GraphicsArray[{{g1, g2}, {g3, g4}}], Frame→True, FrameLabel→ {None, None, "Política de subsidio", None}] ;

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

La ganancia de excedente para los consumidores es 2625. u.m.

La ganancia de excedente para los productores es 2100. u.m.

El gasto del gobierno (en negro) es 4950. u.m.

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

Clear[qC, qGobierno] ;

sol = Solve[{qDespués == qGobierno + qC, pDespués == PrecioDemanda[qC]}, {qC, qGobierno}, Reals]

{{qC→1840, qGobierno→360}}

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

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

Show[GraphicsArray[{{g1, g2}, {g3, g4}}], Frame→True, FrameLabel→ {None, None, "Política de precio soporte", None}] ;

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

La pérdida de excedente para los consumidores es 1920. u.m.

La ganancia de excedente para los productores es 2100. u.m.

El gasto del gobierno (en negro) es 3960. u.m. (Ahora tiene un montón de petróleo también)

Coste neto del programa (en rojo) es 3780. u.m. Recuérdese que ahora el gobierno tiene 360 miles de barriles de petróleo.


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