~ubuntu-branches/ubuntu/raring/suitesparse/raring-proposed

« back to all changes in this revision

Viewing changes to CXSparse_newfiles/MATLAB/Test/test4.m

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere, Rafael Laboissiere, Ondrej Certik
  • Date: 2008-02-21 14:46:50 UTC
  • mfrom: (1.1.2 upstream) (5.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080221144650-tgeppgj0t7s759i8
Tags: 3.1.0-3
[ Rafael Laboissiere ]
* Upload to unstable

[ Ondrej Certik ]
* XS-DM-Upload-Allowed: yes field added
* Ondrej Certik added to uploaders

Show diffs side-by-side

added added

removed removed

Lines of Context:
18
18
    d = rand (1) ;
19
19
    A = sprandn (m,n,d) ;
20
20
    B = sprandn (n,k,d) ;
21
 
    if (mod (trial, 4) == 0)
22
 
        A = A + 1i * sprandn (A) ;
23
 
    end
24
 
    if (mod (trial, 2) == 0)
25
 
        B = B + 1i * sprandn (B) ;
26
 
    end
 
21
 
 
22
    if (~ispc)
 
23
        if (mod (trial, 4) == 0)
 
24
            A = A + 1i * sprandn (A) ;
 
25
        end
 
26
        if (mod (trial, 2) == 0)
 
27
            B = B + 1i * sprandn (B) ;
 
28
        end
 
29
    end
 
30
 
27
31
    C = A*B ;
28
32
    D = cs_multiply (A,B) ;
29
33
    err = nnz (spones (C) - spones (D)) ;