Mercurial > octave-nkf

comparison scripts/plot/__errcomm__.m @ 4020:ca18dc3d5596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-05 16:50:37 by jwe]
author jwe
date Mon, 05 Aug 2002 16:50:37 +0000
parents c6d7ae9fcdb9
children 22bd65326ec1
comparison
equal deleted inserted replaced
4019:c6d7ae9fcdb9 4020:ca18dc3d5596
54 usage ("%s (...)", caller); 54 usage ("%s (...)", caller);
55 endif 55 endif
56 sz = size (a); 56 sz = size (a);
57 ndata = 1; 57 ndata = 1;
58 arg1 = a; 58 arg1 = a;
59 fmt = " ";
60 while (nargin) 59 while (nargin)
61 nargin--; 60 nargin--;
62 a = varargin{k++}; 61 a = varargin{k++};
63 if (isstr (a)) 62 if (isstr (a))
64 fmt = a; 63 fmt = a;
85 endif 84 endif
86 endwhile 85 endwhile
87 endwhile 86 endwhile
88 87
89 if (! isstr (a)) 88 if (! isstr (a))
90 fmt = " "; 89 fmt = "~";
91 cmd = "__errplot__ (arg1"; 90 cmd = "__errplot__ (arg1";
92 for i = 2:ndata, 91 for i = 2:ndata,
93 cmd = sprintf ("%s, arg%d", cmd, i); 92 cmd = sprintf ("%s, arg%d", cmd, i);
94 endfor 93 endfor
95 eval (sprintf ("%s, fmt);", cmd)); 94 eval (sprintf ("%s, fmt);", cmd));