apis/examples_matlab_control/TransportModel_8m_source.html

classdef TransportModel < 핸들


속성(SetAccess =비공개)

i

j

a

b

c

d

f

x

z

선택

ws

dbin1

dbin2

dabout1

직업

끝


메소드


함수 무료 슬롯 = TransportModel(ws)


무료 슬롯ws = ws;

무료 슬롯opt = 무료 슬롯ws.addOptions();


무료 슬롯dbin1 = 무료 슬롯ws.addDatabase('dbIn1');

무료 슬롯dbin2 = 무료 슬롯ws.addDatabase('dbIn2');


무료 슬롯opt.defines('dbIn1', 'dbIn1');

무료 슬롯opt.defines('dbIn2', 'dbIn2');

무료 슬롯opt.setAllModelTypes('cplex');

무료 슬롯opt.defines('dbOut1', 'dbOut1');

무료 슬롯opt.solveLink = gams.control.options.SolveLink.LoadLibrary;


무료 슬롯i = 무료 슬롯dbin1.addSet('i', '통조림 식물');

무료 슬롯j = 무료 슬롯dbin1.addSet('j', '시장');

무료 슬롯a = 무료 슬롯dbin1.addParameter('a', '경우에 따른 플랜트 i의 용량', 무료 슬롯i);

무료 슬롯b = 무료 슬롯dbin1.addParameter('b', '경우에 따라 시장 j의 수요', 무료 슬롯j);

무료 슬롯d = 무료 슬롯dbin1.addParameter('d', '천 마일 단위의 거리', 무료 슬롯i, 무료 슬롯j);

무료 슬롯f = 무료 슬롯dbin2.addParameter('f', '천 마일당 케이스당 화물(달러)');


무료 슬롯job = 무료 슬롯ws.addJobFromString(무료 슬롯modelSource());

끝


함수 실행(무료 슬롯, cp, 출력)

if ~무료 슬롯dbin1.checkDomains()

error('데이터베이스 1의 도메인 오류');

끝

if ~무료 슬롯dbin2.checkDomains()

error('데이터베이스 2의 도메인 오류');

끝


if isempty(cp) && isempty(출력)

무료 슬롯job.run(무료 슬롯opt, false, 무료 슬롯dbin1, 무료 슬롯dbin2);

elseif isempty(cp)

무료 슬롯job.run(무료 슬롯opt, 출력, false, 무료 슬롯dbin1, 무료 슬롯dbin2);

elseif isempty(출력)

무료 슬롯job.run(무료 슬롯opt, 체크포인트, false, 무료 슬롯dbin1, 무료 슬롯dbin2);

그밖에

무료 슬롯job.run(무료 슬롯opt, 체크포인트, 출력, false, 무료 슬롯dbin1, 무료 슬롯dbin2);

끝


무료 슬롯dbout1 = 무료 슬롯ws.addDatabaseFromGDX(sprintf('%s.gdx', 무료 슬롯opt.getDefinitionOf('dbOut1')));

무료 슬롯x = 무료 슬롯dbout1.getVariable('x');

무료 슬롯z = 무료 슬롯dbout1.getVariable('z');

끝


함수 모델 = modelSource(무료 슬롯)

모델 =

                '세트'

                '      나는 통조림 식물 '

                '      j 시장 '

                '                                                                           '

                ' 매개변수 '

                '      a(i) '의 경우 공장 i의 용량

                '      b(j) '의 경우 시장 j의 수요

                '      d(i,j) 거리(천 마일) '

                ' 스칼라 f 운임(1,000마일당 케이스당 달러);                 '

                '                                                                           '

                '$dbIn1 $abort를 설정하지 않은 경우 ''데이터베이스 내 1 파일에 대한 파일 이름이 제공되지 않았습니다.''    '

                '$gdxin %dbIn1% '

                '$load i j a b d '

                '$gdxin '

                '                                                                           '

                '$dbIn2 $abort를 설정하지 않은 경우 ''제공된 데이터베이스 2 파일에 대한 파일 이름이 없습니다''    '

                '$gdxin %dbIn2% '

                '$load f '

                '$gdxin '

                '                                                                           '

                ' 매개변수 c(i,j) 운송 비용(케이스당 수천 달러) ;       '

                '                                                                           '

                '            c(i,j) = f * d(i,j) / 1000 ;                                   '

                '                                                                           '

                ' 변수 '

                '       x(i,j) '의 경우 배송 수량

                '       z 총 운송 비용(단위: 수천 달러);        '

                '                                                                           '

                ' 양수 변수 x ;                                                     '

                '                                                                           '

                ' 방정식 '

                '                                                                           '

                '      비용 정의 목적 함수 '

                '      공급(i) 공장 i의 공급 제한을 준수합니다. '

                '      수요(j)는 시장 j의 수요를 충족시킵니다.                             '

                '                                                                           '

                '  비용 .. z =e= sum((i,j), c(i,j)*x(i,j)) ;                       '

                '                                                                           '

                '  공급(i) .. sum(j, x(i,j)) =l= a(i) ;                               '

                '                                                                           '

                '  수요(j) .. sum(i, x(i,j)) =g= b(j) ;                               '

                '                                                                           '

                ' 모델 전송 /all/ ;                                                   '

                '                                                                           '

                ' z 를 최소화하는 lp를 사용하여 전송을 해결합니다.                                   '

                '                                                                           '

                ' x.l, x.m 표시 ;                                                        '

                '$dbOut1 $abort를 설정하지 않은 경우 ''데이터베이스 외부 1 파일에 대한 파일 이름이 제공되지 않음''  '

                'execute_unload ''%dbOut1%'', x, z;                                           '

                '                                                                           '};

모델 = 스프린트f('%s\n', 모델:);

끝


끝


끝