secretaria de estado de transportes do estado do pará - SETRAN

Loading...

SECRETARIA DE ESTADO DE TRANSPORTES DO ESTADO DO PARÁ

ESPECIFICAÇÃO DO MODELO B-MARIA-PA

RELATÓRIO 1 DO MÓDULO 2 – PRODUTO 3

SÃO PAULO DEZEMBRO/2008

ÍNDICE 1.

INTRODUÇÃO_____________________________________________________________ 1

2.

CARACTERÍSTICAS GERAIS DOS MODELOS B-MARIA E B-MARIA-PA __________ 3

3.

PRINCIPAIS EXTENSÕES DO MODELO B-MARIA-PA _________________________ 11

3.1.

INCORPORAÇÃO DE RETORNOS DE ESCALA NAS FUNÇÕES DE PRODUÇÃO REGIONAIS ___ 11

3.1.1. 3.2.

MODELAGEM DE CUSTOS DE TRANSPORTE ____________________________________ 13 3.2.1.1.

Montagem da Rede de Simulação _____________________________________ 18

3.2.1.2.

Custos da Rede____________________________________________________ 18

3.2.1.3.

Posicionamento dos Centróides _______________________________________ 20

3.2.1.4.

Uso da Ferramenta COST/MATRIX ___________________________________ 20

3.2.2. 3.3.

Integração na Fase de Simulação __________________________________________ 21

SISTEMA DE DEMANDA DAS FAMÍLIAS E INDICADORES DE BEM-ESTAR ______________ 22

3.3.1. 4.

A Tecnologia de Produção Modificada _____________________________________ 12

Medidas de Bem-Estar __________________________________________________ 24

FECHAMENTOS E TESTES _________________________________________________ 26

4.1.

CURTO PRAZO ___________________________________________________________ 26

4.2.

LONGO PRAZO ___________________________________________________________ 27

4.3.

TESTE DE HOMOGENEIDADE ________________________________________________ 27

5.

REFERÊNCIAS ___________________________________________________________ 29

6.

ANEXO __________________________________________________________________ 33

1.

INTRODUÇÃO

Um dos objetivos do Projeto (Módulo 2) é desenvolver um instrumental analítico, inspirado nos desenvolvimentos recentes da Nova Geografia Econômica (NGE), que seja capaz de lidar com a avaliação de políticas de transporte em um sistema inter-regional integrado. A estratégia será integrar um modelo econômico espacial (modelo inter-regional de equilíbrio geral comput-avel – IEGC) e um modelo de transporte, seguindo metodologia desenvolvida em Haddad (2004). Nosso ponto de partida será o modelo B-MARIA, desenvolvido por Haddad (1999). O modelo B-MARIA – e suas extensões – tem sido amplamente utilizado para a análise de impactos regionais de diferentes políticas. Desde a publicação do texto de referência, vários estudos foram elaborados utilizando, como instrumental básico de análise, variações do modelo original. Dentre estes estudos, destacam-se três Teses de Doutorado [Domingues (2002), Perobelli (2004) e Porsse (2005)] e uma Tese de Livre-Docência [Haddad, 2004)]. Além disso, revisões críticas do modelo podem ser encontradas no Journal of Regional Science (Polenske, 2002), no Economic Systems Research (Siriwardana, 2001) e no Papers in Regional Science (Azzoni, 2001). Estudos com o modelo B-MARIA e suas extensões têm-se aproveitado da flexibilidade do modelo para lidar com políticas que afetam setores e regiões de maneira diferenciada. A partir da estrutura básica do modelo, variações sobre suas características gerais (regionalização, setores, ano base) foram implementadas, juntamente com algumas extensões metodológicas (e.g. abertura do setor externo do modelo, desagregação mais fina das contas públicas). Alguns exemplos de aplicações incluem estudos prospectivos da dinâmica regional brasileira [Baer et al., (1998) e Haddad et al. (1999]; avaliação do processo de liberalização comercial no início dos anos 1990 [Haddad e Hewings (2000a) e Haddad e Azzoni (2001)]; avaliação dos impactos da implantação de uma nova planta automotiva no País [Haddad e Hewings (1999)]; estudo do componente de transporte do “Custo Brasil” [Haddad e Hewings (2001)]; avaliação metodológica dos coeficientes estruturais e parâmetros comportamentais do modelo [Haddad et al. (2002)]; avaliação dos 1

impactos regionais da formação da ALCA [Domingues (2002)]; desenvolvimentos metodológicos para avaliação de competição tributária (“guerra fiscal”) [Haddad e Domingues (2003) e Porsse (2005)]; análise das interações comerciais dos estados brasileiros [Perobelli (2004)]; e, finalmente, avaliação de impactos de alterações na rede de transportes [Haddad et al. (2007abc)]. Sendo assim, a estrutura teórica do modelo B-MARIA encontra-se muito bem documentada. Além dos textos de Haddad (1999) e Haddad e Hewings (1997), que apresentam detalhadamente o modelo, Domingues (2002) e Perobelli (2004) apresentam versões em português da especificação. Neste último caso, uma descrição pormenorizada do processo de calibragem da versão interestadual do modelo B-MARIA é apresentada. Seguindo a linha de disseminação mais ampla de modelos IEGC, sugerida Haddad (2004), um CD, contendo o código do modelo desenvolvido neste Projeto, bem como o banco de dados completo e todos os arquivos auxiliares necessários para a replicação dos resultados com o software GEMPACK1, acompanharão a versão final do trabalho.

1

http://www.monash.edu.au/policy/gempack. 2

2.

CARACTERÍSTICAS GERAIS DOS MODELOS B-MARIA E B-MARIA-PA

Antes de apresentarmos as principais modificações introduzidas no modelo B-MARIA, salientaremos algumas de suas características básicas, permitindo ao leitor situar-se em relação à estrutura teórica a ser utilizada. B-MARIA-PA é um modelo IEGC que apresenta uma estrutura teórica similar a do modelo B-MARIA. Ambos os modelos se inserem na tradição australiana de modelagem em equilíbrio geral; são modelos do tipo Johansen, em que a estrutura matemática é representada por um conjunto de equações linearizadas e as soluções são obtidas na forma de taxas de crescimento. Em termos de estrutura regional, a principal inovação no modelo B-MARIA-PA é o tratamento detalhado dos fluxos inter-regionis na economia brasileira, especificando mercados de origem e destino para as importações e exportações estaduais, com ênfase na economia do Estado do Pará. O modelo B-MARIA-PA dividirá a economia brasileira em aproximadamente 50 regiões ou zonas de tráfego, correspondentes a quase 30 regiões dentro do Pará e 20 regiões no resto do Brasil. Os dados utilizados para calibragem referem-se a 2004, sendo especificados até 8 setores produtivos e de bens de investimento em cada região (Tabela 1).2 Os setores produtivos utilizam três fatores primários locais (terra, capital e trabalho). A demanda final é composta pelo consumo das famílias, investimento, exportações, consumo dos governos regionais e do governo federal. Os governos regionais são fontes de demanda e gasto exclusivamente locais, englobando as esferas estadual e municipal da administração pública em cada região.

2

No código do modelo apresentado no Anexo, o setor comércio encontra-se agregado a outros serviços. 3

Tabela 1. Setores do Modelo B-MARIA-PA 1

Agropecuária

2

Extrativa mineral

3

Indústria de transformação

4

Construção

5

Transporte

6

Comércio

7

Administração pública

8

Outros serviços

O módulo central do modelo IEGC é composto por blocos de equações que determinam relações de oferta e demanda, derivadas de hipóteses de otimização e condições de equilíbrio de mercado. Além disso, vários agregados regionais e nacionais são definidos nesse bloco, como nível de emprego agregado, saldo comercial e índices de preços. A seguir, as principais características do modelo são descritas. A especificação da tecnologia de produção define três níveis de otimização no processo produtivo das firmas. No primeiro nível, é adotada a hipótese de combinação em proporção fixa no uso dos insumos intermediários e fatores primários, através de uma especificação de Leontief. No segundo nível, há possibilidade de substituição imperfeita entre insumos de origens doméstica e importada, de um lado, e entre terra, capital e trabalho, de outro. Finalmente, no terceiro nível, um composto dos insumos intermediários domésticos é formado pela combinação de insumos de diferentes origens. Os insumos domésticos podem vir de 50 regiões, enquanto as importações se originam de um único mercado externo. No modelo básico, uma função de elasticidade de substituição constante, CES, é utilizada na combinação dos insumos e fatores primários. O tratamento da estrutura de demanda das famílias é baseado num sistema combinado de preferências CES/Sistema Linear de Gastos (LES). As equações de demanda são derivadas 4

a partir de um problema de maximização de utilidade, cuja solução segue passos hierarquizados. No nível inicial existe substituição entre as diferentes fontes de oferta para os bens domésticos e importados. No nível superior subseqüente ocorre substituição entre o composto de bens domésticos e importados. A utilidade derivada do consumo do composto de bens domésticos é maximizada.3 Os investidores são uma categoria de uso da demanda final, responsáveis pela criação de capital em cada setor regional. Eles escolhem os insumos utilizados no processo de criação de capital através de um processo de minimização de custos sujeito a uma estrutura de tecnologia aninhada. Esta tecnologia é similar à tecnologia de produção setorial, com algumas adaptações. Como na tecnologia de produção, o bem de capital é constituído por insumos domésticos e importados. No terceiro nível, um agregado do conjunto dos insumos intermediários, domésticos e importados, é formado pela combinação de insumos de diferentes origens. Uma função CES é utilizada na combinação de bens de origens distintas. Os insumos domésticos têm origem nas 50 regiões. No segundo nível, há possibilidade de substituição entre o insumo composto doméstico e importado (novamente uma função CES é utilizada nessa combinação). Uma função de Leontief garante que a composição do bem de capital por setor seja fixa (nível 1). Diferentemente da tecnologia de produção, fatores primários não são utilizados diretamente como insumos para formação de capital, mas indiretamente através dos insumos na produção dos setores, especialmente no setor de construção civil. O nível de investimento em bens de capital por setor regional é determinado pelo bloco de equações de acumulação de capital. Dessa forma, dado o nível de investimento por setor, a demanda por insumos para criação de capital é determinada pela tecnologia de criação de capital descrita acima. Em relação à demanda por exportações, todos os bens são definidos com curvas de demanda negativamente inclinadas nos próprios preços no mercado mundial. Um vetor de elasticidades define a resposta da demanda externa a alterações no preço F.O.B. das

3

Discutiremos, mais adiante, as implicações desta especificação para a análise de bem-estar regional. 5

exportações regionais. Por hipótese, estas elasticidades são idênticas por região e diferenciadas por bem.4 A demanda do governo por bens públicos no modelo B-MARIA-PA parte da identificação do consumo de bens públicos por parte dos governos regionais e federal, obtida da matriz de insumo-produto. Entretanto, atividades produtivas exercidas pelo setor público não podem ser separadas daquelas exercidas pelo setor privado. Dessa forma, a atividade empreendedora do governo é determinada pela mesma lógica de minimização de custos empregada pelo setor privado. O consumo do bem público é especificado por uma proporção constante do consumo regional privado, no caso dos governos regionais, e do consumo privado nacional, no caso do governo federal. Uma característica própria do modelo B-MARIA-PA é a modelagem explícita de serviços de transporte e custos de movimentação de bens baseados em pares de origem e destino. Outras definições contidas no módulo central do modelo IEGC incluem: alíquotas de impostos, preços básicos e de mercado dos bens, receita com tributos, margens, componentes do produto nacional (PIB) e regional (PRB), índices de preços regionais e nacionais, preços de fatores, agregados de emprego e especificações das equações de salário. No bloco de acumulação de capital e investimento, estão definidas as relações entre estoque de capital e investimento. Existem duas configurações do modelo para exercícios de estática comparativa que permitem seu uso em simulações de curto prazo e longo prazo. A utilização do modelo em estática comparativa implica que não existe relação fixa entre capital e investimento; essa relação é escolhida de acordo com os requisitos específicos da simulação. Algumas qualificações são importantes quanto à especificação da formação de capital e investimento no modelo. Como discutido em Dixon et al. (1982), este tipo de modelagem

4

Perobelli (2004) relaxa esta hipótese, introduzindo elasticidades, econometricamente estimadas, diferenciadas por bem e por região. 6

se preocupa primordialmente com a forma como os gastos de investimento são alocados setorialmente e regionalmente, e não na determinação do investimento privado agregado em construções, máquinas e equipamentos, embora este resultado possa ser abarcado como subproduto. Além disso, a concepção temporal de investimento empregada não tem correspondência com um calendário exato; esta seria uma característica necessária se o modelo tivesse o objetivo de explicar o caminho de expansão do investimento ao longo do tempo. Destarte, a preocupação principal na modelagem do investimento é captar os efeitos dos choques na alocação do gasto de investimento corrente entre os setores e regiões. No módulo de mercado de trabalho e migração regional, a população em cada região é definida através da interação de variáveis demográficas, inclusive migração inter-regional, e também é estabelecida uma conexão entre população regional e oferta de trabalho. Dada a especificação do funcionamento do mercado de trabalho, a oferta de trabalho pode ser determinada por diferenciais inter-regionais de salário ou por taxas de desemprego regional, conjuntamente com variáveis demográficas, usualmente definidas exogenamente. Em resumo, tanto a oferta de trabalho como os diferencias de salário podem determinar as taxas de desemprego, ou, alternativamente, a oferta de trabalho e as taxas de desemprego podem determinar os diferenciais de salário. Existem pelo menos duas configurações possíveis para a especificação deste módulo. Na primeira, a população regional é exógena e pelo menos uma das varáveis do mercado de trabalho regional é determinada endogenamente: desemprego regional, taxa de participação regional ou salário regional relativo. Na segunda, as variáveis anteriores são exógenas e a migração regional é determinada endogenamente, e, desta forma, também a população regional.5

5

Neste caso, diferenciais inter-regionais de salário e taxas de desemprego regional são especificados exogenamente. Os blocos de mercado de trabalho e migração regional determinam a oferta de trabalho regional e a população regional para um conjunto de taxas de participação e taxas de população em relação à população em idade de trabalhar. 7

A primeira opção de especificação do mercado de trabalho permite a utilização de projeções dos fluxos populacionais (crescimento natural, migração regional e migração externa). Neste caso, o mercado de trabalho e o bloco de migração podem ser configurados para determinar a oferta de trabalho regional, dado os componentes especificados exogenamente. Com a oferta de trabalho determinada, o mercado de trabalho e o módulo de migração determinam: a) o diferencial inter-regional de salários (dada a taxa de desemprego regional); ou b) a taxa de desemprego regional (dado o diferencial interregional de salário). No primeiro caso, com a taxa de desemprego regional e a oferta de trabalho regional dadas, o emprego regional é determinado como resíduo e os diferenciais de salário se ajustam para acomodar o equilíbrio do mercado de trabalho. No segundo caso, os diferenciais de salário fixos determinam a demanda de trabalho de forma que, com a oferta de trabalho regional dada, o modelo determina as taxas de desemprego regional como resíduo. O módulo de finanças públicas incorpora equações determinando o produto regional bruto (PRB), do lado da renda e do dispêndio, para cada região, através da decomposição e modelagem de seus componentes. Os déficits orçamentários dos governos regionais e do governo federal estão definidos neste módulo. Este bloco define também as funções de consumo das famílias em cada região, as quais estão desagregadas nas principais fontes de renda e nos respectivos impostos incidentes. Finalmente, no módulo de acumulação de dívida externa, esta segue uma relação linear com a acumulação dos saldos comerciais externos, ou seja, os déficits comerciais são financiados por elevações na dívida externa. A especificação deste módulo é baseada no modelo ORANI-F (Horridge et al., 1993). Sem dúvida nenhuma, o modelo B-MARIA inclui explicitamente alguns elementos importantes de um sistema inter-regional, necessários para o melhor entendimento de fenômenos macro-espaciais: fluxos inter-regionais de bens e serviços, movimentos interregionais de fatores primários, custos de transporte baseados em pares de origem e destino, regionalização das transações do setor público e segmentação regional do mercado de 8

trabalho. Entretanto, o modelo básico ainda carece de algumas características importantes relacionadas ao tratamento de sistemas econômicos espaciais que merecem ser incorporadas. Por conseguinte, apresentaremos, na próxima seção, as modificações estruturais implementadas no modelo básico, a partir de Haddad (2004). As principais alterações referem-se tanto a diferentes especificações, com a inclusão de novas possibilidades teórico-analíticas, como a alterações no banco de dados.6 Em primeiro lugar, introduzimos a possibilidade de retornos de escala na produção. Esta extensão é essencial para espelhar adequadamente mecanismos de funcionamento de uma economia espacial. Uma segunda modificação refere-se à incorporação de ligações do modelo IEGC com um modelo de transporte georreferenciado, permitindo uma caracterização mais adequada da heterogeneidade do espaço econômico, em que se consideram, explicitamente, o papel da qualidade da infra-estrutura de transportes e a fricção da distância. Uma terceira alteração considera as propriedades da função utilidade para definir uma medida de bem-estar. No debate público sobre políticas públicas, como bem observam Dixon e Rimmer (2002), às vezes é necessário resumir os milhares de resultados provenientes de simulações com modelos EGC em apenas um ou dois números. Assim como no modelo MONASH, medidas de grande apelo político como efeitos sobre emprego, como veremos, podem apresentar resultados interessantes em simulações de curto prazo, ao se pressupor ajustes sob a hipótese de rigidez salarial. Entretanto, em simulações de longo prazo, variações no emprego agregado são de pouco interesse, uma vez que os pressupostos de ajuste consideram-nas insignificantes. Assim, nas análises subseqüentes dos resultados dos exercícios de simulação, consideraremos duas medidas básicas: a primeira, referente a variações percentuais no PIB (PRB) real (medida de crescimento); a segunda, referente à

6

Alterações no banco de dados serão comentadas no segundo relatório do Módulo 2 (Produto 9), após o processo de calibragem do modelo. 9

medida de variação equivalente (medida de bem-estar), incluída no modelo, em unidades monetárias do ano-base (R$ milhões de 2002). Além destas medidas, indicadores outros indicadores serão definidos.

10

3. 3.1.

PRINCIPAIS EXTENSÕES DO MODELO B-MARIA-PA7 INCORPORAÇÃO

DE

RETORNOS

DE

ESCALA

NAS

FUNÇÕES

DE

PRODUÇÃO

REGIONAIS A especificação da tecnologia de produção no modelo B-MARIA considera uma estrutura aninhada de funções CES em três níveis. As propriedades destas funções implicam na existência de retornos constantes de escala (Dixon et al., 1983). Como discutido em Haddad (2004), o tratamento de formas funcionais alternativas tem sido considerado sob duas abordagens, uma experimentalista e outra mais conservadora. Em nosso trabalho, adotamos ambas abordagens como princípio geral para a utilização de formas funcionais mais flexíveis. Alterações nas funções de produção regionais do setor da indústria de transformação, em cada uma das 50 regiões, são implementadas para que retornos nãoconstantes de escala sejam incorporados ao modelo, pressuposto fundamental para a análise de sistemas inter-regionais integrados. Mantemos a mesma hierarquia da estrutura de produção, por se mostrar extremamente conveniente para o processo de calibragem (Bröcker, 1998), mas modificamos as hipóteses sobre os valores dos parâmetros, chegando a uma forma funcional mais genérica. Este procedimento de modelagem permite-nos introduzir a possibilidade de existência de retornos de escala, de maneira sistemática, ao explorarmos propriedades locais de uma função CES. Muito cuidado deve ser tomado para que as propriedades de convexidade das formas funcionais adotadas sejam mantidas localmente para que a existência de equilíbrio seja garantida sob o ponto de vista teórico. Schmutzler (1999) aponta como uma das maiores contribuições da literatura recente da NGE a formalização de um arcabouço analítico coerente, que considera velhos conceitos amplamente conhecidos por cientistas regionais (e.g. forças centrípetas e centrífugas, considerações de equilíbrio geral e micro-fundamentação teórica). Como retornos crescentes constituem um dos elementos fundamentais para a explicação de padrões de aglomeração, verificados empiricamente, a abordagem tradicional de Arrow-Debreu seria

7

A especificação formal do modelo B-MARIA-PA é apresentada no Anexo. 11

inapropriada para lidar com questões de geografia econômica, por imprescindirem da hipótese de conjuntos de tecnologia convexos.8 A experimentação com efeitos de escala empreendida neste trabalho, inspirada por Whalley e Trela (1986), considera parâmetros que permitem que retornos de escala sejam incorporados na função de produção de um setor em uma região através de efeitos de escala paramétricos. Alterações na tecnologia de produção são introduzidas apenas no setor da indústria de transformação, para o qual há dados disponíveis para a estimação dos parâmetros relevantes. A estimação destes parâmetros proporciona estimativas pontuais para calibragem, bem como desvios-padrão para uso posterior em exercícios de análise de sensibilidade sistemática. A seguir, apresentaremos as principais modificações na especificação da tecnologia de produção do modelo B-MARIA. 3.1.1.

A Tecnologia de Produção Modificada

Retornos não-constantes de escala são introduzidos no grupo de equações relativas a demandas e preços de fatores primários, dentro da estrutura de produção aninhada. Como mencionado, apenas o setor da indústria de transformação sofre tal alteração, na medida em que a abordagem mais pragmática do tratamento de formas funcionais alternativas sugere a necessidade de estimar parâmetros relevante para novas especificações. Assim, devido à não disponibilidade de dados, os demais setores mantêm a tecnologia de produção padrão, exibindo retornos constantes de escala. As equações deste grupo especificam demandas setoriais por terra, capital e trabalho. Elas são derivadas sob a hipótese de que firmas representativas de um determinado setor escolhem insumos de fatores primários de forma a minimizar custos sujeito a obterem

8

Modelos EGC são comumente associados a hipóteses neoclássicas de funções convexas e monotônicas, e mercados competitivos, necessárias para a existência de um equilíbrio único. De outra forma, contudo, podese utilizar estruturas de modelagem e especificações funcionais para as quais provas de existência e unicidade não estejam disponíveis (Dervis et al.,1982). Em tais casos, a determinação da solução inicial do modelo torna-se uma questão meramente empírica. 12

quantidades suficientes destes insumos que satisfaçam os requisitos técnicos. Na especificação padrão, pressupõe-se que não haja substituição entre fatores primários e outros insumos, no primeiro nível da estrutura de produção. Assim, os requisitos de fatores primários do setor j são determinados pelo nível total de atividade setorial e por variáveis tecnológicas insensíveis a alterações de preços, que especificam o uso de fatores primários por unidade de produção. Neste ponto, a primeira modificação é introduzida: a demanda pelo composto de fatores primários passa a seguir uma especificação mais geral, em nível, como descrito abaixo:9 X 1PRIM ( j , q ) = A1( j , q ) * A1PRIM ( j , q ) * [α ( j , q ) Z ( j , q )]MRP ( j , q )

(1)

onde X1PRIM(j,q) é a demanda pelo composto de fatores primários do setor j na região r, A1 e A1PRIM são variáveis tecnológicas, Z(j,q) é o nível de atividade do setor j na região r,

α ( j , q ) é um coeficiente técnico de insumo-produto, e MRP(j,q) é um parâmetro de retornos de escala de fatores primários, específico por setor e região, com MRP( j , q) = 1 indicando retornos constantes, como na especificação original. Alterações das hipóteses sobre o parâmetro MRP(j,q) permitem-nos introduzir retornos crescentes de escala ( MRP( j , q) < 1 ) e retornos decrescentes de escala ( MRP( j , q ) > 1 ). Se os setores regionais exibem retornos constantes de escala ou não é uma questão empírica. Em forma de variação percentual, a equação (1) equivale à equação E_x1prim, no Anexo. Analogamente, os pressupostos sobre os parâmetros da função CES podem ser modificados para introduzir a possibilidade de existência de retornos não-constantes de fatores primários específicos. Em forma de variação percentual, as equações relevantes, no Anexo, são as equações E_curcap e E_efflab. Os parâmetros-chave, MRP e MRL/MRK, devem, então, ser estimados.

3.2.

MODELAGEM DE CUSTOS DE TRANSPORTE

O conjunto de equações especificando preços de venda no modelo B-MARIA-PA impõe lucros puros zero na distribuição dos bens para diferentes usuários. Preços pagos pelo bem

9

Nesta seção, a notação é a mesma do código do modelo em TABLO (ver Anexo). 13

i da região s na região q, por cada usuário, igualam-se à soma de seu valor básico e os custos adicionais com impostos e bens-margem. O papel dos bens-margem é facilitar os fluxos de bens dos pontos de produção (bens domésticos) ou pontos de entrada (bens importados) até os pontos de consumo ou pontos de saída (exportações). Bens-margem, ou simplesmente margens, incluem serviços de transporte e de comercialização, que abarcam, de maneira mais ampla, os custos de transferência.10 Considera-se que margens sobre bens utilizados pelos setores produtivos, investidores e famílias sejam produzidas na região consumidora; margens sobre exportações produzidas na região produtora. As equações de demanda por margens especificam demandas proporcionais aos fluxos dos bens com que as margens estão associadas. Além disso, um componente de mudança técnica também é incluído na especificação para permitir a simulação de mudanças nos custos de transporte. A forma funcional genérica utilizada para as equações de demanda por margens é apresentada abaixo:

XMARG(i, s, q, r ) = AMARG _ I ( s, q, r ) * [η (i, s, q, r ) * X (i, s, q, r )θ (i , s , q , r ) ]

(2)

onde XMARG(i,s,q,r) representa a margem r sobre o fluxo do bem i produzido na região s e consumido na região q, AMARG_I(s,q,r) é a variável tecnológica relacionada a fluxos específicos de origem e destino, η (i, s, q, r ) é a coeficiente de margem sobre fluxos básicos específicos, X(i,s,q,r) é o fluxo básico do bem i produzido na região s e consumido na região q, e θ (i, s, q, r ) é um parâmetro refletindo economias de escala de transporte. No modelo B-MARIA-PA, serviços de transporte são produzidos por um setor de transportes, otimizador, que demanda recursos escassos da economia para sua produção.11 Uma fronteira de possibilidade de produção (FPP) deve ser especificada para o setor de transportes, cuja produção é destinada diretamente para consumidores finais ou para

10 11

A partir deste ponto, serviços de transporte e margens de transporte serão utilizados de maneira similar. A discussão subseqüente dará enfoque a margens de transporte. 14

facilitar a comercialização de outros bens, ou seja, serviços de transporte são necessários para enviar bens do local de produção para o local de consumo. A modelagem explícita de tais serviços de transporte e dos custos de deslocamento da produção baseado em pares de origem e destino representa um grande avanço teórico em modelos IEGC (Isard et al., 1998), não obstante tornar sua estrutura menos tratável do ponto de vista operacional. Como será mostrado, o modelo é calibrado considerando o custo de transporte específico de cada fluxo de bens, proporcionando diferenciação espacial de preço. Neste sentido, o espaço tem um papel fundamental. A Figura 1 destaca a tecnologia de produção de um setor de transporte regional típico no modelo B-MARIA-PA, inserido na tecnologia de produção mais ampla. Setores de transporte regionais exibem retornos constantes de escala (estrutura aninhada de produção – Leontief/CES), utilizando, como insumos, compostos de bens intermediários – um conjunto contendo insumos similares de diferentes procedências.12 Capital e trabalho ofertados localmente são os fatores primários utilizados no processo produtivo. Finalmente, o setor regional paga impostos líquidos aos governos regionais e federal. A produção setorial é destinada aos mercados doméstico e internacional.

12

A hipótese de Armington é utilizada. 15

Figura 1. Fluxograma com a Tecnologia de Produção Regional no Modelo B-MARIA-PA (Destacando o Setor de Transporte) Governos regionais e federal

T e c n o l o g i a a n i n h a d a L e o n t i e f / F C E S

Setores produtivos

Setor de transporte

Composto de insumos intermediários

Trabalho

Capital

Terra agrícola

Outros custos

Bens locais

Serviços de transporte

Exportações

T e c n o l o g i a a n i n h a d a L e o n t i e f / C E S

Como já mencionado, a oferta do setor de transporte atende demandas por bens-margem e não-margem. Naquele caso, a Figura 2 ilustra o papel de serviços de transporte no processo de facilitação de fluxos de bens. Em uma dada região consumidora, serviços de transporte produzidos localmente proporcionam o principal mecanismo de atração física de produtos (insumos intermediários, e bens de capital e de consumo) de diferentes origens (local, outras regiões, outros países) para dentro das fronteiras regionais. Além disso, exportadores

16

utilizam serviços de transporte locais para enviar os bens a serem exportados do local de produção para o respectivo porto de saída. Figura 2. O Papel dos Serviços de Transporte no Modelo B-MARIA-PA: Fluxograma Ilustrativo em um Sistema Integrado com Duas Regiões Balança comercial internacional

Importações

Exportações

Exportações

Importações

S e r v i ç o s d e t r a n s p o r t e

Composto de insumos intermediários

Composto de bens de capital

Fronteira regional

Fronteira nacional

Composto de insumos intermediários

Bens locais

Balança comercial inter-regional

Composto de bens de consumo

Bens locais

Região A

Composto de bens de capital

Composto de bens de consumo

S e r v i ç o s d e t r a n s p o r t e Região B

A modelagem explícita dos custos de transporte, que considera a estrutura espacial da economia brasileira, cria a possibilidade de integração do modelo IEGC com um modelo de rede de transporte georreferenciado, acentuando o potencial deste arcabouço analítico para a compreensão do papel da infra-estrutura no desenvolvimento regional. Duas opções para integração são disponíveis – am arg_ i ( s, q, r ) e θ (i, s, q, r ) –, utilizando a versão linearizada do modelo, em que a equação (2) se torna:13 xm arg(i, s, q, r ) = am arg_ i ( s, q, r ) + θ (i, s, q, r ) * x (i, s, q, r )

(3)

Considerando um modelo de rede de transporte georreferenciado, pode-se simular alterações no sistema que afetam a acessibilidade relativa das regiões (e.g. melhorias nas

13

Equações E_x1marg a E_x6marg no Anexo. 17

rodovias, investimentos em novos trechos viários). Uma matriz de custos de transporte entre pontos pré-estabelecidos (zonas de tráfego) pode ser estimada, ex ante e ex post, e mapeada para o modelo IEGC. Este mapeamento inclui dois estágios: um primeiro associado à fase de calibragem do modelo, e um segundo à fase de simulação. 1.1.1.

Metodologia para Montagem da Matriz de Custos de Transporte

A matriz de custo de transporte em 2004 entre zonas de tráfego será montada com o auxílio do software TransCad, percorrendo as seguintes etapas: ¾ Montagem da rede de simulação representativa do ano 2004; ¾ Atribuição de custos de transporte a cada trecho da rede; ¾ Posicionamento dos centróides das zonas de tráfego; ¾ Uso da ferramenta Cost Matrix do TransCad.

Cada uma destas etapas é descrita a seguir com maiores detalhes. 3.2.1.1.

Montagem da Rede de Simulação

Nessa etapa do projeto, qual seja a determinação de custos de transporte entre as zonas de tráfego, será utilizada uma rede multimoda. A caracterização da rede de rodoviária dar-se-á, para o Pará, através do detalhamento de informações geo-referenciadas da rede, disponíveis no banco de dados da Consultora. Levantamentos de fontes adicionais serão utilizados para verificar ou incluir, se possível, informações relativas a relevo, velocidade, sinuosidade, capacidade, condições do pavimento, tipo de pista (dupla, simples), tipo de pavimento (asfalto, terra). Para a rede dos demais estados, menos detalhadas que a do Pará, serão utilizados dados da Pesquisa Rodoviária CNT e do Sistema de Gerência de Pavimentos (SGP) do DNIT. 3.2.1.2.

Custos da Rede

Adotar-se-á o modelo de custos rodoviários preconizado pelo HDM-4 (Highway Development and Management), mais especificamente seu sub-modelo RUE (Road User 18

Effects), que calcula os custos operacionais de veículos em função das características físicas da infra-estrutura viária. Três parâmetros básicos serão considerados para a caracterização desta infra-estrutura: relevo, tipo de pista e condição do pavimento. O quadro a seguir mostra as classificações possíveis dentro de cada um desses parâmetros. Quadro 1. Classificações Possíveis para Caracterização da Infra-Estrutura Rodoviária Relevo

Plano Levemente Ondulado Ondulado Fortemente Ondulado Montanhoso

Tipo de Pista

Condição do Pavimento

Simples 3ª faixa Dupla Terra

Bom Regular Mau Péssimo

Da combinação entre esses itens, resultam 80 tipos de links diferentes, para os quais são obtidos custos operacionais, em cada categoria de veículo considerada. No presente estudo, focado na análise do transporte de cargas, são consideradas três categorias de caminhões: de 2 eixos, de 3 eixos e de mais de 3 eixos. Além dos custos operacionais, cada link da rede pode também apresentar um custo de pedágio, que deverá ser acrescido aos primeiros para o cálculo do custo generalizado, conforme equação a seguir. CGV = (Tv.CTvrp ) + ( Drp.CDvrp ) + CPv

(4)

sendo: CGV = custo generalizado do veículo v percorrendo um link i;

Tv = tempo de percurso do trecho pelo veículo v; CTvrp = parâmetro do custo operacional por unidade de tempo, para o veículo v percorrer

um link da categoria rp (r = tipo de relevo e p = condição do pavimento); 19

Drp = extensão do link da categoria rp; CDvrp = parâmetro do custo operacional por unidade de distância, para o veículo v

percorrer o link da categoria rp; CPv = custo próprio do link, podendo ser “zero”, na ausência de pedágio, ou o valor da

tarifa, caso exista um posto de pedágio no link. Enquanto o parâmetro CTvrp relaciona-se aos custos fixos do veículo (capital, tripulação etc.), que variam com o tempo de viagem, o parâmetro CDvrp corresponde aos custos variáveis (combustível, lubrificantes, manutenção, rodagem etc.), os quais se relacionam à distância percorrida e às características do relevo (r) e condições do pavimento (p) do link. Ao final do processo, todos os links da rede possuem um custo generalizado para ser atravessado, por categoria de veículo. 3.2.1.3.

Posicionamento dos Centróides

Os mais de cinco mil municípios brasileiros são agregados em 50 zonas de tráfego, sendo 30 internas ao Pará. Essa agregação espacial será a mesma a ser utilizada na Pesquisa O-D, desenvolvida noi âmbito deste Projeto, repetida no presente estudo de forma consensual entre os agentes envolvidos. Na rede de simulação, cada zona de tráfego é representada por um ponto (centróide), de onde partem e chegam todas as viagens geradas pela zona. É necessário que se posicione de forma coerente cada centróide, em um local representativo da zona de tráfego e com acesso à infra-estrutura de transportes. 3.2.1.4.

Uso da Ferramenta COST/MATRIX

Após a montagem da rede, atribuição de custos aos links e definição do posicionamento dos centróides, utiliza-se a ferramenta Cost Matrix do Transcad, que gera uma matriz de custos através da minimização de caminhos entre as zonas de tráfego.

20

A variável escolhida para a minimização será o custo generalizado, sendo também computados, em cada um dos caminhos escolhidos, a distância percorrida e o tempo de viagem. A matriz gerada possuirá 2.500 células, equivalentes ao produto de 50 zonas de origem e 50 zonas de destino. 3.2.2.

Integração na Fase de Simulação

Ao efetuarmos simulações com o modelo B-MARIA-PA, podemos estar interessados na consideração de mudanças na rede física de transporte. Por exemplo, pode-se querer avaliar os impactos econômicos macro-espaciais de um investimento em uma nova rodovia, de gastos na melhoria da malha rodoviária, ou mesmo da adoção de um sistema de pedágio em um determinado trecho, sendo que todas estas alterações acarretam impactos diretos sobre os custos de transporte, seja reduzindo tempo de viagem, seja aumentando diretamente os custos monetários. O desafio que se coloca, no contexto deste trabalho, é encontrar alternativas metodológicas para traduzir os efeitos de tais políticas em mudanças na matriz de custos de transporte, espelhando potenciais reduções/aumentos na eficiência das transações entre dois ou mais pontos no espaço. Tal matriz servirá como base de integração do modelo de transporte e do modelo IEGC, na fase de simulação. Uma forma de integrar seqüencialmente os dois modelo requer a utilização da variável amarg_i(s,q,r) ou do parâmetro θ (i, s, q, r ) , na equação (3), como elemento de ligação. Alterações na matriz de custos de transporte entre as zonas de tráfego são calculadas a partir de informações sobre alterações nos parâmetros do modelo RUE, de modo tal que uma interface com o modelo IEGC seja criada. Como na especificação das equações de demanda por margens de transporte a variável distância é representada implicitamente no parâmetro η (i, s, q, r ) , devemos encontrar maneiras como incorporar adequadamente as informações geradas pelo modelo de transporte. Como veremos, alterações nas tarifas de transporte específicas, presentes no modelo B-MARIA-PA, podem ser facilmente associadas a mudanças na matriz de custos de transporte. 21

No modelo B-MARIA-PA, informações sobre tarifas de transporte estão disponíveis, possibilitando a utilização de uma função de custo de transporte consistente com o modelo. Assim, alterações nos custos de transporte podem ser estimadas e incorporadas ao modelo IEGC, como segue. Re-arranjando a equação (2), temos: XMARG (i, s, q, r ) = AMARG _ I ( s, q, r ) *η (i, s, q, r ) X (i, s, q, r )θ (i , s , q , r )

(5)

com θ (i, s, q, r ) = 1 implicando que o lado esquerdo da equação (5) torna-se a tarifa de transporte específica. Uma variação percentual na tarifa de transporte pode, então, ser mapeada na variável tecnológica, AMARG_I(s,q,r). Assim, em forma de variação percentual, amarg_i(s,q,r) torna-se a variável relevante de integração entre o modelo de transporte e o modelo IEGC, já que: xm arg(i, s, q, r ) − x (i, s, q, r ) = am arg_ i ( s, q, r )

(6)

O parâmetro θ (i, s, q, r ) também poderia ser utilizado na fase de simulação, especialmente em exercícios de análise de sensibilidade. Suponhamos, por exemplo, que efeitos de escala para transporte sejam evidentes para um determinado bem, em um trecho específico (e.g. transporte de minério de ferro de Carajás para o MA). Alterações nos pressupostos sobre os valores de θ (i, s, q, r ) permitem endereçar este tipo de problema de maneira mais adequada do que a utilização de hipóteses alternativas sobre a variável de ligação, AMARG_I(s,q,r). A este respeito, Cukrowski e Fischer (2000), e Mansori (2003) mostram que há implicações espaciais relevantes associadas a retornos crescentes para transporte, o que merece ser considerado de maneira cuidadosa. 3.3.

SISTEMA DE DEMANDA DAS FAMÍLIAS E INDICADORES DE BEM-ESTAR

O modelo B-MARIA-PA adota a mesma especificação de demanda das famílias do modelo MONASH-MRF (Peter et al., 1996). Consumo é especificado através de ralações de preços e gastos, que satisfazem condições de maximização de utilidade. Cada família

22

representativa regional maximiza uma função utilidade Stone-Geary sujeita a uma restrição orçamentária. A função utilidade per capita Stone-Geary ou Klein-Rubin, que possui a forma de uma Cobb-Douglas, é dada por: Ur = ∑ i

∑β

r i

1 βr ( X ((i3•))r − γ (ri ) ) ( i ) r Q

i = i,..., g ; r = 1,..., R

(7)

=1

i

onde

β(ri)

X ((i3•))r

é o consumo agregado do bem i na região r, e

γ (ri)

(quantidade de subsistência) e

(participação orçamentária marginal sobre gastos totais em bens de luxo) são vetores

de parâmetros. Como observado por Peter et al. (1996), uma característica da função utilidade Stone-Geary é que apenas o componente de gastos acima do nível de subsistência, ou gastos em bens de luxo, afeta a utilidade per capita. O sistema de demanda regional resultante implica que a quantia gasta em cada bem acima do nível de subsistência,

(( X ((i3•))r − γ (ri ) ) P((k3•))r )

, é dada por uma participação constante no total

gasto em bens de luxo: ( X ((i3•))r − γ (ri ) ) P((k3•))r = β (ri ) ∑ (X ((k3•) r) − γ (rk ) ) P((k3•))r k

(8)

Vale salientar que, no modelo B-MARIA-PA, as preferências das famílias são descritas por uma função utilidade aninhada em três níveis. Juntamente com a equação (8), funções de demanda por bens de origens distintas, especificadas dentro da estrutura aninhada (Dixon e Rimmer, 2002), determinam a composição dos bens demandados pelas famílias. O consumo total das famílias, por sua vez, é determinado pela renda disponível das famílias residentes, cuja definição inclui os vários componentes de receitas e despesas das famílias representativas da região (Figura 3).

23

Figura 3. Fluxograma com os Fluxos Relevantes para a Família Representativa Regional no Modelo B-MARIA-PA Governos regionais e federal

3.3.1.

P r e f e r ê n c i a s

Família representativa regional

S t o n e G e a r y

Trabalho

Composto de bens de consumo

Poupança

Capital

Terra agrícola

Medidas de Bem-Estar

A especificação do sistema de demanda das famílias no modelo B-MARIA-PA possibilita o cálculo de medidas de bem-estar. Mais especificamente, podemos calcular a variação equivalente (EV) associada a uma mudança de política. A variação equivalente pode ser definida como o valor monetário que seria necessário transferir para uma família representativa, se uma mudança de política não ocorresse, para manter o mesmo nível de utilidade observado caso a mudança tivesse ocorrido (Layard e Walters, 1978). A medida Hicksiana de EV consideraria o cálculo da mudança hipotética na renda ao nível de preços do novo equilíbrio (Bröcker e Schneider, 2002); alternativamente, podemos mensurar a EV

24

como a mudança monetária no nível de renda inicial que uma família representativa necessitaria para atingir o novo nível de utilidade considerando os preços vigentes no equilíbrio inicial. Mais precisamente, para funções de utilidade homogêneas lineares, EV pode ser escrito, para uma dada, região como (Almeida, 2003): ⎛ U r (1) − U r EV r = ⎜⎜ Ur ⎝

⎞ r ⎟⎟ I ⎠

(9)

r onde U (1) é o nível de utilidade contra-factual, ou seja, depois da mudança de política,

U r é nível de utilidade referencial ou de benchmark, ou seja, antes da mudança de política, r e I é a renda disponível referencial (benchmark) aos preços referenciais; o sobrescrito r

refere-se a regiões específicas. Percebe-se que EV possui o mesmo sinal da direção da mudança de bem-estar: para um ganho (perda) de bem-estar, seu sinal é positivo (negativo). Além das medidas regionais, podemos calcular uma medida agregada (nacional) simplesmente somando os vários EVr, para todo r. Outra medida de bem-estar bastante informativa refere-se à variação equivalente relativa (REV), que é definida como a variação percentual da renda referencial que a família representativa necessitaria para atingir o nível de utilidade contra-factual considerando os preços referenciais (Bröcker, 1998). Ou seja:

REV r =

EV r Ir

(10)

25

4.

FECHAMENTOS E TESTES

A versão reduzida do modelo B-MARIA-PA contém aproximadamente 140.000 equações e 350.000 variáveis. Assim, para fechar o modelo, 210.000 variáveis devem ser determinadas exogenamente. Dois fechamentos distintos possibilitam a sua utilização para simulações de estática comparativa de curto e longo prazo. A distinção básica entre eles está relacionada ao tratamento empregado na abordagem microeconômica do ajustamento do estoque de capital. No ambiente de curto-prazo, os estoques de capital são mantidos fixos, enquanto que, no longo prazo, mudanças de política são passíveis de afetar os estoques de capitais em cada região.14 Como o modelo trabalha com preços relativos, alguma variável de preço deve ser escolhida como numerário. As opções na literatura recaem sobre o índice de preços ao consumidor ou sobre a taxa de câmbio. Neste trabalho, as simulações foram efetuadas com a taxa de câmbio como numerário, e, portanto, exógena com choque nulo. Dessa forma, não existe uma política cambial definida exogenamente ou determinada endogenamente para obter alguma meta de superávit comercial ou inflação. A seguir, detalhes dos fechamentos implementados são apresentados.

4.1.

CURTO PRAZO

Além da hipótese de imobilidade intersetorial e inter-regional do capital, este fechamento especifica população regional e oferta de trabalho fixas, diferenciais regionais de salário constantes e salário real nacional fixo. O emprego regional é função das hipóteses sobre taxas de salário, que indiretamente determinam as taxas de desemprego regionais. Estas hipóteses procuram captar, da maneira mais próxima possível, a realidade do funcionamento do mercado de trabalho no Brasil. Primeiramente, variações na demanda por trabalho são atendidas via variações na taxa de desemprego, ao invés de afetarem o salário real. Este parece ser o caso brasileiro, dado o elevado nível de desemprego disfarçado na maior parte do país, onde o excesso de oferta de trabalho aparece como uma característica distinta da economia brasileira. Em segundo lugar, a imobilidade inter-

14

Sobre fechamentos em modelos EGC ver, por exemplo, Dixon e Parmenter (1996) e Dixon et al. (1982). 26

regional de trabalho no curto prazo sugere que migração é uma decisão de longo prazo. Finalmente, diferenciais nominais de salário no Brasil são persistentes e refletem a segmentação geográfica da força de trabalho. Do lado da demanda, os gastos de investimento são exógenos – as firmas não podem reavaliar decisões de investimento no curto prazo. O consumo das famílias segue sua renda disponível, e o consumo do governo, em ambos os níveis, é fixo (alternativamente, o déficit do governo pode ser definido exogenamente, permitindo a alteração dos gastos do governo). Por fim, as variáveis de choque tecnológico são exógenas, dado que o modelo não apresenta nenhuma teoria de crescimento endógeno.

4.2.

LONGO PRAZO

O modelo também pode ser utilizado num fechamento de equilíbrio de longo prazo (steady-

state) no qual capital e trabalho podem se deslocar intersetorialmente e inter-regionalmente. As principais diferenças em relação ao curto prazo estão na configuração do mercado de trabalho e acumulação de capital. No primeiro caso, o emprego agregado é determinado pelo crescimento da população, taxas de participação da força de trabalho, e taxa natural de desemprego. A distribuição espacial e setorial da força de trabalho é totalmente determinada endogenamente. Trabalho é atraído para os setores mais competitivos nas áreas geográficas mais favorecidas. Da mesma forma, capital é orientado em direção aos setores mais atrativos. Este movimento mantém as taxas de retorno do capital em seus níveis iniciais. Pode-se, também, considerar variações na taxa de câmbio como mecanismo equilibrador do balanço de pagamentos. Para tal fim, o saldo da balança comercial deve ser determinado exogenamente (e um novo numerário definido).

4.3.

TESTE DE HOMOGENEIDADE

Após sua implementação e calibragem, um teste do modelo será efetuado para checar possíveis erros computacionais e de balanceamento do banco de dados. Dada a estrutura teórica do modelo, homogêneo de grau zero para alterações do numerário, um teste de homogeneidade pode ser implementado. Este teste consiste em aplicar um choque de 1% no

27

numerário do modelo (a taxa de câmbio) no fechamento de curto prazo. O resultado esperado é que todas as variáveis nominais aumentem em 1%, e todas as variáveis reais (quantidades) permaneçam inalteradas.

28

5.

REFERÊNCIAS

Almeida, E. S. (2003). “Um Modelo de Equilíbrio Geral Aplicado Espacial para Planejamento e Análise de Políticas de Transporte”. Tese de Doutorado, São Paulo, FEA/USP. Azzoni, C. R. (2001). “Book Review: Regional Inequality and Structural Changes – Lessons from the Brazilian Experience”. Papers in Regional Science, 83(2). Baer, W., Haddad, E. A. e Hewings, G. J. D. (1998). “The Regional Impact of Neo-Liberal Policies in Brazil”. Revista de Economia Aplicada, 2(2). Bröcker, J. (1998). “Operational Coputable General Equilibrium Modeling”. Annals of Regional Science, 32: 367-387. Bröcker, J. e Schneider, M. (2002). “How does Economic Development in Eastern Europe Affect Austria’s Regions? A Multiregional General Equilibrium Framework”, Journal of Regional Science, 42(2): 257-285. Cukrowski, J. e Fischer, M. M. (2000). “Theory of Comparative Advantage: Do Transportation Costs Matter?”, Journal of Regional Science, 40(2): 311-322. Dervis, K. J., De Melo, J. e Robinson, S. (1982). General Equilibrium Models for Development Policy. A World Bank Research Publication. Cambridge University Press, Cambridge. Dixon, P. B., Bowles, S. e Kendrick, D. (1983). Teoría Microeconómica: Notas y Problemas. Barcelona, Editorial Hispano Europea. Dixon, P. D. e Parmenter, B. R. (1996). “Computable General Equilibrium Modeling for Policy Analysis and Forecasting”. In: H. M. Amman, D. A. Kendrick e J. Rust (Eds.), Handbook of Computational Economics, 1: 3-85, Amsterdam, Elsevier. Dixon, P. D., Parmenter, B. R., Sutton, J. e Vincent, D. P. (1982). ORANI: A Multisectoral Model of the Australian Economy, Amsterdam, North-Holland.

29

Dixon, P. D. e Rimmer, M. T. (2002). Dynamic General Equilibrium Modelling for Forecasting and Policy: A Practical Guide and Documentation of MONASH, Amsterdam, North-Holland. Domingues, E. P. (2002). “Dimensão Regional e Setorial da Integração Brasileira na Área de Livre Comércio das Américas”. Tese de Doutorado, São Paulo, FEA/USP. Domingues, E. P. e Haddad, E. A. (2003). “Política Tributária e Re-localização”. Revista Brasileira de Economia, 57(4). Haddad, E. A. (1999). Regional Inequality and Structural Changes: Lessons from the Brazilian Experience. Aldershot, Ashgate. Haddad E. A. e Azzoni, C. R. (2001) “Trade Liberalization and Location: Geographical Shifts in the Brazilian Economic Structure”. In: J. J. M. Guilhoto e G. J. D. Hewings (eds), Structure and Structural Change in the Brazilian Economy. Aldershot, Ashgate. Haddad, E. A. e Hewings, G. J. D. (1997). “The Theoretical Specification of B-MARIA”. Discussion Paper REAL 97-T-5, Regional Economics Applications Laboratory, University of Illinois at Urbana-Champaign, November. Haddad, E. A. e Hewings, G. J. D. (1999). “The Short-Run Regional Effects of New Investments and Technological Upgrade in the Brazilian Automobile Industry: An Interregional CGE Analysis”. Oxford Development Studies, Special Issue on Technology and Economic Development, 27(3): 359-383. Haddad, E. A., e Hewings, G. J. D. (2000). “Trade and Regional Development: International and Interregional Competitiveness in Brazil”. In: B. Johansen e R. Stough (Eds.), Theories of Regional Development: Lessons for Policies of Regional Economic Renewal, Springer-Verlag.

30

Haddad, E. A. e Hewings, G. J. D. (2001). “Transortation Costs and Regional Development: An Interregional CGE Analysis”. In: P. Friedrich e S. Jutila (Eds.), Policies of Reginal Competition, , Nomos Verlagsgeselschft, Baden-Baden. Haddad, E. A., Hewings, G. J. D. e Baer, W. (1999). “The Spatial Formation of the Brazilian Economy: Historical Overview and Future Trends”. Geographia Polonica, 72(1). Haddad, E. A., Hewings, G. J. D. e Peter, M. (2002). “Input-Output Systems in Regional and Interregional CGE Modeling”. In: Hewings, G. J. D., Sonis, M. and Boyce, D. (Eds.). Trade, Networks and Hierarchies. Berlin, Springer-Verlag. Horridge, M., Parmenter, B. R., e Pearson, K. R. (1993). “ORANI-F: A General Equilibrium Model of the Australian Economy. Economic and Financial Computing, 3:71-140. Isard, W., Azis, I. J., Drennan, M. P., Miller, R. E., Saltzman, S. and Thorbecke, E. (1998). Methods of Interregional and Regional Analysis, Aldershot, Ashgate. Layard P. R. G. e Walters, A. A. (1978). Microeconomic Theory. McGraw-Hill. Mansori, K. F. (2003). “The Geographic Effects of Trade Liberalization with Increasing Returns in Transportation”. Journal of Regional Science, 43(2): 249-268. Perobelli, F. S. (2004). “Análise das Interações Econômicas entre os Estados Brasileiros”. Tese de Doutorado, São Paulo, FEA/USP. Peter, M. W., Horridge, M., Meagher, G. A., Naqvi, F. e Parmenter, B. R. (1996). “The Theoretical Structure Of MONASH-MRF”. Preliminary Working Paper no. OP-85, IMPACT Project, Monash University, Clayton, April. Polenske, K. R. (2002). “Book Review: Regional Inequality and Structural Changes – Lessons from the Brazilian Experience”. Journal of Regional Science, 42(2). Schmutzler, A. (1999). “The New Economic Geography”. Journal of Economic Surveys, 13(4): 357-379. 31

Siriwardana, M. (2001). “Book Review: Regional Inequality and Structural Changes – Lessons from the Brazilian Experience”. Economic Systems Research, 13(1). Whalley, J. e Trela, I. (1986). Regional Aspects of Confederation. Vol. 68 for the Royal Commission on the Economic Union and Development Prospects for Canada. University of Toronto Press, Toronto.

32

6.

ANEXO

!

B-MARIA-PA:

A

50-region

interregional

CGE

model

for

Brazilian

economy

This

By:

the

version:

Fundação

Instituto

15/12/2008

de

Pesquisas

Econômicas

Research team: Eduardo Haddad (coordinator), Eduardo Almeida, Edson

Domingues,

Joaquim

Guilhoto,

Fernando

From:

Perobelli

BMARIA27_MG.tab

#

of

equations

=

#

of

unknowns

=

Historical development: MONASH-MRF -> B-MARIA -> B-MARIA-27 >

B-MARIA-MG

>

B-MARIA-PA

References:

Peter,

M.,

Parmenter,

Horridge,

M., B.

Meagher,

G. R.

A.,

Naqvi,

F.

and

(1996).

The Theoretical Structure Of MONASH-MRF. Preliminary Working 33

Paper

no.

IMPACT

Project,

Haddad,

E.

A.

Monash

(1999).

the

Clayton,

Inequality

and

April.

Structural

Lessons Brazilian

Haddad,

University,

Regional

Changes:

OP-85,

E.

A.

from

experience.

(2004).

Transporte

Aldershot,

Retornos

Crescentes,

e

Ashgate.

Custos

de

Crescimento

Regional. Tese de Livre Docência, Universidade de São Paulo, FEA/USP.

This

version

includes

the

following

modifications:

Data:

1)

Revised

econometric

estimates

for

2)

Revised

econometric

estimates

for

scale

economies

model-consistent

regional

trade

elasticities 3) Parameter for international trade elasticities from IPEA and 4)

EFES Regional

estimates

for

capital

stock

values

5) Interzonal absorption matrix (structural), for 2000-2004

Specification:

1) Incorporation of multimodality through an interface with TransCAD 34

2) Incorporation of links with a transportation model using the

VOC-HDM

framework

developed

by

the

World

Bank

!

!

Section

1:

Database

files

to

ALL

modules

FILE

!

MDATA

# File containing input-output tables and other data for the CGE

core

module

#;

FILE

YDATA

# File containing data on debt, investment and the asset value

of

capital

#;

FILE

NDATA

# File containing data for the government finance module #;

FILE

PDATA

# File containing data on population and labor market #;

FILE #

(NEW,TEXT)

Text

output

file

for

examining

DISFILE data

base

File #

values

#;

Terminal Terminal

! Section 2:

file

for

FRED

and

PRIOD

#;

Set and subset names common to ALL modules ! 35

SET

IND

#

Industries

#

(AGP,MNG,IND,CNT,TRN,ADP,OTS);

!

AGP:

agriculture

MNG:

mining

IND:

manufacturing

CNT:

construction

TRN:

transportation

ADP:

services

public

OTS:

trade

administration

and

other

services

!

SET

MARGIND

SUBSET

SET

#

Margin

MARGIND

NONMARGIND

is

#

industries

subset

Non-margin

#

(TRN);

of

IND;

industries

#

(AGP,MNG,IND,CNT,ADP,OTS);

SUBSET

SET

NONMARGIND

COM

SET

SUBSET

#

is

Commodities

MARGCOM

#

MARGCOM

#

Margin

is

subset

of

IND;

(AGP,MNG,IND,CNT,TRN,ADP,OTS);

commodities

subset

#

(TRN);

of

COM; 36

SET

NONMARGCOM

#

Non-margin

commodities

#

(AGP,MNG,IND,CNT,ADP,OTS);

SUBSET

NONMARGCOM

is

subset

of

COM;

SET TEXP # Traditional exports # (AGP,MNG,IND,CNT,TRN,OTS);

SET

NTEXP

#

SUBSET

TEXP

SUBSET

NTEXP

SET

SET

SET

FAC

#

OCC

ALLDEST

Non-traditional

is

is

Primary

#

factors

Occupation

#

exports

#

(ADP);

subset

of

COM;

subset

of

COM;

#

(labor,capital,land);

types

Destination

#

of

SIZE

1;

goods

#

(ZT01,ZT02,ZT03,ZT04,ZT05,ZT06,ZT07,ZT08,ZT09,ZT10,ZT11,ZT12, ZT13,ZT14,ZT15, ZT16,ZT17,ZT18,ZT19,ZT20,ZT21,ZT22,ZT23,ZT24,ZT25,ZT26,ZT27,Z T28,ZT29,ZT30, ZT31,ZT32,ZT33,ZT34,ZT35,ZT36,ZT37,ZT38,ZT39,ZT40,ZT41,ZT42,Z T43,ZT44,ZT45, ZT46,ZT47,ZT48,ZT49,ZT50,federal,foreign);

SET

DOMDEST

#

Destination

of

goods

#

(ZT01,ZT02,ZT03,ZT04,ZT05,ZT06,ZT07,ZT08,ZT09,ZT10,ZT11,ZT12, 37

ZT13,ZT14,ZT15, ZT16,ZT17,ZT18,ZT19,ZT20,ZT21,ZT22,ZT23,ZT24,ZT25,ZT26,ZT27,Z T28,ZT29,ZT30, ZT31,ZT32,ZT33,ZT34,ZT35,ZT36,ZT37,ZT38,ZT39,ZT40,ZT41,ZT42,Z T43,ZT44,ZT45, ZT46,ZT47,ZT48,ZT49,ZT50,federal);

SET

REGDEST

#

50

regional

destinations

#

(ZT01,ZT02,ZT03,ZT04,ZT05,ZT06,ZT07,ZT08,ZT09,ZT10,ZT11,ZT12, ZT13,ZT14,ZT15, ZT16,ZT17,ZT18,ZT19,ZT20,ZT21,ZT22,ZT23,ZT24,ZT25,ZT26,ZT27,Z T28,ZT29,ZT30, ZT31,ZT32,ZT33,ZT34,ZT35,ZT36,ZT37,ZT38,ZT39,ZT40,ZT41,ZT42,Z T43,ZT44,ZT45, ZT46,ZT47,ZT48,ZT49,ZT50);

SUBSET

DOMDEST

is

subset

of

ALLDEST;

SUBSET

REGDEST

is

subset

of

ALLDEST;

SUBSET

REGDEST

is

subset

of

DOMDEST;

SET

ALLSOURCE

#

Origin

of

goods

#

(ZT01,ZT02,ZT03,ZT04,ZT05,ZT06,ZT07,ZT08,ZT09,ZT10,ZT11,ZT12, ZT13,ZT14,ZT15, ZT16,ZT17,ZT18,ZT19,ZT20,ZT21,ZT22,ZT23,ZT24,ZT25,ZT26,ZT27,Z T28,ZT29,ZT30, ZT31,ZT32,ZT33,ZT34,ZT35,ZT36,ZT37,ZT38,ZT39,ZT40,ZT41,ZT42,Z T43,ZT44,ZT45, 38

ZT46,ZT47,ZT48,ZT49,ZT50,foreign);

SET

REGSOURCE

#

50

regional

sources

#

(ZT01,ZT02,ZT03,ZT04,ZT05,ZT06,ZT07,ZT08,ZT09,ZT10,ZT11,ZT12, ZT13,ZT14,ZT15, ZT16,ZT17,ZT18,ZT19,ZT20,ZT21,ZT22,ZT23,ZT24,ZT25,ZT26,ZT27,Z T28,ZT29,ZT30, ZT31,ZT32,ZT33,ZT34,ZT35,ZT36,ZT37,ZT38,ZT39,ZT40,ZT41,ZT42,Z T43,ZT44,ZT45, ZT46,ZT47,ZT48,ZT49,ZT50);

SUBSET

SET

REGSOURCE

TWOSOURCE

#

is

Main

subset

sources

#

of

ALLSOURCE;

(domestic,foreign);

SUBSET

MARGCOM

is

subset

of

MARGIND;

SUBSET

MARGIND

is

subset

of

MARGCOM;

SUBSET

REGSOURCE

of

REGDEST;

SUBSET

REGDEST

is

SUBSET

COM

is

subset

of

IND;

SUBSET

IND

is

subset

of

COM;

!

Section

3:

is

THE

subset

subset

CGE

of

CORE

REGSOURCE;

MODULE

!

39

!

Section

3.1:

Coefficient

declarations

for

the CGE

module

ZERODIVIDE

core !

OFF;

! Subsection 3.1.1: Input-output database flows of goods !

COEFFICIENT

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) BAS1(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) BAS2(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS3(i,s,q);

(all,i,COM)(all,s,REGSOURCE) BAS4(i,s);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS5(i,s,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS6(i,s,q);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) 40

MAR1(i,s,j,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) MAR2(i,s,j,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR3(i,s,q,r);

(all,i,COM)(all,s,REGSOURCE)(all,r,MARGCOM) MAR4(i,s,r);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR5(i,s,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR6(i,s,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) TAX1(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) TAX2(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX3(i,s,q);

(all,i,COM)(all,s,REGSOURCE) TAX4(i,s); 41

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX5(i,s,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX6(i,s,q);

READ

BAS1

from

file

MDATA

header

"BAS1";

BAS2

from

file

MDATA

header

"BAS2";

BAS3

from

file

MDATA

header

"BAS3";

BAS4

from

file

MDATA

header

"BAS4";

BAS5

from

file

MDATA

header

"BAS5";

BAS6

from

file

MDATA

header

"BAS6";

MAR1

from

file

MDATA

header

"MAR1";

MAR2

from

file

MDATA

header

"MAR2";

MAR3

from

file

MDATA

header

"MAR3";

MAR4

from

file

MDATA

header

"MAR4";

42

MAR5

from

file

MDATA

header

"MAR5";

MAR6

from

file

MDATA

header

"MAR6";

TAX1

from

file

MDATA

header

"TAX1";

TAX2

from

file

MDATA

header

"TAX2";

TAX3

from

file

MDATA

header

"TAX3";

TAX4

from

file

MDATA

header

"TAX4";

TAX5

from

file

MDATA

header

"TAX5";

TAX6

from

file

MDATA

header

"TAX6";

! Subsection 3.1.2: Input-output database flows of primary factors

!

COEFFICIENT

(all,m,OCC)(all,j,IND)(all,q,REGDEST) LAB_OCC_IND(m,j,q)

#

Labor

m

in

industry

j

#;

capital

in

industry

j

#;

in

industry

j

#;

(all,j,IND)(all,q,REGDEST) CAPITAL(j,q)

#

Total

(all,j,IND)(all,q,REGDEST) LAND(j,q)

#

Total

land

use

43

(all,j,IND)(all,q,REGDEST) OTHCOST(j,q)

#

Other

cost

tickets

paid

by

industry

j

#;

READ

LAB_OCC_IND

CAPITAL

LAND

from

file

from

file

from

OTHCOST

file

from

file

MDATA

MDATA

HEADER

"LABR";

header

MDATA

"CPTL";

header

MDATA

"LAND";

header

"OCTS";

! Subsection 3.1.3: Input-output database flows of imports and

tariffs

!

COEFFICIENT

(all,i,COM)(all,q,REGDEST) IMPORTS(i,q)

#

Total

basic-value

imports

of

good

i

#;

(all,i,COM)(all,q,REGDEST) TARIFF(i,q)

#

Tariffs

#;

(all,i,COM) NATIMPCOST(i)

#

Total

ex-duty

imports

i

#;

(all,i,COM) 44

NATTARIFF(i)

#

Tariff

revenue

#;

READ

TARIFF

from

file

MDATA

header

"TARF";

FORMULA

(all,i,COM)(all,q,REGDEST) IMPORTS(i,q)=sum(j,IND,BAS1(i,"foreign",j,q)+BAS2(i,"foreign" ,j,q)) +BAS3(i,"foreign",q)+BAS5(i,"foreign",q)+BAS6(i,"foreign",q);

!

Atenção:

não



re-exportação

no

modelo

!

(all,i,COM) NATTARIFF(i)=sum(q,REGDEST,TARIFF(i,q));

! Subsection 3.1.4: Elasticites of substitution (Armingtons) and

other

parameters

!

COEFFICIENT

(all,j,IND)(all,q,REGDEST) QCOEF(j,q)

#

Ratio,

gross

to

net

rate

of

return

#;

(PARAMETER)(all,i,COM) EXP_ELAST(i)

#

Export

demand

elasticities

#; 45

(PARAMETER)(all,j,IND)(all,q,REGDEST) SIGMA1FAC(j,q) # CES substitution elasticities for primary factors

#;

(PARAMETER)(all,j,IND)(all,q,REGDEST) SIGMA1LAB(j,q) # CES substitution elasticities between labor types

#;

(PARAMETER)(all,i,COM) SIGMA1O(i)

#

Armington

import/domestic

elast.

of

subst.:

intermediate

#;

(PARAMETER)(all,i,COM) SIGMA2O(i)

#

Armington

import/domestic

elast.

of

subst.:

investment

#;

(PARAMETER)(all,i,COM) SIGMA3O(i)

#

Armington

import/domestic

elast.

of

subst.:

households

#;

(PARAMETER)(all,j,IND)(all,q,REGDEST) BETA_R(j,q)

#

Parameter

to

distribute

investment

#;

(PARAMETER)(all,i,COM) SIGMA1C(i) # Intra-domestic substitution elasticities: User 1 #;

(PARAMETER)(all,i,COM) 46

SIGMA2C(i) # Intra-domestic substitution elasticities: User 2 #;

(PARAMETER)(all,i,COM) SIGMA3C(i) # Intra-domestic substitution elasticities: User 3 #;

!

Fatores

de

retornos

crescentes

!

(PARAMETER)(all,j,IND)(all,q,REGDEST) MRP(j,q)

#

Parameter

to

returns

to

primary

factors

#;

labor

#;

capital

#;

land

#;

(PARAMETER)(all,j,IND)(all,q,REGDEST) MRL(j,q)

#

Parameter

to

returns

to

(PARAMETER)(all,j,IND)(all,q,REGDEST) MRK(j,q)

#

Parameter

to

returns

to

(PARAMETER)(all,j,IND)(all,q,REGDEST) MRN(j,q)

#

Parameter

to

returns

to

READ

QCOEF

from

file

MDATA

header

"p027";

EXP_ELAST

from

file

MDATA

header

"p018";

SIGMA1FAC

from

file

MDATA

header

"p028";

47

SIGMA1LAB

from

file

MDATA

header

"SLAB";

SIGMA1O

from

file

MDATA

header

"p015";

SIGMA2O

from

file

MDATA

header

"p016";

SIGMA3O

from

file

MDATA

header

"p017";

MDATA

header

"BETR";

BETA_R

from

file

SIGMA1C

from

file

MDATA

header

"b015";

SIGMA2C

from

file

MDATA

header

"b016";

SIGMA3C

from

file

MDATA

header

"b017";

!

Retornos

crescente

!

MRL

from

file

MDATA

header

"MRL";

MRP

from

file

MDATA

header

"MRP";

MRK

from

file

MDATA

header

"MRK";

MRN

from

file

MDATA

header

"MRN";

!

Subsection

3.1.5:

Purchasers'

values

!

COEFFICIENT 48

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) PVAL1A(i,s,j,q) # Purchase value for current production #;

(all,i,COM)(all,aa,TWOSOURCE)(all,j,IND)(all,q,REGDEST) PVAL1T(i,aa,j,q)

#

production:

Total

purchase

dom.

value

&

for

current

imp.

#;

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL1O(i,j,q) # Total purchase value for current production: dom.

&

imp.

#;

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) PVAL2A(i,s,j,q)

#

Purchase

value

for

capital

creation

#;

(all,i,COM)(all,aa,TWOSOURCE)(all,j,IND)(all,q,REGDEST) PVAL2T(i,aa,j,q) # Total purchase value for capital creation: dom.

&

imp.

#;

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL2O(i,j,q) # Total purchase value for capital creation: dom.

&

imp.

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL3A(i,s,q) # Purchase value for household consumption #;

(all,i,COM)(all,aa,TWOSOURCE)(all,q,REGDEST) PVAL3T(i,aa,q) consumption:

#

Total

purchase

dom.

&

value

for

household

imp.

#; 49

(all,i,COM)(all,q,REGDEST) PVAL3O(i,q) # Total regional purchase value for household consumption

#;

(all,i,COM)(all,s,REGSOURCE) PVAL4R(i,s)

#

Purchase

value

for

foreign

exports

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL5A(i,s,q) # Purchase value for regional government demand #;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL6A(i,s,q) # Purchase value for federal government demand #;

FORMULA

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) PVAL1A(i,s,j,q)=BAS1(i,s,j,q)+TAX1(i,s,j,q)+sum(r,MARGCOM,MAR 1(i,s,j,q,r));

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL1T(i,"domestic",j,q)=sum(s,REGSOURCE,PVAL1A(i,s,j,q));

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL1T(i,"foreign",j,q)=PVAL1A(i,"foreign",j,q);

(all,i,COM)(all,j,IND)(all,q,REGDEST) 50

PVAL1O(i,j,q)=sum(aa,TWOSOURCE,PVAL1T(i,aa,j,q));

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) PVAL2A(i,s,j,q)=BAS2(i,s,j,q)+TAX2(i,s,j,q)+sum(r,MARGCOM,MAR 2(i,s,j,q,r));

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL2T(i,"domestic",j,q)=sum(s,REGSOURCE,PVAL2A(i,s,j,q));

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL2T(i,"foreign",j,q)=

PVAL2A(i,"foreign",j,q);

(all,i,COM)(all,j,IND)(all,q,REGDEST) PVAL2O(i,j,q)=sum(aa,TWOSOURCE,PVAL2T(i,aa,j,q));

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL3A(i,s,q)=BAS3(i,s,q)+TAX3(i,s,q)+sum(r,MARGCOM,MAR3(i,s, q,r));

(all,i,COM)(all,q,REGDEST) PVAL3T(i,"domestic",q)=sum(s,REGSOURCE,PVAL3A(i,s,q));

(all,i,COM)(all,q,REGDEST) PVAL3T(i,"foreign",q)=

PVAL3A(i,"foreign",q);

(all,i,COM)(all,q,REGDEST) PVAL3O(i,q)=sum(aa,TWOSOURCE,PVAL3T(i,aa,q));

(all,i,COM)(all,s,REGSOURCE) 51

PVAL4R(i,s)=BAS4(i,s)+TAX4(i,s)+sum(r,MARGCOM,MAR4(i,s,r));

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL5A(i,s,q)=BAS5(i,s,q)+TAX5(i,s,q)+sum(r,MARGCOM,MAR5(i,s, q,r));

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) PVAL6A(i,s,q)=BAS6(i,s,q)+TAX6(i,s,q)+sum(r,MARGCOM,MAR6(i,s, q,r));

!

Subsection

3.1.6:

Factor-payment

aggregates

!

COEFFICIENT

(all,j,IND)(all,q,REGDEST) LABOR(j,q)

#

Total

labor

bill

in

industry

j

#;

industry

j

#;

occupation

m

#;

(all,j,IND) NATLABOR(j)

#

National

labor

bill

in

(all,m,OCC)(all,q,REGDEST) LAB_OCC(m,q)

#

Total

labor

bill

in

(all,m,OCC) NATLAB_OCC(m)

#

National

labor

bill

in

occupation

m

#;

(all,q,REGDEST) AGGLAB(q)

#

Total

payments

to

labor

#;

52

NATAGGLAB

#

National

wage

bill

#;

(all,q,REGDEST) AGGCAP(q)

#

NATAGGCAP

Total

#

payments

National

to

capital

capital

#;

rentals

#;

land

#;

land

#;

(all,q,REGDEST) AGGLND(q)

#

NATAGGLND

Total

#

payments

National

to

payments

to

(all,q,REGDEST) TOTFAC(q)

NATTOTFAC

#

#

Total

primary

National

payments

factor

to

payments

primary

#;

factors

#;

(all,q,REGDEST) AGGOCT(q)

#

Total

NATAGGOCT

#

National

other

cost

payments

ticket

to

other

payments

#;

costs

#;

(all,j,IND)(all,q,REGDEST) TOTFACIND(j,q)

#

Total

factor

input

to

industry

j

#;

(all,j,IND) NATTOTFACIND(j) # National factor payments in industry j #;

FORMULA 53

(all,j,IND)(all,q,REGDEST) LABOR(j,q)=sum(m,OCC,LAB_OCC_IND(m,j,q));

(all,j,IND) NATLABOR(j)=sum(q,REGDEST,LABOR(j,q));

(all,m,OCC)(all,q,REGDEST) LAB_OCC(m,q)=sum(j,IND,LAB_OCC_IND(m,j,q));

(all,m,OCC) NATLAB_OCC(m)=sum(q,REGDEST,LAB_OCC(m,q));

(all,q,REGDEST) AGGLAB(q)=sum(j,IND,LABOR(j,q));

NATAGGLAB=sum(q,REGDEST,AGGLAB(q));

(all,q,REGDEST) AGGCAP(q)=sum(j,IND,CAPITAL(j,q));

NATAGGCAP=sum(q,REGDEST,AGGCAP(q));

(all,q,REGDEST) AGGLND(q)=sum(j,IND,LAND(j,q));

NATAGGLND=sum(q,REGDEST,AGGLND(q));

(all,q,REGDEST) 54

TOTFAC(q)=AGGLAB(q)+AGGCAP(q)+AGGLND(q);

NATTOTFAC=sum(q,REGDEST,TOTFAC(q));

(all,q,REGDEST) AGGOCT(q)=sum(j,IND,OTHCOST(j,q));

NATAGGOCT=sum(q,REGDEST,AGGOCT(q));

(all,j,IND)(all,q,REGDEST) TOTFACIND(j,q)=LABOR(j,q)+CAPITAL(j,q)+LAND(j,q);

(all,j,IND) NATTOTFACIND(j)=sum(q,REGDEST,TOTFACIND(j,q));

!

Subsection

3.1.7:

Final

demand

aggregates

!

COEFFICIENT

(all,j,IND)(all,q,REGDEST) INVEST(j,q)

#

Total

capital

created

for

each industry #;

(all,j,IND) NATINVEST(j) # Total capital created for each industry #;

(all,q,REGDEST) AGGINV(q)

NATAGGINV

#

#

Investment

National

investment

#;

#; 55

(all,q,REGDEST) AGGCON(q)

#

NATAGGCON

Total

#

purchases

National

by

households

household

demand

#;

#;

(all,q,REGDEST) AGGEXP(q)

#

Total

export

earnings

#;

(all,q,REGDEST) AGGEXPNT(q)

#

NATAGGEXP

Total

non-traditional

#

National

export

earnings

exports

#;

#;

(all,q,REGDEST) AGGOTH5(q)

#

Value

of

regional

government

demand

#;

NATAGGOTH5 # National value of regional government demand #;

(all,q,REGDEST) AGGOTH6(q)

#

NATAGGOTH6

#

Total

National

value

value

of

of

Federal

Federal

demand

#;

demand

#;

FORMULA

(all,j,IND)(all,q,REGDEST) INVEST(j,q)=sum(i,COM,PVAL2O(i,j,q));

56

(all,j,IND) NATINVEST(j)=sum(q,REGDEST,INVEST(j,q));

(all,q,REGDEST) AGGINV(q)=sum(j,IND,INVEST(j,q));

NATAGGINV=sum(q,REGDEST,AGGINV(q));

(all,q,REGDEST) AGGCON(q)=sum(i,COM,PVAL3O(i,q));

NATAGGCON=sum(q,REGDEST,AGGCON(q));

(all,q,REGDEST) AGGEXP(q)=sum(i,COM,PVAL4R(i,q));

(all,q,REGDEST) AGGEXPNT(q)=SUM(i,NTEXP,PVAL4r(i,q));

NATAGGEXP=sum(q,REGDEST,AGGEXP(q));

(all,q,REGDEST) AGGOTH5(q)=sum(i,COM,sum(s,ALLSOURCE,PVAL5A(i,s,q)));

NATAGGOTH5=sum(q,REGDEST,AGGOTH5(q));

(all,q,REGDEST) AGGOTH6(q)=sum(i,COM,sum(s,ALLSOURCE,PVAL6A(i,s,q)));

57

NATAGGOTH6=sum(i,COM,sum(s,ALLSOURCE,sum(q,REGDEST,PVAL6A(i,s ,q))));

!

Subsection

3.1.8:

Import

aggregates

!

COEFFICIENT

(all,i,COM) NATIMPORTS(i)

#

Total

basic-value

imports

of

good

i

#;

(all,i,COM)(all,q,REGDEST) IMPCOST(i,q)

#

Total

ex-duty

imports

of

good

i

#;

costs

#;

costs

#;

(all,q,REGDEST) AGGIMP(q)

#

NATAGGIMP

#

Total

National

foreign

foreign

currency

currency

import

import

FORMULA

(all,i,COM) NATIMPORTS(i)=sum(q,REGDEST,

IMPORTS(i,q));

(all,i,COM)(all,q,REGDEST) IMPCOST(i,q)=IMPORTS(i,q)-TARIFF(i,q);

(all,i,COM) NATIMPCOST(i)=NATIMPORTS(i)-NATTARIFF(i);

58

(all,q,REGDEST) AGGIMP(q)=sum(i,COM,IMPCOST(i,q));

NATAGGIMP=sum(i,COM,NATIMPCOST(i));

!

Subsection

3.1.9:

Tax

aggregates

!

COEFFICIENT

(all,q,REGDEST) AGGTAX1(q)

#

Sales

tax

on

current

production

#;

creation

#;

(all,q,REGDEST) AGGTAX2(q)

#

Sales

tax

on

capital

(all,q,REGDEST) AGGTAX3(q)

#

Sales

tax

on

household

consumption

#;

(all,s,REGSOURCE) AGGTAX4(s)

#

Sales

tax

on

foreign

exports

#;

(all,q,REGDEST) AGGTAX5(q)

#

Sales

tax

on

tax

on

regional

government

demand

#;

federal

government

demand

#;

(all,q,REGDEST) AGGTAX6(q)

#

Sales

(all,q,REGDEST) AGGTAXM(q)

#

Tariffs

#; 59

NATAGGTAX1 # Sales tax on current production: national total #;

NATAGGTAX2 # Sales tax on capital creation: national total #;

NATAGGTAX3 # Sales tax on household consumption: national total

#;

NATAGGTAX4 # Sales tax on foreign exports: national total #;

NATAGGTAX5

#

Sales

tax

on

national

regional

government

demand:

total

#;

NATAGGTAX6 # Sales tax on federal government demand: national total

#;

NATAGGTAXM

#

NATAGGTAX

Tariffs:

#

Sales

national

tax:

total

#;

national

total

#;

revenue

collected

by

(all,q,DOMDEST) AGGTAX(q)

#

Aggregate

region

indirect

tax

#;

FORMULA

(all,q,REGDEST) AGGTAX1(q)=sum(i,COM,sum(s,ALLSOURCE,sum(j,IND,TAX1(i,s,j,q)) 60

));

(all,q,REGDEST) AGGTAX2(q)=sum(i,COM,sum(s,ALLSOURCE,sum(j,IND,TAX2(i,s,j,q)) ));

(all,q,REGDEST) AGGTAX3(q)=sum(i,COM,sum(s,ALLSOURCE,TAX3(i,s,q)));

(all,s,REGSOURCE) AGGTAX4(s)=sum(i,COM,TAX4(i,s));

(all,q,REGDEST) AGGTAX5(q)=sum(i,COM,sum(s,ALLSOURCE,TAX5(i,s,q)));

(all,q,REGDEST) AGGTAX6(q)=sum(i,COM,sum(s,ALLSOURCE,TAX6(i,s,q)));

(all,q,REGDEST) AGGTAXM(q)=sum(i,COM,Tariff(i,q));

NATAGGTAX1=sum(q,REGDEST,AGGTAX1(q));

NATAGGTAX2=sum(q,REGDEST,AGGTAX2(q));

NATAGGTAX3=sum(q,REGDEST,AGGTAX3(q));

NATAGGTAX4=sum(s,REGSOURCE,AGGTAX4(s));

61

NATAGGTAX5=sum(q,REGDEST,AGGTAX5(q));

NATAGGTAX6=sum(q,REGDEST,AGGTAX6(q));

NATAGGTAXM=sum(q,REGDEST,

AGGTAXM(q));

NATAGGTAX=NATAGGTAX1+NATAGGTAX2+NATAGGTAX3+NATAGGTAX4 +NATAGGTAX5+NATAGGTAX6+NATAGGTAXM;

(all,q,REGDEST) AGGTAX(q)=AGGTAX1(q)+AGGTAX2(q)+AGGTAX3(q)+AGGTAX5(q);

AGGTAX("federal")=NATAGGTAX4+NATAGGTAX6+NATAGGTAXM;

!

Subsection

3.1.10:

GDP

!

COEFFICIENT

NATGDPEX

NATGDPIN

#

#

Nominal

Nominal

GDP

GDP

from

expenditure

from

income

side

side

#;

#;

FORMULA

NATGDPEX=NATAGGCON+NATAGGINV+NATAGGOTH5+NATAGGOTH6+NATAGGEXPNATAGGIMP;

NATGDPIN=NATTOTFAC+NATAGGOCT+NATAGGTAX;

62

!

Subsection

3.1.10:

Interregional

trade

flows

!

COEFFICIENT

(all,s,REGSOURCE)(all,q,REGDEST) C_XSFLO(s,q)

#

Trade:

interregional

trade

flows

#;

(all,s,REGSOURCE) C_XSEXP(s)

#

Interregional

exports

#;

#

Interregional

imports

#;

(all,q,REGDEST) C_XSIMP(q)

(all,i,COM)(all,s,REGSOURCE)(all,q,REGDEST) C_XSFLOJ(i,s,q)

#

Trade:

interregional

trade

flows

commodity

by #;

(all,i,COM)(all,s,REGSOURCE) C_XSEXPJ(i,s)

#

Interregional

exports

by

commodity

#;

imports

by

commodity

#;

(all,i,COM)(all,q,REGDEST) C_XSIMPJ(i,q)

#

Interregional

(all,i,COM) C_XSFLOJSQ(i) # Trade: interregional trade flows by commodity #;

C_XSFLOJSQI

#

Trade:

interregional

trade

flows:

total

#;

63

(all,i,COM)(all,s,REGSOURCE) SX(i,s) # Share of export of commodity i, in region s #;

(all,i,COM)(all,q,REGDEST) SM(i,q) # Share of import of commodity i, in region q #;

FORMULA

(all,s,REGSOURCE)(all,q,REGDEST) C_XSFLO(s,q)=sum(i,COM,sum(j,IND,

BAS1(i,s,j,q)))

+sum(i,COM,sum(j,IND,BAS2(i,s,j,q)))+sum(i,COM,BAS3(i,s,q)) +sum(I,COM,BAS5(i,s,q));

(all,s,REGSOURCE) C_XSEXP(s)=sum(q,REGDEST,C_XSFLO(s,q))-C_XSFLO(s,s);

(all,q,REGDEST) C_XSIMP(q)=sum(s,REGSOURCE,C_XSFLO(s,q))-C_XSFLO(q,q);

(all,i,COM)(all,s,REGSOURCE)(all,q,REGDEST) C_XSFLOJ(i,s,q)=sum(j,IND,BAS1(i,s,j,q)) +sum(j,IND,BAS2(i,s,j,q))+BAS3(i,s,q)+BAS5(i,s,q);

(all,i,COM)(all,s,REGSOURCE) C_XSEXPJ(i,s)=sum(q,REGDEST,C_XSFLOJ(i,s,q))-C_XSFLOJ(i,s,s);

(all,i,COM)(all,q,REGDEST) C_XSIMPJ(i,q)=sum(s,REGSOURCE,C_XSFLOJ(i,s,q))C_XSFLOJ(i,q,q); 64

(all,i,COM) C_XSFLOJSQ(i)=sum(s,REGSOURCE,sum(q,REGDEST,C_XSFLOJ(i,s,q))) ;

C_XSFLOJSQI=sum(i,COM,C_XSFLOJSQ(i));

(all,i,COM)(all,s,REGSOURCE) SX(i,s)=C_XSEXPJ(i,s)/C_XSEXP(s);

(all,i,COM)(all,q,REGDEST) SM(i,q)=C_XSIMPJ(i,q)/C_XSIMP(q);

!

Subsection

3.1.11:

Elasticities

household

and

parameters

demand

for !

COEFFICIENT

(all,q,REGDEST) FRISCH(q)

#

Frisch

parameter

#;

(all,i,COM)(all,q,REGDEST) DELTA(i,q)

#

Marginal

household

budget

shares

#;

(all,i,COM)(all,q,REGDEST) S3COM(i,q)

#

Shares

in

total

household

expenditure

#;

(all,q,REGDEST) ALPHA(q) # Share of supernumerary in total expenditure #; 65

(all,i,COM)(all,q,REGDEST) EPS(i,q)

#

Household

expenditure

elasticities

#;

(all,i,COM)(all,q,REGDEST) ALPHA_I(i,q)

#

Supernumerary

expenditure

expenditure

good

good

i

i/total #;

READ

FRISCH

DELTA

from

from

file

file

ZERODIVIDE

MDATA

header

"p021";

MDATA

header

"p044";

DEFAULT

0.0;

FORMULA

(all,i,COM)(all,q,REGDEST) S3COM(i,q)=PVAL3O(i,q)/AGGCON(q);

ZERODIVIDE

OFF;

FORMULA

(all,q,REGDEST) ALPHA(q)=-1/FRISCH(q);

ZERODIVIDE

DEFAULT

1.0; 66

FORMULA (all,i,COM)(all,q,REGDEST) EPS(i,q)=DELTA(i,q)/S3COM(i,q);

!

Marginal/average

shares

ZERODIVIDE

!

OFF;

FORMULA

(all,i,COM)(all,q,REGDEST) ALPHA_I(i,q)=ALPHA(q)*EPS(i,q);

!

Subsection

3.1.12:

Costs

and

sales

aggregates

!

COEFFICIENT

(all,i,COM)(all,s,REGSOURCE) DIRSALES(i,s)

#

Direct

usage

#;

usage

#;

(all,r,MARGCOM)(all,s,REGSOURCE) MARSALES(r,s)

#

Margin

(all,i,COM)(all,s,REGSOURCE) SALES(i,s)

#

All

usage

#;

(all,j,IND)(all,q,REGDEST) COSTS(j,q)

#

Total

costs

in

industry

j

in

region

q

#; 67

(all,i,COM)(all,s,REGSOURCE) LOSTGOODS(i,s)

#

Discrepancy

#;

#

Subtotal

#;

#

Subtotal

#;

(all,i,COM) LOSTGOODS1(i)

(all,s,REGSOURCE) LOSTGOODS2(s)

FORMULA

(all,i,COM)(all,s,REGSOURCE) DIRSALES(i,s)=sum(j,IND,sum(q,REGDEST,BAS1(i,s,j,q))) +sum(j,IND,sum(q,REGDEST,BAS2(i,s,j,q)))+sum(q,REGDEST,BAS3(i ,s,q)) +BAS4(i,s)+sum(q,REGDEST,BAS5(i,s,q)+BAS6(i,s,q));

(all,r,MARGCOM)(all,s,REGSOURCE) MARSALES(r,s)=sum(j,IND,sum(i,COM,sum(ss,ALLSOURCE,MAR1(i,ss, j,s,r)))) +sum(j,IND,sum(i,COM,sum(ss,ALLSOURCE,MAR2(i,ss,j,s,r)))) +sum(i,COM,sum(ss,ALLSOURCE,MAR3(i,ss,s,r)))+sum(i,COM,MAR4(i ,s,r)) +sum(i,COM,sum(ss,ALLSOURCE,MAR5(i,ss,s,r)+MAR6(i,ss,s,r)));

(all,i,NONMARGCOM)(all,s,REGSOURCE) SALES(i,s)=DIRSALES(i,s);

68

(all,i,MARGCOM)(all,s,REGSOURCE) SALES(i,s)=DIRSALES(i,s)+

MARSALES(i,s);

(all,j,IND)(all,q,REGDEST) COSTS(j,q)

=sum(i,COM,sum(s,ALLSOURCE,BAS1(i,s,j,q)))

+sum(i,COM,sum(s,ALLSOURCE,sum(R,MARGCOM

,MAR1(i,s,j,q,r))))

+sum(i,COM,sum(s,ALLSOURCE,TAX1(i,s,j,q))) +sum(m,OCC, LAB_OCC_IND(m,j,q))+CAPITAL(j,q)+LAND(j,q)+OTHCOST(j,q);

(all,i,COM)(all,s,REGSOURCE) LOSTGOODS(i,s)=SALES(i,s)-COSTS(i,s);

(all,i,COM) LOSTGOODS1(i)=sum(s,REGSOURCE,LOSTGOODS(i,s));

(all,s,REGSOURCE) LOSTGOODS2(s)=sum(i,COM,LOSTGOODS(i,s));

!

Subsection

3.1.13:

domestic/foreign

Mapping

coefficients

and

tiny

for !

COEFFICIENT

(all,s,ALLSOURCE) IS_DOM(s)

#

Binary

dummy

1

#;

Binary

dummy

2

#;

(all,s,ALLSOURCE) IS_IMP(s)

#

69

TINY

#

A

very

small

number

#;

FORMULA

(all,s,REGSOURCE) IS_DOM(s)=1;

IS_DOM("foreign")=0;

(all,s,REGSOURCE) IS_IMP(s)=0;

IS_IMP("foreign")=1;

TINY

=

0.00000000000000001;

DISPLAY

LOSTGOODS;

DISPLAY

LOSTGOODS1;

DISPLAY

LOSTGOODS2;

!

Subsection

3.1.13:

Credit

market

!

COEFFICIENT

(PARAMETER)(all,m,OCC)(all,j,IND)(all,q,REGDEST) IL(m,j,q) # Elasticity of interest rate on labor demand #; 70

(PARAMETER)(all,j,IND)(all,q,REGDEST) IL2(j,q) # Elasticity of interest rate on capital demand #;

READ

IL

from

IL2

!

from

Subsection

file

MDATA

file

MDATA

3.1.14:

Scale

economies

header

"IL";

header

in

"IL2";

transportation

!

COEFFICIENT

(PARAMETER)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) THETA(i,s,q)

#

Parameter

of

scale

economies

in

transportation

bulk #;

READ

THETA

from

!

3.2:

Section

file

MDATA

Variables

and

equations

module

!

header

for

the

"TETA";

CGE

core !

Production

!

! Subsection 3.2.1: Demands by industries for intermediate 71

input

users,

User

1

!

VARIABLE

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) x1a(i,s,j,q) # Demands for inputs for current production #; !

Determinada

por

E_x1a

!

(all,i,COM)(all,j,IND)(all,q,REGDEST) x1c(i,j,q)

#

Demands

for

current !

domestic

composite

inputs

production Determinada

por

for #;

E_x1c

!

(all,i,COM)(all,j,IND)(all,q,REGDEST) x1o(i,j,q)

#

Demands

current !

for

dom./for.

composite

inputs

production Determinada

por

for #;

E_x1o

!

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) p1a(i,s,j,q) # Prices of inputs for current production #;

(all,i,COM)(all,j,IND)(all,q,REGDEST) p1c(i,j,q) # Prices of domestic composite inputs for current production !

#; Determinada

por

E_p1c

!

(all,i,COM)(all,j,IND)(all,q,REGDEST) p1o(i,j,q) # Price of dom./for. composite inputs for current production

#; 72

!

Determinada

por

E_p1o

!

(all,j,IND)(all,q,REGDEST) a1(j,q)

#

All

input

augmenting

!

technical

change

Exógena

#; !

(all,j,IND)(all,q,REGDEST) a1oct(j,q)

#

Other

cost

!

ticket

techncal

change

Exógena

#; !

(all,j,IND)(all,q,REGDEST) x1oct(j,q) !

#

Demand

for

Determinada

other

cost

por

tickets

E_x1oct

#; !

(all,j,IND)(all,q,REGDEST) p1oct(j,q) !

#

Price

of

Determinada

other

cost

por

tickets

E_p1oct

#; !

(all,j,IND)(all,q,REGDEST) f1oct(j,q)

#

Shifter,

!

other

cost

tickets

Exógeno

#; !

(all,j,IND)(all,q,REGDEST) z(j,q)

#

Activity

level

#;

(all,q,REGDEST) xi3(q) !

#

Consumer Indexador

price

index

#; !

73

EQUATION

E_x1a

#

Demand

for

goods

by

all

sources,

User

1

#

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) x1a(i,s,j,q)=IS_DOM(s)*(x1c(i,j,q)-SIGMA1C(i)*(p1a(i,s,j,q)p1c(i,j,q))) +IS_IMP(s)*(x1o(i,j,q)-SIGMA1O(i)*(p1a(i,"foreign",j,q)p1o(i,j,q)));

E_p1o

#

Price

of

domestic/foreign

composite,

User

1

#

(all,i,COM)(all,j,IND)(all,q,REGDEST) (TINY+PVAL1O(i,j,q))*p1o(i,j,q)

=

sum(s,ALLSOURCE,PVAL1A(i,s,j,q)*p1a(i,s,j,q));

E_p1c

#

Price

of

domestic

composite,

User

1

#

1

#

(all,i,COM)(all,j,IND)(all,q,REGDEST) (TINY+PVAL1T(i,"domestic",j,q))*p1c(i,j,q) =sum(s,REGSOURCE,PVAL1A(i,s,j,q)*p1a(i,s,j,q));

E_x1c

#

Demand

for

domestic

composite,

User

(all,i,COM)(all,j,IND)(all,q,REGDEST) x1c(i,j,q)=x1o(i,j,q)-SIGMA1O(i)*(p1c(i,j,q)-p1o(i,j,q));

E_x1o

#

Demand

for

dom./for.

composite

inputs,

User

1

#

(all,i,COM)(all,j,IND)(all,q,REGDEST) x1o(i,j,q)=z(j,q)+a1(j,q);

E_x1oct

#

Industry

demand

for

other

cost

tickets

#

(all,j,IND)(all,q,REGDEST) 74

x1oct(j,q)=z(j,q)+a1(j,q)+a1oct(j,q);

E_p1oct

#

Indexing

of

prices

of

other

cost

tickets

#

(all,j,IND)(all,q,REGDEST) p1oct(j,q)=xi3(q)+f1oct(j,q);

!

Subsection

3.2.2:

Primary

factor

demands,

prices

supplies

and !

VARIABLE

(all,j,IND)(all,q,REGDEST) efflab(j,q) !

#

Effective

Determinada

labor

por

input E_efflab

#; !

(all,j,IND)(all,q,REGDEST) p1lab(j,q) !

#

Price

Determinada

of por

labor E_p1lab

#; !

(all,j,IND)(all,q,REGDEST) a1lab(j,q)

#

Labor

augmenting

!

technical

change

Exógena

#; !

(all,j,IND)(all,q,REGDEST) x1prim(j,q) !

#

Demand

for

Determinada

the primary por

factor composite #; E_x1prim

!

(all,j,IND)(all,q,REGDEST) xi_fac(j,q)

#

Index

of

factor

costs

#; 75

!

Determinada

por

E_xi_fac

!

(all,j,IND)(all,q,REGDEST) curcap(j,q) !

#

Current

Determinada

capital por

stock E_curcap

#; !

(all,j,IND)(all,q,REGDEST) p1cap(j,q)

#

Rental

price

of

capital

#;

(all,j,IND)(all,q,REGDEST) a1cap(j,q)

#

Capital

augmenting

!

technical

change

Exógena

#; !

(all,j,IND)(all,q,REGDEST) n(j,q) !

#

Use

Determinada

of por

land

#;

E_n

!

(all,j,IND)(all,q,REGDEST) p1land(j,q)

#

Rental

price

of

land

#;

change

#;

(all,j,IND)(all,q,REGDEST) a1land(j,q)

#

!

interest !

Land

augmenting

technical

Exógena

#

Lending Exógena

!

interest

rate

#; !

EQUATION

76

E_efflab

#

Industry

demand

for

effective

labor

#

(all,j,IND)(all,q,REGDEST) efflab(j,q)=MRL(j,q)*x1prim(j,q)+a1lab(j,q) -SIGMA1FAC(j,q)*[p1lab(j,q)+a1lab(j,q)-xi_fac(j,q)]; !

Determina

E_curcap

#

Industry

efflab

demand

for

!

capital

#

(all,j,IND)(all,q,REGDEST) curcap(j,q)=MRK(j,q)*x1prim(j,q)+a1cap(j,q) -SIGMA1FAC(j,q)*[p1cap(j,q)+a1cap(j,q)xi_fac(j,q)]+IL2(j,q)*interest; !

E_n

Determina

#

Industry

curcap

demand

for

!

land

#

(all,j,IND)(all,q,REGDEST) n(j,q)=MRN(j,q)*x1prim(j,q)+a1land(j,q) -SIGMA1FAC(j,q)*[p1land(j,q)+a1land(j,q)-xi_fac(j,q)]; !

Determina

n

!

E_xi_fac # Effective price term for factor demand equations # (all,j,IND)(all,q,REGDEST) (TINY+TOTFACIND(j,q))*xi_fac(j,q)=LABOR(j,q)*(p1lab(j,q)+a1la b(j,q)) +CAPITAL(j,q)*(p1cap(j,q)+a1cap(j,q))+LAND(j,q)*(p1land(j,q)+ a1land(j,q)); !

!

Determina

Labor

by

xi_fac

type

!

nest

!

77

VARIABLE

(all,j,IND)(all,q,REGDEST)(all,m,OCC) x1laboi(j,q,m) # Employment of occupation type m in industry j

#;

!

Determinada

por

E_x1laboi

!

(all,j,IND)(all,q,REGDEST)(all,m,OCC) p1laboi(j,q,m) # Wage of occupation type m in industry j #;

(all,j,IND)(all,q,REGDEST) labind(j,q) !

#

Employment

Determinada

by

por

industry E_labind

#; !

(all,j,IND)(all,q,REGDEST) a1prim(j,q)

#

All

primary

!

factor

technical

change

Exógena

#; !

EQUATION

E_x1laboi # Demand for labor by industry and skill group # (all,m,OCC)(all,j,IND)(all,q,REGDEST) x1laboi(j,q,m)=efflab(j,q)-SIGMA1LAB(j,q)*[p1laboi(j,q,m)p1lab(j,q)] +IL(m,j,q)*interest; !

E_p1lab

Determina

#

Price

to

each

x1laboi

industry

of

labor

!

in

general

#

(all,j,IND)(all,q,REGDEST) 78

(TINY+LABOR(j,q))*p1lab(j,q)=sum(m,OCC,LAB_OCC_IND(m,j,q)*p1l aboi(j,q,m)); !

Determina

E_labind

#

p1lab

Employment

by

!

industry

#

(all,j,IND)(all,q,REGDEST) (TINY+LABOR(j,q))*labind(j,q)=sum(m,OCC,LAB_OCC_IND(m,j,q)*x1 laboi(j,q,m)); !

Determina

E_x1prim

#

Demand

for

labind

the

primary-factor

!

composite

#

(all,j,IND)(all,q,REGDEST) x1prim(j,q)=MRP(j,q)*z(j,q)+a1(j,q)+a1prim(j,q); !

!

Determina

Subsection

3.2.3:

creation,

x1prim

Demands

by

industries

User

!

for

2

capital !

! Local and national Armington nests for capital creation !

VARIABLE

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) x2a(i,s,j,q)

# Demand

for

inputs

for

capital creation #;

(all,i,COM)(all,j,IND)(all,q,REGDEST) x2c(i,j,q) # Demand for domestic composite inputs for capital creation

#;

79

(all,i,COM)(all,j,IND)(all,q,REGDEST) x2o(i,j,q)

#

Demand

for

capital

dom./for.

composite

inputs

for

creation

#;

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) p2a(i,s,j,q)

# Prices of inputs for capital creation #;

(all,i,COM)(all,j,IND)(all,q,REGDEST) p2c(i,j,q) # Prices of domestic composite inputs for capital creation

#;

(all,i,COM)(all,j,IND)(all,q,REGDEST) p2o(i,j,q) # Price of dom./for. composite inputs for capital creation

#;

(all,j,IND)(all,q,REGDEST) a2ind(j,q) # Neutral technical change, capital creation #;

(all,j,IND)(all,q,REGDEST) y(j,q)

#

Capital

creation

by

using

by

source,

industry

#;

EQUATION

E_x2a

#

Demand

for

goods

User

2

#

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) x2a(i,s,j,q)=IS_DOM(s)*(x2c(i,j,q)-SIGMA2C(i)*(p2a(i,s,j,q)p2c(i,j,q))) +IS_IMP(s)*(x2o(i,j,q)-SIGMA2O(i)*(p2a(i,"foreign",j,q)p2o(i,j,q))); 80

E_p2o

#

Price

of

domestic/foreign

composite,

User

2

#

(all,i,COM)(all,j,IND)(all,q,REGDEST) (TINY+PVAL2O(i,j,q))*p2o(i,j,q)=sum(s,ALLSOURCE,PVAL2A(i,s,j, q)*p2a(i,s,j,q));

E_p2c

#

Price

of

domestic

composite,

User

2

#

2

#

(all,i,COM)(all,j,IND)(all,q,REGDEST) (TINY+PVAL2T(i,"domestic",j,q))*p2c(i,j,q) =sum(s,REGSOURCE,PVAL2A(i,s,j,q)*p2a(i,s,j,q));

E_x2c

#

Demand

for

domestic

composite,

User

(all,i,COM)(all,j,IND)(all,q,REGDEST) x2c(i,j,q)=x2o(i,j,q)-SIGMA2O(i)*(p2c(i,j,q)-p2o(i,j,q));

E_x2o

#

Demands

for

domestic/foreign

composite,

User

2 #

(all,i,COM)(all,j,IND)(all,q,REGDEST) x2o(i,j,q)=y(j,q)+a2ind(j,q);

! Subsection 3.2.4:

Household demands for commodities, User

3

!

VARIABLE

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x3a(i,s,q)

#

Household

demand

for

goods

#;

(all,i,COM)(all,q,REGDEST) x3c(i,q) # Demand for domestic composite goods for households 81

#;

(all,i,COM)(all,q,REGDEST) x3o(i,q)

#

Demand

for

dom./for.

composite

goods

households

for #;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) p3a(i,s,q) # Purchasers prices of goods for households #;

(all,i,COM)(all,q,REGDEST) p3c(i,q) # Prices of domestic composite goods for households #;

(all,i,COM)(all,q,REGDEST) p3o(i,q) # Price of dom./for. composite goods for households #;

(all,i,COM)(all,q,REGDEST) a3com(i,q)

#

Change

in

household

tastes

#;

(all,i,COM)(all,q,REGDEST) a3lux(i,q)

#

Change

in

household

tastes,

luxury

#;

(all,i,COM)(all,q,REGDEST) a3sub(i,q)

#

Change

in

household

tastes,

subsistency

#;

household

expenditure

#;

(all,q,REGDEST) luxexp(q)

#

Total

supernumerary

82

(all,q,REGDEST) qhous(q)

#

Number

of

households

#;

(all,q,REGDEST) utility(q)

#

Utility

per

household

#;

EQUATION

E_x3o

#

Household

demand

for

composite

commodities

#

(all,i,COM)(all,q,REGDEST) x3o(i,q)=[1-ALPHA_I(i,q)]*[qhous(q)+a3sub(i,q)] +ALPHA_I(i,q)*[luxexp(q)+a3lux(i,q)-p3o(i,q)];

E_a3lux

#

Default

setting

for

luxury

taste

shifter

#

(all,i,COM)(all,q,REGDEST) a3lux(i,q)=a3sub(i,q)-sum(k,COM,DELTA(k,q)*a3sub(k,q));

E_a3sub # Default setting for subsistence taste shifter # (all,i,COM)(all,q,REGDEST) a3sub(i,q)=a3com(i,q)-sum(k,COM,S3COM(k,q)*a3com(k,q));

E_utility # Change in utility disregarding taste change terms # (all,q,REGDEST) utility(q)=luxexp(q)-qhous(q)-sum(i,COM,DELTA(i,q)*p3o(i,q));

E_x3a

#

Demand

for

goods

by

source,

User

3

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x3a(i,s,q)=IS_DOM(s)*(x3c(i,q)-SIGMA3C(i)*(p3a(i,s,q)83

p3c(i,q))) +IS_IMP(s)*(x3o(i,q)-SIGMA3O(i)*(p3a(i,"foreign",q)p3o(i,q)));

E_p3o

#

Price

of

domestic/foreign

composite,

User

3

#

(all,i,COM)(all,q,REGDEST) (TINY+PVAL3O(i,q))*p3o(i,q)=sum(s,ALLSOURCE,PVAL3A(i,s,q)*p3a (i,s,q));

E_p3c

#

Price

of

domestic

composite,

User

3

#

3

#

(all,i,COM)(all,q,REGDEST) (TINY+PVAL3T(i,"domestic",q))*p3c(i,q) =sum(s,REGSOURCE,PVAL3A(i,s,q)*p3a(i,s,q));

E_x3c

#

Demand

for

domestic

composite,

User

(all,i,COM)(all,q,REGDEST) x3c(i,q)=x3o(i,q)-SIGMA3O(i)*(p3c(i,q)-p3o(i,q));

!

Subsection

3.2.5:

Tax

rates

!

VARIABLE

(change)(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST ) deltax1(i,s,j,q) # Percent-point change in tax rate on sales of

int.

inputs

#;

(change)(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST ) 84

deltax2(i,s,j,q) # Percent-point change in tax rate on sales for

cap.

creat.

#;

(change)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) deltax3(i,s,q) # Percent-point change in tax rate on sales to households

#;

(change)(all,i,COM)(all,s,REGSOURCE) deltax4(i,s) # Percentage-point change in export tax rates #;

(change)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) deltax5(i,s,q) # Percent-point change in tax rate on sales to reg.

(change)

gov.

dem.

(all,i,COM)(all,s,ALLSOURCE)

#;

(all,q,REGDEST)

deltax6(i,s,q) # Percent-point change in tax rate on sales to Fed.

gov.

dem.

(change)

#; (all,i,COM)

deltax(i) # Percentage-point change in the general sales tax rate

#;

(change) deltax1all # Overall percent-point change in indirect tax rates,

user

1

#;

(change) deltax2all # Overall percent-point change in indirect tax rates,

user

2

#; 85

(change) deltax3all # Overall percent-point change in indirect tax rates,

user

3

#;

(change) deltax4all # Overall percent-point change in indirect tax rates,

user

4

#;

(change) deltax5all # Overall percent-point change in indirect tax rates,

user

5

#;

(change) deltax6all # Overall percent-point change in indirect tax rates,

user

6

#;

(change)(all,q,ALLDEST) deltaxdest(q)

#

Regional

tax

shifter

(percentage-point

change)

#;

(change)(all,s,ALLSOURCE) deltaxsource(s)

#

Regional

tax

shifter

(percentage-point

change)

#;

EQUATION

E_deltax1

#

Tax

rate

on

sales

to

User

1

#

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) 86

deltax1(i,s,j,q)=deltax(i)+deltax1all+deltaxsource(s)+deltaxd est(q);

E_deltax2

#

Tax

rate

on

sales

to

User

2

#

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) deltax2(i,s,j,q)=deltax(i)+deltax2all+deltaxsource(s)+deltaxd est(q);

E_deltax3

#

Tax

rate

on

sales

to

User

3

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) deltax3(i,s,q)=deltax(i)+deltax3all+deltaxsource(s)+deltaxdes t(q);

E_deltax4

#

Tax

rate

on

sales

to

User

4

#

(all,i,COM)(all,s,REGSOURCE) deltax4(i,s)=deltax(i)+deltax4all+deltaxsource(s)+deltaxdest( "foreign");

E_deltax5

#

Tax

rate

on

sales

to

User

5

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) deltax5(i,s,q)=deltax(i)+deltax5all+deltaxsource(s)+deltaxdes t(q);

E_deltax6

#

Tax

rate

on

sales

to

User

6

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) deltax6(i,s,q)=deltax(i)+deltax6all+deltaxsource(s)+deltaxdes t("federal");

!

Subsection

3.2.6:

Purchasers

prices

of

commodities

! 87

VARIABLE

(all,i,COM)(all,s,ALLSOURCE) p0a(i,s)

#

Basic

price

of

good

i,

source

s

#;

prices

#;

(all,i,COM)(all,s,REGSOURCE) p4r(i,s)

#

F.O.B.

foreign

currency

export

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) p5a(i,s,q) # Purchasers prices for commodities by regional government

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) p6a(i,s,q) # Purchasers prices for commodities by Federal government

natphi

#;

#

Exchange

rate

#;

EQUATION

E_p1a

#

Purchasers

prices

-

User

1

#

(all,i,COM)(all,j,IND)(all,q,REGDEST)(all,s,ALLSOURCE) (TINY+PVAL1A(i,s,j,q))*p1a(i,s,j,q) =[BAS1(i,s,j,q)+TAX1(i,s,j,q)]*p0a(i,s) +BAS1(i,s,j,q)*deltax1(i,s,j,q)+sum(r,MARGCOM,MAR1(i,s,j,q,r) *p0a(r,q));

E_p2a

#

Purchasers

prices

-

User

2

# 88

(all,i,COM)(all,j,IND)(all,q,REGDEST)(all,s,ALLSOURCE) (TINY+PVAL2A(i,s,j,q))*p2a(i,s,j,q)=[BAS2(i,s,j,q)+TAX2(i,s,j ,q)]*p0a(i,s) +BAS2(i,s,j,q)*deltax2(i,s,j,q)+sum(r,MARGCOM,MAR2(i,s,j,q,r) *p0a(r,q));

E_p3a

#

Purchasers

prices

-

User

3

#

(all,i,COM)(all,q,REGDEST)(all,s,ALLSOURCE) (TINY+PVAL3A(i,s,q))*p3a(i,s,q)=[BAS3(i,s,q)+TAX3(i,s,q)]*p0a (i,s) +BAS3(i,s,q)*deltax3(i,s,q)+sum(r,MARGCOM,MAR3(i,s,q,r)*p0a(r ,q));

E_p4r

#

Purchasers

prices

-

User

4

#

(all,i,COM)(all,s,REGSOURCE) (TINY+PVAL4R(i,s))*(natphi+p4r(i,s)) =[BAS4(i,s)+TAX4(i,s)]*p0a(i,s) +BAS4(i,s)*deltax4(i,s)+sum(r,MARGCOM,MAR4(i,s,r)*p0a(r,s));

E_p5a

#

Purchasers

prices

-

User

5

#

(all,i,COM)(all,q,REGDEST)(all,s,ALLSOURCE) (TINY+PVAL5A(i,s,q))*p5a(i,s,q)=[BAS5(i,s,q)+TAX5(i,s,q)]*p0a (i,s) +BAS5(i,s,q)*deltax5(i,s,q)+sum(r,MARGCOM,MAR5(i,s,q,r)*p0a(r ,q));

E_p6a

#

Purchasers

(all,i,COM)(all,s,ALLSOURCE)

prices

-

User

6

#

(all,q,REGDEST)

(TINY+PVAL6A(i,s,q))*p6a(i,s,q)=[BAS6(i,s,q)+TAX6(i,s,q)]*p0a 89

(i,s) +BAS6(i,s,q)*deltax6(i,s,q)+sum(r,MARGCOM,MAR6(i,s,q,r)*p0a(r ,s));

!

Subsection

3.2.7:

Tax

revenues

!

VARIABLE

(all,q,REGDEST) taxrev1(q)

#

intermediate

Aggregate

revenue,

indirect

taxes

on #;

(all,q,REGDEST) taxrev2(q) # Aggregate revenue, indirect taxes on investment #;

(all,q,REGDEST) taxrev3(q) # Aggregate revenue, indirect taxes on households #;

(all,s,REGSOURCE) taxrev4(s) # Aggregate revenue, indirect taxes on foreign exports

#;

(all,q,REGDEST) taxrev5(q) # Aggregate revenue, indirect taxes on regional government

#;

(all,q,REGDEST) 90

taxrev6(q) # Aggregate revenue, indirect taxes on federal government

#;

nattaxrev1

#

Aggregate

revenue

from

indirect

taxes

intermediate

nattaxrev2

#;

#

Aggregate

revenue

from

indirect

taxes

investment

nattaxrev3

on

on #;

#

Aggregate

revenue

from

indirect

taxes

households

on #;

nattaxrev4 # Aggregate revenue from indirect taxes on exports #;

nattaxrev5

#

Aggregate

revenue

regional

from

indirect

taxes

government

on #;

nattaxrev6 # Aggregate revenue from indirect taxes on federal government

#;

(all,i,COM)(all,s,REGSOURCE) x4r(i,s)

#

Export

volume

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x5a(i,s,q)

#

Regional

government

demand

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x6a(i,s,q)

#

Federal

government

demand

in

each region #; 91

EQUATION

E_taxrev1 # Aggregate revenue from indirect taxes levied on flows

to

User

1

#

(all,q,REGDEST) AGGTAX1(q)*taxrev1(q)=sum(i,COM,sum(s,ALLSOURCE,sum(j,IND,TAX 1(i,s,j,q) *{p0a(i,s)+x1a(i,s,j,q)}+BAS1(i,s,j,q)*deltax1(i,s,j,q))));

E_nattaxrev1 # National revenue from indirect taxes levied on flows

to

User

1

#

NATAGGTAX1*nattaxrev1=sum(q,REGDEST,AGGTAX1(q)*taxrev1(q));

E_taxrev2 # Aggregate revenue from indirect taxes levied on flows

to

User

2

#

(all,q,REGDEST) AGGTAX2(q)*taxrev2(q)=sum(i,COM, sum(s,ALLSOURCE,sum(j,IND,TAX2(i,s,j,q) *{p0a(i,s)+x2a(i,s,j,q)}+BAS2(i,s,j,q)*deltax2(i,s,j,q))));

E_nattaxrev2 # National revenue from indirect taxes levied on flows

to

User

2

#

NATAGGTAX2*nattaxrev2=sum(q,REGDEST,AGGTAX2(q)*taxrev2(q));

E_taxrev3 # Aggregate revenue from indirect taxes levied on flows

to

User

3

#

(all,q,REGDEST) AGGTAX3(q)*taxrev3(q)=sum(i,COM,sum(s,ALLSOURCE,TAX3(i,s,q) 92

*{p0a(i,s)+x3a(i,s,q)}+BAS3(i,s,q)*deltax3(i,s,q)));

E_nattaxrev3 # National revenue from indirect taxes levied on flows

to

User

3

#

NATAGGTAX3*nattaxrev3=sum(q,REGDEST,AGGTAX3(q)*taxrev3(q));

E_taxrev4 # Aggregate revenue from indirect taxes levied on flows

to

User

4

#

(all,s,REGSOURCE) AGGTAX4(s)*taxrev4(s)=sum(i,COM,TAX4(i,s)*{p0a(i,s)+x4r(i,s)} +BAS4(i,s)*deltax4(i,s));

E_nattaxrev4 # National revenue from indirect taxes levied on flows

to

User

4

#

NATAGGTAX4*nattaxrev4= sum(s,REGSOURCE,AGGTAX4(s)*taxrev4(s));

E_taxrev5 # Aggregate revenue from indirect taxes levied on flows

to

User

5

#

(all,q,REGDEST) (TINY+AGGTAX5(q))*taxrev5(q)=sum(i,COM,sum(s,ALLSOURCE,TAX5(i ,s,q) *{p0a(i,s)+x5a(i,s,q)}+BAS5(i,s,q)*deltax5(i,s,q)));

E_nattaxrev5 # National revenue from indirect taxes levied on flows

to

User

5

#

(TINY+NatAGGTAX5)*nattaxrev5=sum(q,REGDEST,AGGTAX5(q)*taxrev5 (q));

93

E_taxrev6 # Aggregate revenue from indirect taxes levied on flows

to

User

6

#

(all,q,REGDEST) (TINY+AGGTAX6(q))*taxrev6(q)=sum(i,COM,sum(s,ALLSOURCE,TAX6(i ,s,q) *{p0a(i,s)+x6a(i,s,q)}+BAS6(i,s,q)*deltax6(i,s,q)));

E_nattaxrev6 # National revenue from indirect taxes levied on flows

to

User

6

#

(TINY+NATAGGTAX6)*nattaxrev6=sum(q,REGDEST,AGGTAX6(q)*taxrev6 (q));

!

Subsection

3.2.8:

Demands

for

exports

!

VARIABLE

(all,s,REGSOURCE) aggnt_x4r(s)

# Aggregate regional non-traditional exports #;

(all,s,REGSOURCE) aggnt_feq(s)

#

Quant.

shift

non-traditional

exports

#;

Price

shift

non-traditional

exports

#;

(all,s,REGSOURCE) aggnt_fep(s)

#

(all,s,REGSOURCE) aggnt_p4r(s) exports

#

Aggregate

foreign

price

non-traditional #;

94

(all,i,NTEXP) faggnt_i(i)

#

Shifter

by

commodity

#;

(all,s,REGSOURCE) faggnt_s(s)

#

Shifter

by

region

#;

(all,s,REGSOURCE) faggnt_p4r(s)

#

Shifter

on

aggregate

price

by

region

#;

(all,i,COM) fep(i)

#

Price

(upward)

shift

in

export

demands

#;

demands

#;

(all,i,COM) feq(i)

#

natfep

#

Quantity

(right)

Economy-wide

shift

shifter

of

in

export

export

demand curves #;

(all,i,NTEXP)(all,s,REGSOURCE) faggnt_is(i,s)

#

Shifter

by

commodity

and

region

#;

EQUATION

E_x4r

#

Export

demand

functions

#

(all,i,TEXP)(all,s,REGSOURCE) x4r(i,s)-feq(i)=EXP_ELAST(i)*[p4r(i,s)-fep(i)-natfep];

E_aggnt_x4r # Export demand functions, non-trad aggregate # (all,s,REGSOURCE) aggnt_x4r(s)-aggnt_feq(s)=EXP_ELAST("ADP")*[aggnt_p4r(s)95

aggnt_fep(s)-natfep];

E_nt_x4r

#

Export

demand

functions,

non-trad

#

(all,i,NTEXP)(all,s,REGSOURCE) x4r(i,s)=aggnt_x4r(s)+faggnt_i(i)+faggnt_s(s)+faggnt_is(i,s);

E_aggnt_p4r

#

Export

price,

non-trad

aggregate

#

(all,s,REGSOURCE) AGGEXPNT(s)*aggnt_p4r(s)=sum(i,NTEXP,PVAL4r(i,s)*p4r(i,s))+fa ggnt_p4r(s);

! Subsection 3.2.9: Demands for commodities for regional gov. expenditure

!

VARIABLE

(all,q,REGDEST) cr(q)

#

Real

household

consumption

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) f5a(i,s,q)

#

Shift

in

regional

government

demand

#;

natf5gen # Overall shift term for regional government demand #;

(all,q,REGDEST) f5gen(q)

#

Shifter,

regional

government

demand

#;

96

EQUATION

E_x5a

#

Regional

government

demand

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x5a(i,s,q)=cr(q)+f5a(i,s,q)+f5gen(q)+natf5gen;

! Subsection 3.2.10: Demands for commodities for Federal gov. expenditure

!

VARIABLE

natcr

#

Real

household

consumption

(all,i,COM)(all,s,ALLSOURCE) f6a(i,s,q)

#

Shift,

#;

(all,q,REGDEST)

Federal

government

demand

#;

natf6gen # Overall shift term for federal government demand #;

(all,q,REGDEST) f6gen(q)

#

Shifter,

federal

government

demand

#;

demand

#

EQUATION

E_x6a

#

Federal

government

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) x6a(i,s,q)

!

Subsection

=natcr+f6a(i,s,q)+f6gen(q)+natf6gen;

3.2.11:

Margin

usage

of

commodities

! 97

Variable

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) x1marg(i,s,j,q,r)

#

Margins

-

current

production

#;

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) x2marg(i,s,j,q,r)

#

Margins

-

capital

creation

#;

(all,i,COM)(all,s,ALLSOURCE)(all,r,MARGCOM)(all,q,REGDEST) x3marg(i,s,q,r)

#

Margins

-

on

sales

to

households

#;

exports

#;

(all,i,COM)(all,s,REGSOURCE)(all,r,MARGCOM) x4marg(i,s,r)

#

Margins

-

on

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) x5marg(i,s,q,r) # Margins - on sales to regional government demand

#;

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)

(all,r,MARGCOM)

x6marg(i,s,q,r) # Margins - on sales to federal government demand

#;

(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) a1marg_ij(s,q,r)

#

Tech

Margins

-

current

production

#;

(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) 98

a2marg_ij(s,q,r)

#

Tech

Margins

-

capital

creation

#;

(all,s,ALLSOURCE)(all,r,MARGCOM)(all,q,REGDEST) a3marg_i(s,q,r) # Tech Margins - on sales to households #;

(all,s,REGSOURCE)(all,r,MARGCOM) a4marg_i(s,r)

#

Tech

Margins

-

on

exports

#;

(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) a5marg_i(s,q,r)

#

Tech

Margins

government

-

on

sales

to

regional

demand

#;

(all,r,MARGCOM)

(all,s,ALLSOURCE)(all,q,REGDEST) a6marg_i(s,q,r)

#

Tech

Margins

government

-

on

sales

to

federal

demand

#;

(all,s,ALLSOURCE)(all,r,MARGCOM)(all,q,REGDEST) amarg_i(s,q,r) # Tech Margins - general on sales to Users 1, 2,

3,

5,

6

#;

EQUATION

E_x1marg

#

Margins

on

sales

to

producers

#

(all,i,COM)(all,j,IND)(all,q,REGDEST)(all,s,ALLSOURCE)(all,r, MARGCOM) x1marg(i,s,j,q,r)=THETA(i,s,q)*x1a(i,s,j,q)+a1marg_ij(s,q,r)+ amarg_i(s,q,r);

E_x2marg

#

Margins

on

sales

to

capital

creators

# 99

(all,i,COM)(all,j,IND)(all,q,REGDEST)(all,s,ALLSOURCE)(all,r, MARGCOM) x2marg(i,s,j,q,r)=THETA(i,s,q)*x2a(i,s,j,q)+a2marg_ij(s,q,r)+ amarg_i(s,q,r);

E_x3marg

#

Margins

on

sales

to

household

consumption

#

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) x3marg(i,s,q,r)=THETA(i,s,q)*x3a(i,s,q)+a3marg_i(s,q,r)+amarg _i(s,q,r);

E_x4marg

#

Margins

on

exports:

factory

gate

to

port

#

(all,i,COM)(all,r,MARGCOM)(all,s,REGSOURCE) x4marg(i,s,r)=x4r(i,s)+a4marg_i(s,r);

E_x5marg # Margins on sales to regional government demand # (all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) x5marg(i,s,q,r)=x5a(i,s,q)+a5marg_i(s,q,r)+amarg_i(s,q,r);

E_x6marg # Margins on sales to federal government demand in each

region

#

(all,i,COM)(all,r,MARGCOM)(all,s,ALLSOURCE)(all,q,REGDEST) x6marg(i,s,q,r)=x6a(i,s,q)+a6marg_i(s,q,r)+amarg_i(s,q,r);

!

Subsection

3.2.12:

Supply

imported

equals

demand

commodities

for

domestic & !

VARIABLE

(all,i,COM)(all,q,REGDEST) 100

x0imp(i,q)

#

Import

volumes

#;

volume

#;

(all,i,COM) natx0imp(i)

#

Import

EQUATION

E_mkt_clear_margins

#

Demand

equals

supply

for

margin

commodities

#

(all,r,MARGCOM)(all,s,REGSOURCE) (TINY+SALES(r,s))*z(r,s)=sum(j,IND,sum(q,REGDEST,BAS1(r,s,j,q )*x1a(r,s,j,q) +BAS2(r,s,j,q)*x2a(r,s,j,q)))+sum(q,REGDEST,BAS3(r,s,q)*x3a(r ,s,q)) +BAS4(r,s)*x4r(r,s)+sum(q,REGDEST,BAS5(r,s,q)*x5a(r,s,q)) +sum(q,REGDEST,BAS6(r,s,q)*x6a(r,s,q)) +sum(j,IND,sum(i,COM,sum(ss,ALLSOURCE,MAR1(i,ss,j,s,r)*x1marg (i,ss,j,s,r) +MAR2(i,ss,j,s,r)*x2marg(i,ss,j,s,r)))) +sum(i,COM, sum(ss,ALLSOURCE,MAR3(i,ss,s,r)*x3marg(i,ss,s,r))) +sum(i,COM,MAR4(i,s,r)*x4marg(i,s,r)) +sum(i,COM,sum(ss,ALLSOURCE,MAR5(i,ss,s,r)*x5marg(i,ss,s,r))) +sum(i,COM,sum(ss,ALLSOURCE,MAR6(i,ss,s,r)*x6marg(i,ss,s,r))) ;

E_mkt_clear_nomarg

#

Demand

equals

commodities

supply

for

non-margin #

(all,r,NONMARGCOM)(all,s,REGSOURCE) 101

(TINY+SALES(r,s))*z(r,s)=sum(j,IND,sum(q,REGDEST,BAS1(r,s,j,q )*x1a(r,s,j,q))) +sum(j,IND,sum(q,REGDEST,BAS2(r,s,j,q)*x2a(r,s,j,q))) +sum(q,REGDEST,BAS3(r,s,q)*x3a(r,s,q))+BAS4(r,s)*x4r(r,s) +sum(q,REGDEST,BAS5(r,s,q)*x5a(r,s,q))+sum(q,REGDEST,BAS6(r,s ,q)*x6a(r,s,q));

E_x0impa

#

Import

volume

of

commodities

by

region

#

(all,i,COM)(all,q,REGDEST) (TINY+IMPORTS(i,q))*x0imp(i,q)= sum(j,IND,BAS1(i,"foreign",j,q)*x1a(i,"foreign",j,q) +BAS2(i,"foreign",j,q)*x2a(i,"foreign",j,q)) +BAS3(i,"foreign",q)*x3a(i,"foreign",q) +BAS5(i,"foreign",q)*x5a(i,"foreign",q)+BAS6(i,"foreign",q)*x 6a(i,"foreign",q);

E_natx0imp

#

Import

volume

#

(all,i,COM) (TINY+NATIMPORTS(i))*natx0imp(i)=sum(q,REGDEST,IMPORTS(i,q)*x 0imp(i,q));

!

Subsection

3.2.13:

Basic

prices

!

VARIABLE

(all,j,IND)(all,q,REGDEST) a(j,q)

#

Average

of

technical

change

terms,

prod.

#;

(all,j,IND)(all,q,REGDEST) 102

pi(j,q)

#

Costs

of

units

of

capital

#;

(all,i,COM) pm(i)

#

C.I.F.

foreign

currency

import

prices

#;

(all,i,COM) powtaxm(i)

#

Power

of

tariffs

#;

EQUATION

E_p0a

#

Zero

pure

profits

in

current

production

#

(all,j,IND)(all,q,REGDEST) (TINY+COSTS(j,q))*{p0a(j,q)-a(j,q)}= sum(i,COM,sum(s,ALLSOURCE,PVAL1A(i,s,j,q)*p1a(i,s,j,q))) +

sum(m,OCC,LAB_OCC_IND(m,j,q)*

p1laboi(j,q,m))+

CAPITAL(j,q)*p1cap(j,q) +LAND(j,q)*p1land(j,q)+

E_a

#

Technical

OTHCOST(j,q)*p1oct(j,q);

change

by

industry-current

production

#

(all,j,IND)(all,q,REGDEST) (TINY+COSTS(j,q))*[a(j,q)-a1(j,q)]=TOTFACIND(j,q)*a1prim(j,q) +LABOR(j,q)*a1lab(j,q)+CAPITAL(j,q)*a1cap(j,q)+LAND(j,q)*a1la nd(j,q) +OTHCOST(j,q)*a1oct(j,q);

E_pi

#

Zero

pure

profits

in

capital

creation

#

(all,j,IND)(all,q,REGDEST) (TINY+INVEST(j,q))*(pi(j,q)-a2ind(j,q))= sum(i,COM,sum(s,ALLSOURCE,PVAL2A(i,s,j,q)*p2a(i,s,j,q))); 103

E_p0ab

#

Zero

pure

profits

in

importing

#

(all,i,COM) p0a(i,"foreign")=pm(i)+natphi+powtaxm(i);

! Subsection 3.2.14: Components of regional GDP, real and nominal

!

VARIABLE

(all,q,REGDEST) caprev(q)

#

Aggregate

payments

to

capital

#;

labor

#;

land

#;

payments

#;

(all,q,REGDEST) labrev(q)

#

Aggregate

payments

Aggregate

payments

to

(all,q,REGDEST) lndrev(q)

#

to

(all,q,REGDEST) octrev(q)

#

Aggregate

other

cost

ticket

(all,q,REGDEST) #

taxrevm(q)

Aggregate

tariff

revenue

#;

(all,q,REGDEST) taxind(q)

#

Aggregate

revenue

from

all

indirect taxes #;

(all,j,IND) 104

natlabind(j)

#

Employment

by

industry

#;

(all,q,REGDEST) l(q)

#

Aggregate

employment,

wage

bill

weights

#;

rental

weights

#;

value-added

weights

#;

(all,q,REGDEST) kt(q)

#

Aggregate

capital

stock,

(all,q,REGDEST) z_tot(q)

#

Aggregate

output,

(all,q,REGDEST) c(q)

#

Nominal

total

household

consumption

#;

(all,q,REGDEST) in(q)

#

Aggregate

nominal

investment

#;

(all,q,REGDEST) ir(q)

#

Aggregate

real

investment

expenditure

#;

index

#;

(all,q,REGDEST) xi2(q)

#

Investment

price

(all,q,REGDEST) othnom5(q) # Aggregate nominal regional government demand #;

(all,q,REGDEST) othnom6(q) # Aggregate nominal federal government demand #;

105

(all,q,REGDEST) othreal5(q) # Aggregate real regional government demand #;

(all,q,REGDEST) othreal6(q) # Aggregate real federal government demand #;

(all,q,REGDEST) xi5(q)

#

Regional

government

demand

price

index

#;

demand

price

index

#;

exports

#;

(all,q,REGDEST) xi6(q)

#

Federal

government

(all,q,REGDEST) export(q)

#

Foreign

currency

value

of

(all,q,REGDEST) expvol(q)

#

Export

volume

#;

(all,q,REGDEST) xi4(q)

#

Exports

price

index

#;

exports

#;

(all,q,REGDEST) exp_for_cr(q)

#

R$

value

of

(all,q,REGDEST) imp(q)

#

Foreign

currency

value

of

imports

#;

(all,q,REGDEST) impvol(q)

#

Import

volume

index

#; 106

(all,q,REGDEST) xim(q)

#

Imports

price

index

#;

imports

#;

(all,q,REGDEST) imp_for_cr(q)

#

R$

value

of

(all,s,REGSOURCE)(all,q,REGDEST) psflo(s,q)

#

Price

index

-

interregional

trade

flows

#;

(all,s,REGSOURCE) psexp(s)

#

Price

indices

for

interregional

exports

#;

indices

for

interregional

imports

#;

(all,q,REGDEST) psimp(q)

#

Price

(all,s,REGSOURCE) xsexp(s)

#

Exports

volume

in

interregional

trade

#;

volume

in

interregional

trade

#;

(all,q,REGDEST) xsimp(q)

#

Imports

(change)(all,q,REGDEST) delb_dom(q)

#

Change

in

interregional

trade

balance

#

;

(change)(all,q,REGDEST) delb_for_cr(q) # 1,000,000 R$ value of foreign trade balance #;

107

(change)(all,q,REGDEST) delb_tot(q) # Sum of domestic and foreign trade balance #;

(all,s,REGSOURCE) xsflo(s,q)

#

(all,q,REGDEST)

Volume

of

interregional

trade

flows

#;

(all,q,REGDEST) cr_shr(q)

#

Regional/national

consumption

ratio

#;

capital

#

EQUATION

E_caprev

#

Aggregate

payments

to

(all,q,REGDEST) caprev(q)=(1.0/AGGCAP(q))*sum(j,IND,CAPITAL(j,q)*{p1cap(j,q)+ curcap(j,q)});

E_labrev

#

Aggregate

payments

to

labor

#

(all,q,REGDEST) labrev(q)=(1.0/AGGLAB(q))*sum(j,IND,sum(m,OCC,LAB_OCC_IND(m,j ,q) *{p1laboi(j,q,m)+x1laboi(j,q,m)}));

E_lndrev

#

Aggregate

payments

to

land

#

(all,q,REGDEST) lndrev(q)=(1.0/AGGLND(q))*sum(j,IND,LAND(j,q)*{p1land(j,q)+n( j,q)});

E_octrev

#

Aggregate

other

cost

ticket

payments

#

(all,q,REGDEST) 108

octrev(q)=(1.0/AGGOCT(q))*sum(j,IND,OTHCOST(j,q)*{p1oct(j,q)+ x1oct(j,q)});

E_taxrevm

#

Aggregate

tariff

revenue

#

(all,q,REGDEST) AGGTAXM(q)*taxrevm(q)=sum(i,COM,Tariff(i,q)*{pm(i)+natphi+x0i mp(i,q)} +IMPORTS(i,q)*powtaxm(i));

E_taxind

#

Aggregate

value

of

indirect

taxes

#

(all,q,REGDEST) taxind(q)=(1.0/AGGTAX(q))*(AGGTAX1(q)*taxrev1(q)+AGGTAX2(q)*t axrev2(q) +AGGTAX3(q)*taxrev3(q)+AGGTAX5(q)*taxrev5(q));

E_natlabind

#

Aggregate

employment

- wage

bill weights #

(all,j,IND) (TINY+NATLABOR(j))*natlabind(j)=sum(q,REGDEST,LABOR(j,q)*labi nd(j,q));

E_l

#

Aggregate

employment

-

wage

bill

weights

#

(all,q,REGDEST) l(q)=(1.0/AGGLAB(q))*sum(j,IND,LABOR(j,q)*labind(j,q));

E_kt

#

Aggregate

usage

of

capital,

rental

weights

#

(all,q,REGDEST) kt(q)=(1.0/AGGCAP(q))*sum(j,IND,CAPITAL(j,q)*curcap(j,q));

E_z_tot

#

Aggregate

output:

value-added

weights

# 109

(all,q,REGDEST) TOTFAC(q)*z_tot(q)=sum(j,IND,TOTFACIND(j,q)*z(j,q));

E_c_a

#

Household

budget

constraint

#

(all,q,REGDEST) AGGCON(q)*c(q)= sum(i,COM,sum(s,ALLSOURCE,PVAL3A(i,s,q)*{x3a(i,s,q)+p3a(i,s,q )}));

E_cr

#

Real

(total)

household

consumption

#

(all,q,REGDEST) cr(q)=c(q)-xi3(q);

E_in

#

Total

nominal

investment

#

(all,q,REGDEST) in(q)=ir(q)+xi2(q);

E_ir

#

Total

real

investment

#

(all,q,REGDEST) ir(q)=(1.0/AGGINV(q))*sum(j,IND,INVEST(j,q)*y(j,q));

E_othnom5 # Aggregate nominal value of regional government demand

#

(all,q,REGDEST) othnom5(q)=othreal5(q)+xi5(q);

E_othreal5

#

Aggregate

real

regional

government

demand

#

(all,q,REGDEST) othreal5(q)= 110

(1.0/AGGOTH5(q))*sum(i,COM,sum(s,ALLSOURCE,PVAL5A(i,s,q)*x5a( i,s,q)));

E_othnom6

#

Nominal

Federal

government

demand

#

demand

#

(all,q,REGDEST) othnom6(q)=othreal6(q)+xi6(q);

E_othreal6

#

Real

Federal

government

(all,q,REGDEST) AGGOTH6(q)*othreal6(q)=sum(i,com,sum(s,ALLSOURCE,PVAL6A(i,s,q )*x6a(i,s,q)));

E_export

#

Foreign

currency

value

of

exports

#

(all,q,REGDEST) export(q)=(1.0/AGGEXP(q))*sum(i,COM,PVAL4R(i,q)*[p4r(i,q)+x4r (i,q)]);

E_expvol

#

Export

volume

index

#

(all,q,REGDEST) expvol(q)=export(q)+natphi-xi4(q);

E_exp_for_cr

#

Foreign

export

aggregate

in

R$

#

(all,q,REGDEST) exp_for_cr(q)=expvol(q)+xi4(q);

E_imp

#

Foreign

currency

value

of

imports

#

(all,q,REGDEST) imp(q)=(1.0/AGGIMP(q))*sum(i,COM,IMPCOST(i,q)*[pm(i)+x0imp(i, q)]); 111

E_impvol

#

Import

volume

index

#

(all,q,REGDEST) impvol(q)=imp(q)+natphi-xim(q);

E_imp_for_cr

#

Foreign

import

aggregate

in

R$

#

(all,q,REGDEST) imp_for_cr(q)=impvol(q)+xim(q);

E_trd # Interregional trade flows (including diagonal term) # (all,s,REGSOURCE)

(all,q,REGDEST)

(TINY+C_XSFLO(s,q))*(psflo(s,q)+xsflo(s,q))= x1a(i,s,j,q))))

sum(i,com,sum(j,IND,BAS1(i,s,j,q)*(p0a(i,s)+

+sum(i,com,sum(j,IND,BAS2(i,s,j,q)*(p0a(i,s)+x2a(i,s,j,q)))) +sum(i,com,BAS3(i,s,q)*(p0a(i,s)+x3a(i,s,q))) +sum(i,com,BAS5(i,s,q)*(p0a(i,s)+x5a(i,s,q)));

E_int_exp

#

Interregional

exports

#

(all,s,REGSOURCE) (TINY+C_XSEXP(s))*(psexp(s)+xsexp(s))= sum(q,REGDEST,C_XSFLO(s,q)*(psflo(s,q)+xsflo(s,q))) -C_XSFLO(s,s)*(psflo(s,s)+xsflo(s,s));

E_int_imp

#

Interregional

imports

#

(all,q,REGDEST) (TINY+C_XSIMP(q))*(psimp(q)+xsimp(q))= sum(s,REGSOURCE,C_XSFLO(s,q)*(psflo(s,q)+xsflo(s,q))) -C_XSFLO(q,q)*(psflo(q,q)+xsflo(q,q));

112

E_delb_for_cr

#

Balance

of

trade

in

1,000,000

R$

#

interregional

1,000,000

R$

#

(all,q,REGDEST) delB_for_cr(q)=AGGEXP(q)*exp_for_cr(q)AGGIMP(q)*imp_for_cr(q);

E_delb_dom

#

Balance

of

(all,q,REGDEST) delb_dom(q)=(TINY+C_XSEXP(q))*(psexp(q)+xsexp(q)) -(TINY+C_XSIMP(q))*(psimp(q)+xsimp(q));

E_delb_tot

#

Total

domestic

and

foreign

trade

balance

#

(all,q,REGDEST) delb_tot(q)=delb_dom(q)+delb_for_cr(q);

E_cr_shr

#

Shares

in

national

cr

#

(all,q,REGDEST) cr(q)=natcr+cr_shr(q);

! Subsection 3.2.15: National GDP, real and nominnal, and its components

!

VARIABLE

natcaprev

#

Aggregate

payments

natlabrev

#

Aggregate

payments

natlndrev

#

Aggregate

payments

to

to

to

capital

#;

labor

#;

land

#;

113

natoctrev

#

Aggregate

nattaxrevm

nattaxind

#

#

natgdpinc

natkt

natl

#

#

Aggregate

#

from

GDP

all

from

capital

output,

payments

revenue

#;

#;

indirect taxes #;

income

side

#;

rental

weights

#;

bill

weights

#;

value-added

weights

#;

stock,

employment,

Aggregate

ticket

tariff

revenue

Nominal

Aggregate

natz_tot

cost

Aggregate

Aggregate

#

other

wage

(all,j,IND) natz(j)

natc

#

#

natin

natir

Activity

Nominal

#

#

total

Aggregate

Aggregate

natxi2

#

real

household

nominal

#;

consumption

#;

investment

investment

Investment

level

#;

expenditure

#;

index

#;

industry

#;

price

(all,j,IND) naty(j)

#

Capital

creation

by

using

natothnom5 # Aggregate nominal value of regional government 114

demand

#;

natothnom6 # Aggregate nominal value of federal government demand

#;

natothreal5 # Aggregate real regional government demand #;

natothreal6 # Aggregate real federal government demand #;

natxi5

#

Regional

natxi6

#

Federal

natexport

#

natexpvol

demand

price

index

#;

government

demand

price

index

#;

Foreign-currency

value

exports

#;

#

natxi4

natimp

government

#

#

#

#

value

Import

Imports

Nominal

#

volume

price

currency

#

natxim

natgdpreal

Exports

Foreign

natimpvol

natgdpexp

Export

Real

GDP

GDP

of

index

of

#;

imports

volume

price

from

from

#;

#;

index

expenditure

expenditure

#;

#;

side

#;

side

#;

115

natxigdp

#

GDP

price

index,

expenditure

side

#;

trade

#;

capital

#

(change) natdelb

#

Ordinary

change

in

balance

of

EQUATION

E_natcaprev

#

Aggregate

payments

to

natcaprev=(1.0/NATAGGCAP)*sum(q,REGDEST,AGGCAP(q)*caprev(q));

E_natlabrev

#

Aggregate

payments

to

labor

#

land

#

natlabrev=(1.0/NATAGGLAB)*sum(q,REGDEST, AGGLAB(q)*labrev(q));

E_natlndrev

#

Aggregate

payments

to

natlndrev=(1.0/NATAGGLND)*sum(q,REGDEST,AGGLND(q)*lndrev(q));

E_natoctrev

#

Aggregate

other

cost

ticket

payments

#

natoctrev=(1.0/NATAGGOCT)*sum(q,REGDEST,AGGOCT(q)*octrev(q));

E_nattaxrevm

#

Aggregate

tariff

revenue

#

nattaxrevm=(1.0/NATAGGTAXM)*sum(q,REGDEST,AGGTAXM(q)*taxrevm( q));

E_nattaxind

#

Aggregate

value

of

indirect

taxes

#

nattaxind=(1.0/NATAGGTAX)*(NATAGGTAX1*nattaxrev1+NATAGGTAX2*n attaxrev2 +NATAGGTAX3*nattaxrev3+NATAGGTAX4*nattaxrev4+NATAGGTAX5*natta xrev5 116

+NATAGGTAX6*nattaxrev6+NATAGGTAXM*nattaxrevm);

E_natgdpinc

#

Aggregate

nominal

GDP

from

income

side

#

natgdpinc=(1.0/NATGDPIN)*(NATAGGLND*natlndrev+NATAGGCAP*natca prev + NATAGGLAB*natlabrev+NATAGGOCT*natoctrev+NATAGGTAX*nattaxind);

E_natkt

#

Aggregate

usage

of

capital,

rental

weights

#

natkt=(1.0/NATAGGCAP)*sum(q,REGDEST,AGGCAP(q)*kt(q));

E_natl

#

Aggregate

employment,

wage

bill

weights

#

natl=(1.0/NATAGGLAB)*sum(q,REGDEST,AGGLAB(q)*l(q));

E_natZ_TOT

#

Aggregate

output,

value-added

weights

#

NATTOTFAC*natz_tot=sum(q,REGDEST,TOTFAC(q)*z_tot(q));

E_natZ

#

Aggregate

output,

value-added

weights

#

(all,j,IND) (TINY+NATTOTFACIND(j))*natz(j)=sum(q,REGDEST,TOTFACIND(j,q)*z (j,q));

E_natc

#

Aggregate

nominal

consumption

#

NATAGGCON*natc=sum(q,REGDEST,AGGCON(q)*c(q));

E_natcr

#

Aggregate

real

consumption

#

NATAGGCON*natcr=sum(q,REGDEST,AGGCON(q)*cr(q));

E_natin

#

Total

nominal

investment

# 117

natin=natir+natxi2;

E_natir

#

Total

real

investment

#

natir=(1.0/NATAGGINV)*sum(j,IND,NATINVEST(j)*naty(j));

E_natothnom5 # Aggregate nominal value of regional government demand

#

natothnom5=natothreal5+natxi5;

E_natothnom6 # Aggregate nominal value of federal government demand

#

natothnom6=natothreal6+natxi6;

E_natothreal5 # Aggregate real regional government demand # natothreal5=(1.0/NATAGGOTH5)*sum(q,REGDEST,AGGOTH5(q)*othreal 5(q));

E_natothreal6 # Aggregate real federal government demand # NATAGGOTH6*natothreal6= sum(i,COM,sum(s,allsource,sum(q,REGDEST,PVAL6A(i,s,q)*x6a(i,s ,q))));

E_natexport

#

Foreign

currency

value

of

exports

#

natexport=(1.0/NATAGGEXP)*sum(s,REGSOURCE,AGGEXP(s)*export(s) );

E_natexpvol

#

Export

volume

index

#

natexpvol=natexport+natphi-natxi4;

118

E_natimp

#

Foreign

currency

value

of

imports

#

natimp=(1.0/NATAGGIMP)*sum(i,COM,NATIMPCOST(i)*[pm(i)+ natx0imp(i)]);

E_natimpvol

#

Import

volume

index

#

natimpvol=natimp+natphi-natxim;

E_natgdpexp # Aggregate nominal GDP from expenditure side # natgdpexp=(1.0/NATGDPEX)*(NATAGGCON*natc+NATAGGINV*natin +NATAGGOTH5*natothnom5+NATAGGOTH6*natothnom6 +NATAGGEXP*(natexport+natphi)-NATAGGIMP*(natimp+natphi));

E_natgdpreal

#

Real

GDP,

expenditure

side

#

R$

#

natgdpreal=natgdpexp-natxigdp;

E_natdelb

#

Balance

of

trade

in

1,000,000

natdelb=NATAGGEXP*natexport-NATAGGIMP*natimp;

! Subsection 3.2.16: Regional and national price indices !

VARIABLE

natxi3

natximp0

#

#

Consumer

price

index

#;

Duty-paid

imports

price

index

#;

Duty-paid

imports

price

index

#;

(all,q,REGDEST) ximp0(q)

#

119

(all,i,COM) pwsq(i) # Price index - interregional trade by commodity #;

pw

#

Price

index

-

interregional

trade:

total

#;

(all,q,REGDEST) wp_eff(q)

#

World

price

effect

on

tot_dom

#;

(all,q,REGDEST) exp_eff(q)

#

Export

price

effect

on

tot_dom

#;

Import

price

effect

on

tot_dom

#;

(all,q,REGDEST) imp_eff(q)

#

(all,q,REGDEST) tot_region(q)

nattot

#

#

Check

on

Economy-wide

tot

terms

(all,i,COM)(all,s,REGSOURCE)

domestic

#;

trade

#;

of

(all,q,REGDEST)

psfloj(i,s,q) # Price index - interregional trade flows by commodity

#;

(all,i,COM)(all,s,REGSOURCE) psexpj(i,s)

#

Price

index

-

interregional

exports

commodity

by #;

(all,i,COM)(all,q,REGDEST) psimpj(i,q)

#

Price

index

-

interregional

imports

by 120

commodity

#;

EQUATION

E_xi3

#

Consumer

price

index

#

(all,q,REGDEST) xi3(q)=(1.0/AGGCON(q))*sum(i,COM,sum(s,ALLSOURCE,PVAL3A(i,s,q )*p3a(i,s,q)));

E_natxi3

#

Consumer

price

index

#

NATAGGCON*natxi3=sum(q,REGDEST,AGGCON(q)*xi3(q));

E_xi2

#

Investment

price

index

#

(all,q,REGDEST) xi2(q)=(1.0/AGGINV(q))*sum(j,IND,INVEST(j,q)*pi(j,q));

E_natxi2

#

Investment

price

index

#

NATAGGINV*natxi2=sum(q,REGDEST,AGGINV(q)*xi2(q));

E_xi4

#

Exports

price

index

#

(all,q,REGDEST) xi4(q)natphi=(1.0/AGGEXP(q))*sum(i,COM,PVAL4R(i,q)*p4r(i,q));

E_natxi4

#

Exports

price

index

#

natxi4=(1.0/NATAGGEXP)*sum(q,REGDEST,AGGEXP(q)*xi4(q));

E_xi5

#

Regional

government

demand

price

index

#

(all,q,REGDEST) 121

xi5(q)=(1.0/AGGOTH5(q))*sum(i,COM,sum(s,ALLSOURCE,PVAL5A(i,s, q)*p5a(i,s,q)));

E_natxi5

#

National

aggregate

price

regional

government

demand

index

#

natxi5=(1.0/NATAGGOTH5)*sum(q,REGDEST,AGGOTH5(q)*xi5(q));

E_xi6

#

Price

index

for

Federal

government

demand

#

(all,q,REGDEST) xi6(q)=(1.0/AGGOTH6(q))*sum(i,com, sum(s,ALLSOURCE,PVAL6A(i,s,q)*p6a(i,s,q)));

E_natxi6 # National price index Federal government demand # NATAGGOTH6*natxi6= sum(i,COM,sum(s,allsource,sum(q,REGDEST,PVAL6A(i,s,q)*p6a(i,s ,q))));

E_natxigdp

#

Price

index

for

GDP,

expenditure

side

#

natxigdp =(1.0/NATGDPEX)*(NATAGGCON*natxi3+NATAGGINV*natxi2+NATAGGOTH5 *natxi5 +NATAGGOTH6*natxi6+NATAGGEXP*natxi4-NATAGGIMP*natxim);

E_xim

#

Imports

price

index

#

(all,q,REGDEST) xim(q)-natphi=(1.0/AGGIMP(q))*sum(i,COM,IMPCOST(i,q)*pm(i));

E_natxim

#

National

imports

price

index

#

natxim=(1.0/NATAGGIMP)*sum(q,REGDEST,AGGIMP(q)*xim(q)); 122

E_ximp0

#

Duty-paid

imports

price

index

#

(all,q,REGDEST) ximp0(q)=(1.0/[AGGIMP(q)+AGGTAXM(q)])*sum(i,COM,IMPORTS(i,q)* p0a(i,"foreign"));

E_natximP0

#

National

duty-paid

imports

price

index

#

natximp0=(1.0/[NATAGGIMP+NATAGGTAXM])*sum(i,COM,NATIMPORTS(i) *p0a(i,"foreign"));

E_psflo

#

Price

index

-

interregional

(all,s,REGSOURCE)

trade

flows

#

(all,q,REGDEST)

(TINY+C_XSFLO(s,q))*psflo(s,q)=sum(i,com,sum(j,IND,BAS1(i,s,j ,q)*p0a(i,s))) +sum(i,com,sum(j,IND,BAS2(i,s,j,q)*p0a(i,s)))+sum(i,com,BAS3( i,s,q)*p0a(i,s)) +sum(i,com,BAS5(i,s,q)*p0a(i,s));

E_psexp

#

Price

index

-

interregional

exports

#

(all,s,REGSOURCE) (TINY+C_XSEXP(s))*psexp(s)=sum(q,REGDEST,C_XSFLO(s,q)*psflo(s ,q)) -C_XSFLO(s,s)*psflo(s,s);

E_psimp

#

Price

index

-

interregional

imports

#

(all,q,REGDEST) (TINY+C_XSIMP(q))*psimp(q)=sum(s,REGSOURCE,C_XSFLO(s,q)*psflo (s,q)) -C_XSFLO(q,q)*psflo(q,q); 123

E_psfloj

#

Price

index

-

interregional

trade

flows

commodity

by #

(all,i,COM)(all,s,REGSOURCE)(all,q,REGDEST) (TINY+C_XSFLOJ(i,s,q))*psfloj(i,s,q)=sum(j,IND,BAS1(i,s,j,q)* p0a(i,s)) +sum(j,IND,BAS2(i,s,j,q)*p0a(i,s))+BAS3(i,s,q)*p0a(i,s)+BAS5( i,s,q)*p0a(i,s);

E_psexpj # Price index - interregional exports by commodity # (all,i,COM)(all,s,REGSOURCE) (TINY+C_XSEXPJ(i,s))*psexpj(i,s)=sum(q,REGDEST,C_XSFLOJ(i,s,q )*psfloj(i,s,q)) -C_XSFLOJ(i,s,s)*psfloj(i,s,s);

E_psimpj # Price index - interregional imports by commodity # (all,i,COM)(all,q,REGDEST) (TINY+C_XSIMPJ(i,q))*psimpj(i,q)=sum(s,REGSOURCE,C_XSFLOJ(i,s ,q)*psfloj(i,s,q)) -C_XSFLOJ(i,q,q)*psfloj(i,q,q);

E_pwsq # Price index - interregional trade by commodity # (all,i,COM) C_XSFLOJSQ(i)*pwsq(i)= sum(s,REGSOURCE,sum(q,REGDEST,C_XSFLOJ(i,s,q)*psfloj(i,s,q))) ;

E_pw

#

Price

index

-

interregional

trade:

total

#

C_XSFLOJSQI*pw=sum(i,COM,C_XSFLOJSQ(i)*pwsq(i)); 124

E_wp_eff

#

World

price

effect

on

tot_dom

#

(all,q,REGDEST) wp_eff(q)=sum(i,COM,(SX(i,q)-SM(i,q))*(pwsq(i)-pw));

E_exp_eff

#

Export

price

effect

on

tot_dom

#

(all,s,REGSOURCE) exp_eff(s)=sum(i,COM,SX(i,s)*(psexpj(i,s)-pwsq(i)));

E_imp_eff

#

Import

price

effect

on

tot_dom

#

(all,q,REGDEST) imp_eff(q)=sum(i,COM,SM(i,q)*(psimpj(i,q)-pwsq(i)));

E_tot_st

#

Check

on

tot

domestic

#

trade

#

(all,q,REGDEST) tot_region(q)=wp_eff(q)+exp_eff(q)-imp_eff(q);

E_nattot

#

National

terms

of

nattot=natxi4-natxim;

!

Subsection

3.2.17:

Money

wage

settings

!

VARIABLE

(all,j,IND)(all,q,REGDEST) pwagei(j,q)

#

Nominal

wage

rates

#;

(all,j,IND)(all,q,REGDEST) arpri(j,q)

#

Payroll

tax

adjustment

factor

#; 125

natfwage

#

Overall

wage

shifter

#;

(all,q,REGDEST) fwage(q)

#

Overall

real

wage

shifter

#;

(all,j,IND)(all,q,REGDEST) fwagei(j,q)

#

Industry-specific

wage

shifter

#;

(all,q,REGDEST) pwage(q) # Region-wide nominal wage received by workers #;

(all,q,REGDEST) pwage_p(q) # Region-wide nominal wage paid by producers #;

natrealwage

#

National

consumer

real

wage

#;

(all,q,REGDEST) wage_diff(q)

#

Regional

real

wage

differential

#;

EQUATION

E_p1laboi

#

Payroll

tax

adjustmemt

#

(all,m,OCC)

(all,j,IND)(all,q,REGDEST) p1laboi(j,q,m)=pwagei(j,q)+arpri(j,q);

E_pwagei

#

Flexible

setting

of

money

wages

#

(all,j,IND)(all,q,REGDEST) pwagei(j,q)=natxi3+natfwage+fwage(q)+fwagei(j,q); 126

E_pwage

#

Region-wide

nominal

wage received

by workers #

(all,q,REGDEST) AGGLAB(q)*pwage(q)=sum(j,IND,LABOR(j,q)*pwagei(j,q));

E_pwage_p

#

Region-wide

nominal

wage paid

by producers #

(all,q,REGDEST) AGGLAB(q)*pwage_p(q)=sum(j,IND,LABOR(j,q)*p1lab(j,q));

E_natrealw

#

National

real

wage:

consumer

#

NATAGGLAB*natrealwage= sum(j,IND,sum(q,REGDEST,LABOR(j,q)*(natfwage+fwage(q)+fwagei( j,q))));

E_wage_diff

#

Region

real-wage

diff

#

(all,q,REGDEST) wage_diff(q)=pwage(q)-natxi3-natrealwage;

!

Subsection

3.2.18:

Miscellaneous

definitions

of

factor

prices

!

VARIABLE

natp1cap

natpwage

#

#

Aggregate

Aggregate

nominal

nominal

capital

wages

to

rental

#;

workers

#;

natpwage_p # Aggregate nominal wages paid by producers #;

127

natrwage_w # National real wages for workers: deflated by CPI #;

natrwage_p # National real wages for producers: deflated by GDP

natxiplpk

deflator

#

Relative

prices

#;

of

labor

and

capital

#;

of

capital

#;

(all,q,REGDEST) reg_p1cap(q)

#

Regional

rental

price

(all,q,REGDEST) xiy_r(q)

#

Regional

GDP

deflator

#;

(all,q,REGDEST) realwage_p(q) # Real wages for producers: deflated by GDP def.

#;

(all,q,REGDEST) realwage_w(q) # Real wages for workers: deflated by CPI #;

(all,q,REGDEST) totdom(q)

#

Domestic

terms

of

trade

#;

Foreign

terms

of

trade

#;

(all,q,REGDEST) totfor(q)

#

(all,q,REGDEST) r0_tot(q)

#

Regional

aggregate

rate

of

return

#; 128

(all,j,IND)(all,q,REGDEST) r0(j,q)

#

Current

rates

of

return

on

capital

#;

(all,j,IND)(all,q,REGDEST) xiplpk_ind(j,q) # Index of ratio of price of labor to price of

capital

#;

(all,q,REGDEST) xiplpk(q) # Index of relative price of labor and capital #;

EQUATION

E_natp1cap

#

Aggregate

nominal

capital

rentals

#

workers

#

natp1cap=natcaprev-natkt;

E_natpwage

#

Aggregate

nominal

wages

of

NATAGGLAB*natpwage=sum(q,REGDEST,AGGLAB(q)*pwage(q));

E_natpwage_p # Aggregate nominal wages paid by producers # NATAGGLAB*natpwage_p=sum(q,REGDEST,AGGLAB(q)*pwage_p(q));

E_natrwage_w # National real wages for workers: deflated by CPI

#

natrwage_w=natrealwage;

E_natrwage_p

#

National

real

wages

for

producers

#

natrwage_p=natpwage_p-natxigdp;

129

E_natxiplpk

#

Relative

prices

of

labor

and

capital

#

natxiplpk=natpwage_p-natp1cap;

E_reg_p1cap

#

Regional

rental

price

of

capital

#

(all,q,REGDEST) reg_p1cap(q)=caprev(q)-kt(q);

E_realwage_w # Real wages for workers: deflated by CPI # (all,q,REGDEST) realwage_w(q)=pwage(q)-xi3(q);

E_realwage_p

# Real

wages

for

producers:

deflated

by GDP

deflator

#

(all,q,REGDEST) realwage_p(q)=pwage_p(q)-xiy_r(q);

E_totdom

#

Domestic

terms

of

trade

#

terms

of

trade

#

(all,q,REGDEST) totdom(q)=psexp(q)-psimp(q);

E_totfor

#

Foreign

(all,q,REGDEST) totfor(q)=xi4(q)-xim(q);

E_r0_tot

#

Regional

industry-aggregate

rate

of

return

#

capital

#

(all,q,REGDEST) AGGCAP(q)*r0_tot(q)=sum(j,IND,CAPITAL(j,q)*r0(j,q));

E_xiplpk_ind

#

Relative

prices

of

labor

and

130

(all,j,IND)(all,q,REGDEST) xiplpk_ind(j,q)=p1lab(j,q)-p1cap(j,q);

E_xiplpk # Index of relative price of labor and capital # (all,q,REGDEST) xiplpk(q)=pwage_p(q)-reg_p1cap(q);

!

Subsection

3.2.19:

Employment

Aggregates

!

VARIABLE

(all,m,OCC)(all,q,REGDEST) lambda(m,q)

#

Employment

by

occupation

#;

(all,m,OCC) natlambda(m)

#

Employment

in

occupation

M

#;

EQUATION

E_lambda

#

Demand

for

labor

by

occupation

#

(all,m,OCC)(all,q,REGDEST) LAB_OCC(m,q)*lambda(m,q)=sum(j,IND,LAB_OCC_IND(m,j,q)*x1laboi (j,q,m));

E_natlambda

#

National

demand

for

labor

by

occupation

#

(all,m,OCC) NATLAB_OCC(m)*natlambda(m)=sum(q,REGDEST,LAB_OCC(m,q)*lambda( m,q));

131

! Section 4: Update statements for the CGE core module !

UPDATE

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) BAS1(i,s,j,q)=p0a(i,s)*x1a(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST) BAS2(i,s,j,q)=p0a(i,s)*x2a(i,s,j,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS3(i,s,q)=p0a(i,s)*x3a(i,s,q);

(all,i,COM)(all,s,REGSOURCE) BAS4(i,s)=p0a(i,s)*x4r(i,s);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS5(i,s,q)=p0a(i,s)*x5a(i,s,q);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) BAS6(i,s,q)=p0a(i,s)*x6a(i,s,q);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) MAR1(i,s,j,q,r)=p0a(r,q)*x1marg(i,s,j,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDEST)(all,r, MARGCOM) MAR2(i,s,j,q,r)=p0a(r,q)*x2marg(i,s,j,q,r); 132

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR3(i,s,q,r)=p0a(r,q)*x3marg(i,s,q,r);

(all,i,COM)(all,s,REGSOURCE)(all,r,MARGCOM) MAR4(i,s,r)=

p0a(r,s)*x4marg(i,s,r);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR5(i,s,q,r)=p0a(r,q)*x5marg(i,s,q,r);

(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST)(all,r,MARGCOM) MAR6(i,s,q,r)=p0a(r,s)*x6marg(i,s,q,r);

(explicit)(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDE ST) TAX1(i,s,j,q)=TAX1(i,s,j,q)+[BAS1(i,s,j,q)*deltax1(i,s,j,q) +TAX1(i,s,j,q)*{x1a(i,s,j,q)+p0a(i,s)}]/100;

(explicit)(all,i,COM)(all,s,ALLSOURCE)(all,j,IND)(all,q,REGDE ST) TAX2(i,s,j,q)=TAX2(i,s,j,q)+[BAS2(i,s,j,q)*deltax2(i,s,j,q) +TAX2(i,s,j,q)*{x2a(i,s,j,q)+p0a(i,s)}]/100;

(explicit)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX3(i,s,q)=TAX3(i,s,q)+[BAS3(i,s,q)*deltax3(i,s,q) +TAX3(i,s,q)*{x3a(i,s,q)+p0a(i,s)}]/100;

(explicit)(all,i,COM)(all,s,REGSOURCE) TAX4(i,s)=TAX4(i,s)+[BAS4(i,s)*deltax4(i,s) 133

+TAX4(i,s)*{x4r(i,s)+p0a(i,s)}]/100;

(explicit)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX5(i,s,q)=TAX5(i,s,q)+[BAS5(i,s,q)*deltax5(i,s,q) +TAX5(i,s,q)*{x5a(i,s,q)+p0a(i,s)}]/100;

(explicit)(all,i,COM)(all,s,ALLSOURCE)(all,q,REGDEST) TAX6(i,s,q)=TAX6(i,s,q)+[BAS6(i,s,q)*deltax6(i,s,q) +TAX6(i,s,q)*{x6a(i,s,q)+p0a(i,s)}]/100;

(all,m,OCC)(all,j,IND)(all,q,REGDEST) LAB_OCC_IND(m,j,q)=p1laboi(j,q,m)*x1laboi(j,q,m);

(all,j,IND)(all,q,REGDEST) CAPITAL(j,q)=p1cap(j,q)*curcap(j,q);

(all,j,IND)(all,q,REGDEST) LAND(j,q)=p1land(j,q)*n(j,q);

(all,j,IND)(all,q,REGDEST) OTHCOST(j,q)=p1oct(j,q)*x1oct(j,q);

(change)(all,i,COM)(all,q,REGDEST) TARIFF(i,q)=TARIFF(i,q)*{pm(i)+natphi+x0imp(i,q)}/100 +IMPORTS(i,q)*powtaxm(i)/100;

(explicit)(all,j,IND)(all,q,REGDEST) QCOEF(j,q)=QCOEF(j,q)*{1.0+[1.0-QCOEF(j,q)]*[p1cap(j,q)pi(j,q)]/100}; 134

(explicit)(all,q,REGDEST) FRISCH(q)=FRISCH(q)*(1.0+[luxexp(q)-c(q)]/100.0);

(all,i,COM)(all,q,REGDEST) DELTA(i,q)=a3lux(i,q);

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

VARIABLE

(all,j,IND)(all,q,REGDEST) frpri(j,q)

#

Payroll

tax

rate

shifter

#;

(all,j,IND)(all,q,REGDEST) rpri(j,q)

#

Payroll

tax

rate

(in

per

cent)

#;

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! Section 4: CAPITAL ACCUMULATION AND INVESTMENT MODULE !

! Subsection 4.1: Coefficient declarations for the capital accumulation investment

and module

!

COEFFICIENT

(all,j,IND)(all,q,REGDEST) 135

VALKT(j,q) # Assest-value of capital stock in period T #;

(all,j,IND) DEP(j)

#

Depreciation

factor,

uniform

across

regions

#;

(integer) FRED # Switch variable, forecast to comparative statatic #;

(integer) PRIOD

K_TERM

#

Number

#

A

of

years

constant

in

in

a

T+1

forecast

capital

period

#;

equation

#;

(all,j,IND)(all,q,REGDEST) VALK_0(j,q)

#

Base-year

asset

value

of

capital

stock

#;

(all,j,IND)(all,q,REGDEST) VALK_T1(j,q)

#

Value

of

capital

stock

in

period

T+1

#;

(all,j,IND)(all,q,REGDEST) INVEST_0(j,q)

#

Base-year

value

of

investment

#;

READ

VALKT

from

DEP

from

FRED

from

file

file

file

YDATA

YDATA

Terminal

header

"VALK";

header

"DPRC";

header

"FRED"; 136

PRIOD

from

!

for

FRED=1

file

comparative

Terminal

static

equal

header

simulations

"PROD";

and PRIOD is

to

2.

Alternatively FRED = PRIOD for forecasting simulations where the value for

FRED and

PRIOD

is

the length

forecast.

in

years

of the !

FORMULA

K_TERM=1+(1/PRIOD);

(initial)(all,j,IND)(all,q,REGDEST) VALK_0(j,q)=VALKT(j,q);

(initial)(all,j,IND)(all,q,REGDEST) VALK_T1(j,q)=VALKT(j,q);

(initial)(all,j,IND)(all,q,REGDEST) INVEST_0(j,q)=INVEST(j,q);

! Subsection 4.2: Variables and equations for the capital accumulation investment

and module

!

VARIABLE

137

(change)(all,j,IND)(all,q,REGDEST) delf_rate(j,q)

#

Shifter

in

capital_accum

equation

#;

(change) delkfudge # Dummy variable to switch on capital accumulation equation

#;

(all,j,IND)(all,q,REGDEST) f_rate_xx(j,q)

#

Shifter,

rate

of

return

equation

#;

(all,j,IND)(all,q,REGDEST) curcap_t1(j,q)

natr_tot

#

#

Capital

stock

Average

in

rate

period

of

T+1

return

#;

#;

EQUATION

E_r0

#

Definition

of

rates

of

return

to

capital

#

(all,j,IND)(all,q,REGDEST) r0(j,q)=QCOEF(j,q)*(p1cap(j,q)-pi(j,q));

E_f_rate_xx # Capital growth rates related to rates of return # (all,j,IND)(all,q,REGDEST) (r0(j,q)-natr_tot)=BETA_R(j,q)*[curcap(j,q)kt(q)]+f_rate_xx(j,q);

E_naty

#

Total

real

investment

#

(all,j,IND) 138

(TINY+NATINVEST(j))*naty(j)=sum(q,REGDEST,INVEST(j,q)*y(j,q)) ;

E_curcapT1

#

Capital

stock

in

period

T+1

#

(all,j,IND)(all,q,REGDEST) IF(FRED

ne

+IF(FRED

E_yT

eq

#

PRIOD,curcap_t1(j,q)-curcap(j,q))

PRIOD,curcap_t1(j,q)-K_TERM*curcap(j,q))=0;

Investment

in

period

T

#

(all,j,IND)(all,q,REGDEST) IF(FRED

ne

PRIOD,curcap(j,q)-y(j,q)-100*delf_rate(j,q))

+IF(FRED

eq

PRIOD,+VALKT(j,q)*DEP(j)*curcap(j,q)+(TINY+INVEST(j,q))*y(j,q ) -100*(VALK_0(j,q)*(1-DEP(j))-INVEST_0(j,q))*delkfudge +100*delf_rate(j,q)-VALK_T1(j,q)*curcap_t1(j,q))=0;

UPDATE

(all,j,IND)(all,q,REGDEST) VALKT(j,q)=pi(j,q)*curcap(j,q);

(all,j,IND)(all,q,REGDEST) VALK_T1(j,q)=pi(j,q)*curcap_t1(j,q);

!

!

Section

Sectoral

5:

components

PRIMARY

of

FACTORS

regional

MODULE

value

added

!

!

139

COEFFICIENT

!

Components

of

value

added:

region

by

industry

!

(all,j,IND)(all,q,REGDEST) C_Z01_I_R(j,q) # Wages, salaries and supplements by region and

industry

#;

(all,j,IND)(all,q,REGDEST) C_Z02_I_R(j,q)

#

Imputed

wages

by

region

and industry #;

taxes

by

region

and industry #;

(all,j,IND)(all,q,REGDEST) C_Z03_I_R(j,q)

#

Payroll

(all,j,IND)(all,q,REGDEST) C_Z04_I_R(j,q)

#

Returns

to

fixed

capital

by

region

industry

and #;

(all,j,IND)(all,q,REGDEST) C_Z05_I_R(j,q) # Property taxes by region and industry #;

(all,j,IND)(all,q,REGDEST) C_Z06_I_R(j,q) # Returns to agricultural land by region and industry

#;

(all,j,IND)(all,q,REGDEST) C_Z07_I_R(j,q)

#

Land

taxes

by

region

and

industry

#;

(all,j,IND)(all,q,REGDEST) 140

C_Z08_I_R(j,q) # Returns to working capital by region and industry

#;

(all,j,IND)(all,q,REGDEST) C_Z09_I_R(j,q) # Other indirect taxes by region and industry #;

(all,j,IND)(all,q,REGDEST) C_Z10_I_R(j,q) # Sales by final buyers by region and industry #;

!

Regional

components

of

value

added

!

(all,q,REGDEST) C_Z01_R(q) # Wages, salaries and supplements by region # ;

(all,q,REGDEST) C_Z02_R(q)

#

Imputed

wages

by

region

#;

Payroll

taxes

by

region

#;

(all,q,REGDEST) C_Z03_R(q)

#

(all,q,REGDEST) C_Z04_R(q)

#

Returns

to

fixed

capital

by

region

#;

(all,q,REGDEST) C_Z05_R(q)

#

Property

taxes

by

region

#;

(all,q,REGDEST) 141

C_Z06_R(q)

#

Returns

to

agricultural

land

by

region

#;

(all,q,REGDEST) C_Z07_R(q)

#

Land

taxes

by

region

#;

(all,q,REGDEST) C_Z08_R(q)

#

Returns

to

working

capital

by

region

#;

(all,q,REGDEST) C_Z09_R(q)

#

Other

indirect

taxes

by

region

#;

(all,q,REGDEST) C_Z10_R(q)

#

Sales

by

final

buyers

by

region

#;

surplus

by

region

#;

(all,q,REGDEST) C_ZG_R(q)

#

Gross

operating

(all,q,REGDEST) C_CAP_HH(q) # Capital rentals to household disposable income #;

(all,q,REGDEST) C_GOS_HH(q)

#

GOS

to

household

disposable

income

#;

(all,q,REGDEST) C_ZT_R(q)

!

#

National

Production

taxes

components

of

by

value

region

#;

added

!

142

C_Z01

#

Wages,

salaries

and

supplements

#;

C_Z02

#

Imputed

wages

#;

C_Z03

#

Payroll

taxes

#;

C_Z04

#

Returns

C_Z05

C_Z06

#

#

#

C_Z09

#

C_Z10

#

C_ZG

#

C_ZT

fixed

Property

Returns

C_Z07

C_Z08

to

to

Land

Returns

to

Other

Gross

#

#;

land

taxes

working

indirect

by

#;

taxes

agricultural

#

Sales

capital

final

operating

Production

#;

#;

capital

#;

taxes

#;

buyers

#;

surplus

taxes

#;

#;

READ

(all,j,IND)(all,q,REGDEST) C_Z01_I_R(j,q)

from

file

NDATA

header

"FZ01";

143

(all,j,IND)(all,q,REGDEST) C_Z02_I_R(j,q)

from

file

NDATA

header

"FZ02";

file

NDATA

header

"FZ03";

file

NDATA

header

"FZ04";

file

NDATA

header

"FZ05";

file

NDATA

header

"FZ06";

file

NDATA

header

"FZ07";

file

NDATA

header

"FZ08";

file

NDATA

header

"FZ09";

file

NDATA

header

"FZ10";

(all,j,IND)(all,q,REGDEST) C_Z03_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z04_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z05_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z06_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z07_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z08_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z09_I_R(j,q)

from

(all,j,IND)(all,q,REGDEST) C_Z10_I_R(j,q)

from

FORMULA

144

(all,q,REGDEST) C_Z01_R(q)=sum(j,IND,C_Z01_I_R(j,q));

(all,q,REGDEST) C_Z02_R(q)=sum(j,IND,C_Z02_I_R(j,q));

(all,q,REGDEST) C_Z03_R(q)=sum(j,IND,C_Z03_I_R(j,q));

(all,q,REGDEST) C_Z04_R(q)=sum(j,IND,C_Z04_I_R(j,q));

(all,q,REGDEST) C_Z05_R(q)=sum(j,IND,C_Z05_I_R(j,q));

(all,q,REGDEST) C_Z06_R(q)=sum(j,IND,C_Z06_I_R(j,q));

(all,q,REGDEST) C_Z07_R(q)=sum(j,IND,C_Z07_I_R(j,q));

(all,q,REGDEST) C_Z08_R(q)=sum(j,IND,C_Z08_I_R(j,q));

(all,q,REGDEST) C_Z09_R(q)=sum(j,IND,C_Z09_I_R(j,q));

(all,q,REGDEST) C_Z10_R(q)=sum(j,IND,C_Z10_I_R(j,q)); 145

(all,q,REGDEST) C_ZG_R(q)=C_Z02_R(q)+C_Z04_R(q)+C_Z06_R(q)+C_Z08_R(q);

(all,q,REGDEST) C_CAP_HH(q)=NATAGGCAP*(AGGLAB(q)/NATAGGLAB);

(all,q,REGDEST) C_GOS_HH(q)=C_ZG_R(q)-C_Z04_R(q)+C_CAP_HH(q);

(all,q,REGDEST) C_ZT_R(q)=C_Z03_R(q)+C_Z05_R(q)+C_Z07_R(q)+C_Z09_R(q);

C_Z01=sum(q,REGDEST,C_Z01_R(q));

C_Z02=sum(q,REGDEST,C_Z02_R(q));

C_Z03=sum(q,REGDEST,C_Z03_R(q));

C_Z04=sum(q,REGDEST,C_Z04_R(q));

C_Z05=sum(q,REGDEST,C_Z05_R(q));

C_Z06=sum(q,REGDEST,C_Z06_R(q));

C_Z07=sum(q,REGDEST,C_Z07_R(q));

C_Z08=sum(q,REGDEST,C_Z08_R(q));

146

C_Z09=sum(q,REGDEST,C_Z09_R(q));

C_Z10=sum(q,REGDEST,C_Z10_R(q));

VARIABLE

(all,q,REGDEST) z01_r(q)

#

Wages,

salaries

and

supplements

#;

(all,q,REGDEST) z02_r(q)

#

Imputed

wages

#;

#

Payroll

taxes

#;

(all,q,REGDEST) z03_r(q)

(all,q,REGDEST) z04_r(q)

#

Returns

to

fixed

capital

#;

(all,q,REGDEST) z05_r(q)

#

Property

taxes

#;

(all,q,REGDEST) z06_r(q)

#

Returns

to

agricultural

land

#;

(all,q,REGDEST) z07_r(q)

#

Land

taxes

#;

(all,q,REGDEST) 147

z08_r(q)

#

Returns

to

working

capital

#;

taxes

#;

buyers

#;

(all,q,REGDEST) z09_r(q)

#

Other

indirect

(all,q,REGDEST) z10_r(q)

#

z03

#

Payroll

taxes

#;

z05

#

Property

taxes

#;

z07

#

z09

z10

Sales

by

Land

#

Other

#

final

Sales

taxes

indirect

by

final

#;

taxes

#;

buyers

#;

in

#;

(all,q,REGDEST) zg_r(q)

#

Gross

operating

surplus

prod.

region

(all,q,REGDEST) cap_hh(q) # Capital rentals to household disposable income #;

(all,q,REGDEST) gos_hh(q)

#

GOS

to

household

disposable

income

#;

(all,q,REGDEST) 148

zt_r(q)

#

Production

taxes

#;

(all,q,REGDEST) rpr(q)

#

Payroll

tax

rate

#;

(all,q,REGDEST) xisfb(q)

#

Price

index:

sales

by

final

buyers

#;

EQUATION

E_z01_r

#

Wages,

salaries

and

supplements

-

regions

#

(all,q,REGDEST) C_Z01_R(q)*z01_r(q)=sum(j,IND,C_Z01_I_R(j,q)*(labind(j,q)+pwa gei(j,q)));

E_z02_r

#

Imputed

wages

-

regions

#

(all,q,REGDEST) C_Z02_R(q)*z02_r(q)=sum(j,IND,C_Z02_I_R(j,q)*(labind(j,q)+pwa gei(j,q)));

E_z03_r

#

Payroll

taxes

-

regions

#

(all,q,REGDEST) C_Z03_R(q)*z03_r(q)= sum(j,IND,C_Z03_I_R(j,q)*(rpri(j,q)+labind(j,q)+pwagei(j,q))) ;

E_z03

#

Payroll

taxes

-

national

#

C_Z03*z03=sum(q,REGDEST,C_Z03_R(q)*z03_r(q));

149

E_z04_r

#

Returns

to

fixed

capital

-

regions

#

(all,q,REGDEST) C_Z04_R(q)*z04_r(q)=sum(j,IND,C_Z04_I_R(j,q)*(curcap(j,q)+p1c ap(j,q)));

E_z05_r

#

Property

taxes

-

regions

#

(all,q,REGDEST) C_Z05_R(q)*z05_r(q)=sum(j,IND,C_Z05_I_R(j,q)*(curcap(j,q)+p1c ap(j,q)));

E_z05

#

Property

taxes

-

national

#

-

#

C_Z05*z05=sum(q,REGDEST,C_Z05_R(q)*z05_r(q));

E_z06_r

#

Returns

to

agricultural

land

regions

(all,q,REGDEST) C_Z06_R(q)*z06_r(q)=sum(j,IND,C_Z06_I_R(j,q)*(n(j,q)+p1land(j ,q)));

E_z07_r

#

Land

taxes

-

regions

#

(all,q,REGDEST) C_Z07_R(q)*z07_r(q)=sum(j,IND,C_Z07_I_R(j,q)*(n(j,q)+p1land(j ,q)));

#

E_z07

Land

taxes

-

national

#

C_Z07*z07=sum(q,REGDEST,C_Z07_R(q)*z07_r(q));

E_z08_r

#

Returns

to

working

capital

-

regions

#

(all,q,REGDEST) C_Z08_R(q)*z08_r(q)=sum(j,IND,C_Z08_I_R(j,q)*(x1oct(j,q)+p1oc 150

t(j,q)));

E_z09_r

#

Other

indirect

taxes

-

regions

#

(all,q,REGDEST) C_Z09_R(q)*z09_r(q)=sum(j,IND,C_Z09_I_R(j,q)*(x1oct(j,q)+p1oc t(j,q)));

E_z09

#

Other

indirect

taxes

-

national

#

C_Z09*z09=sum(q,REGDEST,C_Z09_R(q)*z09_r(q));

E_z10_r

#

Sales

by

final

buyers

-

regions

#

(all,q,REGDEST) C_Z10_R(q)*z10_r(q)=sum(j,IND,C_Z10_I_R(j,q)*(x1oct(j,q)+p1oc t(j,q)));

E_z10

#

Sales

by

final

buyers

-

national

#

regions

#

C_Z10*z10=sum(q,REGDEST,C_Z10_R(q)*z10_r(q));

E_zg_r

#

Gross

operating

surplus

-

(all,q,REGDEST) C_ZG_R(q)*zg_r(q)=C_Z02_R(q)*z02_r(q)+C_Z04_R(q)*z04_r(q) +C_Z06_R(q)*z06_r(q)+C_Z08_R(q)*z08_r(q);

E_cap_hh # Capital rentals to household disposable income # (all,q,REGDEST) cap_hh(q)=labrev(q)-natlabrev+natcaprev;

E_gos_hh

#

GOS

to

household

disposable

income

#

(all,q,REGDEST) 151

C_GOS_HH(q)*gos_hh(q)=C_ZG_R(q)*zg_r(q)-C_Z04_R(q)*z04_r(q) +C_CAP_HH(q)*cap_hh(q);

E_zt_r

#

Production

taxes

-

regions

#

(all,q,REGDEST) C_ZT_R(q)*zt_r(q)=C_Z03_R(q)*z03_r(q)+C_Z05_R(q)*z05_r(q) +C_Z07_R(q)*z07_r(q)+C_Z09_R(q)*z09_r(q);

E_rpr

#

Payroll

tax

adjustment

#

(all,j,IND)(all,q,REGDEST) C_Z03_I_R(j,q)*rpri(j,q)=(C_Z01_I_R(j,q)+C_Z02_I_R(j,q)+C_Z03 _I_R(j,q) +TINY)*arpri(j,q);

E_rpri

#

Setting

of

payroll

tax

rates

#

final

buyers

#

(all,j,IND)(all,q,REGDEST) rpri(j,q)=rpr(q)+frpri(j,q);

E_xisfb2

#

Price

index:

sales

by

(all,q,REGDEST) C_Z10_R(q)*xisfb(q)=sum(j,IND,C_Z10_I_R(j,q)*p1oct(j,q));

UPDATE

(all,q,REGDEST)(all,j,IND) C_Z01_I_R(j,q)=labind(j,q)*pwagei(j,q);

(all,q,REGDEST)(all,j,IND) C_Z02_I_R(j,q)=labind(j,q)*pwagei(j,q); 152

(all,q,REGDEST)(all,j,IND) C_Z03_I_R(j,q)=rpri(j,q)*labind(j,q)*pwagei(j,q);

(all,q,REGDEST)(all,j,IND) C_Z04_I_R(j,q)=curcap(j,q)*p1cap(j,q);

(all,q,REGDEST)(all,j,IND) C_Z05_I_R(j,q)=curcap(j,q)*p1cap(j,q);

(all,q,REGDEST)(all,j,IND) C_Z06_I_R(j,q)=n(j,q)*p1land(j,q);

(all,q,REGDEST)(all,j,IND) C_Z07_I_R(j,q)=n(j,q)*p1land(j,q);

(all,q,REGDEST)(all,j,IND) C_Z08_I_R(j,q)=x1oct(j,q)*p1oct(j,q);

(all,q,REGDEST)(all,j,IND) C_Z09_I_R(j,q)=x1oct(j,q)*p1oct(j,q);

(all,q,REGDEST)(all,j,IND) C_Z10_I_R(j,q)=x1oct(j,q)*p1oct(j,q);

!

Section

6:

REGIONAL

HOUSEHOLD

INCOME

!

COEFFICIENT

153

! Regional household disposable income and its components !

(all,q,REGDEST) C_HHLDY000(q)

#

Disposable

income

#;

(all,q,REGDEST) C_HHLDY100(q)

#

Primary

factor

income

#;

supplements

#;

(all,q,REGDEST) C_HHLDY110(q)

#

Wages,

salaries

#

Non-wage

and

(all,q,REGDEST) C_HHLDY120(q)

primary

factor

income

#;

(all,q,REGDEST) C_HHLDY200(q)

#

Personal

benefit

receipts

#;

(all,q,REGDEST) C_HHLDY210(q)

#

Unemployment

benefits

#;

(all,q,REGDEST) C_HHLDY220(q)

#

Other

personal

benefits

#;

(all,q,REGDEST) C_HHLDY300(q)

#

Other

income

(net)

#;

(all,q,REGDEST) C_HHLDY400(q)

#

Direct

taxes

#;

154

(all,q,REGDEST) C_HHLDY410(q)

#

PAYE

taxes

#;

(all,q,REGDEST) C_HHLDY420(q) # Taxes on non-wage primary factor income #;

(all,q,REGDEST) C_HHLDY430(q)

#

Other

direct

taxes

#;

(all,q,REGDEST) C_HHLDD001(q) # Coefficient of labor supply in eqn HHLD007 #;

(all,q,REGDEST) C_HHLDD002(q) # Coefficient of employment in eqn HHLD007 #;

C_UPB

#

Unemployment

benefits

#;

(all,q,DOMDEST) C_PBP_R(q)

C_PBP

#

Personal

#

Personal

benefit

benefit

payments

#;

payments

#;

supply

#;

persons

#;

(all,q,REGDEST) C_LABSUP(q)

#

Regional

labor

(all,q,REGDEST) C_EMPLOY(q)

#

Regional

employment:

READ 155

(all,q,REGDEST) C_HHLDY000(q)

from

file

NDATA

header

"HA01";

from

file

NDATA

header

"HA02";

from

file

NDATA

header

"HA03";

from

file

NDATA

header

"HA04";

from

file

NDATA

header

"HA05";

from

file

NDATA

header

"HA06";

from

file

NDATA

header

"HA07";

from

file

NDATA

header

"HA08";

from

file

NDATA

header

"HA09";

(all,q,REGDEST) C_HHLDY100(q)

(all,q,REGDEST) C_HHLDY110(q)

(all,q,REGDEST) C_HHLDY120(q)

(all,q,REGDEST) C_HHLDY200(q)

(all,q,REGDEST) C_HHLDY210(q)

(all,q,REGDEST) C_HHLDY220(q)

(all,q,REGDEST) C_HHLDY300(q)

(all,q,REGDEST) C_HHLDY400(q)

(all,q,REGDEST) 156

C_HHLDY410(q)

from

file

NDATA

header

"HA10";

from

file

NDATA

header

"HA11";

from

file

NDATA

header

"HA12";

(all,q,REGDEST) C_HHLDY420(q)

(all,q,REGDEST) C_HHLDY430(q)

(all,q,DOMDEST) C_PBP_R(q)

from

file

NDATA

header

"MI04";

C_LABSUP

from

file

PDATA

header

"RLBS";

C_EMPLOY

from

file

PDATA

header

"REMP";

FORMULA

C_PBP=sum(q,DOMDEST,C_PBP_R(q))

;

C_UPB=sum(q,REGDEST,C_HHLDY210(q));

(all,q,REGDEST) C_HHLDD001(q)=C_LABSUP(q)/(C_LABSUP(q)-C_EMPLOY(q));

(all,q,REGDEST) C_HHLDD002(q)=C_EMPLOY(q)/(C_LABSUP(q)-C_EMPLOY(q));

VARIABLE

157

! Regional household disposable income and its components !

(all,q,REGDEST) hhldy000(q)

#

Disposable

income

#;

(all,q,REGDEST) hhldy100(q)

#

Primary

factor

income

#;

supplements

#;

(all,q,REGDEST) hhldy110(q)

#

Wages,

salaries

and

(all,q,REGDEST) hhldy120(q)

#

Non-wage

primary

factor

income

#;

(all,q,REGDEST) hhldy200(q)

#

Personal

benefit

receipts

#;

(all,q,REGDEST) hhldy210(q)

#

Unemployment

benefits

#;

(all,q,REGDEST) hhldy220(q)

#

Other

personal

benefits

#;

(net)

#;

(all,q,REGDEST) hhldy300(q)

#

Other

income

(all,q,REGDEST) hhldy400(q)

#

Direct

taxes

#;

158

(all,q,REGDEST) hhldy410(q)

#

PAYE

taxes

#;

(all,q,REGDEST) hhldy420(q)

#

Taxes

on

non-wage

primary

factor income #;

(all,q,REGDEST) hhldy430(q)

#

Other

direct

taxes

#;

regions

#;

income

#;

(all,q,REGDEST) yn_r(q)

#

Nominal

GRP

-

(all,q,REGDEST) yd_r(q)

#

Household

disposable

(all,q,REGDEST) labsup(q)

#

Labor

supply

#;

(all,q,REGDEST) pop(q)

#

Regional

rl

#

Tax

rate

-

rk

#

Tax

rate

-

wages,

salaries

non-wage

primary

population

#;

and

#;

supplements

factor

income

#;

(all,q,REGDEST) tod_r(q)

upb

#

#

Other

Unemployment

direct

taxes

benefits

#;

#; 159

(all,q,DOMDEST) pbp_r(q)

pbp

#

#

Personal

benefit

Personal

payments

benefit

payments

#;

#;

! Shift variables in household disposable income equations !

(all,q,REGDEST) hhldf001(q)

#

Shift

variable:

unemployment

benefits

#;

benefits

#;

(all,q,REGDEST) hhldf002(q)

#

Shift

variable:

other

personal

(all,q,REGDEST) hhldf003(q) # Shift variable: other income (net) - households #;

EQUATION

E_hhldy110

#

Wages,

salaries

and

supplements

#

(all,q,REGDEST) hhldy110(q)=z01_r(q);

E_hhldy120

#

Non-wage

primary

factor

income

#

(all,q,REGDEST) hhldy120(q)=gos_hh(q);

E_hhldy100

#

Primary

factor

income

# 160

(all,q,REGDEST) C_HHLDY100(q)*hhldy100(q)=C_HHLDY110(q)*hhldy110(q)+C_HHLDY12 0(q)*hhldy120(q);

E_hhldy210

#

Unemployment

benefit

receipts

#

(all,q,REGDEST) hhldy210(q)=natxi3+C_HHLDD001(q)*labsup(q)C_HHLDD002(q)*l(q)+hhldf001(q);

E_hhldy220

#

Other

personal

benefit

receipts

#

(all,q,REGDEST) hhldy220(q)=natxi3+pop(q)+hhldf002(q);

E_hhldy200

#

Personal

benefit

receipts

#

(all,q,REGDEST) C_HHLDY200(q)*hhldy200(q)=C_HHLDY210(q)*hhldy210(q)+C_HHLDY22 0(q)*hhldy220(q);

E_hhldy300

#

Other

Income

(net)

#

(all,q,REGDEST) hhldy300(q)=yn_r(q)+hhldf003(q);

E_hhldy410

#

PAYE

taxes

#

(all,q,REGDEST) hhldy410(q)=hhldy110(q)+rl;

E_hhldy420

#

Taxes

on

non-wage

primary

factor

income

#

(all,q,REGDEST) hhldy420(q)=hhldy120(q)+rk; 161

E_hhldy430

#

Other

direct

taxes

#

(all,q,REGDEST) hhldy430(q)=tod_r(q);

E_hhldy400

#

Direct

taxes

#

(all,q,REGDEST) C_HHLDY400(q)*hhldy400(q)=C_HHLDY410(q)*hhldy410(q)+C_HHLDY42 0(q)*hhldy420(q) +C_HHLDY430(q)*hhldy430(q);

E_hhldy000

#

Disposable

income

#

(all,q,REGDEST) C_HHLDY000(q)*hhldy000(q)=C_HHLDY100(q)*hhldy100(q)+C_HHLDY20 0(q)*hhldy200(q) +C_HHLDY300(q)*hhldy300(q)-C_HHLDY400(q)*hhldy400(q);

E_ydr

#

Disposable

income

#

(all,q,REGDEST) yd_r(q)=hhldy000(q);

!

It

is

E_upb

#

assumed

a

Aggregate

constant

marginal

unemployment

savings

benefit

rate

payments

!

#

C_UPB*upb=sum(q,REGDEST,C_HHLDY210(q)*hhldy210(q));

E_pbp_r

#

Personal

benefit

payments

-

regions

#

(all,q,REGDEST) pbp_r(q)=hhldy200(q); 162

E_pbpA

#

Aggregate

personal

benefit

payments

#

C_PBP*pbp=sum(q,REGDEST,C_HHLDY200(q)*hhldy200(q));

E_pbpB # Personal benefit payments - federal (residual) # C_PBP*pbp=sum(q,DOMDEST,C_PBP_R(q)*pbp_r(q));

UPDATE

(all,q,REGDEST) C_HHLDY000(q)=hhldy000(q);

(all,q,REGDEST) C_HHLDY100(q)=hhldy100(q);

(all,q,REGDEST) C_HHLDY110(q)=hhldy110(q);

(all,q,REGDEST) C_HHLDY120(q)=hhldy120(q);

(all,q,REGDEST) C_HHLDY200(q)=hhldy200(q);

(all,q,REGDEST) C_HHLDY210(q)=hhldy210(q);

(all,q,REGDEST) C_HHLDY220(q)=hhldy220(q); 163

(all,q,REGDEST) C_HHLDY300(q)=hhldy300(q);

(all,q,REGDEST) C_HHLDY400(q)=hhldy400(q);

(all,q,REGDEST) C_HHLDY410(q)=hhldy410(q);

(all,q,REGDEST) C_HHLDY420(q)=hhldy420(q);

(all,q,REGDEST) C_HHLDY430(q)=hhldy430(q);

! Section 7: REVENUE AND EXPENDITURE COMPONENTS OF GOVERNMENT FINANCES

!

Total

!

expenditure

and

Federal

its

components

for

regional

governments

and !

COEFFICIENT

(all,q,DOMDEST) C_SOFTQ000(q)

#

SOFT:

expenditure

side

total

#;

and

sevices

#;

(all,q,DOMDEST) C_SOFTQ100(q)

#

Expenditure

on

goods

164

(all,q,DOMDEST) C_SOFTQ110(q)

#

Government

consumption

#;

#

Government

investment

#;

(all,q,DOMDEST) C_SOFTQ120(q)

(all,q,DOMDEST) C_SOFTQ200(q)

#

Personal

benefit

payments

#;

(all,q,DOMDEST) C_SOFTQ210(q)

#

Unemployment

benefits

#;

(all,q,DOMDEST) C_SOFTQ220(q)

#

Other

personal

benefits

#;

(all,q,DOMDEST) C_SOFTQ300(q)

#

Subsidies

#;

(all,q,DOMDEST) C_SOFTQ400(q)

#

Interest

payments

#;

the

#;

(all,q,DOMDEST) C_SOFTQ500(q)

#

Federal

transfers

to

regions

(all,q,DOMDEST) C_SOFTQ510(q)

#

Current

transfers

#;

(all,q,DOMDEST) 165

C_SOFTQ520(q)

#

Capital

transfers

#;

outlays

#;

(all,q,DOMDEST) C_SOFTQ600(q)

#

Other

READ

(all,q,DOMDEST) C_SOFTQ000(q)

from

file

NDATA

header

"GA23";

from

file

NDATA

header

"GA24";

from

file

NDATA

header

"GA25";

from

file

NDATA

header

"GA26";

from

file

NDATA

header

"GA27";

from

file

NDATA

header

"GA28";

from

file

NDATA

header

"GA29";

(all,q,DOMDEST) C_SOFTQ100(q)

(all,q,DOMDEST) C_SOFTQ110(q)

(all,q,DOMDEST) C_SOFTQ120(q)

(all,q,DOMDEST) C_SOFTQ200(q)

(all,q,DOMDEST) C_SOFTQ210(q)

(all,q,DOMDEST) C_SOFTQ220(q)

(all,q,DOMDEST) 166

C_SOFTQ300(q)

from

file

NDATA

header

"GA30";

from

file

NDATA

header

"GA31";

from

file

NDATA

header

"GA32";

from

file

NDATA

header

"GA33";

from

file

NDATA

header

"GA34";

from

file

NDATA

header

"GA35";

(all,q,DOMDEST) C_SOFTQ400(q)

(all,q,DOMDEST) C_SOFTQ500(q)

(all,q,DOMDEST) C_SOFTQ510(q)

(all,q,DOMDEST) C_SOFTQ520(q)

(all,q,DOMDEST) C_SOFTQ600(q)

! Total income and its components for regional and Federal governments

!

COEFFICIENT

(all,q,DOMDEST) C_SOFTY000(q)

#

SOFT:

income

side

total

#;

(all,q,DOMDEST) C_SOFTY100(q)

#

Government

revenue

#;

(all,q,DOMDEST) 167

C_SOFTY110(q)

#

Direct

taxes

#;

#

Income

taxes

#;

(all,q,DOMDEST) C_SOFTY111(q)

(all,q,DOMDEST) C_SOFTY112(q)

#

Other

direct

taxes

#;

(all,q,DOMDEST) C_SOFTY120(q)

#

Indirect

#

Tariff

taxes

#;

revenue

#;

(all,q,DOMDEST) C_SOFTY121(q)

(all,q,DOMDEST) C_SOFTY122(q)

#

Other

commodity

taxes

#;

(all,q,DOMDEST) C_SOFTY123(q)

#

Payroll

taxes

#;

#

Property

taxes

#;

(all,q,DOMDEST) C_SOFTY124(q)

(all,q,DOMDEST) C_SOFTY125(q)

#

Land

taxes

#;

(all,q,DOMDEST) C_SOFTY126(q)

#

Other

indirect

taxes

#;

168

(all,q,DOMDEST) C_SOFTY130(q)

#

Interest

received

#;

the

#;

(all,q,DOMDEST) C_SOFTY140(q)

#

Federal

tranfers

to

regions

(all,q,DOMDEST) C_SOFTY141(q)

#

Current

transfers

#;

#

Capital

transfers

#;

revenue

#;

(all,q,DOMDEST) C_SOFTY142(q)

(all,q,DOMDEST) C_SOFTY150(q)

#

Other

(all,q,DOMDEST) C_SOFTY200(q)

#

Discrepancy

#;

(all,q,DOMDEST) C_SOFTY300(q)

#

Financing

transactions

#;

(all,q,DOMDEST) C_SOFTY310(q)

#

Net

borrowing

#;

(all,q,DOMDEST) C_SOFTY320(q)

#

Increase

in

provisions

#;

transactions

#;

(all,q,DOMDEST) C_SOFTY330(q)

#

Other

financing

169

C_TI # Commodity taxes less subsidies (excluding tariffs) #;

C_SUBSIDIES

#

Subsidies

#;

(all,q,REGDEST) C_DOMPY320(q)

#

Other

commodity

taxes

less

subsidies

#;

READ

(all,q,DOMDEST) C_SOFTY000(q)

from

file

NDATA

header

"GA01";

from

file

NDATA

header

"GA02";

from

file

NDATA

header

"GA03";

from

file

NDATA

header

"GA04";

from

file

NDATA

header

"GA05";

from

file

NDATA

header

"GA06";

(all,q,DOMDEST) C_SOFTY100(q)

(all,q,DOMDEST) C_SOFTY110(q)

(all,q,DOMDEST) C_SOFTY111(q)

(all,q,DOMDEST) C_SOFTY112(q)

(all,q,DOMDEST) C_SOFTY120(q)

(all,q,DOMDEST) 170

C_SOFTY121(q)

from

file

NDATA

header

"GA07";

from

file

NDATA

header

"GA08";

from

file

NDATA

header

"GA09";

from

file

NDATA

header

"GA10";

from

file

NDATA

header

"GA11";

from

file

NDATA

header

"GA12";

from

file

NDATA

header

"GA13";

from

file

NDATA

header

"GA14";

from

file

NDATA

header

"GA15";

from

file

NDATA

header

"GA16";

(all,q,DOMDEST) C_SOFTY122(q)

(all,q,DOMDEST) C_SOFTY123(q)

(all,q,DOMDEST) C_SOFTY124(q)

(all,q,DOMDEST) C_SOFTY125(q)

(all,q,DOMDEST) C_SOFTY126(q)

(all,q,DOMDEST) C_SOFTY130(q)

(all,q,DOMDEST) C_SOFTY140(q)

(all,q,DOMDEST) C_SOFTY141(q)

(all,q,DOMDEST) C_SOFTY142(q)

171

(all,q,DOMDEST) C_SOFTY150(q)

from

file

NDATA

header

"GA17";

from

file

NDATA

header

"GA18";

from

file

NDATA

header

"GA19";

from

file

NDATA

header

"GA20";

from

file

NDATA

header

"GA21";

from

file

NDATA

header

"GA22";

from

file

NDATA

header

"PA10";

(all,q,DOMDEST) C_SOFTY200(q)

(all,q,DOMDEST) C_SOFTY300(q)

(all,q,DOMDEST) C_SOFTY310(q)

(all,q,DOMDEST) C_SOFTY320(q)

(all,q,DOMDEST) C_SOFTY330(q)

(all,q,REGDEST) C_DOMPY320(q)

FORMULA

C_TI=sum(q,REGDEST,C_DOMPY320(q));

C_SUBSIDIES=sum(q,DOMDEST,C_SOFTQ300(q));

VARIABLE

172

(all,q,DOMDEST) g_r(q)

#

Government

consumption

#;

investment

#;

GDP

#;

(all,q,DOMDEST) ig_r(q)

yn

!

#

Government

#

Nominal

Regional

and

Federal

government

expenditures

!

(all,q,DOMDEST) softq000(q)

#

SOFT:

expenditure

side

total

#;

and

sevices

#;

(all,q,DOMDEST) softq100(q)

#

Expenditure

on

goods

(all,q,DOMDEST) softq110(q)

#

Government

#

Government

consumption

#;

investment

#;

(all,q,DOMDEST) softq120(q)

(all,q,DOMDEST) softq200(q)

#

Personal

benefit

payments

#;

(all,q,DOMDEST) softq210(q)

#

Unemployment

benefits

#;

(all,q,DOMDEST) 173

softq220(q)

#

Other

personal

benefits

#;

(all,q,DOMDEST) softq300(q)

#

Subsidies

#;

(all,q,DOMDEST) softq400(q)

#

Interest

payments

#;

(all,q,DOMDEST) softq500(q)

#

Federal

transfers

to

regions

#;

(all,q,DOMDEST) softq510(q)

#

Current

tranfers

#;

#

Capital

transfers

#;

outlays

#;

(all,q,DOMDEST) softq520(q)

(all,q,DOMDEST) softq600(q)

#

Other

! Regional and Federal government revenues and deficits !

(all,q,DOMDEST) softy000(q)

#

SOFT:

income

side

total

#;

(all,q,DOMDEST) softy100(q)

#

Government

revenue

#;

(all,q,DOMDEST) 174

softy110(q)

#

Direct

taxes

#;

#

Income

taxes

#;

(all,q,DOMDEST) softy111(q)

(all,q,DOMDEST) softy112(q)

#

Other

direct

taxes

#;

(all,q,DOMDEST) softy120(q)

#

Indirect

#

Tariff

taxes

#;

revenue

#;

(all,q,DOMDEST) softy121(q)

(all,q,DOMDEST) softy122(q)

#

Other

commodity

taxes

#;

(all,q,DOMDEST) softy123(q)

#

Payroll

taxes

#;

#

Property

taxes

#;

(all,q,DOMDEST) softy124(q)

(all,q,DOMDEST) softy125(q)

#

Land

taxes

#;

(all,q,DOMDEST) softy126(q)

#

Other

indirect

taxes

#;

175

(all,q,DOMDEST) softy130(q)

#

Interest

received

#;

(all,q,DOMDEST) softy140(q)

#

Federal

tranfers

to

regions

#;

(all,q,DOMDEST) softy141(q)

#

Current

transfers

#;

#

Capital

tranfers

#;

revenue

#;

(all,q,DOMDEST) softy142(q)

(all,q,DOMDEST) softy150(q)

#

Other

(all,q,DOMDEST) softy200(q)

#

Discrepancy

#;

(all,q,DOMDEST) softy300(q)

#

Financing

transactions

#;

(all,q,DOMDEST) softy310(q)

#

Net

borrowing

#;

(all,q,DOMDEST) softy320(q)

#

Increase

in

provisions

#;

transactions

#;

(all,q,DOMDEST) softy330(q)

#

Other

financing

176

(all,q,DOMDEST) f_oft(q)

#

Other

financing

transactions

shifter

#;

(all,q,DOMDEST) realdef(q)

#

Real

government

budget

deficit

#;

(all,q,REGDEST) ti_r(q) # Commodity taxes less subsidies (excluding tariffs) #;

ti # Commodity taxes less subsidies (excluding tariffs) #;

ty

#

Income

taxes

#;

(all,q,DOMDEST) dgstar(q)

#

Government

net

borrowing/total

outlays

#;

! Shift variables in regional and Federal government finance equations

!

(all,q,REGDEST) softf001(q)

#

Shift

variable:

other

direct

taxes

#;

(all,q,REGDEST) softf002(q) # Shift variable: current federal transfers #;

(all,q,REGDEST) softf003(q) # Shift variable: capital federal transfers #; 177

(all,q,DOMDEST) softf004(q)

#

Shift

variable:

other

revenue

#;

provisions

#;

outlays

#;

(all,q,DOMDEST) softf005(q)

#

Shift

variable:

increase

in

(all,q,DOMDEST) softf006(q)

#

Shift

variable:

other

(all,q,DOMDEST) softf007(q)

#

softf011

#

Shift

variable:

Shifter

for

indirect

government

federal

debt

collection

of

#;

other

taxes

#;

EQUATION

!

Regional

and

E_softq110

#

Federal

government

Government

expenditures

!

consumption

#

investment

#

(all,q,DOMDEST) softq110(q)=g_r(q);

E_softq120

#

Government

(all,q,DOMDEST) softq120(q)=ig_r(q);

E_softq100

#

Expenditure

on

goods

and

services

# 178

(all,q,DOMDEST) C_SOFTQ100(q)*softq100(q)=C_SOFTQ110(q)*softq110(q)+C_SOFTQ12 0(q)*softq120(q);

E_softq210

#

Unemployment

benefits

#

softq210("federal")=upb;

E_softq200

#

Personal

benefit

payments:

regions

#

benefit

payments:

federal

#

(residual)

#

regions

#

(residual)

#

(all,q,REGDEST) softq200(q)=hhldy220(q);

E_softq200A

#

Personal

softq200("federal")=pbp_r("federal");

E_softq220

#

Other

personal

benefits

C_SOFTQ200("federal")*softq200("federal")= C_SOFTQ210("federal")*softq210("federal") +C_SOFTQ220("federal")*softq220("federal");

E_softq300A

#

Subsidies

-

(all,q,REGDEST) softq300(q)=ti_r(q);

E_softq300B

#

Subsidies

-

Federal

C_SUBSIDIES*ti=sum(q,DOMDEST,C_SOFTQ300(q)*softq300(q));

E_softq400A

#

Interest

payments:

regional

governments

#

(all,q,REGDEST) softq400(q)=yn_r(q)+softf007(q); 179

E_softq400B

#

Interest

payments:

Federal

government

#

-

current

#

-

capital

#

softq400("federal")=yn+softf007("federal");

E_softq510

#

Federal

transfers

to

regions

C_SOFTQ510("federal")*softq510("federal")= sum(q,REGDEST,C_SOFTY141(q)*softy141(q));

E_softq520

#

Federal

transfers

to

regions

C_SOFTQ520("federal")*softq520("federal")= sum(q,REGDEST,C_SOFTY142(q)*softy142(q));

E_softq500

#

Federal

transfers

to

regions

#

C_SOFTQ500("federal")*softq500("federal")= C_SOFTQ510("federal")*softq510("federal") +C_SOFTQ520("federal")*softq520("federal");

E_softq600

#

Other

outlays

#

(all,q,DOMDEST) softq600(q)=softq000(q)+softf006(q);

E_softq000 # Summary of financial transactions: expenditureside

total

#

(all,q,DOMDEST) C_SOFTQ000(q)*softq000(q)=C_SOFTQ100(q)*softq100(q)+C_SOFTQ20 0(q)*softq200(q) +C_SOFTQ300(q)*softq300(q)+C_SOFTQ400(q)*softq400(q)+C_SOFTQ5 00(q)*softq500(q) +C_SOFTQ600(q)*softq600(q); 180

! Regional and Federal government revenues and deficits !

E_softy111

#

Income

taxes

#

softy111("federal")=ty;

E_softy112A

#

Other

direct

taxes

#

federal

#

(all,q,REGDEST) softy112(q)=yn_r(q)+softf001(q);

E_softy112B

#

Other

direct

taxes

softy112("federal")=yn+softf011;

E_softy110

#

Direct

taxes

#

(all,q,DOMDEST) C_SOFTY110(q)*softy110(q)=C_SOFTY111(q)*softy111(q)+C_SOFTY11 2(q)*softy112(q);

E_softy121

#

Tariff

revenue

#

softy121("federal")=nattaxrevm;

E_softy122A

#

Other

commodity

taxes

-

regions

#

(all,q,REGDEST) softy122(q)=ti_r(q);

E_softy122B # Other commodity taxes - federal (residual) # C_TI*ti+C_SUBSIDIES*ti=sum(q,DOMDEST,C_SOFTY122(q)*softy122(q ));

181

E_softy123a

#

Payroll

taxes

-

regions

#

(all,q,REGDEST) softy123(q)=z03_r(q);

E_softy123b

#

Fringe

benefits

taxes

-

Federal

#

softy123("federal")=yn;

E_softy124

#

Property

taxes

-

regions

#

(all,q,REGDEST) softy124(q)=yn_r(q);

E_softy125

#

Land

taxes

-

regions

#

(all,q,REGDEST) softy125(q)=yn_r(q);

E_softy126A

#

Other

indirect

taxes

-

regions

#

indirect

taxes

-

federal

#

(all,q,REGDEST) softy126(q)=yn_r(q);

E_softy126B

#

Other

softy126("federal")=yn;

E_softy120

#

Indirect

taxes

#

(all,q,DOMDEST) C_SOFTY120(q)*softy120(q)=C_SOFTY121(q)*softy121(q)+C_SOFTY12 2(q)*softy122(q) + C_SOFTY123(q)*softy123(q)+C_SOFTY124(q)*softy124(q)+C_SOFTY12 5(q)*softy125(q) 182

+C_SOFTY126(q)*softy126(q);

E_softy130

#

Interest

received

#

(all,q,DOMDEST) softy130(q)=softq400(q);

E_softy141

#

Federal

transfers

to

regions

-

current

#

to

regions

-

capital

#

(all,q,REGDEST) softy141(q)=yn_r(q)+softf002(q);

E_softy142

#

Federal

transfers

(all,q,REGDEST) softy142(q)=yn_r(q)+softf003(q);

E_softy140

#

Federal

transfers

to

regions

#

(all,q,REGDEST) C_SOFTY140(q)*softy140(q)=C_SOFTY141(q)*softy141(q)+C_SOFTY14 2(q)*softy142(q);

E_softy150A

#

Other

revenue

-

regions

#

-

Federal

#

(all,q,REGDEST) softy150(q)=yn_r(q)+softf004(q);

E_softy150B

#

Other

revenue

softy150("federal")=yn+softf004("federal");

E_softy100

#

Government

revenue

#

(all,q,DOMDEST) C_SOFTY100(q)*softy100(q)=C_SOFTY110(q)*softy110(q)+C_SOFTY12 183

0(q)*softy120(q) +C_SOFTY130(q)*softy130(q)+C_SOFTY140(q)*softy140(q)+C_SOFTY1 50(q)*softy150(q);

E_softy200

#

Discrepancy

#

(all,q,DOMDEST) softy200(q)=g_r(q);

E_softy300

#

Financing

transactions

#

(all,q,DOMDEST) C_SOFTY300(q)*softy300(q)=C_SOFTQ000(q)*softq000(q)C_SOFTY100(q)*softy100(q) -C_SOFTY200(q)*softy200(q);

E_realdefr

#

Real

budget

deficit

for

region

#

Fed.

#

(all,q,REGDEST) realdef(q)=softy300(q)-xi3(q);

E_realdeff

#

Real

budget

deficit

for

realdef("federal")=softy300("federal")-natxi3;

E_softy320

#

Increase

in

provisions

#

transactions

#

(all,q,DOMDEST) softy320(q)=softq100(q)+softf005(q);

E_softy330

#

Other

financing

(all,q,DOMDEST) softy330(q)=softy300(q)+f_oft(q);

184

E_softy310

#

Net

borrowing

(residual)

#

(all,q,DOMDEST) C_SOFTY300(q)*softy300(q)=C_SOFTY310(q)*softy310(q)+C_SOFTY32 0(q)*softy320(q) +C_SOFTY330(q)*softy330(q);

E_softy000 # Summary of financial transactions : income-side total

#

(all,q,DOMDEST) C_SOFTY000(q)*softy000(q)=C_SOFTY100(q)*softy100(q)+C_SOFTY20 0(q)*softy200(q) +C_SOFTY300(q)*softy300(q);

E_dgstar

#

Net borrowing

to

total

outlays:

percent point

change

#

(all,q,DOMDEST) C_SOFTQ000(q)*dgstar(q)=C_SOFTY310(q)*(softy310(q)softq000(q));

E_tod_r

#

Other

direct

taxes

#

(all,q,REGDEST) tod_r(q)=softy112(q);

UPDATE

(all,q,DOMDEST) C_SOFTQ000(q)=softq000(q);

(all,q,DOMDEST) 185

C_SOFTQ100(q)=softq100(q);

(all,q,DOMDEST) C_SOFTQ110(q)=softq110(q);

(all,q,DOMDEST) C_SOFTQ120(q)=softq120(q);

(all,q,DOMDEST) C_SOFTQ200(q)=softq200(q);

(all,q,DOMDEST) C_SOFTQ210(q)=softq210(q);

(all,q,DOMDEST) C_SOFTQ220(q)=softq220(q);

(all,q,DOMDEST) C_SOFTQ300(q)=softq300(q);

(all,q,DOMDEST) C_SOFTQ400(q)=softq400(q);

(all,q,DOMDEST) C_SOFTQ500(q)=softq500(q);

(all,q,DOMDEST) C_SOFTQ510(q)=softq510(q);

186

(all,q,DOMDEST) C_SOFTQ520(q)=softq520(q);

(all,q,DOMDEST) C_SOFTQ600(q)=softq600(q);

(all,q,DOMDEST) C_SOFTY000(q)=softy000(q);

(all,q,DOMDEST) C_SOFTY100(q)=softy100(q);

(all,q,DOMDEST) C_SOFTY110(q)=softy110(q);

(all,q,DOMDEST) C_SOFTY111(q)=softy111(q);

(all,q,DOMDEST) C_SOFTY112(q)=softy112(q);

(all,q,DOMDEST) C_SOFTY120(q)=softy120(q);

(all,q,DOMDEST) C_SOFTY121(q)=softy121(q);

(all,q,DOMDEST) C_SOFTY122(q)=softy122(q); 187

(all,q,DOMDEST) C_SOFTY123(q)=softy123(q);

(all,q,DOMDEST) C_SOFTY124(q)=softy124(q);

(all,q,DOMDEST) C_SOFTY125(q)=softy125(q);

(all,q,DOMDEST) C_SOFTY126(q)=softy126(q);

(all,q,DOMDEST) C_SOFTY130(q)=softy130(q);

(all,q,DOMDEST) C_SOFTY140(q)=softy140(q);

(all,q,DOMDEST) C_SOFTY141(q)=softy141(q);

(all,q,DOMDEST) C_SOFTY142(q)=softy142(q);

(all,q,DOMDEST) C_SOFTY150(q)=softy150(q);

(all,q,DOMDEST) 188

C_SOFTY200(q)=softy200(q);

(all,q,DOMDEST) C_SOFTY300(q)=softy300(q);

(all,q,DOMDEST) C_SOFTY310(q)=softy310(q);

(all,q,DOMDEST) C_SOFTY320(q)=softy320(q);

(all,q,DOMDEST) C_SOFTY330(q)=softy330(q);

!

!

Section

GRP

8:

and

GROSS

its

REGIONAL

PRODUCT

expenditure-side

MODULE

components

!

!

COEFFICIENT

(all,q,REGDEST) C_DOMPQ000(q) # GRP at market prices (expenditure side) #;

(all,q,REGDEST) C_DOMPQ100(q)

#

Domestic

#

Private

absorption

#;

consumption

#;

(all,q,REGDEST) C_DOMPQ110(q)

189

(all,q,REGDEST) C_DOMPQ120(q)

#

Private

investment

#;

(all,q,REGDEST) C_DOMPQ130(q)

#

Government

consumption

-

regions

#;

#

Government

consumption

-

Federal

#;

(all,q,REGDEST) C_DOMPQ140(q)

(all,q,REGDEST) C_DOMPQ150(q)

#

Government

investment

#;

(all,q,REGDEST) C_DOMPQ200(q)

#

Interregional

trade

balance

#;

(all,q,REGDEST) C_DOMPQ210(q)

#

Interregional

exports

#;

#

Interregional

imports

#;

(all,q,REGDEST) C_DOMPQ220(q)

(all,q,REGDEST) C_DOMPQ300(q)

#

International

trade

balance

#;

(all,q,REGDEST) C_DOMPQ310(q)

#

International

exports

#;

#

International

imports

#;

(all,q,REGDEST) C_DOMPQ320(q)

190

READ

(all,q,REGDEST) C_DOMPQ000(q)

from

file

NDATA

header

"PA12";

from

file

NDATA

header

"PA13";

from

file

NDATA

header

"PA14";

from

file

NDATA

header

"PA15";

from

file

NDATA

header

"PA16";

from

file

NDATA

header

"PA17";

from

file

NDATA

header

"PA18";

from

file

NDATA

header

"PA19";

from

file

NDATA

header

"PA20";

(all,q,REGDEST) C_DOMPQ100(q)

(all,q,REGDEST) C_DOMPQ110(q)

(all,q,REGDEST) C_DOMPQ120(q)

(all,q,REGDEST) C_DOMPQ130(q)

(all,q,REGDEST) C_DOMPQ140(q)

(all,q,REGDEST) C_DOMPQ150(q)

(all,q,REGDEST) C_DOMPQ200(q)

(all,q,REGDEST) C_DOMPQ210(q)

191

(all,q,REGDEST) C_DOMPQ220(q)

from

file

NDATA

header

"PA21";

from

file

NDATA

header

"PA22";

from

file

NDATA

header

"PA23";

from

file

NDATA

header

"PA24";

(all,q,REGDEST) C_DOMPQ300(q)

(all,q,REGDEST) C_DOMPQ310(q)

(all,q,REGDEST) C_DOMPQ320(q)

VARIABLE

(all,q,REGDEST) dompq000(q)

#

GRP

at

market

prices

(expenditure side) #;

(all,q,REGDEST) dompq100(q)

#

Domestic

#

Private

#

Private

absorption

#;

consumption

#;

investment

#;

(all,q,REGDEST) dompq110(q)

(all,q,REGDEST) dompq120(q)

(all,q,REGDEST) dompq130(q)

#

Government

consumption

-

regions

#; 192

(all,q,REGDEST) dompq140(q)

#

Government

consumption

-

Federal

#;

(all,q,REGDEST) dompq150(q)

#

Government

investment

#;

(all,q,REGDEST) dompq200(q)

#

Interregional

trade

balance

#;

(all,q,REGDEST) dompq210(q)

#

Interregional

exports

#;

#

Interregional

imports

#;

(all,q,REGDEST) dompq220(q)

(all,q,REGDEST) dompq300(q)

#

International

trade

balance

#;

(all,q,REGDEST) dompq310(q)

#

International

exports

#;

#

International

imports

#;

consumption

#

(all,q,REGDEST) dompq320(q)

EQUATION

E_dompq110

#

Private

(all,q,REGDEST) 193

dompq110(q)=c(q);

E_dompq120

#

Private

investment

#

(all,q,REGDEST) dompq120(q)=in(q);

E_dompq130

#

Government

consumption

-

regions

#

consumption

-

Federal

#

(all,q,REGDEST) dompq130(q)=othnom5(q);

E_domq140

#

Government

(all,q,REGDEST) dompq140(q)=othnom6(q);

E_dompq150

#

Government

investment

#

Domestic

absorption

#

(all,q,REGDEST) dompq150(q)=in(q);

E_dompq100

#

(all,q,REGDEST) C_DOMPQ100(q)*dompq100(q)=C_DOMPQ110(q)*dompq110(q)+C_DOMPQ12 0(q)*dompq120(q) +C_DOMPQ130(q)*dompq130(q)+C_DOMPQ140(q)*dompq140(q)+C_DOMPQ1 50(q)*dompq150(q);

E_dompq210

#

Interregional

exports

#

(all,q,REGDEST) dompq210(q)=psexp(q)+xsexp(q);

194

E_dompq220

#

Interregional

imports

#

(all,q,REGDEST) dompq220(q)=psimp(q)+xsimp(q);

E_dompq200

#

Interregional

trade

balance

#

(all,q,REGDEST) C_DOMPQ200(q)*dompq200(q)=C_DOMPQ210(q)*dompq210(q)C_DOMPQ220(q)*dompq220(q);

E_dompq310

#

International

exports

#

imports

#

(all,q,REGDEST) dompq310(q)=export(q)+natphi;

E_dompq320

#

International

(all,q,REGDEST) dompq320(q)=imp(q)+natphi;

E_dompq300

#

International

trade

balance

#

(all,q,REGDEST) C_DOMPQ300(q)*dompq300(q)=C_DOMPQ310(q)*dompq310(q)C_DOMPQ320(q)*dompq320(q);

E_dompq000

#

GRP

at

market

prices

(expenditure

side)

#

(all,q,REGDEST) C_DOMPQ000(q)*dompq000(q)=C_DOMPQ100(q)*dompq100(q)+C_DOMPQ20 0(q)*dompq200(q) +C_DOMPQ300(q)*dompq300(q);

UPDATE 195

(all,q,REGDEST) C_DOMPQ000(q)=dompq000(q);

(all,q,REGDEST) C_DOMPQ100(q)=dompq100(q);

(all,q,REGDEST) C_DOMPQ110(q)=dompq110(q);

(all,q,REGDEST) C_DOMPQ120(q)=dompq120(q);

(all,q,REGDEST) C_DOMPQ130(q)=dompq130(q);

(all,q,REGDEST) C_DOMPQ140(q)=dompq140(q);

(all,q,REGDEST) C_DOMPQ150(q)=dompq150(q);

(all,q,REGDEST) C_DOMPQ200(q)=dompq200(q);

(all,q,REGDEST) C_DOMPQ210(q)=dompq210(q);

(all,q,REGDEST) 196

C_DOMPQ220(q)=dompq220(q);

(all,q,REGDEST) C_DOMPQ300(q)=dompq300(q);

(all,q,REGDEST) C_DOMPQ310(q)=dompq310(q);

(all,q,REGDEST) C_DOMPQ320(q)=dompq320(q);

!

GRP

and

its

income-side

components

!

COEFFICIENT

(all,q,REGDEST) C_DOMPY000(q)

#

GRP

at

market

prices

(income

side)

#;

(all,q,REGDEST) C_DOMPY100(q)

#

Wages,

salaries

and

supplements

#;

wage

income

#;

(all,q,REGDEST) #

C_DOMPY110(q)

Disposable

(all,q,REGDEST) C_DOMPY120(q)

#

PAYE

taxes

#;

(all,q,REGDEST) C_DOMPY200(q)

#

GOS:

non-wage

primary

factor

income

#; 197

(all,q,REGDEST) C_DOMPY210(q) # Disposable non-wage primary factor income #;

(all,q,REGDEST) C_DOMPY220(q) # Taxes on non-wage primary factor income #;

(all,q,REGDEST) C_DOMPY300(q)

#

Indirect

taxes

less

subsidies

#;

(all,q,REGDEST) C_DOMPY310(q)

#

Tariff

revenue

#;

taxes

#;

(all,q,REGDEST) C_DOMPY330(q)

#

Production

READ

(all,q,REGDEST) C_DOMPY000(q)

from

file

NDATA

header

"PA01";

from

file

NDATA

header

"PA02";

from

file

NDATA

header

"PA03";

from

file

NDATA

header

"PA04";

(all,q,REGDEST) C_DOMPY100(q)

(all,q,REGDEST) C_DOMPY110(q)

(all,q,REGDEST) C_DOMPY120(q)

198

(all,q,REGDEST) C_DOMPY200(q)

from

file

NDATA

header

"PA05";

from

file

NDATA

header

"PA06";

from

file

NDATA

header

"PA07";

from

file

NDATA

header

"PA08";

from

file

NDATA

header

"PA09";

from

file

NDATA

header

"PA11";

market

prices

(all,q,REGDEST) C_DOMPY210(q)

(all,q,REGDEST) C_DOMPY220(q)

(all,q,REGDEST) C_DOMPY300(q)

(all,q,REGDEST) C_DOMPY310(q)

(all,q,REGDEST) C_DOMPY330(q)

VARIABLE

(all,q,REGDEST) dompy000(q)

#

GRP

at

(income

side)

#;

(all,q,REGDEST) dompy100(q)

#

Wages,

salaries

and

supplements

#;

wage

income

#;

(all,q,REGDEST) dompy110(q)

#

Disposable

199

(all,q,REGDEST) dompy120(q)

#

PAYE

taxes

#;

(all,q,REGDEST) dompy200(q)

#

GOS:

non-wage

primary

factor

income

#;

(all,q,REGDEST) dompy210(q) # Disposable non-wage primary factor income #;

(all,q,REGDEST) dompy220(q)

#

Taxes

on

non-wage

primary

factor income #;

(all,q,REGDEST) dompy300(q)

#

Indirect

taxes

less

subsidies

#;

(all,q,REGDEST) dompy310(q)

#

Tariff

revenue

#;

(all,q,REGDEST) dompy320(q)

#

Other

commodity

taxes

less

subsidies

#;

(all,q,REGDEST) dompy330(q)

#

Production

taxes

#;

EQUATION

E_dompy100

#

Wages,

salaries

and

supplements

#

(all,q,REGDEST) 200

dompy100(q)=z01_r(q);

E_dompy120

#

PAYE

taxes

#

(all,q,REGDEST) dompy120(q)=dompy100(q)

E_dompy110

#

+

Disposable

wage

rl;

income

(residual)

#

(all,q,REGDEST) C_DOMPY100(q)*dompy100(q)=C_DOMPY110(q)*dompy110(q)+C_DOMPY12 0(q)*dompy120(q);

E_E_dompy200

#

Non-wage

primary

factor

income

#

(all,q,REGDEST) dompy200(q)=zg_r(q);

E_dompy220

#

Taxes

on

non-wage

primary

factor

income

#

(all,q,REGDEST) dompy220(q)=dompy200(q)+rk;

E_dompy210

#

Disposable

non-wage

primary

factor

(residual)

income #

(all,q,REGDEST) C_DOMPY200(q)*dompy200(q)=C_DOMPY210(q)*dompy210(q)+C_DOMPY22 0(q)*dompy220(q);

E_dompy310

#

Tariff

revenue

#

(all,q,REGDEST) dompy310(q)=taxrevm(q);

201

E_dompy320

#

Other

commodity

taxes

less

subsidies

#

(all,q,REGDEST) C_DOMPY320(q)*dompy320(q)=AGGTAX1(q)*taxrev1(q)+AGGTAX2(q)*ta xrev2(q) +AGGTAX3(q)*taxrev3(q)+AGGTAX4(q)*taxrev4(q)+AGGTAX5(q)*taxre v5(q) +AGGTAX6(q)*taxrev6(q);

E_dompy330

#

Production

taxes

#

(all,q,REGDEST) dompy330(q)=zt_r(q);

E_dompy300

#

Indirect

taxes

less

subsidies

#

(all,q,REGDEST) C_DOMPY300(q)*dompy300(q)=C_DOMPY310(q)*dompy310(q)+C_DOMPY32 0(q)*dompy320(q) +C_DOMPY330(q)*dompy330(q);

E_dompy000 # GDP at market prices (income side) - regions # (all,q,REGDEST) C_DOMPY000(q)*dompy000(q)=C_DOMPY100(q)*dompy100(q)+C_DOMPY20 0(q)*dompy200(q) +C_DOMPY300(q)*dompy300(q);

UPDATE

(all,q,REGDEST) C_DOMPY000(q)=dompy000(q);

202

(all,q,REGDEST) C_DOMPY100(q)=dompy100(q);

(all,q,REGDEST) C_DOMPY110(q)=dompy110(q);

(all,q,REGDEST) C_DOMPY120(q)=dompy120(q);

(all,q,REGDEST) C_DOMPY200(q)=dompy200(q);

(all,q,REGDEST) C_DOMPY210(q)=dompy210(q);

(all,q,REGDEST) C_DOMPY220(q)=dompy220(q);

(all,q,REGDEST) C_DOMPY300(q)=dompy300(q);

(all,q,REGDEST) C_DOMPY310(q)=dompy310(q);

(all,q,REGDEST) C_DOMPY320(q)=dompy320(q);

(all,q,REGDEST) C_DOMPY330(q)=dompy330(q); 203

!

Section

9:

INTERMEDIARY

AND

MISCELLANEOUS

MODULE

!

COEFFICIENT

C_IG

#

C_IP

Nominal

#

Nominal

C_TY

#

C_YF

government

private

Income

#

GDP

C_YN

at

#

C_YL

#

NATBT

#

R_DEBTG

#

#;

taxes

#;

factor

Pre-tax

National

Nominal

wage

#;

rate

#;

income

wage

nominal

interest

cost

GDP

Post-tax

#;

income

trade

on

#;

investment

Nominal

#

C_YLSTAR

investment

#;

balance

government

debt

#;

#;

(all,q,DOMDEST) C_DEBTG(q)

#

Government

debt

#;

(all,q,DOMDEST) C_IG_R(q)

#

Government

investment

#;

204

(all,q,REGDEST) C_IP_R(q)

#

Private

investment

#;

READ (all,q,REGDEST) C_IP_R(q)

from

file

NDATA

header

"MI02";

file

NDATA

header

"MI03";

header

"RGOV";

(all,q,DOMDEST) C_IG_R(q)

R_DEBTG

from

from

file

NDATA

FORMULA

C_IG=sum(q,DOMDEST,C_IG_R(q))

;

C_IP=sum(q,REGDEST,C_IP_R(q))

;

C_TY=sum(q,REGDEST,C_DOMPY120(q))+sum(q,REGDEST,C_DOMPY220(q) );

C_YF=sum(q,REGDEST,C_DOMPY100(q))+sum(q,REGDEST,C_DOMPY200(q) );

C_YL=sum(q,REGDEST,C_DOMPY100(q));

C_YLSTAR=sum(q,REGDEST,C_DOMPY110(q));

C_YN=sum(q,REGDEST,C_DOMPQ000(q)); 205

C_ZG=C_Z02+C_Z04+C_Z06+C_Z08;

C_ZT=C_Z03+C_Z05+C_Z07+C_Z09;

NATBT=sum(q,REGDEST,C_DOMPQ300(q));

(all,q,DOMDEST) C_DEBTG(q)=(C_SOFTQ400(q)-C_SOFTY130(q))/R_DEBTG;

VARIABLE

bstar # Balance of trade surplus as percentage of GDP #;

ig

ip

wn

#

Nominal

#

Nominal

#

Nominal

wnstar

#

wrstar

#

xiy

yf

yl

government

Nominal

Real

#

#

#

private

pre-tax

Pre-tax

investment

wage

post-tax

post-tax

at

rate

wage

wage

GDP

GDP

investment

rate

rate

deflator

factor

wage

#;

#;

#;

#;

#;

#;

cost

income

#;

#; 206

ylstar

#

yr

Post-tax

#

wage

income

Real

#;

GDP

#;

(all,q,REGDEST) gspin(q)

#

Nominal

GRP:

income

side

#;

(all,q,REGDEST) gspexp(q)

#

nominal

GRP:

expenditure

side

#;

(all,q,REGDEST) yr_r(q)

#

Real

GRP

-

regions

#;

(all,q,REGDEST) miscf001(q)

miscf002

#

#

Shift

Shift

variable:

variable:

consumption

relative

income

function

tax

#;

rates

#;

EQUATION

E_tir # Commodity taxes less subsidies (excluding tariffs) # (all,q,REGDEST) ti_r(q)=dompy320(q);

E_ti # Commodity taxes less subsidies (excluding tariffs) # C_TI*ti=sum(q,REGDEST,C_DOMPY320(q)*dompy320(q));

E_yn_r

#

Nominal

regional

domestic

product:

CGE

core 207

equivalent

#

(all,q,REGDEST) yn_r(q)=dompq000(q);

E_yn

#

Nominal

GDP:

CGE

core

equivalent

#

C_YN*yn=sum(q,REGDEST,C_DOMPQ000(q)*dompq000(q));

E_xiy_r

#

GDP

deflator:

CGE

core

equivalent

#

(all,q,REGDEST) C_DOMPQ000(q)*xiy_r(q)=C_DOMPQ110(q)*xi3(q)+C_DOMPQ120(q)*xi2 (q) +C_DOMPQ130(q)*xi5(q)+C_DOMPQ140(q)*xi6(q)+C_DOMPQ150(q)*xi2( q) +C_DOMPQ210(q)*psexp(q)C_DOMPQ220(q)*psimp(q)+C_DOMPQ310(q)*xi4(q) -C_DOMPQ320(q)*xim(q);

E_xiy

#

GDP

deflator:

CGE

core

equivalent

#

C_YN*xiy=sum(q,REGDEST,C_DOMPQ000(q)*xiy_r(q));

E_yr_r # Real regional domestic product: CGE core equivalent # (all,q,REGDEST) yr_r(q)=yn_r(q)-xiy_r(q);

E_yr

#

Real

GDP:

CGE

core

equivalent

#

yr=yn-xiy;

E_yf

#

GDP

at

factor

cost

# 208

C_YF*yf=sum(q,REGDEST,C_DOMPY100(q)*dompy100(q)) +sum(q,REGDEST,C_DOMPY200(q)*dompy200(q));

E_bstar # Balance of trade surplus to GDP: percentage-point change

#

C_YN*bstar=sum(q,REGDEST,C_DOMPQ300(q)*dompq300(q))-NATBT*yn;

E_ty

#

Income

taxes

#

C_TY*tY=sum(q,REGDEST,C_DOMPY120(q)*dompy120(q)) +

sum(q,REGDEST,C_DOMPY220(q)*dompy220(q));

E_gspin

#

Nominal

GRP:

income

side

#

(all,q,REGDEST) gspin(q)=dompy000(q)

E_gspexp

#

;

Nominal

GRP:

expenditure

side

#

(all,q,REGDEST) (C_DOMPQ000(q)-C_Z10_R(q))*gspexp(q)= C_DOMPQ000(q)*dompq000(q)-C_Z10_R(q)*z10_r(q);

E_yl

#

Pre-tax

wage

income

#

C_YL*yl=sum(q,REGDEST,C_DOMPY100(q)*dompy100(q));

E_wn

#

Nominal

pre-tax

wage

rate

#

wn=yl-natl;

E_ylstar

#

Post-tax

wage

income

#

C_YLSTAR*ylstar=sum(q,REGDEST,C_DOMPY110(q)*dompy110(q));

209

E_wnstar#

Nominal

post-tax

wage

rate

#

rate

#

wnstar=ylstar-natl;

E_wrstar

#

Real

post-tax

wage

wrstar=wnstar-natxi3;

E_g_rA

#

Nominal

government

consumption

-

regions

#

government

consumption

-

federal

#

(all,q,REGDEST) g_r(q)=othnom5(q);

E_g_rB

#

Nominal

g_r("federal")=natothnom6;

E_ip

#

Aggregate

nominal

private

investment

#

C_IP*iP=sum(q,REGDEST,C_IP_R(q)*in(q));

E_ig_r_reg

#

Nominal

government

investment

-

regions

#

(all,q,REGDEST) ig_r(q)=in(q);

E_ig # Aggregate nominal government investment (residual) # NATAGGINV*natin=C_IP*ip+C_IG*ig;

E_ig_r_fed

#

Nominal

government

investment

-

(residual)

federal #

C_IG*iG=sum(q,DOMDEST,C_IG_R(q)*ig_r(q));

E_c_b

#

Consumption

function

#

(all,q,REGDEST) 210

c(q)=yd_r(q)+miscf001(q);

E_rl

#

Relative

income

tax

rates

#

rl=rk+miscf002;

UPDATE

(all,q,DOMDEST) C_IG_R(q)=ig_r(q);

(all,q,REGDEST) C_IP_R(q)=in(q);

(all,q,DOMDEST) C_PBP_R(q)=pbp_r(q);

!

SET

Section

YEARS

10:

FOREIGN

MAXIMUM

DEBT

SIZE

100

ACCUMULATION

SIZE

!

PRIOD;

COEFFICIENT

B0

#

BT

DEBT

DEBT_RATIO

Original

#

Real

#

Real

#

real

trade

trade

foreign

Debt/GDP

deficit

#;

deficit

#;

debt

#;

ratio

#; 211

DEBT0

#

Original

DEBT_RATIO_0

#

M_DEBT

#

N_DEBT

real

foreign

Original

debt/GDP

A

debt

#;

ratio

#;

constant

#

A

#;

constant#;

(all,e,YEARS) ORD(e);

!

P_GLOBAL

R_WORLD

#

#

=e

Converts

World

for

R$

interest

e=1,PRIOD

into

rate:

'real'

number

like

!

terms

1.06

#;

#;

READ

ORD

from

DEBT_RATIO

R_WORLD

file

from

from

Terminal

file

file

YDATA

YDATA

header

"ORD";

header

"DGDP";

header

"RWLD";

FORMULA

(initial) P_GLOBAL=1;

!

Original

value

arbitrary

!

212

BT=(NATAGGIMP

-

NATAGGEXP)/P_GLOBAL;

(initial) B0=BT;

M_DEBT=sum(e,YEARS,([ORD(e)-1]/PRIOD)*R_WORLD^{PRIODORD(e)});

(initial) N_DEBT=sum(e,YEARS,R_WORLD^{PRIOD-ORD(e)});

(initial) DEBT_RATIO_0=DEBT_RATIO;

DEBT=DEBT_RATIO*NatGDPEX/P_GLOBAL;

(initial) DEBT0=DEBT;

DISPLAY

DEBT_RATIO_0;

VARIABLE

(change) deldfudge

#

Dummy

variable

in

equation

E_delDebt

#;

(change) delunity # Dummy to activate foreign debt accum. equation #;

213

(change) delbt

#

Ordinary

change

in

the

real

trade

deficit

#;

(change) deldebt_ratio

#

Change

in

debt/GDP

ratio#;

(change) deldebt

#

Ordinary

change

in

foreign

debt

#;

(change) levdebt_ratio

#

Level

of

debt/GDP

ratio

#;

EQUATION E_delbt

#

Ordinary

change

in

real

trade

deficit

#

ratio

#

100*P_GLOBAL*delbt=NATAGGIMP*(natimpvol)NATAGGEXP*(natexpvol+natxi4-natxim);

E_deldebt_ratio

#

Change

in

debt/GDP

deldebt_ratio=(DEBT_RATIO/DEBT)*deldebt(DEBT_RATIO/100)*(natgdpexp-natxim);

E_deldebt

#

Ordinary

change

in

foreign

debt

#

deldebt={DEBT0*(R_WORLD^PRIOD1)+B0*N_DEBT}*deldfudge+M_DEBT*delbt;

E_levdebt_ratio

#

Level

debt/GDP

#

levdebt_ratio=DEBT_RATIO_0*delunity+deldebt_ratio;

UPDATE 214

(change) DEBT_RATIO=deldebt_ratio;

P_GLOBAL=natxim;

! Section 11: LABOR MARKET AND REGIONAL MIGRATION MODULE !

COEFFICIENT

(all,q,REGDEST) C_FM(q)

#

Regional

foreign

migration

#;

(all,q,REGDEST) C_FM_0(q)

#

Base-year

regional

foreign

migration

#;

(all,q,REGDEST) C_G(q) # Regional natural population growth (births-deaths) #;

(all,q,REGDEST) C_G_0(q) # Base-year regional natural population growth #;

C_NATLABSUP

C_NATEMPLOY

#

#

National

National

labor

employment:

supply

#;

persons

#;

C_PA2 # Coefficient in population accumulation equation #;

215

(all,q,REGDEST) C_POP(q)

#

Regional

population

#;

(all,q,REGDEST) C_PR1(q) # Constant term in regional population accumulation equation

#;

(all,q,REGDEST) C_RM(q)

#

Interregional

migration

#;

(all,q,REGDEST) C_RM_0(q)

#

Base-year

interregional

migration

#;

(all,q,REGDEST) C_WPOP(q)

#

Regional

population

of

working

age

#;

READ

C_FM

C_G

C_POP

C_RM

C_WPOP

from

from

from

from

from

file

file

file

file

file

PDATA

header

"RFRM";

PDATA

header

"RGRO";

PDATA

header

"RPOP";

PDATA

header

"RRGM";

header

"RWAP";

PDATA

FORMULA 216

(initial)(all,q,REGDEST) C_FM_0(q)=C_FM(q);

(initial)(all,q,REGDEST) C_G_0(q)=C_G(q);

C_NATEMPLOY=sum(q,REGDEST,C_EMPLOY(q));

C_NATLABSUP=sum(q,REGDEST,C_LABSUP(q));

C_PA2=50*(PRIOD+1);

(initial)(all,q,REGDEST) C_RM_0(q)=C_RM(q);

(all,q,REGDEST) C_PR1(q)=100*PRIOD*(C_RM_0(q)+C_FM_0(q)+C_G_0(q));

DISPLAY

C_NATEMPLOY;

C_NATLABSUP;

VARIABLE

(change) del_natfm # Ordinary change in foreign migration in Brazil #; 217

(change) del_natg # Ordinary change in natural pop. (births-deaths) in Brazil

#;

(change) del_natunr # P-point change in economy-wide unemployment rate #;

(change) delf_rm

#

del_frmt0

#

Shifter

Shifter

in

for

forecasts

equation

regional

E_RM_Addup

migration

in

from

T

#;

IBGE #;

(change) delf_rm_0

#

Shifter

in

equation

E_RM_0

#;

(change) delpopfudget

#

natlabsup

#

natemploy

Fudge

factor

National

#

National

in

equation

labor

E_popT

supply

employment

#;

#;

#;

(change)(all,q,REGDEST) del_fgt(q) # Shift in natural growth of regional population in

year

T

#;

218

(change)(all,q,REGDEST) del_fm(q) # Ordinary changes in foreign migration: regions #;

(change)(all,q,REGDEST) del_fmt(q) # Ordinary change in foreign migration for update #;

(change)(all,q,REGDEST) del_fpop1t(q) # Shift in regional population in year T-1 #;

(change)(all,q,REGDEST) del_g(q) # Ordinary changes in natural pop. (births-deaths): regions

#;

(change)(all,q,REGDEST) del_gt(q) # Ordinary change in nat. growth in regional pop. for

update

#;

(change)(all,q,REGDEST) del_pop1t(q) # Ordinary change in regional population in year T-1

#;

(change)(all,q,REGDEST) del_rm(q) # Ordinary change in interregional migration #;

(change)(all,q,REGDEST) del_rm_0(q) # IBGE forecast of interregional migration #;

(change)(all,q,REGDEST) 219

del_rmt(q) # Ordinary change in regional migration for update #;

(change)(all,q,REGDEST) del_rmt0(q) # Ordinary change in regional migration: IBGE forecasts

#;

(change)(all,q,REGDEST) delrpfudge(q)

#

Dummies

in

equation

E_del_RM

#;

(change)(all,q,REGDEST) del_unr(q)

#

Percentage-point

unemployment

changes

in

regional

rate

#;

(all,q,REGDEST) employ(q)

#

Regional

employment:

persons

#;

employment

#;

E_del_RM

#;

E_WPop

#;

(all,q,REGDEST) f_l(q)

#

Shifter

in

regional

(all,q,REGDEST) f_pop(q)

#

Shifter

in

equation

(all,q,REGDEST) f_wpop(q)

#

Shifter

in

equation

(all,q,REGDEST) f_qhous(q)

#

Shifter

in

equation

E_Pop_interf

#;

220

(all,q,REGDEST) pr(q)

#

Regional

workforce

participation

rate

#;

age

#;

(all,q,REGDEST) wpop(q)

#

Regional

population

of

working

EQUATION

E_delNatFM # Foreign mig. nationally is sum of foreign mig. to

regions

#

del_natfm=sum(q,REGDEST,del_fm(q));

E_delnatg # Natural pop. nationally is sum of natural pop. of regions

#

del_natg=sum(q,REGDEST,del_g(q));

E_natlabsup

#

National

labor

supply

#

C_NATLABSUP*natlabsup=sum(q,REGDEST,C_labsup(q)*labsup(q));

E_Natemploy

#

National

employment

#

C_NATEMPLOY*natemploy=sum(q,REGDEST,C_EMPLOY(q)*employ(q));

E_NatUnr

#

P-point

change

in natural

unemployment

rate #

C_NATLABSUP*del_natunr=C_NATEMPLOY*(natlabsup-natemploy);

E_rempl_interf

#

Interface

employ

and

l

#

(all,q,REGDEST) l(q)=employ(q)+f_l(q);

221

E_del_labsup # P-point changes in regional unemployment rates # (all,q,REGDEST) C_LABSUP(q)*del_unr(q)=C_EMPLOY(q)*(labsup(q)-employ(q));

E_wpop

#

Regional

labor

supply

#

population

#

(all,q,REGDEST) labsup(q)=pr(q)+wpop(q);

E_Pop

#

Regional

working

age

(all,q,REGDEST) wpop(q)=pop(q)+f_wpop(q);

E_del_RM

#

Accumulation

of

regional

population

#

(all,q,REGDEST) C_POP(q)*pop(q)=C_PR1(q)*delrpfudge(q) +C_PA2*(del_rm(q)+del_fm(q)+del_g(q))+f_pop(q);

E_pop_interf

#

Interface

pop

and

qhous

#

(all,q,REGDEST) qhous(q)=pop(q)+f_qhous(q);

E_RM_addup

#

Adding-up

condition

on

regional

migration

#

delf_rm=sum(q,REGDEST,del_rm(q));

E_RM_0 # IBGE population forecasts can drive interregional migration

#

(all,q,REGDEST) del_rm(q)=del_rm_0(q)+delf_rm_0; 222

E_popt

#

Update

the

regional

population

in

final

year

#

(all,q,REGDEST) (C_POP(q)/100)*pop(q)=del_pop1t(q)+del_gt(q)+del_fmt(q)+del_r mt(q) +(C_G_0(q)+C_FM_0(q)+C_RM_0(q))*delpopfudget;

E_pop1t # Update the regional population in final year in 2nd closure

#

(all,q,REGDEST) C_POP(q)*pop(q)=100*del_pop1t(q)+(C_POP(q)/PRIOD)*pop(q)+del_ fpop1t(q);

E_GT # Update the natural growth (change) in final year T # (all,q,REGDEST) 100*del_gt(q)=C_G_0(q)*pop(q)+100*C_POP(q)*del_fgt(q);

E_RMT0

#

Adjustment

to

regional

mig.

to ensure adding-up

condition

#

(all,q,REGDEST) del_rmt(q)=del_rmt0(q)+del_frmt0;

E_addup

#

Adding-up

condition

#

Sum(q,REGDEST,del_rmt(q))=0;

UPDATE

(all,q,REGDEST) C_POP(q)=pop(q); 223

(change)(all,q,REGDEST) C_RM(q)=del_rmt(q);

(change)(all,q,REGDEST) C_FM(q)=del_fmt(q);

(change)(all,q,REGDEST) C_G(q)=del_gt(q);

(all,q,REGDEST) C_EMPLOY(q)=employ(q);

(all,q,REGDEST) C_LABSUP(q)=labsup(q);

(all,q,REGDEST) C_WPOP(q)=wpop(q);

!

Section

11:

STRUCTURAL

!

INDICATORS

MODULE

Welfare

!

!

VARIABLE

(change)(all,q,REGDEST) ev(q)

#

Equivalent

variation

-

regional

#;

(change) 224

ev_r

#

Equivalent

variation

-

total

#;

EQUATION

E_ev

#

Equivalent

variation

-

regional

#

total

#

industries

#

(all,q,REGDEST) 100*ev(q)=C_HHLDY000(q)*utility(q);

E_ev_r

#

Equivalent

variation

-

ev_r=sum(q,REGDEST,ev(q));

SET

OTHERS

#

Transport

margin

(AGP,MNG,IND,CNT,ADP,OTS);

SUBSET

OTHERS

is

subset

of

IND;

COEFFICIENT

(all,q,REGDEST) TOTFAC_SEC(q) # Total primary factor payments, sectors except TRN

#;

FORMULA

(all,q,REGDEST) TOTFAC_SEC(q)=sum(j,OTHERS,TOTFACIND(j,q));

VARIABLE

225

(all,q,REGDEST) z_tot_sec(q) # Aggregate output, value-added weights, sectors except

TRN

#;

EQUATION

E_z_tot_sec # Aggregate output: value-added weights, sectors except

TRN

#

(all,q,REGDEST) TOTFAC_SEC(q)*z_tot_sec(q)=sum(j,IND,TOTFACIND(j,q)*z(j,q));

!

Employment

!

!

Tax

State

!

revenue

competitiveness

!

-

Regional

Regional

GDP

!

!

!

domestic

!

and

inequality

-

Integration

...

Ommitted

local

!

!

Regions

!

!

variables

!

omit a1 a1cap a1land a1oct a2ind a3com deltax1all deltax2all deltax3all delTax4all;

226

omit

deltax5all

deltax6all

!

deltaxdest

Substitute

deltaxsource;

!

substitute

p1oct

using

substitute

p1laboi

substitute

x1oct

substitute

x1a

using

E_x1a;

substitute

p1o

using

E_p1o;

substitute

p1c

using

E_p1c;

substitute

x1c

using

E_x1c;

substitute

x2a

using

E_x2a;

substitute

p2o

using

E_p2o;

substitute

p2c

using

E_p2c;

substitute

x2c

using

E_x2c;

substitute

x3a

using

E_x3a;

substitute

p3o

using

E_p3o;

using

using

E_p1oct;

E_p1laboi;

E_x1oct;

227

substitute

p3c

using

E_p3c;

substitute

x3c

using

E_x3c;

substitute

p1a

substitute

deltax1

substitute

substitute

substitute

substitute

substitute

substitute

substitute

substitute

substitute

substitute

using

p2a

deltax2

p3a

deltax3

p4r

deltax4

p5a

deltax5

p6a

deltax6

E_p1a

using

using

using

using

using

using

using

using

using

using

using

;

E_deltax1;

E_p2a;

E_deltax2;

E_p3a;

E_deltax3;

E_p4r;

E_deltax4;

E_p5a;

E_deltax5;

E_p6a;

E_deltax6;

228

substitute

x1o

using

E_x1o;

substitute

x2o

using

E_x2o;

substitute

x3o

using

E_x3o;

substitute

x1marg

using

E_x1marg;

substitute

x2marg

using

E_x2marg;

substitute

x3marg

using

E_x3marg;

substitute

x4marg

using

E_x4marg;

substitute

x5marg

using

E_x5marg;

substitute

x6marg

using

E_x6marg;

substitute

efflab

using

E_efflab;

substitute

x1laboi

using

E_x1laboi;

substitute

utility

using

E_utility;

substitute

x5a

using

E_x5a;

substitute

x6a

using

E_x6a;

229

Loading...

secretaria de estado de transportes do estado do pará - SETRAN

SECRETARIA DE ESTADO DE TRANSPORTES DO ESTADO DO PARÁ ESPECIFICAÇÃO DO MODELO B-MARIA-PA RELATÓRIO 1 DO MÓDULO 2 – PRODUTO 3 SÃO PAULO DEZEMBRO/200...

478KB Sizes 3 Downloads 0 Views

Recommend Documents

secretaria de estado do meio ambiente - Governo de São Paulo
Dec 29, 2011 - área de espelho d'água menor que 1 hectare, contemplando remoção de sedimentos (solo) acumulados, da vege

estado do pará sistema único de saúde secretaria de estado e saúde
e a provisão anual de recursos aos municípios, para aplicação nas ações e serviços de saúde, de acordo com a ..... nunca

Constituição Do Estado Espacial de Asgárdia - Asgardia
Artigo 16. Democracia. • Artigo 17. Justiça. • Artigo 18. Igualdade de dignidade de todos e de cada um. • Artigo 19. Tra

6 - imprensa oficial do estado de roraima
Dec 6, 2016 - DRAL, Rua Francisco Paulino da Silva Aguiar, nº 215 , P – Q 273 – Lote 50 – Bairro Caçari,. CEP: 69.307-60

homofobia do estado - ILGA
reconhecimento jurídico da orientação homossexual nos países africanos desde março de 2011, bem como o seu trabalho

Defensoria Pública do Estado do Rio de Janeiro - Portal DPGE
Lembre-se que no atendimento na área criminal, por força do princípio Constitucional da Ampla Defesa, qualquer pessoa

2015 - Estado do Paraná
Oct 23, 2015 - telefone (43) 3270-1299; Na Cidade de SÃO SEBASTIÃO DA MOREIRA, situado na Avenida Brasil, 140, ..... EDE

universidade do estado do amazonas fundação de - cursos uea
Jun 19, 2003 - PDC. Células Dendríticas Plasmocitóides. PGE2. Prostaglandina E2. pH. Potencial Hidrogeniônico pmol. Pico

Femargs - Fundação Escola de Magistratura do Estado do Rio Grande
O capitalismo amadureceu no Brasil por esses fatores, tendo sido criado um exército de mão-de-obra para satisfazer as ne

Universidade Federal do Estado do Rio de Janeiro - UNIRIO
solo é mais seco, quanto nas várzeas, que são alagadas sazonalmente na bacia. Amazônica ... tem diminuído com o pas