idamnjanovic@8
|
1 function solver = SMALL_solve(Problem, solver)
|
ivan@161
|
2 %% SMALL sparse solver caller function
|
idamnjanovic@24
|
3 %
|
ivan@85
|
4 % Function gets as input SMALL structure that contains SPARCO problem to
|
ivan@85
|
5 % be solved, name of the toolbox and solver, and parameters file for
|
ivan@85
|
6 % particular solver.
|
ivan@85
|
7 %
|
ivan@85
|
8 % Outputs are solution, reconstructed signal and time spent
|
ivan@85
|
9
|
idamnjanovic@24
|
10 % Centre for Digital Music, Queen Mary, University of London.
|
idamnjanovic@24
|
11 % This file copyright 2009 Ivan Damnjanovic.
|
idamnjanovic@24
|
12 %
|
idamnjanovic@24
|
13 % This program is free software; you can redistribute it and/or
|
idamnjanovic@24
|
14 % modify it under the terms of the GNU General Public License as
|
idamnjanovic@24
|
15 % published by the Free Software Foundation; either version 2 of the
|
idamnjanovic@24
|
16 % License, or (at your option) any later version. See the file
|
idamnjanovic@24
|
17 % COPYING included with this distribution for more information.
|
luis@199
|
18 %
|
idamnjanovic@8
|
19 %%
|
idamnjanovic@8
|
20
|
luis@216
|
21 SMALLboxInit
|
luis@203
|
22
|
idamnjanovic@8
|
23 if isa(Problem.A,'float')
|
idamnjanovic@8
|
24 A = Problem.A;
|
idamnjanovic@8
|
25 SparseLab_A=Problem.A;
|
idamnjanovic@8
|
26 m = size(Problem.A,1); % m is the no. of rows.
|
idamnjanovic@8
|
27 n = size(Problem.A,2); % n is the no. of columns.
|
idamnjanovic@8
|
28 else
|
idamnjanovic@8
|
29 A = @(x) Problem.A(x,1); % The operator
|
idamnjanovic@8
|
30 AT = @(y) Problem.A(y,2); % and its transpose.
|
idamnjanovic@8
|
31 SparseLab_A =@(mode, m, n, x, I, dim) SL_A(Problem.A, mode, m, n, x, I, dim);
|
idamnjanovic@8
|
32 m = Problem.sizeA(1); % m is the no. of rows.
|
idamnjanovic@8
|
33 n = Problem.sizeA(2); % n is the no. of columns.
|
idamnjanovic@8
|
34
|
idamnjanovic@1
|
35 end
|
idamnjanovic@37
|
36 % if signal that needs to be represented is different then training set for
|
idamnjanovic@37
|
37 % dictionary learning it should be stored in Problem.b1 matix
|
idamnjanovic@37
|
38 if isfield(Problem, 'b1')
|
idamnjanovic@37
|
39 b = Problem.b1;
|
idamnjanovic@37
|
40 else
|
idamnjanovic@37
|
41 b = Problem.b; % The right-hand-side vector.
|
idamnjanovic@37
|
42 end
|
idamnjanovic@8
|
43 %%
|
ivan@140
|
44 if (solver.profile)
|
ivan@140
|
45 fprintf('\nStarting solver %s... \n', solver.name);
|
ivan@140
|
46 end
|
ivan@140
|
47
|
idamnjanovic@8
|
48 start=cputime;
|
idamnjanovic@37
|
49 tStart=tic;
|
luis@199
|
50
|
luis@199
|
51 % solvers configuration file
|
luis@199
|
52 run(fullfile(SMALL_path, 'config/SMALL_solve_config.m'));
|
idamnjanovic@8
|
53
|
idamnjanovic@8
|
54 %%
|
idamnjanovic@8
|
55 % Sparse representation time
|
idamnjanovic@37
|
56 tElapsed=toc(tStart);
|
idamnjanovic@8
|
57 solver.time = cputime - start;
|
ivan@140
|
58 if (solver.profile)
|
ivan@140
|
59 fprintf('Solver %s finished task in %2f seconds (cpu time). \n', solver.name, solver.time);
|
ivan@140
|
60 fprintf('Solver %s finished task in %2f seconds (tic-toc time). \n', solver.name, tElapsed);
|
ivan@140
|
61 end
|
idamnjanovic@37
|
62 solver.time=tElapsed;
|
idamnjanovic@8
|
63 % geting around out of memory problem when converting big matrix from
|
idamnjanovic@8
|
64 % sparse to full...
|
idamnjanovic@8
|
65
|
idamnjanovic@18
|
66 if isfield(Problem, 'sparse')&&(Problem.sparse==1)
|
idamnjanovic@8
|
67 solver.solution = y;
|
idamnjanovic@8
|
68 else
|
idamnjanovic@8
|
69 solver.solution = full(y);
|
idamnjanovic@8
|
70 end
|
idamnjanovic@37
|
71 if isfield(Problem,'reconstruct')
|
ivan@140
|
72 % Reconstruct the signal from the solution
|
ivan@140
|
73 solver.reconstructed = Problem.reconstruct(solver.solution);
|
idamnjanovic@8
|
74 end
|
idamnjanovic@37
|
75 end
|