sets:
send/s1..s3/:i;
recieve/r1..r3/:j;
gain(send,receive):g;
endsets
data:
g=0.25  0.0003  0.0012
  0  0.25  0.0003
  0.0012  0.0003  0.25;
enddata

min=@sum(send(i):0.38+2.53/(x-18.3))
x<c-2d
d<150
p<10
@for(receive(j))
sinr=g(i)p/(@sum(send(i))p+0.0003)
c=8@log(sinr)
end