show_et.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function show_et(EuclidTAB,flagPause)
  2. %SHOW_ET Show table obtained by the Euclidean division algorithm.
  3. %  SHOW_ET(EuclidTAB,flagPause) shows the table obtained by  
  4. %  the Euclidean division algorithm (see EUCLIDEDIVTAB).
  5. %
  6. %   Example:
  7. %     A = laurpoly([1:4],0);
  8. %     B = laurpoly([1 2],0);
  9. %     EuclidTAB = euclidedivtab(A,B);
  10. %     show_et(EuclidTAB,'flagPause')
  11. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 20-Mar-2001.
  12. %   Last Revision: 08-Jul-2003.
  13. %   Copyright 1995-2004 The MathWorks, Inc.
  14. %   $Revision: 1.1.6.3 $  $Date: 2004/04/13 00:40:05 $
  15. disp(['---------------------------'])
  16. for j = 1:size(EuclidTAB,1)
  17.     disp(['idx = ', int2str(j)])
  18.     TMP = lpstr(EuclidTAB{j,1});
  19.     if size(TMP,1)>1
  20.         disp(EuclidTAB{j,1},'A')
  21.     else
  22.         disp(['A = ' , TMP])
  23.     end
  24.     TMP = lpstr(EuclidTAB{j,2});
  25.     if size(TMP,1)>1
  26.         disp(EuclidTAB{j,2},'R')
  27.     else
  28.         disp(['R = ' ,TMP])
  29.     end
  30.     TMP = lpstr(EuclidTAB{j,3});
  31.     if size(TMP,1)>1
  32.         disp(EuclidTAB{j,3},'Q')
  33.     else
  34.         disp(['Q = ' ,TMP])
  35.     end
  36.     disp(['ToDIV = ' , int2str(EuclidTAB{j,4})])
  37.     disp(['idxPar = ' , int2str(EuclidTAB{j,5})])
  38.     disp(['---------------------------'])
  39.     if nargin>1 , pause; end
  40. end