cart.m

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

function m = cart(v1,v2)
% Cartesian product of two vectors
%
% function m = cart(v1,v2)
%
% v1,v2  vectors
% m      matrix (length(v1)*length(v2),2)
%
% In m the last column runs fastest.

% Jantzen 943003

 n1 = length(v1) ;
 n2 = length(v2) ;
 m = zeros(n1*n2,2) ;
 for i1=1:n1,
   for i2=1:n2,
     m((i1-1)*n2+i2,:) = [v1(i1),v2(i2)] ;
   end ;
 end ;