initial2.m

关于偏微分方程进行图像处理的电子书,对于学习动态轮廓实现图像的分割非常有用

function Initial2(add_path)
% 初始化程序包运行环境
if nargin<1 | isempty(add_path)
    add_path = '..\程序源代码二';
else
    add_path = [add_path,'..\程序源代码二';];
end

i = 1;
while length(getstr(add_path,i))~=0
    eval(['addpath ',getstr(add_path,i)]);
    i = i + 1;
end


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%查询字符串函数
function littlestr = getstr(bigstr,j)
if nargin<2 | isempty(bigstr)==1 | isempty(j)==1 | length(bigstr)==0 | j <= 0 
    littlestr = '';
    return;
end
k = 1;

for i = 1:j
    while k<=length(bigstr) & (bigstr(k)==';' | bigstr(k)==',')
        k = k + 1;
    end
    if  k>length(bigstr)
        break
    end
    
    littlestr = '';
    l_start = k;
    while bigstr(k)~=';' & bigstr(k)~=',' 
        k = k + 1;
        if k>length(bigstr) 
            break
        end
    end 
    if i==j  
        littlestr = bigstr(l_start:k-1);
    end
    if k==(length(bigstr)+1)
        break
    end
end