설명

XPRESS 다목적 최적화 기능을 테스트합니다.

기고자: Renke Kuhlmann, 2025년 12월

소형 모델 유형 :LP

카테고리 : 크레이지 슬롯 테스트 라이브러리

메인 파일 : xpress08.gms

$title 'XPRESS 테스트 모음 - 다목적 테스트' (XPRESS08,SEQ=831)
$onText
XPRESS 다목적 최적화 기능을 테스트합니다.

기고자: Renke Kuhlmann, 2025년 12월
$offText

옵션 솔버 = Xpress;

변수 x, z, z1, z2, y;
방정식 obj_1, obj1, obj2, obj3, obj4, con1, con2;
obj_1.. z =e= 1.1 * z1 + z2;
obj1.. z1 =e= x;
obj2.. z2 =e= y;
obj3..y =e= z2;
obj4.. x =e= z1;
con1..2 * x + y =l= 3;
con2.. 0.5 * x + y =l= 1.5;
x.lo = 0;
y.lo = 0;

모델 m1 / obj_1, obj1, obj2, con1, con2 /;
z를 최대화하는 lp를 사용하여 m1을 해결합니다.

abort$(x.l <> 1 or z1.l <> x.l) 'false value x';
abort$(obj1.l <> 0) 'false 값 obj1';
abort$(y.l <> 1 또는 z2.l <> y.l) 'false 값 y';
abort$(obj2.l <> 0) 'false 값 obj2';

file fxpx 'Xpress 옵션 파일' / xpress.opt /;

m1.optfile=1;
putclose fxpx 'multobj 1';
z를 최대화하는 lp를 사용하여 m1을 해결합니다.

abort$(x.l <> 1.5 또는 z1.l <> x.l) '거짓 값 x';
abort$(obj1.l <> 0) 'false 값 obj1';
abort$(y.l <> 0 또는 z2.l <> y.l) 'false 값 y';
abort$(obj2.l <> 0) 'false 값 obj2';

putclose fxpx 'multobj 1' / 'objnabstol z1 0.5' / 'multiObjOps_rcFixing 0';
z를 최대화하는 lp를 사용하여 m1을 해결합니다.

중단$(x.l <> 1) '거짓 값 x';
중단$(z1.l <> 1) '거짓 값 z1';
abort$(obj1.l <> 0) 'false 값 obj1';
abort$(y.l <> 1) 'false 값 y';
중단$(z2.l <> 1) '거짓 값 z2';
abort$(obj2.l <> 0) 'false 값 obj2';

putclose fxpx 'multobj 1' / 'objnabstol z1 1.5';
z를 최대화하는 lp를 사용하여 m1을 해결합니다.

중단$(x.l <> 0) '거짓 값 x';
abort$(z1.l <> 0) 'false 값 z1';
abort$(obj1.l <> 0) 'false 값 obj1';
abort$(y.l <> 1.5) 'false 값 y';
abort$(z2.l <> 1.5) '거짓 값 z2';
abort$(obj2.l <> 0) 'false 값 obj2';

* 다른 목표 순서로 테스트

모델 m2 / obj_1, obj3, obj4, con1, con2 /;
z를 최대화하는 lp를 사용하여 m2를 해결합니다.

abort$(x.l <> 1 or z1.l <> x.l) 'false value x';
abort$(obj4.l <> 0) 'false 값 obj4';
abort$(y.l <> 1 또는 z2.l <> y.l) 'false 값 y';
abort$(obj3.l <> 0) 'false 값 obj3';

m2.optfile=1;
putclose fxpx 'multobj 1';
z를 최대화하는 lp를 사용하여 m2를 해결합니다.

abort$(x.l <> 1.5 또는 z1.l <> x.l) '거짓 값 x';
abort$(obj4.l <> 0) 'false 값 obj4';
abort$(y.l <> 0 또는 z2.l <> y.l) 'false 값 y';
abort$(obj3.l <> 0) 'false 값 obj3';

putclose fxpx 'multobj 1' / 'objnabstol z1 0.5' / 'multiObjOps_rcFixing 0';
z를 최대화하는 lp를 사용하여 m2를 해결합니다.

중단$(x.l <> 1) '거짓 값 x';
중단$(z1.l <> 1) '거짓 값 z1';
abort$(obj4.l <> 0) 'false 값 obj4';
abort$(y.l <> 1) 'false 값 y';
중단$(z2.l <> 1) '거짓 값 z2';
abort$(obj3.l <> 0) 'false 값 obj3';

putclose fxpx 'multobj 1' / 'objnabstol z1 1.5';
z를 최대화하는 lp를 사용하여 m2를 해결합니다.

중단$(x.l <> 0) '거짓 값 x';
abort$(z1.l <> 0) 'false 값 z1';
abort$(obj4.l <> 0) 'false 값 obj4';
abort$(y.l <> 1.5) 'false 값 y';
abort$(z2.l <> 1.5) '거짓 값 z2';
abort$(obj3.l <> 0) 'false value obj3';