Matlab之将非严格占优矩阵化为严格占优矩阵

haidaowang

这个是只是用行变换将非严格占优矩阵通过行变换转换为严格占有矩阵。

伪代码如下：

Input matrix:A

Output:

      If A can transform into a dominance with our method,we can get the dominance.

      Else output’Cannot transform the matrix into dominance’

Variable:

Set a matrix record with the size [row_of_matrix,3]

Record[row_length_matrix,3]  %This matrix is for record A’s situation.

% Record[1:,1] first volumn stands for this row of A should be put which row

% Record[1:,2] second volumn stands for whether this row satisfy the necessity of transform into a dominance.If yes,set 1;otherwise 0.

% Record[1:,3] third volumn stands for which initial row belong to.

Flag% this variable is to record whether the matrix A can transform into a dominance.

% If yes,Flag = 1;

% otherwise Flag = 0

% beneath code is to test whether the matrix can transform into a dominance

% and record the situation of every row.

for i = 1:size_of_matrix

Test every row(Record);

If test_row’s Record[1:,2] == 0

    then break and output ’Cannot transform the matrix into dominance’

    Flag = 0;

end

end

% If Flag = 1,we use row exchangement to transform A into dominance

If Flag = 1

   Row_exchangment by record.

   for i = 1:row-1

       for j = 1:row

            if record(j,1) == i         %exchange line if flag = 1,which   

                %means it can be transformed into dominance

                exchange A(i,：） and A(record(j,3),：）;

                exchange record(j,：） and record(i,：）;              

                break;

            end

        end

    end

    Display A;

end

具体实现代码如下：

% Project 1
% SMIE   name:ChenYu   class:1202   nunmber:12353032
% Change nondorminant to dorminant matrix
% this method is adapted for the matrix which can be changed to dorminant
/ \3 q% Y4 g5 B* f$ |3 a% matrix only using row exchangement
( {7 D, _: L5 d& \6 ~' [% Input :A matrix
% Output:A matrix which maybe dorminant
0 A- {% m5 N9 |* ]7 w% c  hfunction method1(A)
9 t& N9 v% R* d1 ~/ ?# v# ~7 ][row,volumn] = size(A);
+ [# Y" C3 N& ~2 `% i% xrecord = ones(volumn,3);                 %use this matrix to record everyline situation
1 v; S  u$ x8 b3 Zflag   = 1;                              %first volumn record if the matrix can change to
; O, m9 C2 _/ w" dfor i = 1:row                            %dominance,which row the row will

                                         �long.Second volumn record
: c* y" S/ z- \% T6 L- U& L    every_line                = A(i,：）;  %whether the matrix satisfy the necessity

                                         %that everydominance
6 x# P! w1 ~. @8 N5 |+ E( C. w    record(i,3)               = i;       %third volumn record the rowth
# i' ?% u) G" z    [record(i,1),record(i,2)] = which_row(every_line);
    if  record(i,2)           == 0
        disp('This Matrix cannot change to dorminant matrix by row exchange.');
        flag                  = 0;
        break;
    end
end
1 g6 d2 [2 T2 v$ S$ w7 G& O* Iif flag == 1
    for i = 1:row-1
        for j = 1:row
            if record(j,1) == i         %exchange line if flag = 1,which means it can be transformed
                b                = A(i,：）;             %into dorminance
  J% [4 N5 i- g3 E% ^                A(i,：）           = A(record(j,3),：）;
                A(record(j,3),：） = b;
. w9 z& @4 A6 E, b" r9 q+ A                temp             = record(j,：）;
                record(j,：）      = record(i,：）;
  K) ~$ {# b# b( K' P3 j$ M                record(i,：）      = temp;
                break;
( x+ R8 s# z+ A$ l; S: h7 J9 [8 N            end
        end
    end
    disp(A);
end

调用函数：

% function judge_row:
$ N8 r4 i7 X4 K  f7 \1 Q$ y, v% this function is to judge whether the line is a line of dorminance and
% return which row shuold this line stand
$ O# k# D# z) H  ]% Input : vector(a row of the matrix)
% Output:if(the line is dorminant) return flag = 1;
9 G$ c9 \- C; x9 l9 B%                             else return flag = 0.
3 C4 e; R; Y7 C) l& F% Pfunction [row,flag] = which_row(a)
6 T4 {) w' j) z: Z" In = length(a);
max  = a(1);
3 G5 q6 v! p; l+ i+ E  P3 B/ a( |flag = 0;
/ Z1 _; `7 }. h9 w8 Orow  = 1;
for i = 2:n
    if max < a(i)          %fing the max value of the line
       max = a(i);         %it's easy for us to know that if the max value is
* W  O& Z. p! e; `2 u       row = i;            %larger than the rest of all sum
: {2 R7 s7 J2 J8 G. S    end                    %than the line is dorminance
end
8 g0 x) k. G2 r$ A( |2 J8 M4 X& z/ t: e8 Mand = 0;
for i = 1:n
6 T6 q+ I8 I8 Z5 A8 G   if i ~= row             %compare maxvalue and rest sum
        and = and + a(i);
    end
end
if a(row) >= and
" A5 _1 B" p: l! ^    flag = 1;
end

grand

代码有点长啊，我泡泡试试