outer.m

来自「为了下载东西」· M 代码 · 共 22 行

%OUTER Outer product generalized
%
% function m = outer(v1,f,v2)
%
% v1,v2  row vectors
% m	 matrix, the elements are the res-
%	 ult of applying 'f' to the
%	 cartesian product of v1 and v2
%
% Similar to outer product in APL, Nial.

function m = outer(v1,f,v2)
%  [x,y] = meshdom(v1,v2) ;
%  m = rot90(feval(f,x,y),-1) ;

 r = length(v1) ;
 m = zeros(r,length(v2)) ;
 for i=1:r,
   m(i,:) = feval(f,v1(i),v2) ;
 end ;