Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/qr.cc @ 12365:044ca61e6750 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use testif to only run some sparse tests when necessary libraries are installed.
author Rik <octave@nomad.inbox5.com>
date Wed, 02 Feb 2011 21:31:33 -0800
parents 12df7854fa7c
children f96b9b9f141b
comparison
equal deleted inserted replaced
12364:1a24d55b1714 12365:044ca61e6750
680 %! n = 20; d= 0.2; 680 %! n = 20; d= 0.2;
681 %! a = sprandn(n,n,d)+speye(n,n); 681 %! a = sprandn(n,n,d)+speye(n,n);
682 %! r = qr(a); 682 %! r = qr(a);
683 %! assert(r'*r,a'*a,1e-10) 683 %! assert(r'*r,a'*a,1e-10)
684 684
685 %!testif HAVE_CXSPARSE 685 %!testif HAVE_COLAMD
686 %! n = 20; d= 0.2; 686 %! n = 20; d= 0.2;
687 %! a = sprandn(n,n,d)+speye(n,n); 687 %! a = sprandn(n,n,d)+speye(n,n);
688 %! q = symamd(a); 688 %! q = symamd(a);
689 %! a = a(q,q); 689 %! a = a(q,q);
690 %! r = qr(a); 690 %! r = qr(a);
715 %! n = 20; d= 0.2; 715 %! n = 20; d= 0.2;
716 %! a = 1i*sprandn(n,n,d)+speye(n,n); 716 %! a = 1i*sprandn(n,n,d)+speye(n,n);
717 %! r = qr(a); 717 %! r = qr(a);
718 %! assert(r'*r,a'*a,1e-10) 718 %! assert(r'*r,a'*a,1e-10)
719 719
720 %!testif HAVE_CXSPARSE 720 %!testif HAVE_COLAMD
721 %! n = 20; d= 0.2; 721 %! n = 20; d= 0.2;
722 %! a = 1i*sprandn(n,n,d)+speye(n,n); 722 %! a = 1i*sprandn(n,n,d)+speye(n,n);
723 %! q = symamd(a); 723 %! q = symamd(a);
724 %! a = a(q,q); 724 %! a = a(q,q);
725 %! r = qr(a); 725 %! r = qr(a);