ltriasc.m

toolbox of BVQX, This is the access between BV and matlab. It will help you to analysis data from BV

function lta = ltriasc(m, p)
% ltriasc  - ASCII form of a lower triangle matrix (for Mx)
%
% FORMAT:       lta = ltriasc(m [, p])
%
% Input fields:
%
%       m           MxM square, double matrix
%       p           optional precision (default: 8)
%
% Output fields:
%
%       lta         ASCII form of lower triangle matrix

% Version:  v0.6e
% Build:    7030215
% Date:     Mar-02 2007, 3:35 PM CET
% Author:   Jochen Weber, Brain Innovation, B.V., Maastricht, NL
% URL/Info: http://wiki.brainvoyager.com/BVQXtools

% argument check
if nargin < 1 || ...
   ~isa(m, 'double') || ...
   ~isreal(m) || ...
    isempty(m) || ...
    numel(size(m)) ~= 2 || ...
    size(m, 1) ~= size(m, 2)
    error( ...
        'BVQXtools:BadArgument', ...
        'Invalid matrix argument supplied.' ...
    );
end
if nargin < 2 || ...
   ~isa(p, 'double') || ...
   ~isreal(p) || ...
    numel(p) ~= 1 || ...
    isinf(p) || ...
    isnan(p) || ...
    p < 1 || ...
    p > 15
    pstr = '8';
    sstr = '13';
else
    p = round(p);
    pstr = sprintf('%d', p);
    sstr = sprintf('%d', p + 5);
end

% initialize output
lta = '';

% iterate over rows
for rc = 1:size(m, 1)
    rowa = '';
    
    % iterate over columns
    for cc = 1:rc
        rowa = [rowa sprintf([' %' sstr 's'], sprintf(['%.' pstr 'f'], m(rc, cc)))];
    end
    lta = [lta rowa char(10)];
end