lingo编写单纯形法的程序怎么写？

来源：百度知道 编辑：UC知道 时间：2024/06/20 23:35:13
用lingo或matlab编写，最好是对不同问题都可以调用并求解。
不好意思！由于本人积分太低，无法提供更高悬赏分，还请高手不吝赐教！！！谢谢！
这个使用matlab写的程序，调用老是出错，请高手直接发一个m文件和调用文件到我邮箱里，谢谢！！！
crazyfish521@126.com

function x=linliu(c,A,b)
[n1,n2]=size(A);
A=[A,eye(n1)];c=[-c,zeros(1,n1)];
x1=[zeros(1,n2),b'];lk=[n2+1:n1+n2];
fp=fopen('f:\liu.m','wt');
fprintf(fp,'初始单纯形表:\n');
while(1)
x=x1(1:n2);
s1=[lk',b,A]
c
x1
fprintf(fp,' 基 b');
for j=1:n2+n1
fprintf(fp,' x%d ',j);
end
fprintf(fp,'\n');
for i=1:n1
fprintf(fp,'%4.1f %4.1f',lk(i),b(i));
for j=1:n2+n1
fprintf(fp,'%4.1f ',A(i,j));
end
fprintf(fp,'\n');
end
fprintf(fp,' ');
for i=1:n1+n2
fprintf(fp,'%4.1f ',c(i));
end
fprintf(fp,'\n解为：\n');
for i=1:n2+n1
fprintf(fp,'x(%d)=%3.2f,',i,x1(i));
end
cc=[];ci=[];
for i=1:n1+n2
if c(i)<0
cc