avgwafers.m

来自「MDPSAS工具箱是马里兰大学开发的」· M 代码 · 共 57 行

function X = avgwafers(A)

%  avgwafers.m Compute mean wafer profile for a set of wafermap objects.
%              Called as
%
%              X = avgwafers(A)
%      
% INPUT PARAMETERS
%
%               A : a vector of wafermap objects
%
% OUTPUT PARAMETERS
%
%               X : A wafermap object

% Copyright (c) by Raymond A. Adomaitis, 1998-2006

p = get(A(1),'param'); % an assocarray object
k = keys(p);

for i = 2:length(A)
    p(i) = get(A(i),'param');
    if length(intersect(k,keys(p(i)))) < length(k)
        error('inconsistent params')
    end
end

Xsf = get(A(1),'deltawaf');
v = values(p(1));

    for i = 2:length(A)
    Xsf = Xsf + get(A(i),'deltawaf');
    for j = 1:length(k)
        v{j} = v{j} + getval(p(i),k{j});
    end
end

Xsf = Xsf/length(A);

pavg = p(1);

for i = 1:length(v)
    pavg = setval(pavg,v{i}/length(A),k{i});
end

% I'm not sure this is the best way to do this - it might
% be better to create a new wafermap object just to be safe.
% However, for now, the wafermap fields are modified in the
% case of an object of a class derived from wafermap to
% keep the averaged and original classes consistent.

X = A(1);

X = set(X,'deltawaf',Xsf);
X = set(X,'param',pavg);
X = set(X,'waferid','averaged wafer');