I would like to take this minimum: x(k) = min{j: y(j) >= k}
Code: Select all
Sets
k /k1, k2/
j /j1, j2/;
Parameter
y(j)
aux
x(k);
loop(k,
aux = smin(j$(y(j) ge ord(k)), y(j));
x(k)=smin(j$(y(j)=aux), ord(j));
);
Thanks
Code: Select all
Sets
k /k1, k2/
j /j1, j2/;
Parameter
y(j)
aux
x(k);
loop(k,
aux = smin(j$(y(j) ge ord(k)), y(j));
x(k)=smin(j$(y(j)=aux), ord(j));
);
Code: Select all
Sets
k /k1, k2/
j /j1, j2/;
Parameter
y(j) / j1 1, j2 2 /,aux,cont;
set x(k,j);
loop(k,
aux = smin(j$(y(j) ge ord(k)), y(j));
cont=1; loop(j$(y(j)=aux), x(k,j) = yes; cont=0);
);
display x;