求一个能运行出来的DEA程序 自己编的总有错误 求高手相助 急急急

wjxhappy

clc
clear
X=[60,70,85,106,35;156,200,157,263,105;50,180,100,86,30;];   
Y=[80,60,90,96,30;12,11114,20,17,8;27,25,15,28,3;4,2,5,5,1;];
n=size(X',1);
m=size(X,1);   
s=size(Y,1);
A=[-X' Y'];
b=zeros(n,1);
LB=zeros(m+s,1);
UB=[];
fori=1:m;
f=[zeros(1,m)-Y(:,i)'];   
Aeq=[X(:,i)' zeros(1,s)];  
beq=1;   
w(:,i)=LINPROG(f,A,b,Aeq,beq,LB,UB);
E(i,i)=Y(:,i)'*w(m+l:m+s,i);
endw
E
omega=W(l:m,:);
mu=(m+l:m+s);
就是这个程序总出现错误
??? Subscript indices must either be real positive integers or logicals.

Error in ==> DEA at 13
f=[zeros(1,m)-Y(:,i)'];