function?[xzSTres_case]?=?SimplexMax（cAbind_B）
%?單純形法求解標(biāo)準(zhǔn)形線性規(guī)劃問(wèn)題:?max?cx?s.t.?Ax=b?x>=0
%?輸入?yún)?shù):?c為目標(biāo)函數(shù)系數(shù)?A為約束方程組系數(shù)矩陣?b為約束方程組常數(shù)項(xiàng)?ind_B為基變量索引
%?輸出參數(shù):?x最優(yōu)解?z最優(yōu)目標(biāo)函數(shù)值?ST存儲(chǔ)單純形表數(shù)據(jù)?res_case=0表示有最優(yōu)解，res_case=1表示有無(wú)界解

[mn]?=?size（A）;??????????????%m約束條件個(gè)數(shù)?n決策變量數(shù)
ind_N?=?setdiff（1:n?ind_B）;??%非基變量的索引
ST?=?[];
format?rat
%?循環(huán)求解
while?true
????x0?=?zeros（n1）;
????x0（ind_B）?=?b;???????????????%初始基可行解
????cB?=?c（ind_B）;???????????????%計(jì)算cB
????Sigma?=?zeros（1n）;
????Sigma（ind_N）?=?c（ind_N）?-?cB*A（:ind_N）;???%計(jì)算檢驗(yàn)數(shù)
????[~?k]?=?max（Sigma）;?????????%選出最大檢驗(yàn)數(shù)?確定進(jìn)基變量索引k
????Theta?=?b?./?A（:k）;?????????%計(jì)算θ
????Theta（Theta<=0）?=?10000;
????[~?q]?=?min（Theta）;?????????%選出最小θ
????el?=?ind_B（q）;???????????????%確定出基變量索引el?主元為A（qk）
????vals?=?[cB‘ind_B‘bATheta];
????

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????9417??2019-04-04?21:47??SimplexTable1.xlsx

?????文件????????459??2019-03-14?09:39??test_simplex1.m

?????文件???????1517??2019-03-16?15:30??SimplexMax.m

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

????????????????11393????????????????????3