conv1.m

文件是编辑好的m文件

function C=conv1(var)
% Convolution and multi-polynomials multiplication
% var are multi-polynomials 

% Copyright 2000-2001 ECUST. 
%   $Revision: 1.1 $  $Date: 2002/01/22 22:08:34 $

C=var{1};
for i=2:length(var)
    C=conv(C,var{i});
end;
% example 
% var={[1 2 3 1],[2 3 1],[1 2 1]}
% c=conv1(var)