91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 2KB
    文件類型: .rar
    金幣: 2
    下載: 0 次
    發布日期: 2023-12-04
  • 語言: Matlab
  • 標簽: matlab??單純形法??

資源簡介

matlab編寫單純形法。完全按照最優控制指導教材上的單純形法的理論步驟編寫的。每一步的結果都有給出,很詳細的。沒有錯誤。

資源截圖

代碼片段和文件信息

function[ANnabmflagmAnA]=simplex(Ambc)%A為初矩陣,N為A的最后一行,n為初始進基變量,a為出基,b為進基,m為最后基變量,flag為cj標志,mA,nA為A的行數,列數%此處求的最小極值;
A=[2?1?1;1?2?3;2?2?1];
b=[2;5;6];
c=[-3?-1?-3];
%b=[4;12;3];
%c=[-4-1];
%A=[-1?2;2?3;1?-1];
?%化成標準型;
[a1?a2]=size(A)????%取A的行數a1列數a2;
B=eye(a1)????????%取與行數相等的單位陣;
A1=[A?B]?????????%標準單純形自變量系數矩陣;
m=[(a2+1):(a1+a2)]?%列出基變量的下標號;
mm=[1:a2]?????????%列出非基變量下標;
m1=zeros(1((a1+a2)-size(c2)))%給c補充0向量;
c1=[c?m1]????????????????%生成完整的c向量;
AA1=[A1?b]
flag=1;
k=0;
rl=0;
r=1;
while?flag==1
b=AA1(:a1+a2+1)
for?i=1:a1
????if?m(i)==rl
????????m(i)=k;
????end
end
for?i=1:a2
????if?mm(i)==k
????????mm(i)=rl;
????end
end
B=AA1(:m)
%建立初始單純形表;
cb=c1(m(1));
xb=(inv(B))*b
for?i=2:a1
????cb=[cb?c1(m(i))]%取基向量cb;
end
z0=cb*xb??????????%計算目標函數即基本可行解;
rr=zeros(1a1+a2)
%計算檢驗數;
for?j=1:a2??????????????????????????%計算檢驗數;
????cy=0;
????for?i=1:a1
????????cy=cy+c1(m(i))*AA1(imm(j));
????end
????z(mm(j))=cy
????rr(mm(j))=c1(mm(j))-z(mm(j))
end
AA2=[rr?-z0]
AA=[AA1;AA2]????%生成初始單純形表;
if?(min(rr))>=0????%判斷是否是最優解,如果是則顯示變量取值x以及最優值z;
????z=z0
????x(m)=xb
????disp(‘變量最優解為:x*=‘)
????disp(x)
????disp(‘最優解值為:z*=‘)
????disp(z)
????flag=0;
????break;
end
%決定進基矢量ak;
k=min(find(rr==min(rr(find(rr<0)))))?????
ak=AA1(:k)
%決定離基矢量ar和主元素yrk;
if?max(AA1(:k))<=0????????%如果yik中有小于等于0的值則目標函數是無界的,無最優解;
????disp(‘無有限最優解‘)
????flag=0;
????break;
end??
for?i=1:a1
????NN(i)=(AA1(ia1+a2+1))/(AA1(ik))
end
r=find(NN==min(NN(find(NN>0))))
????yrk=AA1(rk)????????????%主元素為yrk;?
????rl=m(r)????????????????%離基矢量下標為rl;
????ar=AA1(:rl)??????????%離基矢量為ar;
%根據列主元Gauss消元法解線性方程組
for?i=1:a1
????if?i~=r
????????AA1(i:)=AA1(i:)-AA1(r:)*AA1(ik)/AA1(rk)
????else
????????AA1(r:)=AA1(r:)/yrk;
????end
end
AA1
end



???
????
????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????2109??2010-12-27?23:17??單純形程序\simplex.m

?????文件???????2090??2010-12-27?23:21??單純形程序\單純形法.txt

?????目錄??????????0??2011-06-12?13:45??單純形程序

-----------?---------??----------?-----??----

?????????????????4199????????????????????3


評論

共有 條評論