설명
이 메가 슬롯은 농업에서 가축의 역할을 조사합니다. Punjab의 부문과 그것이 변화에 의해 영향을 받는 방식 농장 규모, 물 가용성, 신용, 작물 가격 및 노동력.
소형 메가 슬롯 유형 :LP
카테고리 : 메가 슬롯 모델 라이브러리
메인 파일 : paklive.gms
$title PAKLIVE: 파키스탄 펀자브 가축 메가 슬롯 (PAKLIVE,SEQ=55)
$onText
이 메가 슬롯은 농업에서 가축의 역할을 조사합니다.
Punjab의 부문과 그것이 변화에 의해 영향을 받는 방식
농장 규모, 물 가용성, 신용, 작물 가격 및 노동력.
세계은행, 파키스탄 펀자브 가축 프로젝트. 기술. 대표자, 세계은행,
1977.
핵심어: 선형계획법, 농업경제학, 축산업,
농업 발전
$offText
$s타이틀 세트 정의
세트
c '작물' / 밀, 바리스, 벼 '조사된 쌀'
옥수수, 지방종자, 그램
목화, 설탕, berseem, kharfodder /
h '가축 종류' / 수소, 물소, 소 /
f '계절 입력' / 토지 이용, irrwat '관개수'
노동, TDN '총 소화 가능한 영양소'
단백질, 초안, 신용 /
n(f) '영양소' / tdn, 단백질 /
dp(f) '추력' / 초력 /
ta '계절 및 연간' / 연간, kharif, rabi /
t(ta) '계절' / kharif, rabi /;
스칼라
fsize '농장 규모(에이커)' / 12.5 /
watercost '구매한 물의 비용(인치당 rs)' / 20 /
인건비 '고용 인건비(rs/인당)' / 10 /
maxcredit '최대 연간 크레딧(rs)' / 20000 /
lrr '가축 번식율' / 1.25 /
wpup '구매 가능한 최대 물(인치)' / 17.5 /
draftcost '고용된 초안 비용(rs/근무일)' / 30 /;
매개변수
Bullockr(c) '세 번째 시즌(근무일)의 Bullock 요구 사항'
/ 밀 8, 유지종자 2, 설탕 1, 베르심 2/
Bullocka(h) '세 번째 시즌(근무일)의 가축 가용성'
/ 황소 40 /
waf(t) '무료로 사용할 수 있는 최대 물(에이커당 인치)'
/카리프 56, 라비 32 /
rationcost(n) '배급 구매 비용(kg당 rs)'
/tdn 1.3, 단백질 5/
cprice(c) '농작물 가격(mund 당 rs)'
/ 밀 41.15, 바리스 89.38, 이리리스 39.92, 옥수수 37.04
유지종자 59.26, 그램 37.04, 면 127.27, 설탕 5.96 /
gmargin(h) '가축 총 이익(rs)'
/ 물소 900, 소 600 /
eff(n) '영양소의 저장 효율'
/tdn .5 /
maxflab(t) '최대 계절적 가족 노동(맨일)'
/카리프 390, 라비 530 /
watavail(t) '농장에서 무료로 사용할 수 있는 최대 물(인치)'
crev(c) '작물 수익(에이커당 RS)';
테이블 cinput(*,ta,c) '작물에 대한 입출력 행렬'
* 토지 이용 : 에이커
* irrwat : 인치
* 노동 : 맨일
* 초안력: 근무일
* tdn : 킬로그램
* 단백질 : kgs
* 학점 : 연간 rs
* 수확량 : 연간 mund/acre
밀 Basrice irrrice 옥수수 유지 종자 그램 면화 설탕 berseem kharfodder
landuse.kharif .1 1. 1. 1. .3 .3 1. 1. .3 1.
landuse.rabi 1. .1 .6 1. .4 1. .8 .1
irrwat.kharif 65. 60. 25. 30. 25. 15.
irrwat.rabi 20. 20. 15. 10. 45. 35.
Labor.kharif 7. 21. 21. 22. 4. 2. 11. 15. 3. 18.
노동.라비 16. 9. 9. 5. 10. 8. 10. 62. 15. 6.
tdn.kharif -530. -510. -450. -60. -350. -2400.
tdn.rabi -450. -650 -85. -215. -130. -1775. -1940.
단백질.카리프 -6. -8. -31. -1. -6. -242.
단백질.라비
draftpower.kharif 12. 8. 8. 3. 3. 3.
draftpower.rabi 6. 1. 1. 7. 1. 3. 7. 30. 6.
학점연간 150. 180. 220. 100. 120. 70. 145. 500. 65. 120
수익률.연간 -16 -11.4 -21 -10 -6 -6 -10 -375 ;
테이블 linput(*,ta,h) '가축 투입-산출'
* 노동 : 맨일
* 초안 : 근무일
* tdn : 킬로그램
* 단백질 : kgs
* 학점 : 연간 rs
황소 물소 소 소
노동.카리프 17.5 19 14
노동.라비 26.5 29 21.5
draftpower.kharif -100
드래프트파워.라비 -175
tdn.(카리프,라비) 1550 1050 750
단백질.(카리프,라비) 155 105 75
신용.연간 300 250 180 ;
crev(c) = - cprice(c)*cinput("수익률","연간",c);
와타베일(t) = fsize*waf(t);
디스플레이 crev, watavail;
$sTitle 메가 슬롯 정의
양수 변수
xcrop(c) '자르기 활동(에이커)'
wpurchase(t) '구매한 물(인치)'
xrations(n,t) '구매한 식량(kg)'
xlabor(t) '고용된 노동력(man-days)'
xtransf(n,t) '사료 이송(kg)'
dhire '초안력 고용(근무일)'
xlivestk(h) '가축 생산(동물)';
변수
rev '가축 및 농작물로 인한 수익(rs)'
lcost '고용된 인건비(rs)'
dcost '고용된 초안 비용(rs)'
wcost '구매한 물의 비용(rs)'
rcost '구매한 식량 비용(rs)'
'순 수익'을 반환합니다.
방정식
draft(dp,t) '추력 제약 조건(근무일)'
land(t) '계절별 토지 이용(에이커)'
water(t) '계절별 관개수 사용량(인치)'
Labor(t) '계절별 소요 총 노동량(man-day)'
nutbal(n,t) '계절별 영양소 구매(kg)'
황소 '세 번째 시즌(근무일) 동안 황소 사용'
신용 '신용 요건(rs)'
totalrev '농작물과 가축으로 인한 총 수익(rs)'
costlabor '고용된 노동 비용(rs)'
costdraft '고용된 초안 비용(rs)'
costwater '구매한 물의 비용(rs)'
costrat '배급 구입 비용(rs)'
obj '순수익률(rs)';
totalrev..rev =e= sum(c, crev(c)*xcrop(c)) + sum(h, gmargin(h)*xlivestk(h));
costdraft.. dcost =e= 초안비용*dhire;
비용인건비.. lcost =e= 인건비*sum(t, xlabor(t));
costwater.. wcost =e= watercost*sum(t, wpurchase(t));
costrat.. rcost =e= sum(n, rationcost(n)*sum(t, xrations(n,t)));
obj.. return =e= rev - lcost - wcost - rcost - dcost;
land(t).. sum(c, cinput("landuse",t,c)*xcrop(c)) =l= fsize;
water(t).. sum(c, cinput("irrwat",t,c)*xcrop(c)) =l= watavail(t) + wpurchase(t);
노동(t).. sum(c, cinput("노동",t,c)*xcrop(c))
+ 합계(h, linput("노동",t,h)*xlivestk(h))
=l= maxflab(t) + xlabor(t);
draft(dp,t)..sum(c, cinput(dp,t,c)*xcrop(c)) =l= - sum(h, linput(dp,t,h)*xlivestk(h));
Bullock.. sum(c, Bullockr(c)*xcrop(c)) =l= sum(h, Bullocka(h)*xlivestk(h)) + dhire;
신용.. 합계(c, cinput("신용","연간",c)*xcrop(c))
+ 합계(h, linput("신용","연간",h)*xlivestk(h))
+ rcost + lcost + wcost + dcost
=l= 최대크레딧;
nutbal(n,t).. - sum(c, cinput(n,t,c)*xcrop(c))
+ eff(n)*xtransf(n,t--1) + xrations(n,t)
=g= sum(h, linput(n,t,h)* xlivestk(h));
xcrop.up("설탕") = 2;
wpurchase.up(t) = wpup;
메가 슬롯 파키스탄/모두/;
lp 최대화 수익을 사용하여 파키스탄을 해결합니다.
매개변수 ivl '가족 노동의 귀속 가치(rs)';
ivl = rev.l/sum(t, sum(c, cinput("노동",t,c)*xcrop.l(c))
+ sum(h,linput("노동",t,h)*xlivestk.l(h)));
디스플레이 ivl;