Mercurial > octave-nkf

comparison scripts/plot/private/__errcomm__.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 1aeb39118764
children 1479b93ee655
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
49 ndata = 1; 49 ndata = 1;
50 data{ndata} = a; 50 data{ndata} = a;
51 while (k <= nargs) 51 while (k <= nargs)
52 a = varargin{k++}; 52 a = varargin{k++};
53 if (ischar (a) || iscellstr (a)) 53 if (ischar (a) || iscellstr (a))
54 retval(idx++) = __errplot__ (a, p, data{1:ndata}); 54 retval(idx++) = __errplot__ (a, p, data{1:ndata});
55 break; 55 break;
56 elseif (isvector (a)) 56 elseif (isvector (a))
57 a = a(:); 57 a = a(:);
58 elseif (ismatrix (a)) 58 elseif (ismatrix (a))
59 ; 59 ;
60 else 60 else
61 error ("wrong argument types"); 61 error ("wrong argument types");
62 endif 62 endif
63 if (size (a) != sz) 63 if (size (a) != sz)
64 error ("argument sizes do not match"); 64 error ("argument sizes do not match");
65 endif 65 endif
66 data{++ndata} = a; 66 data{++ndata} = a;
67 if (ndata > 6) 67 if (ndata > 6)
68 error ("too many arguments to a plot"); 68 error ("too many arguments to a plot");
69 endif 69 endif
70 endwhile 70 endwhile
71 endwhile 71 endwhile
72 72
73 if (! (ischar (a) || iscellstr (a))) 73 if (! (ischar (a) || iscellstr (a)))