精通MATLAB最优化计算全书配套算法M文件-精通MATLAB优化计算.rar

精通MATLAB最优化计算全书配套算法M文件-精通MATLAB优化计算.rar
从这里下载了不少神经网络的视频，感觉非常不错，先向这些制作者致敬。也感谢各位版主建立了这个大宝库。今天《精通MATLAB最优化计算》的书刚刚到手，不敢独享，分享出原书光盘中各章的算法M文件，供大家学习（没有搜索论坛中相关帖子，不知道是否有人已经发过）。也作点小贡献。希望大家能沿者copy--edit--write的路一路领略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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     532480  2008-10-29 13:22  精通MATLAB优化计算\autorun.exe

     文件         47  2006-02-28 16:53  精通MATLAB优化计算\autorun.inf

     文件     608448  2000-05-22 16:58  精通MATLAB优化计算\comctl32.ocx

     文件          8  2008-10-29 13:25  精通MATLAB优化计算\command.ini

     文件    3193832  2008-10-29 14:46  精通MATLAB优化计算\phei.avi

     文件      27136  2009-02-10 10:41  精通MATLAB优化计算\光盘使用说明.doc

     文件      28672  2009-02-10 10:41  精通MATLAB优化计算\程序索引.xls

     文件       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

     文件       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

     文件       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

     文件       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

     文件       1438  2008-09-03 21:00  精通MATLAB优化计算\第13章 粒子群优化算法\SecVibratPSO.m

     文件       1173  2008-09-10 19:51  精通MATLAB优化计算\第13章 粒子群优化算法\SelPSO.m

     文件       1584  2008-09-04 21:02  精通MATLAB优化计算\第13章 粒子群优化算法\SimuAPSO.m

     文件       1175  2008-09-02 20:13  精通MATLAB优化计算\第13章 粒子群优化算法\YSPSO.m

     文件       2579  2008-09-10 21:32  精通MATLAB优化计算\第14章  遗传优化算法\AdapGA.m

............此处省略50个文件信息