%DistanceFromSubspace: Compute the orthogonal distance from a vector S
% and the subspace span( u1,u2,...,uk ). 
%
% Usage:
%   >> d = DistanceFromSubspace( S , Uk )
%
% where S is a vector representing an unknown digit and Uk is a matrix
% with orthogonal columns ui=Uk(:,i).  
%
function [Dist]=DistanceFromSubspace( TheDigit , TheSubspace )



 