Mercurial > repos > public > sbplib

comparison minors.m @ 820:501750fbbfdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with feature/grids
author Jonatan Werpers <jonatan@werpers.com>
date Fri, 07 Sep 2018 14:40:58 +0200
parents eaf557023fbe
children
comparison
equal deleted inserted replaced
819:fdf0ef9150f4 820:501750fbbfdb
1 function [minor, sub] = minors(A) 1 function [minor, sub] = minors(A, verbose)
2 default_arg('verbose', true);
2 [n, m] = size(A); 3 [n, m] = size(A);
3 4
4 if n ~= m 5 if n ~= m
5 error('A must be square'); 6 error('A must be square');
6 end 7 end
16 sub{end + 1} = A(C(i,:),C(i,:)); 17 sub{end + 1} = A(C(i,:),C(i,:));
17 end 18 end
18 end 19 end
19 20
20 for i = 1:length(sub) 21 for i = 1:length(sub)
21 fprintf('%d:\n', ks{i}); 22 if verbose
22 disp(sub{i}) 23 fprintf('%d:\n', ks{i});
24 disp(sub{i})
25 end
23 26
24 minor(i) = det(sub{i}); 27 minor(i) = det(sub{i});
25 end 28 end
26 end 29 end
27 30