← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/suitesparse/oneiric

« back to all changes in this revision

Viewing changes to CXSparse/MATLAB/Demo/private/mesh3d1.m

  • Committer: Bazaar Package Importer
  • Author(s): Nick Ellery
  • Date: 2009-06-14 19:15:52 UTC
  • mfrom: (7.2.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090614191552-2hliya5q8n1quseu
Tags: 1:3.4.0-1ubuntu1
https://launchpad.net/bugs/387137
* Merge from debian unstable, remaining changes (LP: #387137):
  - debian/control:
    - demote libatlas-doc from recommends to suggests as it is not in main
    - drop recommends on doc-central as it is not in main

Show diffs side-by-side

added added

removed removed

Lines of Context:
CXSparse/MATLAB/Demo/private/mesh3d1.m
13
13
t = 1 ;
14
14
for k = 0:n-1
15
15
    for j = 0:n-1
16
 
        for i = 0:n-1
17
 
            s = k*n^2 + j*n+i + 1 ;
18
 
            ii (t:t+6) = [
19
 
                    (k-1)*n^2 + j*n+i 
20
 
                    k*n^2 + (j-1)*n+i 
21
 
                    k*n^2 + j*n+(i-1)
22
 
                    k*n^2 + j*n+i
23
 
                    k*n^2 + j*n+(i+1)
24
 
                    k*n^2 + (j+1)*n+i
25
 
                    (k+1)*n^2 + j*n+i ]' + 1 ;
26
 
            jj (t:t+6) = [s s s s s s s] ;
27
 
            xx (t:t+6) = [-1 -1 -1 6 -1 -1 -1] ;
28
 
            t = t + 7 ;
29
 
        end
 
16
        for i = 0:n-1
 
17
            s = k*n^2 + j*n+i + 1 ;
 
18
            ii (t:t+6) = [
 
19
                    (k-1)*n^2 + j*n+i 
 
20
                    k*n^2 + (j-1)*n+i 
 
21
                    k*n^2 + j*n+(i-1)
 
22
                    k*n^2 + j*n+i
 
23
                    k*n^2 + j*n+(i+1)
 
24
                    k*n^2 + (j+1)*n+i
 
25
                    (k+1)*n^2 + j*n+i ]' + 1 ;
 
26
            jj (t:t+6) = [s s s s s s s] ;
 
27
            xx (t:t+6) = [-1 -1 -1 6 -1 -1 -1] ;
 
28
            t = t + 7 ;
 
29
        end
30
30
    end
31
31
end
32
32
keep = find (ii >= 1 & ii <= n^3 & jj >= 1 & jj <= n^3) ;