coloane.m

来自「Format Linked List for sparse Matrix」· M 代码 · 共 15 行

function [vc,vil]=coloane(x,nalloc,val,col,link);
  j=1; cl=1;
for i=1:nalloc;
    if(col(i) == x);
	    
	    vc(j)=val(i);
	    vil(j)=cl;
	    j++;
  endif;
  if (link(i) == -1) cl++;
  endif
endfor;
vc;
vil;
endfunction;