MODEL:

SETS:
	PERSON/P1..P4/: SEX, ORIENTATION, EDUCATION, AGE;
	PAIR(PERSON, PERSON): X, Q, SOM, EM, AM;
ENDSETS

DATA:
	EDUCATION = 0, 1, 2, 3;
	SEX = 1, 1, 1, 0; !0 - kobieta, 1 - moezczynza;
	ORIENTATION = 1, 0, 0, 1; !1 - hetero, 0 - homo;
	AGE = 18, 28, 18, 30;
ENDDATA

!funkcja celu;
[OBJ] MIN = @SUM(PAIR(I,J): Q(I,J) * X(I,J));

!binarny wybor;
@FOR(PAIR: @BIN(X));

!p sama ze soba;
@FOR(PAIR(I,I): X(I,I) = 0);

!tylko jedna osoba;
@FOR(PERSON(I): @SUM(PERSON(J): X(I,J)) + @SUM(PERSON(J): X(J,I)) = 1);

!zgodnosc plci i orientacji;
@FOR(PAIR(I,J) | (ORIENTATION(I) #EQ# 1 #AND# SEX(I) #NE# SEX(J)): SOM(I,J) = 0);
@FOR(PAIR(I,J) | (ORIENTATION(I) #EQ# 0 #AND# SEX(I) #EQ# SEX(J)): SOM(I,J) = 0);


@FOR(PAIR(I,J) | (ORIENTATION(I) #EQ# 1 #AND# SEX(I) #EQ# SEX(J)): SOM(I,J) = 5);
@FOR(PAIR(I,J) | (ORIENTATION(I) #EQ# 0 #AND# SEX(I) #NE# SEX(J)): SOM(I,J) = 5);


CALC:
	@FOR(PAIR(I,J): EM(I,J) = @ABS(EDUCATION(I) - EDUCATION(J)));
	@FOR(PAIR(I,J): AM(I,J) = @ABS(AGE(I) - AGE(J)));
	@FOR(PAIR(I,J): Q(I,J) = SOM(I,J) + EM(I,J) + AM(I,J));

ENDCALC

END

-----------------------------------------------------------------------------------------

MODEL:
! A 3 Warehouse, 4 Customer
   Transportation Problem;

SETS:
   WAREHOUSE / WH1, WH2, WH3/   : CAPACITY;
   CUSTOMER   / C1, C2, C3/ : DEMAND;
   bridge( WAREHOUSE, CUSTOMER) : VOLUME, COST;
ENDSETS

! The objective;
 [OBJ] MIN = @SUM( bridge: @logb((volume^(2/3)),2)* VOLUME)
 + @SUM( bridge: @logb((volume^(2/3)),2.1) * VOLUME)
 + @SUM( bridge: @logb((volume^(2/3)),2.5) * VOLUME);

! The demand constraints;
 @FOR( CUSTOMER( J): [DEM]
  @SUM( WAREHOUSE( I): VOLUME( I, J)) <=
   DEMAND( J));

! The supply constraints;
 @FOR( WAREHOUSE( I): [SUP]
  @SUM( CUSTOMER( J): VOLUME( I, J)) >=
   CAPACITY( I));

! Here are the parameters;
DATA:
   CAPACITY =   10, 25, 21 ;
   DEMAND =   25, 17, 22;
	COST = 2, 2, 2,
		2.1,2.1,2.1,
		2.5,2.5,2.5;

ENDDATA
END