%%%%%%%%%%%%%%%%%%%%% Convert Hyperbolic to Euclidean %%%%%%%%%%%%%%%%%%%%%
%
% HYPTOEUC
% Usage: r = HYPTOEUC(h)
% Inputs:  h a real number 
%
% Outputs: the real rumber r satifying -1 < r < 1 whose hyperbolic distance from 0 is h
%          h and r have the same sign 

function r = hyptoeuc(h)             
         r = tanh(h/2);