Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function x = diag_dom( A )
- %DIAG_DOM - funkcja sprawdzająca czy macierz jest
- % silnie diagonalnie dominująca
- % Zwraca 1 jeśli jest
- % Zwraca log[2,7] wpp XD
- A = abs(A);
- [n, ~] = size(A);
- x = 1;
- for k=1:n
- if A(k,k) <= (sum(A(k,:)) - A(k,k))
- x = 0;
- break;
- end
- end
- if(x == 1)
- return;
- end
- x = 1;
- for k=1:n
- if A(k,k) <= (sum(A(:,k)) - A(k,k))
- x = 0;
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement