function [ res ] = UINIT(x)
% 
% Checked (WWX): 2005-11-19
% 
% Written by:
% -- 
% John L. Weatherwax                2005-06-15
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----
  
res = [ .5 * ( x + 1. ), pi ];