map

(tmp_for_tar/vrml.doc/map.m)

Function Synopsis

y=map(f,bg1,bg2,x,etc)

Help text

 Last modified: December 2000

Listing of function file tmp_for_tar/vrml.doc/map.m

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

function y=map(f,bg1,bg2,x,etc)
% 
% Ugly mapping of a function. 
% 
if bg2~=[] & bg1~=[] & etc~=[]
		eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
				f,'(bg1,bg2,x(i,j),etc); end; end; ']);
elseif bg2~=[] & bg1~=[] 
	eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
			f,'(bg1,bg2,x(i,j)); end; end; ']);
elseif bg1~=[] & etc~=[]
	eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
			f,'(bg1,x(i,j),etc); end; end; ']);
elseif bg1~=[] 
		eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
				f,'(bg1,x(i,j)); end; end; ']);
elseif etc~=[] 
			eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
				f,'(x(i,j),etc); end; end; ']);
else
	eval([' for i=1:size(x,1), for j=1:size(x,2), y(i,j)=', ...
			f,'(x(i,j),etc); end; end; ']);
end
return