function U01_test_mydet
%U01_TEST_MYDET Test mydet.
%
%usage
% U06_test_mydet
%
%author
% saputra@cs.tu-berlin.de

% Data
A = [
0.168879971344252 0.313027488227721 0.183336706183362 0.383884490005655 0.189862477802470
0.745166604030062 0.076439457812078 0.076918942246006 0.650748947230908 0.646501755218381
0.477134351507709 0.791415146963651 0.153662766530705 0.817370524039485 0.003605304507345
0.653444541099485 0.365383979290258 0.826875990170966 0.766266219369973 0.282887905349612
0.966575933053896 0.585099389225412 0.300956742633309 0.374175557582085 0.638600594751137];

% Correct distances
correct_det = -0.069223578402787;

% Run test.

if exist('mydet.m', 'file')
fprintf('Testing mydet.m ...\n');
for k=1:5
my_det = mydet(A, k);

if abs(my_det - correct_det) > 1e-10
fprintf('failed for k = %i (discrepancy > 1e-10).\n', k);
else
fprintf('OK for k = %i.\n', k);
end
end
end