x_fnct.m

现代通信系统（matlab版）（第二版）配套源代码 John G. Proakis等著 刘树棠 译 电子工业出版社出版

function y=x_fnct(x,funfcn,p1,p2,p3)
% y=x_fnct(x,funfcn,p1,p2,p3)
%  Returns the function funfcn(x) times x

args=[];
for nn=1:nargin-2
  args=[args,',p',int2str(nn)];
end
args=[args,')'] ;
y=eval([funfcn,'(x',args,'.*x' ]);