%QNORM_TEST runs timing tests for Matrix Transpose algorithms.% $Source: /home/stpierre/cvsroot/matlab/simulink/qlib/test/qnorm_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('timesim','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;q=[1 2 3 4];save qnorm_test_vars stop_time qqnorm_test1qnorm_test2qnorm_test3disp(' ')clear, packdisp('qnorm_test1:')disp('========')load qnorm_test_varsts=timesim('qnorm_test1');if simout == qnorm(q)  disp('simout == qnorm(q)  ***PASSED***')else  disp('simout ~= qnorm(q)  ***FAILED***')  simout  qnorm(q)enddisp(['Time: ', num2str(ts)])disp(' ')clear, packdisp('qnorm_test2:')disp('========')load qnorm_test_varsts=timesim('qnorm_test2');if simout == qnorm(q)  disp('simout == qnorm(q)  ***PASSED***')else  disp('simout ~= qnorm(q)  ***FAILED***')  simout  qnorm(q)enddisp(['Time: ', num2str(ts)])disp(' ')clear, packdisp('qnorm_test3:')disp('========')load qnorm_test_varsts=timesim('qnorm_test3');if simout == qnorm(q)  disp('simout == qnorm(q)  ***PASSED***')else  disp('simout ~= qnorm(q)  ***FAILED***')  simout  qnorm(q)enddisp(['Time: ', num2str(ts)])disp(' ')