0001 function disp( x, name )
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 if (nargin < 2 || ~ischar(name))
0012 name = inputname(1);
0013 end
0014
0015
0016 disp([name, ' is a TT/MPS block-', num2str(x.mu), ' (with block size ', num2str(x.p), ') tensor of order ', num2str(x.order), ...
0017 ' with size (', num2str(x.size), ...
0018 ') and ranks (', num2str(x.rank), ')']);
0019 disp('');
0020
0021 row1 = '';
0022 row2 = '';
0023 row3 = '';
0024 row4 = '';
0025
0026 for i=1:x.order
0027 if i == x.mu
0028 row1 = [row1, sprintf(' p=%i ', x.p)];
0029 else
0030 row1 = [row1, ' '];
0031 end
0032 row2 = [row2, sprintf('%3i--(U%2i)--', x.rank(i), i)];
0033 row3 = [row3, ' | '];
0034 row4 = [row4, sprintf(' %3i ', x.size(i))];
0035 end
0036 row2 = [row2, sprintf( '%3i', x.rank(end) )];
0037 disp(row1)
0038 disp(row2)
0039 disp(row3)
0040 disp(row4)
0041
0042 end