Mercurial > hg > octave-lyh

comparison scripts/plot/__ezplot__.m @ 7540:3422f39573b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m.
author Ben Abbott <bpabbott@mac.com>
date Thu, 28 Feb 2008 02:41:19 -0500
parents e70789e0cd92
children c4482fc30c7f
comparison
equal deleted inserted replaced
7539:3e107d73aeb4 7540:3422f39573b1
18 18
19 ## Undocumented internal function 19 ## Undocumented internal function
20 20
21 function [h, needusage] = __ezplot__ (pfunc, varargin) 21 function [h, needusage] = __ezplot__ (pfunc, varargin)
22 22
23 func = strcat ("ez", pfunc); 23 func = cstrcat ("ez", pfunc);
24 if (strncmp (pfunc, "contour", 7)) 24 if (strncmp (pfunc, "contour", 7))
25 iscontour = true; 25 iscontour = true;
26 else 26 else
27 iscontour = false; 27 iscontour = false;
28 endif 28 endif
252 '\./', '/'), '[\.]*\*', ''); 252 '\./', '/'), '[\.]*\*', '');
253 fstry = regexprep (regexprep (regexprep (fstry,'\.\^\s*','^'), 253 fstry = regexprep (regexprep (regexprep (fstry,'\.\^\s*','^'),
254 '\./', '/'), '[\.]*\*', ''); 254 '\./', '/'), '[\.]*\*', '');
255 fstrz = regexprep (regexprep (regexprep (fstrz,'\.\^\s*','^'), 255 fstrz = regexprep (regexprep (regexprep (fstrz,'\.\^\s*','^'),
256 '\./', '/'), '[\.]*\*', ''); 256 '\./', '/'), '[\.]*\*', '');
257 fstr = strcat ("[",fstrx,",",fstry,",",fstrz,"]"); 257 fstr = cstrcat ("[",fstrx,",",fstry,",",fstrz,"]");
258 else 258 else
259 if (isplot3) 259 if (isplot3)
260 needusage = true; 260 needusage = true;
261 return; 261 return;
262 endif 262 endif