view general/funutils/scancols.m @ 6:0ce3c2070089

Removed duplicate code and fixed doc in timed_action.

% scancols :; 
%    ([[M]], [[N]] -> [[M]])   ~'scannning function',
%    [[M]]                     ~'initial value',
%    [[N,L]]                   ~'data to scan, sequence of length L'
% -> [[M,L]].

function Y=scancols(f,y,X,varargin)
	Y=zeros(size(y,1),size(X,2));

	if nargin>3
		opts=prefs('draw',0,varargin{:});
		for i=1:size(X,2)
			y1=f(y,X(:,i));
			Y(:,i)=y1;
			if opts.draw, opts.plotfn(i,y,X(:,i),y1);  end
			optpause(opts);
			y=y1;
		end
	else
		for i=1:size(X,2), y=f(y,X(:,i)); Y(:,i)=y; end
	end