schema: EconSchema
aspectRatio: 1.6
params:
- name: t
value: 0
min: 0
max: 1
round: 0.1
calcs:
Qdom: (80-(calcs.Peq)(20))
Qdom2: (80-(0.5)(20))
QdomT: (50 + 10(params.t))
QdomT2: (70 + 10(params.t))
PdomRT: (((100-((calcs.QdomT)+20))/20))
PdomT: (calcs.Peq +(params.t)/(2))
PdomT2: (0.45 +(params.t)/(2))
Peq: (1.5)
Qest: (100- 20(calcs.Peq))
QestT: (70 - 10(params.t))
QestT2: (45 - 10(params.t))
PestT: (1.5 - (params.t)/2)
PestT2: (2.7 - (params.t)/2)
Qest3: (100-20(2.3))
QestT3: (100-20(2.1+params.t))
Qest4: (100-20(0.2))
QestT4: (100-20(0.4+params.t))
RT: ((calcs.QdomT)(params.t))
QDWL: (((calcs.PdomRT)-20)/(20))
QdomT3: (80-(2.4-params.t)(20))
Qdom3: (80-(2.2)(20))
Pdom3: ((100-(calcs.Qdom3+20))/20)
PdomT3: ((((100-((calcs.QdomT3+20)))/20)+params.t))
QdomT4: (80-(0.4-params.t)(20))
Qdom4: (80-(0.2)(20))
Pdom4: ((100-(calcs.Qdom4+20))/20)
PdomT4: ((((100-((calcs.QdomT4+20)))/20)+params.t))
QINT: (((80-40(calcs.Peq))))
QINT2: (40(calcs.PINT)-40)
PINT: ((3)-(params.t))/((2))
PINT2: ((80-(calcs.QINT2))/(40))
layout:
ThreeHorizontalGraphsPlusSidebar:
leftGraph:
xAxis:
min: 0
max: 100
ticks: 4
yAxis:
min: 0
max: 2.5
ticks: 4
objects:
#Curva de Demanda Doméstica
- Curve:
fn: "((100-(x+20))/20)"
ind: x
color: blue
min: 0
max: 180
show: (params.t>0)
lineStyle: solid
strokeWidth: 2
samplePoints: 250
##Curva de Demanda Doméstica + Impostos
- Curve:
fn: "(((100-((x+20)))/20)+params.t)"
ind: x
color: blue
strokeWidth: 4
lineStyle: solid
samplePoints: 300
#Curva de Oferta Doméstica
- Curve:
fn: "(((x)-20)/(20))"
ind: x
color: red
strokeWidth: 4
samplePoints: 300
label:
text: P_{of}(Q)
x: 68
fontSize: 8
- Segment:
a: [6, 2.5]
b: [6, 2.5]
color: black
label:
text: P_{dom}
position: r
- Segment:
a: [100, 0]
b: [100, 0]
color: black
label:
text: Q_{dom}
position: t
- Segment:
a: [100, calcs.Peq]
b: [0, calcs.Peq]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [calcs.Qdom, calcs.Peq]
b: [calcs.Qdom, 0]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [calcs.QdomT, calcs.PdomT]
b: [0, calcs.PdomT]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [calcs.QdomT, calcs.PdomT]
b: [calcs.QdomT, 0]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [calcs.Qdom, 0]
b: [calcs.Qdom, 0]
color: white
bgcolor: "'#d62728'"
label:
text: "`${calcs.Qdom.toFixed(2)}`"
position: t
fontSize: 9
- Segment:
a: [calcs.Qdom2, 0.45]
b: [calcs.Qdom2, 0.45]
color: blue
bgcolor: white
label:
text: "`P_{d}(Q)`"
fontSize: 8
- Segment:
a: [calcs.QdomT2, calcs.PdomT2]
b: [calcs.QdomT2, calcs.PdomT2]
color: blue
bgcolor: white
show: (params.t>0)
label:
text: "`P_{d}(Q)+t`"
fontSize: 8
- Segment:
a: [calcs.QdomT, 0]
b: [calcs.QdomT, 0]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.QdomT.toFixed(2)}`"
position: t
fontSize: 10
- Segment:
a: [5, calcs.Peq]
b: [5, calcs.Peq]
color: white
bgcolor: "'#d62728'"
label:
text: "`${calcs.Peq.toFixed(2)}`"
position: r
fontSize: 10
- Segment:
a: [5, calcs.PdomT]
b: [5, calcs.PdomT]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.PdomT.toFixed(2)}`"
position: r
fontSize: 10
- Point:
coordinates: [calcs.Qdom, calcs.Peq]
color: red
r: 5
- Point:
coordinates: [calcs.QdomT, calcs.PdomT]
color: black
r: 5
show: (params.t>0)
- Arrow:
begin: [calcs.Qdom3, calcs.Pdom3]
end: [calcs.QdomT3, calcs.PdomT3]
color: blue
show: (params.t>0.5)
trim: 0.09
- Arrow:
begin: [calcs.Qdom4, calcs.Pdom4]
end: [calcs.QdomT4, calcs.PdomT4]
color: blue
show: (params.t>0.5)
trim: 0.09
leftControls:
title: Economia Doméstica
middleGraph:
xAxis:
min: 0
max: 40
ticks: 4
yAxis:
min: 0
max: 2.5
ticks: 4
objects:
#Curva de Demanda do Comércio Internacional
- Curve:
fn: "((80-x)/(40))"
ind: x
color: "'#009640'"
min: 0
max: 180
show: (params.t>0)
lineStyle: solid
strokeWidth: 2
samplePoints: 250
#Curva de Oferta
- Curve:
fn: "(((x+40))/(40))"
ind: x
color: "'#f39332'"
strokeWidth: 4
samplePoints: 300
#Curva de Demanda + Impostos
- Curve:
fn: "((80-x)/(40))-(params.t)"
ind: x
color: "'#009640'"
strokeWidth: 4
samplePoints: 300
lineStyle: solid
- Segment:
a: [0, calcs.PINT]
b: [calcs.QINT2, calcs.PINT]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [calcs.QINT2, calcs.PINT]
b: [calcs.QINT2, 0]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [0, calcs.Peq]
b: [50, calcs.Peq]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [calcs.QINT, calcs.Peq]
b: [calcs.QINT, 0]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [0, calcs.PINT]
b: [0, calcs.PINT]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.PINT.toFixed(2)}`"
position: r
fontSize: 10
- Segment:
a: [0, calcs.PINT2]
b: [0, calcs.PINT2]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.PINT2.toFixed(2)}`"
position: r
fontSize: 10
- Segment:
a: [35, (((35+40))/(40))]
b: [35, (((35+40))/(40))]
color: "'#f39332'"
bgcolor: white
label:
text: "`X(Q)`"
fontSize: 7
- Segment:
a: [35, ((80-35)/(40))]
b: [35, ((80-35)/(40))]
color: "'#009640'"
bgcolor: white
label:
text: "`M(Q)`"
fontSize: 7
- Segment:
a: [30, (((80-30)/(40))-params.t)]
b: [30, (((80-30)/(40))-params.t)]
color: "'#009640'"
bgcolor: white
show: (params.t>0)
label:
text: "`M(Q)+t`"
fontSize: 7
- Segment:
a: [calcs.QINT2, 0]
b: [calcs.QINT2, 0]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.QINT2.toFixed(2)}`"
position: t
fontSize: 10
- Segment:
a: [calcs.QINT, 0]
b: [calcs.QINT, 0]
color: white
bgcolor: "'#d62728'"
label:
text: "`${calcs.QINT.toFixed(2)}`"
position: t
fontSize: 10
- Segment:
a: [0, calcs.Peq]
b: [0, calcs.Peq]
color: white
bgcolor: "'#d62728'"
show: (params.t==0)
label:
text: "`${calcs.Peq.toFixed(2)}`"
position: r
fontSize: 10
- Point:
coordinates: [calcs.QINT, calcs.Peq]
color: red
r: 5
- Segment:
a: [0, 2.5]
b: [0, 2.5]
color: black
bgcolor: white
label:
text: "`P_{int}`"
position: r
- Segment:
a: [50, 0]
b: [50, 0]
color: black
bgcolor: white
label:
text: "`Q`"
position: t
- Point:
coordinates: [calcs.QINT2, calcs.PINT]
color: black
show: (params.t>0)
r: 5
- Point:
coordinates: [calcs.QINT2, calcs.PINT2]
color: black
show: (params.t>0)
r: 5
- Area:
fn1: "calcs.PINT"
fn2: "calcs.PINT2"
fill: supply
opacity: 0.4
min: 0
max: calcs.QINT2
- Area:
fn1: "(((80-x)/(40)))"
fn2: "(((x+40))/(40))"
fill: grey
opacity: 0.8
min: calcs.QINT2
max: calcs.QINT
- Segment:
a: [2,calcs.PdomRT]
b: [2,calcs.PdomT]
color: supply
bgcolor: none
strokeWidth: 2
show: (params.t>0)
endArrow: true
label:
text: "`t`"
position: r
fontSize: 10
middleControls:
title: Comércio Internacional
rightGraph:
xAxis:
min: 0
max: 100
ticks: 4
yAxis:
min: 0
max: 2.5
ticks: 4
objects:
#Curva de Demanda Estrangeira
- Curve:
fn: "(((80-(x-20))/20))"
ind: x
color: blue
min: 0
max: 180
lineStyle: solid
strokeWidth: 2
samplePoints: 250
label:
text: "P_{d}(Q)"
x: 45
fontSize: 8
#Curva de Oferta
- Curve:
fn: "(((x)-40)/20)"
ind: x
color: red
strokeWidth: 4
samplePoints: 300
label:
text: P_{of}(Q)
x: 85
fontSize: 8
#Curva de Demanda + Impostos
- Curve:
fn: "(((80-(x-20))/(20))-(params.t))"
ind: x
color: blue
strokeWidth: 4
samplePoints: 300
lineStyle: solid
- Point:
coordinates: [calcs.Qest, calcs.Peq]
color: red
r: 5
- Point:
coordinates: [calcs.QestT, calcs.PestT]
color: black
r: 5
show: (params.t>0)
- Segment:
a: [0, 2.5]
b: [0, 2.5]
color: black
bgcolor: white
label:
text: "`P_{est}`"
position: r
- Segment:
a: [100, 0]
b: [100, 0]
color: black
bgcolor: white
label:
text: "`Q_{est}`"
position: t
- Segment:
a: [calcs.Qest, calcs.Peq]
b: [0, calcs.Peq]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [calcs.Qest, calcs.Peq]
b: [calcs.Qest, 0]
color: red
strokeWidth: 2
lineStyle: dotted
- Segment:
a: [calcs.QestT, calcs.PestT]
b: [0, calcs.PestT]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [calcs.QestT, calcs.PestT]
b: [calcs.QestT, 0]
color: green
strokeWidth: 2
lineStyle: dotted
show: (params.t>0)
- Segment:
a: [calcs.Qest, 0]
b: [calcs.Qest, 0]
color: white
bgcolor: "'#d62728'"
label:
text: "`${calcs.Qest.toFixed(2)}`"
position: t
fontSize: 9
- Segment:
a: [calcs.QestT, 0]
b: [calcs.QestT, 0]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.QestT.toFixed(2)}`"
position: t
fontSize: 10
- Segment:
a: [0, calcs.Peq]
b: [0, calcs.Peq]
color: white
bgcolor: "'#d62728'"
label:
text: "`${calcs.Peq.toFixed(2)}`"
position: r
fontSize: 10
- Segment:
a: [0, calcs.PestT]
b: [0, calcs.PestT]
color: white
bgcolor: "'#36a854'"
show: (params.t>0)
label:
text: "`${calcs.PestT.toFixed(2)}`"
position: r
fontSize: 10
- Segment:
a: [calcs.QestT2, calcs.PestT2]
b: [calcs.QestT2, calcs.PestT2]
color: blue
bgcolor: white
show: (params.t>0)
label:
text: "`P_{d}(Q)+t`"
fontSize: 8
- Arrow:
begin: [calcs.Qest3, 2.3]
end: [calcs.QestT3, 2.1]
color: blue
show: (params.t>0.5)
trim: 0.1
- Arrow:
begin: [calcs.Qest4, 0.4]
end: [calcs.QestT4, 0.2]
color: blue
show: (params.t>0.5)
trim: 0.2
rightControls:
title: Economia Estrangeira
sidebar:
controls:
- title: Efeito de uma Tarifa no Comércio Internacional
sliders:
- param: t
label: t
digits: 4
divs:
- html: Economia Doméstica Autarquia
- html : 'A curva de Demanda Doméstica de Autarquia é: $$DEM_{aut}:P_{dom}(Q)=\frac{100 - Q}{20}$$'
- html: 'A curva de Oferta Doméstica é dada por $$OF: P_{dom}(Q)=\frac{Q - 20}{20}$$'
- html: 'Os resultados de equilíbrio de autarquia são: $$P=2.00$$ $$Q=60.00$$'
- html: Economia Estrangeira Autarquia
- html : 'A curva de Demanda Estrangeira de Autarquia é: $$DEM_{aut}:P_{est}(Q)=\frac{80 - Q}{20}$$'
- html: 'A curva de Oferta Estrangeira é dada por $$OF: P_{est}(Q)=\frac{Q - 40}{20}$$'
- html: 'Os resultados de equilíbrio de autarquia são: $$P=1.00$$ $$Q=60.00$$'
- html: Demanda e Oferta Totais
- html: 'A curva de Demanda Total é dada pela soma das curvas de Demanda Diretas de cada economia: $$DEM_{int}=DEM_{dom} + DEM_{est}$$ $$\Longleftrightarrow$$ $$DEM_{int}: Q_{int}(P) = (100-20P)+(80-20P)$$ $$\Longleftrightarrow$$ $$DEM_{int}:Q_{int}(P)=180-40P$$ Resolvendo para P, encontramos: $$DEM_{int}: P(Q) = \frac{180-Q}{40}$$'
- html:
- html: 'A curva de Oferta Total é dada pela soma das curvas de Oferta Diretas de cada economia: $$OF_{int}=OF_{dom} + OF_{est}$$ $$\Longleftrightarrow$$ $$OF_{int}: Q_{int}(P) = (20+20P)+(40+20P)$$ $$\Longleftrightarrow$$ $$OF_{int}: Q_{int}(P)= 60+40P$$ Resolvendo para P, encontramos $$OF_{int}: P_{int}(Q)=\frac{Q-60}{40}$$'
- html: 'Os resultados de equilíbrio do Mundial são: $$P=1.50$$ $$Q=120.00$$'
- html: Comércio Internacional
- html: 'Como o preço de equlíbrio de autarquia na Economia Doméstica é maior do que na Economia Estrangeira, então a Economia Doméstica será Importadora de Q.'
- html: 'A função de importação (M) é obtida pela diferença entre a função da quantidade demandada e a função da quantidade oferta, ao preço de equilíbrio internacional, pela economia doméstica: $$M(P)=Q_{DEM}-Q_{OF}$$ $$\Longleftrightarrow$$ $$M(P)=(100-20P_{int})-(20+20P_{int})$$ $$\Longleftrightarrow$$ $$M(P)=80-40P_{int}$$ Resolvendo para $P_{int}$, obtemos: $$M:P(Q)=\frac{80-Q}{40}$$'
- html:
- html: 'A função de exportação (X) é obtida pela diferença entre a função da quantidade ofertada e a função da quantidade demandada, ao preço de equilíbrio internacional, pela economia estrangeira:$$X(P)=Q_{OF}-Q_{DEM}$$ $$\Longleftrightarrow$$ $$X(P)=(40+20P_{int})-(80-20P_{int})$$ $$\Longleftrightarrow$$ $$X(P)=-40-40P_{int}$$ Resolvendo para $P_{int}$, obtemos: $$X:P(Q)=\frac{40+Q}{40}$$ O equilíbrio é encontrado na igualdade entre ambas as curvas.'
- html: A introdução da Tarifa pela Economia Doméstica
- html: 'O acréscimo de uma tarifa (t) sobre a demanda por importações'
- html: '`$$P(Q)+t= \\frac{100 - Q}{20}$$ Como o preço de equilíbrio internacional é $p_{int}=1.5$, então $$1.5 + t= \\frac{100 - Q}{20}$$ Resolvendo para Q, encontramos a quantidade total demandada por Doméstica $$Q_{dom}=100-20(1.5+t)$$ Se subtrairmos a quantidade total demandada por Doméstica da quantidade ofertada por doméstica, então temos a quantidade importada em função da tarifa: $$Q_{imp}=Q_{dom}-Q_{of}$$ $$\\Longleftrightarrow$$ $$Q_{imp}=100-20(1.5+t)-50$$ $$\\Longleftrightarrow$$ $$Q_{imp}=50-20(1.5+t)$$ Substituindo da curva de demanda total de Doméstica: $$DEM_{dom}: P_{dom}(Q)=\\frac{100 - (Q_{dom}+Q_{imp})}{20}$$ $$\\Longleftrightarrow$$ $$DEM_{dom}: P_{dom}(Q)=\\frac{100 - (Q_{dom}+(50-20(1.5+t)))}{20}$$ Simplificando, encontramos $$DEM_{dom}: P_{dom}(Q)=\\frac{100 - (Q_{dom}+20)}{20}+ t$$ Fazendo o mesmo com a Curva de Demanda Estrangeira, encontramos $$DEM_{est}: P_{est}(Q) = \\frac{80-(Q-20)}{20} - t$$`'
- html:
- html: 'No Comércio Internacional, o acréscimo da Tarifa (t) sobre o preço é: $$M: P(Q)=\frac{80-Q}{40}$$ $$\Longleftrightarrow$$ $$M: P_{int}+t=\frac{80-Q}{40}$$ $$\Longleftrightarrow$$ $$M: P(Q)=\frac{80-Q}{40}- t$$'