实验3 线性规划解法的灵敏性分析.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验3 线性规划解法的灵敏性分析

实验3 线性规划的灵敏性分析 成绩 专业班级 信息121 班 学号 201212030120 姓名 刘帅 报告日期 实验类型:●验证性实验 ○综合性实验 ○设计性实验 实验目的:熟练线性规划图解法的灵敏性分析。 实验内容:线性规划的灵敏性分析4个(题目自选b,c灵敏性分析) 实验原理 在线性规划图解法求出最优解的情况下,分析b,c分别变化对最优解的影响,确定最优解的变化范围,在变化的情况下能求出最优解。 实验步骤 1 要求上机实验前先编写出程序代码 2 编辑录入程序 3 调试程序并记录调试过程中出现的问题及修改程序的过程 4 经反复调试后,运行程序并验证程序运行是否正确。 5 记录运行时的输入和输出。 预习编写程序代码: 实验报告:根据实验情况和结果撰写并递交实验报告。 唯一最优解: max z=x1+x2 建立simplex.m文件 function [x,z,flg,sgma]=simplex(A,A1,b,c,m,n,n1,cb,xx) % A,b are the matric in A*x=b % c is the matrix in max z=c*x % A1 is the matric in simplex table % m is the numbers of row in A and n is the column number in A % n1 is the nubers of artificial variables,and artificial variables are default at the last % n1 variables in x. % cb is the worth coefficient matrix for basic variables % xx is the index matrix for basic variables % B1 is the invers matrix for the basic matrix in simplex table.The initial % matrix is default as the last m con in the matrix A. x=zeros(n,1); z=0; B1=A1(:,n-m+1:n) sgma1=c-(cb*B1)*A; [masg,kk]=max(sgma1); k=kk(1); flg=0; ll=0; while (masg0)(ll20) ll=ll+1; thita=1000+zeros(m,1); for i=1:m if A1(i,k)0 thita(i)=A1(i,k)\b(i); end end [r8,c8]=find(thita999); if sum(c8)m [mith,rr]=min(thita); r=rr(1); aa=A1(r,k); for i=1:m if i==r b(r)=b(r)/aa; for j=1:n A1(r,j)=A1(r,j)/aa; end end end for i=1:m if i~=r cc=A1(i,k) b(i)=b(i)-b(r)*cc; for j=1:n A1(i,j)=A1(i,j)-A1(r,j)*cc; end end end cb(r)=c(k); xx(r)=k; B1=A1(:,n-m+1:n); sgma1=c-(cb*B1)*A; [masg,kk]=max(sgma1); k=kk(1); thita=100+zeros(m,1); else flg=3; masg=-1; x=unbound solution; z=inf; end end if flg~=3 if n1==0 sgma1=c-(cb*B1)*A [rc,ccc]=find(sgma1-0.0000000001); if sum(rc)==n-m flg=1; else flg=2; end x=zeros(n,1); for i=1:m x(xx(i))=b(i); end z=c*x; else x=zeros(n,1); for i=1:m x(xx(i))=b(i); end xa=x((n-n1+1):n,:); ra=find(xa); if sum(ra)==0 sgma1=c-(cb*B1)*A; [rc,ccc]=find(sgma1-0.0000000

文档评论(0)

ikangdwe + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档