%?單純形法matlab程序
%?求解標準型線性規劃:min?c‘*x;?s.t.?A*x=b;?x>=0
%?本函數中的A是單純初始表，包括:最后一行是初始的檢驗數，最后一列是資源向量b
%?N是初始的基變量的下標
%?輸出變量sol是最優解?其中松弛變量（或剩余變量）可能不為0
%?輸出變量val是最優目標值，kk是迭代次數

%?加入松馳變量，化為標準型，得到
clear?all
close?all
clc

A=[-1/4?-60?-1/25?9?1?0?0?10;
???1/2?-90?-1/50?3?0?1?0?0;
???0?0?1?0?0?0?1?1;
???-3/4?150?-1/50?6?0?0?0?0];

N=[5?6?7];

c=[-3/4?150?-1/50?6?0?0?0];

function?[solvalkk]=ssimplex（ANc）
[mAnA]=size（A）;
kk=0;?%?迭代次數
flag=1;
while?flag
????kk=kk+1;
????if?A（mA:）>=0?%?已找到最優解
????????sol=zeros（nA-11）;
????????for?i=1:mA-1
????????????sol（N（i））=A（inA）;
????????end
%?????????val=-A（mAnA）;
??????????val=c*sol;
????????break;
????else
????????if?flag?%?還不是最優表，進行轉軸運算
????????????[te

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

?????文件???????1632??2012-08-25?12:13??ssimplex.m

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

?????????????????1632????????????????????1