X=xlsread('E:\matlab\matlab2016\bin\L.xlsx','1','C2:D151');
Y=xlsread('E:\matlab\matlab2016\bin\L.xlsx','1','E2:E151');
B=xlsread('E:\matlab\matlab2016\bin\L.xlsx','1','F2:F151');
F=30;P=5;
i=size(X,2);
a=zeros(F,1);k=zeros(P*F,1);
f1=[a;-1];f2=[k;-1];
g=zeros(i,1);
lb1=zeros(F+1,1);lb1(F+1,1)=-Inf; lb2=zeros(P*F+1,1);lb2(P*F+1,1)=-Inf;ub=[];
for n=1:P;
for m=1+n*F-F:n*F;
d=Y(m,:);
c=Y(1+n*F-F:n*F,:);
z=X(1+n*F-F:n*F,:);
h=[z',g];
e=[-c', d'];
A=[e;h];
j=X(m,:);
b=[-d';j'];
l=B(1+n*F-F:n*F,:);
o=B(m,:);
Aeq=[l',o'];
beq=[o'];
q(:,m)=linprog(f1,A,b,Aeq,beq,lb1,ub);
end
end
for m=1:F*P;
d= Y(m,:);
c=Y(1:F*P,:);
z=X(1:F*P,:);
h=[z',g];
e=[-c',d'];
A=[e;h];
j=X(m,:);
b=[-d';j'];
l=B(1:F*P,:);
o=B(m,:);
Aeq=[l',o'];
beq=[o'];
p(:,m)=linprog(f2,A,b,Aeq,beq,lb2,ub);
end
for m=1:P*F-F;
ec(:,m)=(q(F+1,m)+1)/(q(F+1,m+F)+1);
bpc(:,m)= ((p(P*F+1,m)+1)* (q(F+1,m+F)+1))/((p(P*F+1,m+F)+1)* (q(F+1,m)+1));
gml(:,m)=(p(P*F+1,m)+1)/ (p(P*F+1,m+F)+1);
end
GML=reshape(gml,F,P-1)
EC=reshape(ec,F,P-1)
BPC=reshape(bpc,F,P-1)