% Procedure for creating an apodization time line for an aperture
%
% Calling: xdc_apodization (Th, times, values);
%
% Parameters: Th - Pointer to the transducer aperture.
% times - Time after which the associated apodization is valid.
% values - Apodization values. Matrix with one row for each
% time value and a number of columns equal to the
% number of physical elements in the aperture. At
% least one apodization value in each row must be different
% from zero.
%
% Return: none.
%
% Version 1.01, June 19, 1998 by Joergen Arendt Jensen
% Version 1.1, May 6, 2011 by JAJ - Check of zero apodization added
function res = xdc_apodization (Th,times,values)
% Check the times vector
[m1,n]=size(times);
if (n ~= 1)
error ('Times vector must have one column');
end
[m2,n]=size(values);
% Check both arrays
if (m1 ~= m2)
error ('There must be the same number of rows for times and values');
end
% Check that there is not one column with only zeros
for i=1:m1
if (sum(abs(values(i,:)))==0)
error('There must be at least one apodization value different from zero in a column')
end
end
% Call the C-part of the program to insert apodization
Mat_field (1070,Th,times,values);