Mercurial > hg > smallbox

view util/SL_A.m @ 1:7750624e0c73 version0.5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(none)
author idamnjanovic
date Thu, 05 Nov 2009 16:36:01 +0000
parents
children 33850553b702
line wrap: on
line source
  function y = SL_A(mode, m, n, x, I, dim)
  % Ivan Damnjanovic 2009
  % This is auxilary function to allow implicit matrices from SPARCO 
  % to be used with SparsLab solvers
  
  global SMALL
    if (mode == 1)
    
            u = zeros(dim, 1);
            u(I) = x;
            y = SMALL.Problem.A(u,1);
           
        elseif (mode == 2)
    
            x2 = SMALL.Problem.A(x,2);
            y = x2(I);
           
     end
       
    end