extend_stack_size.sci

来自「toolbox median filter You need to down」· SCI 代码 · 共 37 行

function extend_stack_size(mu)

// extend_stack_size - extend memory
//
//  extend_stack_size(mult);
//
//  Copyright (c) 2008 Gabriel Peyre


//stacksize('max');
//return;

global stacksize_global;
global stacksize_max_global;
if isempty(stacksize_global)
    stacksize_global = 1;
end
if isempty(stacksize_max_global)
    stacksize_max_global = 20;
end

if argn(2)<1
    mu = 4;
end

if stacksize_global>stacksize_max_global
    warning(strcat(['Stacksize multiplier extend ' num2str(stacksize_max_global) '.']));
    warning(strcat(['Solution: do not call extend_stack_size too many time or extend global variable stacksize_max_global.']));
    return;
end

stacksize_global = stacksize_global*mu;

a = stacksize();
stacksize(mu*a(1));

endfunction