Set:

c/ 1..5/:r，x；

End set

@for(c(k):r(k)=@if(x(k)#eq#0，0，r(k))； ! If x(k)=0, r(k)=0, otherwise R (k) = R (k);

@for(c(k):r(k)>=@if(x(k)#eq# 1， 1，0))； ! If x(k)= 1, then r (k) >; = 1, otherwise r(k)>=0;