disp('Running MATLAB script file VecDimAwayT.m') ;
%
%    FOR DEVELOPMENT AND TESTING OF MATLAB FUNCTION VecDimAway,
%           VECtor DIMensions Away


itest = 6 ;    %  0 (to do all), 1,...,9




if itest == 1 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 1 of VecDimAway') ;


  mvec1 = rand(3,2) 

  dima = VecDimAway(mvec1) 


  if itest == 0 ;
    gppause ;
  end;


elseif itest == 2 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 2 of VecDimAway') ;


  mvec1 = rand(3,2) 

  dima = VecDimAway(mvec1) 
  dima0 = VecDimAway(mvec1,0) 
  dima1 = VecDimAway(mvec1,1) 


  if itest == 0 ;
    gppause ;
  end;


elseif itest == 3 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 3 of VecDimAway') ;


  mvec1 = rand(5,2) 
  mvec2 = rand(5,2) 

  dima = VecDimAway(mvec1,mvec2) 
  dima0 = VecDimAway(mvec1,mvec2,0) 
  dima1 = VecDimAway(mvec1,mvec2,1) 


  if itest == 0 ;
    gppause ;
  end;


elseif itest == 4 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 4 of VecDimAway') ;


  vec1 = rand(3,3) 
  vec2 = rand(3,2) 

  dimaway = VecDimAway(vec1,vec2) 

  if itest == 0 ;
    gppause ;
  end;


elseif itest == 5 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 5 of VecDimAway') ;


  vec1 = rand(3,2) 
  vec2 = rand(4,2) 

  dimaway = VecDimAway(vec1,vec2) 

  if itest == 0 ;
    gppause ;
  end;


elseif itest == 6 | itest == 0 ;

  disp('   ') ;
  disp('   ') ;
  disp('Test 6 of VecDimAway') ;


  vec1 = [ 1, 1, 1, 1; ...
          -1, 1, 1, 1; ...
           1,-1, 1, 1; ...
          -1, 1,-1, 1; ...
          -1,-1,-1, 1] 

  dimaway = VecDimAway(vec1) 

  if itest == 0 ;
    gppause ;
  end;


end ;



