설명

이 미니 버전의 크레이지 슬롯는 다중 부문 가격 내생 모델입니다.
호주, 백분율 변화 공식화를 먼저 시연
Johansen이 적용했습니다.

소형 모델 유형 :LP

카테고리 : 크레이지 슬롯 모델 라이브러리

메인 파일 : 크레이지 슬롯gms

$title 크레이지 슬롯 78의 미니어처 버전 (크레이지 슬롯SEQ=40)

$onText
다중 부문 가격 내생 모델인 크레이지 슬롯의 미니 버전입니다.
호주, 백분율 변화 공식화를 먼저 시연
Johansen이 적용했습니다.

Kendrick, D, 다중 섹터 모델링의 스타일. 휴즈-할렛(Hughes-Hallet), J, Ed,
응용의사결정분석과 경제적 행동. 클루워(Kluwer)와 니호프(Nijhoff),
보스턴과 헤이그, 1984.

키워드: 선형 계획법, 거시 경제학, 호주 경제, 다중 부문 모델링,
          가격 내생 모델링
$offText

세트
   c '상품' / 식품, 의류 /
   ca(c) '농산물' / 식품 /
   cm(c) '제조 상품' / 의류 /
   f '요소' / 노동, 자본 /
   h '가구' / 가족 /
   i '산업' / 농업 '농업'
                                         manuf '제조' /
   '출처' / 국내산, 수입산 /
   ce(c,c) '대각선';

별칭 (c,cp), (s,sp), (i,ip);

ce(c,c) = 예;
CE를 표시;

테이블 amc(c,s,*) '상품에 대한 회계 행렬'
* 산업 가계 수출 수입
                       농업 제조 가족 특급 근무
   식품.국내 10 8 17 19
   의류.국내 15 1 34 1
   식품.수입 1 8 1 -1
   의류.수입 5 2 10 -5;

테이블 amf(f,i) '요인에 대한 회계 행렬'
                농업 제조
   노동 20 20
   자본금 10 5;

테이블 amq(c,i) '출력에 대한 회계 행렬'
                농업 제조
   음식 45 9
   의류 16 35;

테이블 입실론(c,s) '소득 탄력성'
                    국내 수입
   음식 1. 1.
   의류 1. 1.;

매개변수
   amt(i) '열 합계에 대한 회계 행렬'
   gamma(c) '수출 수요 매개변수' / 식품 .5, 의류 .05 /
   wl(i) '총 고용 비율' / agric .5, manuf .5 /
   theta '임금조정변수';

amt(i) = sum((c,s), amc(c,s,i)) + sum(f, amf(f,i));
amc(c,s,"전체") = sum(i, amc(c,s,i)) + amc(c,s,"가족") + amc(c,s,"exp") + amc(c,s,"duty");
세타 = 1;

amt, amc를 표시합니다.

매개변수
   alpha(c,s,i) '산업별 지출 비율'
   alphak(i) '자본에 대한 지출 비율'
   alphal(i) '인건비 지출 비율'
   alphae(c,s) '상품 c에 대한 지출에서 상품 c의 몫'
   etabar(c,s,cp,sp) '보상된 가격 탄력성'
   sb(c,s) '가계 예산에서 좋은 CS의 비율'
   eta(c,s,cp,sp) '보상되지 않은 가격 탄력성'
   elevel '기준 기간 수출 수준 - 요율이 아님'
   m(c,i) '산업 시장 점유율'
   mlevel '기본 기간 수입 수준 - 요율 아님';

알파(c,s,i) = amc(c,s,i)/sum(sp, amc(c,sp,i));
alphak(i) = amf("자본",i)/sum(f, amf(f,i));
alphal(i) = amf("노동",i)/sum(f, amf(f,i));
alphae(c,s) = amc(c,s,"가족")/sum(sp, amc(c,sp,"가족"));

etabar(c,s,cp,sp) = 알파(cp,sp);
etabar(c,s,c,s) = -1. + 알파(c,s);
etabar(c,s,cp,sp)$(ce(c,cp) 아님) = 0.;
sb(c,s) = amc(c,s,"가족")/sum((cp,sp), amc(cp,sp,"가족"));
에타(c,s,cp,sp) = - 엡실론(c,s)*sb(cp,sp) + etabar(c,s,cp,sp);

elevel = sum((c,s), amc(c,s,"exp"));
m(c,i) = amq(c,i)/sum(ip, amq(c,ip));
mlevel = sum(c, amc(c,"가져온 항목","전체"));

매개변수
   mu(c,s) 'cpi에 대한 가중치'
   nm(c) '총 수입에서 차지하는 비중'
   nx(c) '총 수출에서 차지하는 비중'
   r(c,i) '수익 지분'
   sc(c,s,i) '비용 공유'
   sk(i) '자본에 대한 비용 지분'
   sl(i) '인건비 분담'
   wc(c,s) '수요 중 소비 비중'
   we(c) '수요에 따른 수출 비중'
   wi(c,s,i) '수요 중간체의 비율';

뮤(c,s) = sb(c,s);
nm(c) = amc(c,"가져옴","전체")/sum(cp, amc(cp,"가져옴","전체"));
nx(c) = amc(c,"국내","exp")/sum(cp, amc(cp,"국내","exp"));
r(c,i) = amq(c,i)/sum(cp, amq(cp,i));
sc(c,s,i) = amc(c,s,i)/amt(i);
sk(i) = amf("자본",i)/amt(i);
sl(i) = amf("노동",i)/amt(i);
wc(c,s) = amc(c,s,"가족")/(amc(c,s,"전체") - amc(c,s,"의무"));
we(c) = amc(c,"국내","exp")/amc(c,"국내","전체");
wi(c,s,i) = amc(c,s,i)/(amc(c,s,"전체") - amc(c,s,"duty"));

알파, 알파크, 알파, 알파, etabar, sb, eta, elevel, m, mlevel, mu, nm, nx, r, sc, sk, sl, wc, we, wi를 표시합니다.

$sTitle 변수 및 방정식 선언
* 달리 명시하지 않는 한 모든 변수는 변화율입니다.
변수
   b '무역수지'
   cn(c,s) '소비 - 명목'
   cr '소비 - 실제'
   df(c) '외국 수요 이동'
   e(c) '농산물 수출'
   et '총 수출'
   k(i) '자본수요'
   kappa(i) '부문별 자본스톡'
   l '총고용'
   li(i) '산업별 노동수요'
   MT '총 수입'
   p(c,s) '국내 통화로 표시된 상품 가격'
   pc '물가: 소비자물가지수'
   파이 '환율'
   pk(i) '자본 가격'
   px(c) '외화 수출 가격'
   pm(c) '외화로 표시된 수입가격'
   q(c,i) '출력'
   t(c) '수입관세'
   v(c) '제조업체에 대한 수출 보조금'
   w '임금율'
   ws '임금 변동'
   x(c,s,i) '중간 상품 수요'
   너희는 '가계비'
   z(i) '산업 활동 수준';

방정식
   con(c,s) '소비'
   expd(c) '수출 수요'
   Supply(c,i) '공급 관계'
   indc(c,s,i) '상품에 대한 수요 입력'
   indcap(i) '자본에 대한 입력 수요'
   indlab(i) '노동 수요 입력'
   pric(i) '상품의 가격 방정식'
   priexp(c) '수출 가격 방정식'
   priimp(c) '수입품 가격 방정식'
   bald(c) '국내 상품의 균형 방정식'
   발라브 '노동의 균형 방정식'
   balcap(i) '자본 균형 방정식'
   수입하다 '수입하다'
   수출 '수출'
   baltrade '무역 수지'
   CPI '소비자 물가 지수'
   임금 '임금율'
   realc '실제 소비'
   dummy '0이 아닌 rhs를 얻기 위한 비바인딩 제약 조건';

$sTitle 방정식 정의
con(c,s).. cn(c,s) =e= 엡실론(c,s)*ye + sum((cp,sp), eta(c,s,cp,sp)*p(cp,sp));

expd(c).. px(c) =e= - 감마(c)*e(c) + df(c);

공급(c,i).. q(c,i) =e= z(i) + (p(c,"국내") - sum(cp, r(cp,i)*p(cp,"국내")));

indc(c,s,i).. x(c,s,i) =e= z(i) - (p(c,s) - sum(sp, alpha(c,sp,i)*p(c,sp)));

indcap(i).. k(i) =e= z(i) - (pk(i) - alphal(i)*w - alphak(i)*pk(i));

indlab(i).. li(i) =e= z(i) - (w - alphal(i)*w - alphak(i)*pk(i));

pric(i).. sum(c, r(c,i)*p(c,"국내")) =e= sum((c,sp), sc(c,sp,i)*p(c,sp)) + sk(i)*pk(i) + sl(i)*w;

priexp(c).. p(c,"국내") =e= px(c) + v(c) + phi;

priimp(c).. p(c,"가져옴") =e= pm(c) + t(c) + phi;

bald(c).. sum(i, m(c,i)*q(c,i)) =e= sum(i, wi(c,"domestic",i)*x(c,"domestic",i))
                                     + wc(c,"국내")*cn(c,"국내") + we(c)*e(c);

ballab..sum(i, wl(i)*li(i)) =e= l;

balcap(i)..k(i) =e= kappa(i);

수입.. mt =e= sum(c, nm(c)*( pm(c) + sum(i, wi(c,"수입됨",i)*x(c,"수입됨",i))
                    + wc(c,"가져옴")*cn(c,"가져옴")));

수출.. et =e= sum(c, nx(c)*px(c) + nx(c)*e(c));

baltrade.. b =e= (elevel*et - mlevel*mt)/100;

cpi.. pc =e= sum((c,s), mu(c,s)*p(c,s));

임금.. w =e= theta*pc + ws;

realc.. cr =e= 예 - pc;

더미.. pc =l= 100000;

$sTitle 외생 변수 및 솔루션 보고서
df.fx(c) = 1; e.fx(cm) = 1; kappa.fx(i) = 3;
phi.fx = 0; pm.fx(c) = -2; t.fx(c) = 0;
v.fx(ca) = 0; ws.fx = 0; ye.fx = 2;

모델 오라니/모두/;

lp 최소화 PC를 사용하여 크레이지 슬롯를 해결합니다.

매개변수
   varcomm(c,*) '상품 보고서'
   varindus(i,*) '업계 보고서';

varcomm(c,"t") = t.l(c);
varcomm(c,"v") = v.l(c);
varcomm(c,"df") = df.l(c);
varcomm(c,"e") = e.l(c);
varcomm(c,"px") = px.l(c);
varcomm(c,"pm") = pm.l(c);

varindus(i,"k") = k.l(i);
varindus(i,"li") = li.l(i);
varindus(i,"pk") = pk.l(i);
varindus(i,"z") = z.l(i);
varindus(i,"kappa") = kappa.l(i);

b.l, cr.l, et.l, l.l, mt.l, pc.l, w.l, phi.l, ws.l, ye.l,q.l, x.l, cn.l, varcomm, varindus를 표시합니다.