← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to macros/util/adj2sp.sci

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
macros/util/adj2sp.sci
 
1
function p=adj2sp(xadj,adjncy,anz,mn)
 
2
//adjacency to sparse conversion.
 
3
[LHS ,RHS ]=argn(0);
 
4
 
 
5
nb=size(xadj,'*')-1;
 
6
nza=size(adjncy,'*');
 
7
i = fadj2sp(xadj(:),nb,nza);
 
8
nr=max(adjncy);
 
9
if RHS == 4  then
 
10
p=sparse([i,adjncy(:)],anz,[mn(2),mn(1)])';
 
11
else
 
12
p=sparse([i,adjncy(:)],anz,[nb,nr])';
 
13
end;