설명
이것은 일련의 단일 농장 모델 중 첫 번째입니다. 이 가장 간단한
버전에는 7개의 주요 작물과 2개의 기본 투입물(토지 및 노동)만 있습니다.
월 단위로 지정됩니다.
소형 모델 유형 :LP
메인 파일 : demo1.gms
$title 단순 농장 수준 모델(DEMO1,SEQ=91)

$onText
이는 일련의 단일 농장 모델 중 첫 번째입니다. 이 가장 간단한
버전에는 7개의 주요 작물과 2개의 기본 투입물(토지 및 노동)만 있습니다.
월 단위로 지정됩니다.

Kutcher, G P, Meeraus, A 및 O'Mara, G T, 농업 부문 및 정책
모델. 세계은행, 1988.

키워드: 선형계획법, 농업경제학, 농업, 작물 수확량
$offText

$s제목 자르기 데이터
세트
   c '작물' / 밀, 클로버, 콩, 양파, 목화, 옥수수, 토마토 /
   t '기간' / 1월, 2월, 3월, 4월, 5월, 6월, 7월, 8월, 9월, 10월, 11월, 12월 /;

테이블 landreq(t,c) '작물별 토지 점유 기간(헥타르)'
         밀 클로버 콩 양파 목화 옥수수 토마토
   1월 1. 1. 1. 1.
   2월 1. 1. 1. 1.
   3월 1. 05 1. 1. 05
   4월 1. 1. 1. 1.
   5월 1. .25 1. .25
   6월 1. 1.
   7월 1일 1. .75
   8월 1. 1. 1.
   9월 1. 1. 1.
   10월 1. .5 1.
   11월 .5 .25 .25 .5 .75 .75
   12월 1. 1. 1. 1. ;

테이블 Laborreq(t,c) '작물 노동 요구량(헥타르당 노동일수)'
         밀 클로버 콩 양파 목화 옥수수 토마토
   1월 1.72 4.5 .75 5.16
   2월 .5 1. .75 5.
   3월 1. 8. .75 5. 5.
   4월 1. 16. 19.58 5.
   5월 17.16 2.42 9. 4.3
   6월 2.34 2. 5.04
   7월 1.5 7.16 17.
   8월 2일 7.97 15.
   9월 1일. 4.41 12.
   10월 26일. 1.12 7.
   11월 2.43 2.5 7.5 11.16 12. 6.
   12월 1.35 7.5 .75 4.68 ;

매개변수
   Yield(c) '작물 수확량(헥타르당 톤)'
              / 밀 1.5, 클로버 6.5, 콩 1, 양파 3
                면 1.5, 옥수수 2, 토마토 3 /
   가격(c) '곡물 가격(톤당 달러)'
              / 밀 100, 콩 200, 양파 125
                면 350, 옥수수 70, 토마토 120 /
   miscost(c) '기타 현금 비용(헥타르당 달러)'
              / 밀 10, 콩 5, 양파 50
                면 80, 옥수수 5, 토마토 50 /;

* 팔 데이터, 크기 노동 가용성 등
스칼라
   토지 '농장 규모(헥타르)' / 4. /
   famlab '가족노동 가능일수(월)' / 25 /
   빚 '고용 임금률(일당 달러)' / 3. /
   twage '임시 노동 임금(일당 달러)' / 4 /
   dpm '월당 근무일 수' / 25 /;

$sTitle 내생 변수 및 방정식
변수
   xcrop(c) '자르기 활동(헥타르)'
   yfarm '농가소득(달러)'
   수익 '생산 가치(달러)'
   mcost '기타 현금 비용(달러)'
   labcost '인건비(달러)'
   labearn '노동소득(달러)'
   flab(t) '가족 노동 사용(일)'
   fout(t) '고용(일)'
   tlab(t) '임시근로(일수)';

양수 변수 xcrop, flab, fout, tlab;

방정식
   landbal(t) '토지수지(헥타르)'
   Laborbal(t) '노동수지(일)'
   flab(t) '가족 노동수지(일)'
   arev '수익 회계(달러)'
   acost '현금원가회계(달러)'
   alab '인건비 회계(달러)'
   '근로소득회계(달러)'에 대해
   소득 '소득 정의(달러)';

landbal(t)..sum(c, xcrop(c)*landreq(t,c)) =l= 토지;

Laborbal(t).. sum(c, xcrop(c)*laborreq(t,c)) =l= flab(t) + tlab(t);

flab(t).. famlab =e= flab(t) + fout(t);

arev.. 수익 =e= sum(c, xcrop(c)*yield(c)*price(c));

acost.. mcost =e= sum(c, xcrop(c)*miscost(c));

alab..labcost =e= sum(t, tlab(t)*twage);

aout..labearn =e= sum(t, fout(t)*owage);

소득.. yfarm =e= 수익 + labearn - labcost - mcost;

모델 데모1 '농장 노동 모델' / 모두 /;

yfarm을 최대화하는 lp를 사용하여 데모1을 해결합니다.

$sTitle 솔루션 보고서
세트
   crep / 토지이용, 생산량, 수익 /
   lrep / 수요, 가족, 임시, 미사용, 고용 /;

매개변수
   Croprep '작물 보고서 요약'
   labrep '근로보고서 요약(일)';

Croprep("landuse",c) = xcrop.l(c);
Croprep("출력",c) = xcrop.l(c)*yield(c);
Croprep("수익",c) = Croprep("출력",c)*price(c);
croprep(crep,"전체") = sum(c,croprep(crep,c));

labrep(t,"수요") = sum(c, xcrop.l(c)*laborreq(t,c));
labrep(t,"가족") = flab.l(t);
labrep(t,"임시") = tlab.l(t);
labrep(t,"사용되지 않음") = -laborbal.l(t);
labrep(t,"hire-out") = fout.l(t);
labrep("전체",lrep) = sum(t, labrep(t,lrep));

"토지 이용 -- 헥타르"를 표시하세요.
        "출력 - 톤"
        "수익 -- 달러 ", Croprep, labrep;