constraints=[constraints,p(i,j,t,h)==b(i,j)*(d(i,t,h)-d(j,t,h))]; %b as a parameter
k=1; for i=1:I
for j=1:J
for t=1:T for h=1:H indexp(1,k)=sub2ind([I J T H],i,j,t,h); indexb(1,k)=sub2ind([I J],i,j); indexd1(1,k)=sub2ind([I t H],i,t,h); indexd2(1,k)=sub2ind([J T H],j,t,h);
k=k+1; end end end end
constraints=[constraints,p(indexp(1,:))==b(indexb(1,:)).*(d(indexd1(1,:))-d(indexd2(1,:)))];