function output=GaussRadialBasisFunction(input,center,r)
%This function is designed to get the value of Gauss function
%input              the input of the node
%center             the center of the node
%r                  neighborhood radius
%
%
%edit by bruce, Oct 19, 2006
%
%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[inputrow inputcol]=size(input);
[centerrow centercol]=size(center);
if (inputrow~=centerrow | inputcol~=centercol)
    error('the dimensions of the parameters are different!');
end % this end for inputrow~=centerrow | inputcol~=centercol
output=exp(-norm(input-center)^2/r^2);