问题描述:
谁帮我改一下matlab程序
function [x,f]=DCmin(c,A,b,AR,y0,d)
% x:最优解
% f:目标函数最优值
% c:目标函数系数向量
% A:系数矩阵
% b:m维列向量
% AR:松弛变量系数矩阵
% y0:基矩阵初始向量
% d:补充向量(非目标系数向量,为一零向量)
N=10000;
B=[A,AR,b];
[m,n]=size(B);
C=[c,d];
y=y0;
x=zeros(1,length(c));
for k=1:N
k;
z=B(:,end);%右端
for j=1:n-1
t(j)=y*B(:,j)-C(j);%检验数
end
t;
f=y*z;
%%%%
B(p,:)=B(p,:)/B(p,q);
for i=1:m
if =p
B(i,:)=B(i,:)-B(p,:)*B(i,q);
end
end
if max(t)
function [x,f]=DCmin(c,A,b,AR,y0,d)
% x:最优解
% f:目标函数最优值
% c:目标函数系数向量
% A:系数矩阵
% b:m维列向量
% AR:松弛变量系数矩阵
% y0:基矩阵初始向量
% d:补充向量(非目标系数向量,为一零向量)
N=10000;
B=[A,AR,b];
[m,n]=size(B);
C=[c,d];
y=y0;
x=zeros(1,length(c));
for k=1:N
k;
z=B(:,end);%右端
for j=1:n-1
t(j)=y*B(:,j)-C(j);%检验数
end
t;
f=y*z;
%%%%
B(p,:)=B(p,:)/B(p,q);
for i=1:m
if =p
B(i,:)=B(i,:)-B(p,:)*B(i,q);
end
end
if max(t)
问题解答:
我来补答展开全文阅读