Mercurial > hg > octave-nkf

comparison scripts/plot/__errcomm__.m @ 6404:2005c0169e36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-14 14:42:47 by jwe]
author jwe
date Wed, 14 Mar 2007 14:42:47 +0000
parents a5cd8b77e892
children 76e3d985ae56
comparison
equal deleted inserted replaced
6403:5011ac2fc23d 6404:2005c0169e36
26 26
27 ## Created: 20.02.2001 27 ## Created: 20.02.2001
28 ## Author: Teemu Ikonen <tpikonen@pcu.helsinki.fi> 28 ## Author: Teemu Ikonen <tpikonen@pcu.helsinki.fi>
29 ## Keywords: errorbar, plotting 29 ## Keywords: errorbar, plotting
30 30
31 function retval = __errcomm__ (caller, h, varargin) 31 function retval = __errcomm__ (caller, p, varargin)
32 32
33 if (nargin < 4) 33 if (nargin < 4)
34 print_usage (); 34 print_usage ();
35 endif 35 endif
36 36
52 ndata = 1; 52 ndata = 1;
53 data{ndata} = a; 53 data{ndata} = a;
54 while (k <= nargs) 54 while (k <= nargs)
55 a = varargin{k++}; 55 a = varargin{k++};
56 if (ischar (a) || iscellstr (a)) 56 if (ischar (a) || iscellstr (a))
57 retval(idx++) = __errplot__ (a, h, data{1:ndata}); 57 retval(idx++) = __errplot__ (a, p, data{1:ndata});
58 break; 58 break;
59 elseif (isvector (a)) 59 elseif (isvector (a))
60 a = a(:); 60 a = a(:);
61 elseif (ismatrix (a)) 61 elseif (ismatrix (a))
62 ; 62 ;
72 endif 72 endif
73 endwhile 73 endwhile
74 endwhile 74 endwhile
75 75
76 if (! (ischar (a) || iscellstr (a))) 76 if (! (ischar (a) || iscellstr (a)))
77 retval(idx++) = __errplot__ ("~", h, data{1:ndata}); 77 retval(idx++) = __errplot__ ("~", p, data{1:ndata});
78 endif 78 endif
79 79
80 drawnow (); 80 drawnow ();
81 81
82 endfunction 82 endfunction