source: proiecte/pmake3d/make3d_original/Make3dSingleImageStanford_version0.1/third_party/opt/yalmip/extras/lindosparse.m @ 37

Last change on this file since 37 was 37, checked in by (none), 14 years ago

Added original make3d

File size: 503 bytes
Line 
1function [Nbegcol,Nlencol,Nrowndx] = lindosparse(cJacobian);
2
3Nbegcol = [];
4Nrowndx = [];
5Nlencol = [];
6top = 0;
7for i = 1:size(cJacobian,2)
8    [ii,jj,kk] = find(cJacobian(:,i));
9    if isempty(ii)
10        Nbegcol = [Nbegcol top];
11        Nlencol = [Nlencol 0];
12    else
13        Nbegcol = [Nbegcol top];
14        Nrowndx = [Nrowndx ii(:)'-1];
15        Nlencol = [Nlencol length(ii)];
16        top = top + length(ii);
17    end
18end
19if  isempty(Nrowndx)
20    Nrowndx = [];
21end
22Nbegcol = [Nbegcol sum(Nlencol)];
Note: See TracBrowser for help on using the repository browser.