Mercurial > hg > octave-nkf
comparison scripts/plot/loglog.m @ 7216:5389a52df87b
[project @ 2007-11-29 19:07:29 by jwe]
author | jwe |
---|---|
date | Thu, 29 Nov 2007 19:07:29 +0000 |
parents | 71c03c7239fb |
children | 153e6226a669 |
comparison
equal
deleted
inserted
replaced
7215:dd88d61d443f | 7216:5389a52df87b |
---|---|
28 ## Author: jwe | 28 ## Author: jwe |
29 | 29 |
30 function retval = loglog (varargin) | 30 function retval = loglog (varargin) |
31 | 31 |
32 [h, varargin] = __plt_get_axis_arg__ ("loglog", varargin{:}); | 32 [h, varargin] = __plt_get_axis_arg__ ("loglog", varargin{:}); |
33 | |
33 oldh = gca (); | 34 oldh = gca (); |
34 unwind_protect | 35 unwind_protect |
35 axes (h); | 36 axes (h); |
36 newplot (); | 37 newplot (); |
37 | 38 |
40 tmp = __plt__ ("loglog", h, varargin{:}); | 41 tmp = __plt__ ("loglog", h, varargin{:}); |
41 | 42 |
42 if (nargout > 0) | 43 if (nargout > 0) |
43 retval = tmp; | 44 retval = tmp; |
44 endif | 45 endif |
45 | |
46 unwind_protect_cleanup | 46 unwind_protect_cleanup |
47 axes (oldh); | 47 axes (oldh); |
48 end_unwind_protect | 48 end_unwind_protect |
49 | 49 |
50 endfunction | 50 endfunction |