horzcat.m

来自「模式识别工具箱,本人毕业论文时用到的,希望对大家有用!」· M 代码 · 共 34 行

function w = horzcat(varargin)
%disp('mappping-horzcat')
w = varargin{1}; start = 2;
if nargin == 1, return; end
if isempty(w)
	w = varargin{2}; start = 3;
	if nargin == 2, return; end
end

[kw,cw] = size(w);
if ~strcmp(w.m,'stacked')
       if cw == 1 & size(w.l,1) == 2
		w.c = 2; cw = 2;
	end
	w = mapping('stacked',w,w.l,kw,cw,1);
	w.d = {w.d};
end
isc = ischar(w.l);
for i=start:length(varargin)
	v =  varargin{i};
	[kv,cv] = size(v);
	if kw ~= kv
		error('mappings should have equal numbers of inputs');
	end
	if cv == 1 & size(v.l,1) == 2
		v.c = 2; cv = 2;
	end
	w.d = [w.d {v}];
	w.l =  abs(str2mat(w.l,v.l));
	w.c = w.c + cv;
end
if isc, w.l = char(w.l); end
return