apis/examples_matlab_control/domain__check_8m_source.html

함수domain_check(varargin)


% 인수에서 작업공간 정보 확인

    if나긴 > 0

wsInfo = gams.control.WorkspaceInfo();

wsInfo.systemDirectory = varargin1;

ws = gams.control.Workspace(wsInfo);

    그밖에

ws = gams.control.Workspace();

끝


% 입력 데이터 준비

식물 ='시애틀', '샌디에고'};

시장 ='뉴욕', '시카고', '토피카'};

용량 = [350, 600];

수요 = [325, 300, 275];

거리 = [2.5, 1.7, 1.8; 2.5, 1.8, 1.4];


% 위의 데이터로 데이터베이스를 준비

db = ws.addDatabase();


% 데이터베이스에 두 세트 추가

i = db.addSet('나', 1,'통조림 공장');

    fork = 1:numel(식물)

i.addRecord(식물k);

끝

j = db.addSet('j', 1,'시장');

    fork = 1:numel(시장)

j.addRecord(시장k);

끝


% 무료 슬롯 사이트 정보가 포함된 매개변수 추가

a = db.addParameter('a', '경우에 따라 식물 i의 용량', i);

    fork = 1:numel(식물)

rec = a.addRecord(식물k);

rec.value = 용량(k);

끝

    % if무료 슬롯 사이트 위반, 뭔가 잘못되었음을 확인함

    if~a.checkDomains()

오류('예기치 않은 무료 슬롯 사이트 위반');

끝


% 완화된 무료 슬롯 사이트 정보로 매개변수 추가

b = db.addParameter('b', '경우에 따라 시장 j의 수요', 'j');

    fork = 1:numel(시장)

rec = b.addRecord(시장k);

rec.value = 수요(k);

끝

    if~b.checkDomains()

오류('b에서 예상치 못한 무료 슬롯 사이트 위반');

끝


% 무료 슬롯 사이트 정보가 포함된 2차원 매개변수 추가

무료 슬롯 사이트 = i, j;

d = db.addParameter('d', '수천 마일 단위의 거리', 무료 슬롯 사이트);

    fork1 = 1:numel(식물)

        fork2 = 1:numel(시장)

키 = 식물k1, 시장k2;

rec = d.addRecord(keys);

rec.value = 거리(k1,k2);

끝

끝

    if~d.checkDomains()

오류('d에서 예상치 못한 무료 슬롯 사이트 위반');

끝


    if~db.checkDomains()

오류('DB에서 예기치 않은 무료 슬롯 사이트 위반');

끝


% 일부 생성'틀렸어요'항목

rec = d.addRecord('시애틀', '아아'});

rec.값 = 1;

rec = d.addRecord('bb', '시애틀'});

rec.value = 1;


rec = a.addRecord('아아');

rec.값 = 1;

rec = a.addRecord('bb');

rec.value = 1;

rec = b.addRecord('아아');

rec.value = 1;

rec = b.addRecord('bb');

rec.값 = 1;


% 이제 데이터베이스와 기호 a 및 d에 무료 슬롯 사이트 위반이 있어야 합니다.

    ifdb.checkDomains()

오류('DB에 대한 무료 슬롯 사이트 위반이 인식되지 않음');

끝

    ifa.checkDomains()

오류('인식되지 않는 무료 슬롯 사이트 위반');

끝

    ifd.checkDomains()

오류('d에 대한 무료 슬롯 사이트 위반이 인식되지 않음');

끝


% b는 반면에 완화된 무료 슬롯 사이트 정보로만 정의되었으므로 무료 슬롯 사이트 위반이 표시되어서는 안 됩니다.

    if~b.checkDomains()

오류('b에서 예상치 못한 무료 슬롯 사이트 위반');

끝


    % fora, 2개의 무료 슬롯 사이트 위반이 표시됩니다('아아'그리고'bb')

fprintf('다음의 기호 무료 슬롯 사이트 위반:\n');

dvCnt = list_domain_violations('', a.getSymbolDomainViolations(0), 0);

    ifdvCnt ~= 2

오류('a의 2개의 무료 슬롯 사이트 위반 기록이 예상되었으나 [%d]이(가) 발견되었습니다.', dvCnt);

끝


    % ford, 3개의 무료 슬롯 사이트 위반이 표시됩니다('시애틀', *'아아'*; *'bb'*, *'시애틀'*)

fprintf('d:\n의 심볼 무료 슬롯 사이트 위반');

dvCnt = list_domain_violations('', d.getSymbolDomainViolations(0), 0);

    ifdvCnt ~= 3

오류('d의 3개 무료 슬롯 사이트 위반 기록이 예상되었으나 [%d]이(가) 발견되었습니다.', dvCnt);

끝


    % fordb, 5개의 무료 슬롯 사이트 위반이 표시되어야 합니다(a와 d의 모든 위반)

dvCnt = 0;

fprintf('최대 레코드 수 제한이 없는 db의 데이터베이스 무료 슬롯 사이트 위반:\n');

dbDomViolations = db.getDatabaseDomainViolations(0,0);

    fori = 1:numel(dbDomViolations)

이름 = dbDomViolationsi.symbol.name;

dvCnt = list_domain_violations(name, dbDomViolationsi.symbolDomainViolations, dvCnt);

끝

    ifdvCnt ~= 5

오류('DB의 5개 무료 슬롯 사이트 위반 기록이 예상되었으나 [%d]이(가) 발견되었습니다.', dvCnt);

끝


% 이제 보고된 위반 기록의 양을 총 3개로 제한합니다.

dvCnt = 0;

fprintf('3개 이하의 위반 기록이 있는 db의 데이터베이스 무료 슬롯 사이트 위반:\n');

dbDomViolations = db.getDatabaseDomainViolations(3,0);

    fori = 1:numel(dbDomViolations)

name = dbDomViolationsi.symbol.name;

dvCnt = list_domain_violations(name, dbDomViolationsi.symbolDomainViolations, dvCnt);

끝

    ifdvCnt ~= 3

오류('DB의 3개 무료 슬롯 사이트 위반 기록이 예상되었으나 [%d]이(가) 발견되었습니다.', dvCnt);

끝


% 이제 보고된 위반 기록의 양을 기호당 1개로 제한합니다.

dvCnt = 0;

fprintf('1 기호당 1개 이하의 위반 기록이 있는 db의 데이터베이스 무료 슬롯 사이트 위반:\n');

dbDomViolations = db.getDatabaseDomainViolations(0,1);

    용i = 1:numel(dbDomViolations)

name = dbDomViolationsi.symbol.name;

dvCnt = list_domain_violations(name, dbDomViolationsi.symbolDomainViolations, dvCnt);

끝

    ifdvCnt ~= 2

오류('DB의 2개 무료 슬롯 사이트 위반 기록이 예상되었으나 [%d]이(가) 발견되었습니다.', dvCnt);

끝


% 기준기본값우리는 해야 한다얻기무료 슬롯 사이트 위반이 있는 데이터베이스를 내보낼 때의 예외

sawException =거짓;

    시도

db.export('test.gdx');

    잡기

sawException =참;

db.suppressAutoDomainChecking =참;

db.export('test.gdx');

끝

    if~sawException

오류('기본적으로 무료 슬롯 사이트 위반이 포함된 데이터베이스를 내보낼 수 없어야 합니다.');

끝


% gdx에서 무료 슬롯 사이트 정보가 포함된 매개변수 읽기

db2 = ws.addDatabaseFromGDX('test.gdx');

d2 = db2.getParameter('d');


% 매개변수의 무료 슬롯 사이트은 Set i 및 Set j여야 합니다.

무료 슬롯 사이트 = d2.domains;

    fori = 1:numel(무료 슬롯 사이트)

        if~isa(무료 슬롯 사이트i,'gams.control.Set')

오류('무료 슬롯 사이트으로 설정될 것으로 예상되었으나 완화된 무료 슬롯 사이트 %s을(를) 찾았습니다.', 항목);

끝

        ifstrcmp(무료 슬롯 사이트i.이름,'나')

            if~check_uel(무료 슬롯 사이트i, 식물)

오류('무료 슬롯 사이트 i에서 예상치 못한 uel이 발견되었습니다.');

끝

elseif strcmp(무료 슬롯 사이트i.이름,'j')

            if~check_uel(무료 슬롯 사이트i, 시장)

오류('무료 슬롯 사이트 j에서 예상치 못한 uel이 발견되었습니다');

끝

        그밖에

오류('i와 j 세트가 필요했지만 %s를 찾았습니다.', 무료 슬롯 사이트i.name);

끝

끝


    % *************************************************************** %

% 이 다음 섹션은 실제로 무료 슬롯 사이트 확인에 관한 것이 아니지만 %

% 특정 작업이 예상대로 작동하는지 확인하세요.          %

    % *************************************************************** %


aliasData =

    '세트'

    '    나는 통조림 공장 / 시애틀, 샌디에고 /; '

    '                                                 '

    '별칭 (i,ii);                                    '};

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


% 별칭을 세트로 읽어보세요

aliasJob = ws.addJobFromString(aliasData);

aliasJob.run();

ii = aliasJob.outDB.getSet('ii');

fprintf('별칭 집합의 요소:');

    forrec = ii.records

fprintf(' > %s\n', Rec1.key(1));

끝


testDB = ws.addDatabase();

testSet = testDB.addSet('테스트', 1);


% 빈 UEL을 추가해 보세요

testSet.addRecord('');

fprintf('빈 UEL을 추가한 후 테스트 세트의 요소:\n');

fprintf(' > %d\n', testSet.numberOfRecords);


% GAMS 스트립 보류 중인 공백그동안선행 공백이 관련됨

rec = testSet.addRecord(' ');

rec.text ='a';

fprintf('기록'' '' '와 같아야 합니다.' 아'':\n');

fprintf(' > %s\n', testSet.findRecord(' 아').text);


% GAMS는 63자를 초과하는 UEL을 처리할 수 없습니다.

% 괜찮을 것 같습니다 ...

rec = testSet.addRecord('123456789012345678901234567890123456789012345678901234567890123 ');

rec.text ='알았어';

% ... 하지만 아님이것

    시도해 보세요

error_thrown =참;

rec = testSet.addRecord('1234567890123456789012345678901234567890123456789012345678901234');

rec.text ='괜찮지 않음';

error_thrown =거짓;

    잡기

끝

    if~error_thrown

오류('63자를 초과하는 레코드를 추가하는 것은 불가능해야 합니다.');

끝


% GAMS는 255자를 초과하는 설명 텍스트를 처리할 수 없습니다.

testDB.addSet('텍스트 확인', '123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345');

    시도해 보세요

error_thrown =사실;

testDB.addSet('textNotOK', '1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456');

error_thrown =거짓;

    잡기

끝

    if~error_thrown

오류('255자를 초과하는 설명 텍스트를 추가하는 것은 불가능해야 합니다.');

끝


rec = testSet.addRecord('알았어');

rec.text ='123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345';

    시도해 보세요

error_thrown =참;

rec = testSet.addRecord('안돼');

rec.text ='1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456';

error_thrown =거짓;

    잡기

끝

    if~error_thrown

오류('255자를 초과하는 설명 텍스트를 추가하는 것은 불가능해야 합니다.');

끝


% GAMS는 단일 및 포함된 UEL을 처리할 수 있습니다.더블인용하지만 동시에는 아님

testSet.addRecord('인용문''');

testSet.addRecord('인용문"');

    시도해 보세요

error_thrown =사실;

testSet.addRecord('인용문''"');

error_thrown =거짓;

    잡기

끝

    if~error_thrown

오류('기록에 작은따옴표와 큰따옴표를 추가하는 것은 불가능해야 합니다.');

끝


testDB.export('test.gdx');


fprintf('성공적으로 종료되었습니다!\n');


끝


함수dvCnt = list_domain_violations(symbolName, domViolations, dvCnt)

    forj = 1:numel(domViolations)

fprintf(' > %s [', 기호 이름);

item1 = domViolationsj.violationArray;

        fork = 1:numel(item1)

            if항목1(k)

fprintf('사실입니다');

dvCnt = dvCnt + 1;

            그밖에

fprintf('거짓');

끝

끝

fprintf('] <> ');

item2 = domViolationsj.record.keys;

        fork = 1:numel(item2)

fprintf('%s ', 항목2k);

끝

fprintf('<<\n');

끝

끝


함수ret = check_uel(기호, uels)

ret =참;

    forrec = 기호.레코드

키 = Rec1.key(1);

is_contained =거짓;

        fori = 1:numel(uels)

            ifstrcmp(키, uelsi)

is_contained =참;

                휴식;

끝

끝

        if~is_contained

ret =거짓;

            반환

끝

끝

    반환

끝