%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.']);endstop_time=12e5;q1=[ 1 2 3  4];q2=[-1 2 1 -3];save qmult_test_vars stop_time q1 q2qmult_test1qmult_test2disp(' ')clear, packdisp('qmult_test1:')disp('============')load qmult_test_varsts=timesim('qmult_test1');truth_value=('qmult(q1,q2)');test_value=('simout');check_value(truth_value, test_value);disp(['Time: ', num2str(ts)])disp(' ')clear, packdisp('qmult_test2:')disp('============')load qmult_test_varsts=timesim('qmult_test2');truth_value=('qmult(q1,q2)');test_value=('simout');check_value(truth_value, test_value);disp(['Time: ', num2str(ts)])disp(' ')