TTeMPS_op_to_TT_matrix

TTeMPS_op_to_TT Convert to TT Toolbox matrix format.
   TT = TT_op_to_TTeMPS( A ) takes the TTeMPS operator A and converts it into
   a tt_matrix object using the TT Toolbox 2.x from Oseledets et al.
   This toolbox needs to be installed, of course.

   See also TTeMPS_to_TT.

0001 function B = TTeMPS_op_to_TT_matrix( A )
0002     %TTeMPS_op_to_TT Convert to TT Toolbox matrix format.
0003     %   TT = TT_op_to_TTeMPS( A ) takes the TTeMPS operator A and converts it into
0004     %   a tt_matrix object using the TT Toolbox 2.x from Oseledets et al.
0005     %   This toolbox needs to be installed, of course.
0006     %
0007     %   See also TTeMPS_to_TT.
0008 
0009     %   TTeMPS Toolbox.
0010     %   Michael Steinlechner, 2013-2016
0011     %   Questions and contact: michael.steinlechner@epfl.ch
0012     %   BSD 2-clause license, see LICENSE.txt
0013 
0014     TT = tt_tensor;
0015     TT.d = A.order;
0016     TT.n = [A.size_col.*A.size_row]';
0017     TT.r = A.rank';
0018     TT.core = cell2mat( cellfun(@(y) y(:).', A.U, 'UniformOutput', false) ).';
0019     lengths = TT.r(1:end-1) .* TT.n .* TT.r(2:end);
0020     TT.ps = cumsum( [1; lengths] );
0021 
0022     B = tt_matrix( TT, A.size_col', A.size_row' );
0023 
0024 end