单纯形法matlab程序_第1页
单纯形法matlab程序_第2页
单纯形法matlab程序_第3页
单纯形法matlab程序_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、精选优质文档-倾情为你奉上function Z=dcxf(c,A,N) %定义函数名称为dcxf。l=length(N);CB=c(N(1):N(l)m,n=size(A);b=A(:,n);A=A(:,1:n-1);%参数包括目标函数系数(C)，约束条件的系数矩阵(A)，%其中A的最后一列为约束条件的右端值b，初始基向量的位置(N)。sigma=c-CB*A;%计算检验数sigma。display('初始单纯形表为:');%输出初始的单纯形表table=nan,nan,nan,c;CB',N',b,A;nan,nan,nan,sigmaopt=1;step=0

2、;while optstep=step+1;%定义循环，直到第“step”步找到最优解(opt=0)。if sum(sigma>0)=0 %利用检验数判断是否得到最优解，并给出提示。 display('没有得到最优解,继续迭代'); opt=0; elseinb=find(sigma=max(sigma); %利用单纯形方法找到入基变量的位置 num=length(inb); Inb=inb(num) flag=0; for i=1:m %利用单纯形方法找出出基变量的位置 if A(i,inb)>0 theta(i)=b(i)/A(i,inb); else thet

3、a(i)=inf; end end outb=find(theta=min(theta); num=length(outb); %判断足否出现退化现象，如出现退化，给il语言提示，并取最后出现的符合出基条件的变量为出基变量。 if num=1 display('出现退化情况'); end outb=outb(num);for i=1:m %将单纯形表进行“转轴”运算，得到新的单纯形表。 for j=1:n-1 if i=outb Anew(i,j)=A(outb,j)/A(outb,inb); bnew(i)=b(outb)/A(outb,inb); else Anew(i,j

4、)=A(i,j)-A(outb,j)/A(outb,inb)*A(i,inb); bnew(i)=b(i)-b(outb)/A(outb,inb)*A(i,inb); end endend display('主元素为:'),a=A(outb,inb),outb,inb %输出主元素，计算新单纯形表的检验数。 A=Anew;b=bnew; N(outb)=inb; for i=1:l CB(i)=c(N(i); end sigma=c-CB*A;end display('迭代得到的单纯形表为:'); %输出得到的新单纯形表。并给出提示语句。 table=nan,nan,nan,c;CB',N',b',A;nan,nan

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论