view toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirdata/mtimes.m @ 0:e9a9cd732c1e tip

first hg version after svn

function c = mtimes(a,b)

d = get(a,'Data');
f = cell(1,length(d));
n = get(a,'Name');
t = get(a,'Title');
if not(isa(a,'miraudio'))
    if isa(b,'mirdata')
        t = [t,' * ',get(b,'Title')];
    else
        t = [t,' * ',num2str(b)];
    end
end

if isa(b,'mirdata')
    e = get(b,'Data');
    m = get(b,'Name');
else
    e = cell(1,length(d));
    for i = 1:length(d)
        e{i} = {b};
    end
    m = {num2str(b)};
end
    
for i = 1:length(d)
    f{i} = cell(1,length(d{i}));
    for j = 1:length(d{i})
        ld = size(d{i}{j},1);
        le = size(e{i}{j},1);
        if ld > le
            f{i}{j} = d{i}{j} .* [e{i}{j};zeros(ld-le,size(e,2),size(e,3))];
        elseif ld < le
            f{i}{j} = [d{i}{j};zeros(le-ld,size(d,2),size(d,3))] .* e{i}{j};
        else
            f{i}{j} = d{i}{j} .* e{i}{j};
        end
    end
    if isa(a,'miraudio')
        n{i} = [n{i} '*' m{i}];
    end
end
c = set(a,'Data',f,'Name',n,'Title',t);