精通matlab最优化计算光盘（第二版）

精通matlab最优化计算光盘(第二版) 龚纯，王正林 第二版 源代码

function  [xminf] = CmpSimpleMthd（AcbbaseVector）
sz = size（A）;
nVia = sz（2）;
n = sz（1）;
xx = 1:nVia;
nobase = zeros（11）;
m = 1;

if c>=0
    vr = find（c~=0 1‘last‘）;
    rgv = inv（A（:（nVia-n+1）:nVia））*b;
    if rgv >=0
        x = zeros（1vr）;
        minf = 0;
    else
        disp（‘不存在最优解!‘）;
        x = NaN;
        minf = NaN;
        return;
    end
end

for i=1:nVia
    if（isempty（find（baseVector == xx（i）1）））
        nobase（m） = i;
        m = m + 1;
    else
        ;
    end
end
bCon = 1;
M = 0;

while bCon
    nB = A（:nobase）;
    ncb = c（nobase）;
    B = A（:baseVector）;
    cb = c（baseVector）;
    xb = inv（B）*b;
    f = cb*xb;
    w = cb*inv（B）;

    for i=1:length（nobase）
        sigma（i） = w*nB（:i）-ncb（i）;
    end
    [maxsind] = max（sigma）;
    if maxs <= 0
        minf = cb*xb;
        vr = find（c~=0 1‘last‘）;
        for l=1:vr
            ele = find（baseVector == l1）;
            if（isempty（ele））
                x（l） = 0;
            else
                x（l）=xb（ele）;
            end
        end
        bCon = 0;
    else
        y = inv（B）*A（:nobase（ind））;
        if y <= 0
            disp（‘不存在最优解!‘）;
        else
            minb = inf;
            chagB = 0;
            for j=1:length（y）
                if y（j）>0
                    bz = xb（j）/y（j）;
                    if bz                        minb = bz;
                        chagB = j;
                    end
                end
            end
            tmp = baseVector（chagB）;
            baseVector（chagB） = nobase（ind）;
            nobase（ind） = tmp;
        end
    end
    M = M + 1;
    if （M == 1000000）
        disp（‘找不到最优解！‘）;
        x = NaN;
        minf = NaN;
        return;
    end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-03-15 10:18  精通matlab最优化计算光盘（第二版）\
     文件     1499136  2011-07-20 15:20  精通matlab最优化计算光盘（第二版）\autorun.exe
     文件          47  2006-02-28 16:53  精通matlab最优化计算光盘（第二版）\autorun.inf
     文件      608448  2000-05-22 16:58  精通matlab最优化计算光盘（第二版）\comctl32.ocx
     文件     2737762  2006-02-07 14:48  精通matlab最优化计算光盘（第二版）\phei.avi
     文件         456  2011-10-11 11:06  精通matlab最优化计算光盘（第二版）\Settings.ini
     文件        5120  2012-03-15 10:18  精通matlab最优化计算光盘（第二版）\Thumbs.db
     文件       27136  2009-02-10 10:41  精通matlab最优化计算光盘（第二版）\光盘使用说明.doc
     文件       28672  2009-02-10 10:41  精通matlab最优化计算光盘（第二版）\程序索引.xls
     目录           0  2012-03-04 14:13  精通matlab最优化计算光盘（第二版）\第10章 线性规划\
     文件        1836  2008-05-28 19:54  精通matlab最优化计算光盘（第二版）\第10章 线性规划\CmpSimpleMthd.m
     文件        2269  2008-06-01 15:22  精通matlab最优化计算光盘（第二版）\第10章 线性规划\ModifSimpleMthd.m
     文件        1645  2008-05-28 19:56  精通matlab最优化计算光盘（第二版）\第10章 线性规划\SimpleMthd.m
     目录           0  2012-03-04 14:13  精通matlab最优化计算光盘（第二版）\第11章 整数规划\
     文件        4789  2008-06-29 22:39  精通matlab最优化计算光盘（第二版）\第11章 整数规划\DividePlane.m
     文件        2833  2008-07-06 16:39  精通matlab最优化计算光盘（第二版）\第11章 整数规划\IntProgFZ.m
     文件        1141  2008-06-30 21:39  精通matlab最优化计算光盘（第二版）\第11章 整数规划\ZeroOneprog.m
     目录           0  2012-03-04 14:13  精通matlab最优化计算光盘（第二版）\第12章 二次规划\
     文件        2311  2008-06-02 19:42  精通matlab最优化计算光盘（第二版）\第12章 二次规划\ActivdeSet.m
     文件         226  2008-06-02 20:18  精通matlab最优化计算光盘（第二版）\第12章 二次规划\QuadLagR.m
     文件        1180  2008-06-02 20:16  精通matlab最优化计算光盘（第二版）\第12章 二次规划\TrackRoute.m
     目录           0  2012-03-04 14:13  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\
     文件        1085  2008-09-04 18:35  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\AsyLnCPSO.m
     文件        1829  2008-09-10 20:12  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\BreedPSO.m
     文件        2413  2008-09-13 01:21  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\CLSPSO.m
     文件        1028  2008-09-02 20:11  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\LinWPSO.m
     文件        1017  2008-09-04 18:32  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\LnCPSO.m
     文件         971  2008-09-02 20:11  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\PSO.m
     文件        1116  2008-09-03 20:43  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\RandWPSO.m
     文件        1156  2008-09-11 21:21  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\SAPSO.m
     文件        1073  2008-09-03 20:51  精通matlab最优化计算光盘（第二版）\第13章 粒子群优化算法\SecPSO.m
............此处省略47个文件信息