설명

이 모델은 PATH 전처리기의 버그를 해결했습니다.  버그가 알려졌습니다
4.7.00 라이브러리에 존재 - 슬롯 커뮤니티 Distrib 22.8.1로 테스트됨
(2008년 8월).

기고자: Steve Dirkse, 2008년 8월.
원본 문제 보고서 및 모델 발송자:
스테판 보터스
CPB 네덜란드 경제 정책 분석국
부문 국제경제

소형 모델 유형 :MCP

카테고리 : 슬롯 커뮤니티 테스트 라이브러리

메인 파일 : mcp08.gms

$title Test MCP that turfs up PATH proprocessing error (MCP08,SEQ=401)

$onText

This model turfed up a bug in the PATH preprocessor.  버그가 알려졌습니다
4.7.00 라이브러리에 존재 - 슬롯 커뮤니티 Distrib 22.8.1로 테스트됨
(2008년 8월).

기고자: Steve Dirkse, 2008년 8월.
원본 문제 보고서 및 모델 발송자:
스테판 보터스
CPB Netherlands Bureau for Economic Policy Analysis
부문 국제경제
$offText

$sTitle MCP로 공식화된 소규모 재귀 모델

스칼라
        q       probability of perfect task performance         /0.5/
        n       number of persons                               /2/
        p       product price                                   /1/
        alpha   production elasticity                           /0.3/
        r       interest rate                                   /0.05/;

변수
        w 임금
        k 자본
        파이 기대 이익
        수익 창출;

방정식
        이익
        수익
        자본
        임금;

capital..    k =e= ((alpha*q**n)/r)**(1/(1-alpha))*n**((2-alpha)/(1-alpha));

임금.. w =e= (1-알파)*(알파/r)**(알파/(1-알파))*n**(1/(1-알파))*q**(n/(1-알파));

수익.. rev =e= p * k**alpha * n**(2-alpha) * q**n;

이익.. pi =e= rev - n*w - r*k;

model teams1 /capital.k, wages.w, revenue.rev, profit.pi/ ;

k.l = 1;
w.l = 1;
개정 1 = 1;
pi.1 = 1;

mcp를 사용하여 team1을 해결합니다.

abort$(teams1.solvestat <> %solveStat.normalCompletion% or teams1.modelstat <> %modelStat.optimal%) 'wrong status codes';
abort$[abs(  w.l - 0.560465109945 ) > 1e-6] 'bad solution for w';
abort$[abs(  k.l - 9.607973313346 ) > 1e-6] 'bad solution for k';
abort$[abs(rev.l - 1.6013288855577) > 1e-6] 'bad solution for rev';