diff options
Diffstat (limited to 'modules/sparse/macros/sp2adj.sci')
| -rwxr-xr-x | modules/sparse/macros/sp2adj.sci | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/modules/sparse/macros/sp2adj.sci b/modules/sparse/macros/sp2adj.sci new file mode 100755 index 000000000..da86ffdba --- /dev/null +++ b/modules/sparse/macros/sp2adj.sci @@ -0,0 +1,50 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) XXXX-2008 - INRIA +// Copyright (C) 2010 - DIGITEO - Michael Baudin +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + +function [xadj,iadj,v]=sp2adj(A) + // sparse conversion to adjacency + // See sp2adj.xml for help. + // + // Check number of arguments + [lhs, rhs] = argn() + if ( rhs <> 1 ) then + lstr = gettext("%s: Wrong number of input arguments: %d to %d expected.\n") + error ( msprintf(lstr,"sp2adj",1,1)) + end + if ( and(lhs <> [0 1 2 3]) ) then + lstr = gettext("%s: Wrong number of output arguments: %d to %d expected.\n") + error ( msprintf(lstr,"sp2adj",0,3)) + end + // + // Check type of arguments + if ( typeof(A) <> "sparse" ) then + lstr = gettext("%s: Wrong type for input argument #%d.\n") + error ( msprintf(lstr,"sp2adj",1)) + end + // + // Check size of arguments + // Nothing to do + // + // Check content of arguments + // Nothing to do + // + [ij,v,n]=spget(A') + N=n(1) + if ( ij == [] ) then, + xadj=ones(n(2)+1,1) + iadj=[] + v=[] + else, + [xadj,la,iadj]=ta2lpd(ij(:,1)',ij(:,2)',N+1,N) + xadj=xadj(:) + iadj=iadj(:) + end +endfunction |