%/upf_demos/hfun.m
function [y] = hfun(x);
% PURPOSE : Measurement model function.
% INPUTS  : - x:  The evaluation point in the domain.
% OUTPUTS : - y: The value of the function at x.
% AUTHORS  : 
% DATE     : 

if nargin < 2, error('Not enough input arguments.'); 
   
else
  H=[diag([1,1,1]),zeros(3,6)]; 
  y=H*x;
end;