qmult_test.m

来自「四元数工具箱」· M 代码 · 共 47 行

%QMULT_TEST runs timing tests for Matrix Transpose algorithms.

% $Source: /home/stpierre/cvsroot/matlab/simulink/qlib/test/qmult_test.m,v $
% $Revision: 1.2 $
% $Date: 2001/12/15 01:23:41 $

% Copyright (C) 2001 by Jay A. St. Pierre.  All rights reserved.

if ~exist('check_value','file')
  error(['You do not appear to have the test_tools toolbox installed,', 10,...
         'which is necessary to run this test.  You should be able to', 10,...
         'get the test_tools toolbox from the same place you obtained', 10,...
         'this toolbox.']);
end

stop_time=12e5;
q1=[ 1 2 3  4];
q2=[-1 2 1 -3];

save qmult_test_vars stop_time q1 q2

qmult_test1
qmult_test2
disp(' ')

clear, pack
disp('qmult_test1:')
disp('============')
load qmult_test_vars
ts=timesim('qmult_test1');
truth_value=('qmult(q1,q2)');
test_value=('simout');
check_value(truth_value, test_value);
disp(['Time: ', num2str(ts)])
disp(' ')

clear, pack
disp('qmult_test2:')
disp('============')
load qmult_test_vars
ts=timesim('qmult_test2');
truth_value=('qmult(q1,q2)');
test_value=('simout');
check_value(truth_value, test_value);
disp(['Time: ', num2str(ts)])
disp(' ')