checkinp.m
上传用户:loeagle
上传日期:2013-03-02
资源大小:1236k
文件大小:1k
源码类别:

通讯编程文档

开发平台:

Matlab

  1. function [y1,y2,y3,y4,y5,y6,y7,y8,y9,y10] = checkinp(x1,...
  2.     x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20)
  3. %CHECKINP Checks input and fills in the default.
  4. %       [y1, .., yN] = checkinp(x1, ..., xN, z1, ..., zN) checks if xi is
  5. %       empty. If xi is empty, the function fills yi with the given default
  6. %       value zi. Otherwise, the function assigns yi=xi. The number of
  7. %       variable N is limited to less than 10.
  8. %       Wes Wang 5/26/94, 9/30/95 
  9. %       Copyright 1996-2001 The MathWorks, Inc.
  10. %       $Revision: 1.7 $
  11. if (nargin ~= 2* nargout)
  12.     error('The number of input and output variables in CHECKINP does not match.');
  13. end;
  14. for i = 1: nargout
  15.     eval(['test_flag = x', num2str(i),';']);
  16.     if isempty(test_flag)
  17.         eval(['y',num2str(i),'=x',num2str(nargout+i),';']);
  18.     else
  19.         eval(['y',num2str(i),'=x',num2str(i),';']);
  20.     end;
  21. end;