Mercurial > hg > octave-nkf

comparison scripts/plot/__plt2__.m @ 2315:bf8b1bffb58f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-12 17:22:07 by jwe]
author jwe
date Fri, 12 Jul 1996 17:22:16 +0000
parents 949ab8eba8bc
children 8b262e771614
comparison
equal deleted inserted replaced
2314:949ab8eba8bc 2315:bf8b1bffb58f
17 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA 17 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
18 ## 02111-1307, USA. 18 ## 02111-1307, USA.
19 19
20 ## Author: jwe 20 ## Author: jwe
21 21
22 function plot_int_2 (x1, x2, fmt) 22 function __plt2__ (x1, x2, fmt)
23 23
24 if (nargin < 2 || nargin > 3) 24 if (nargin < 2 || nargin > 3)
25 usage ("plot_int_2 (x1, x2, fmt)"); 25 usage ("__plt2__ (x1, x2, fmt)");
26 endif 26 endif
27 27
28 if (nargin == 2) 28 if (nargin == 2)
29 fmt = ""; 29 fmt = "";
30 endif 30 endif
31 31
32 if (! isstr (fmt)) 32 if (! isstr (fmt))
33 error ("plot_int_2: fmt must be a string"); 33 error ("__plt2__: fmt must be a string");
34 endif 34 endif
35 35
36 if (any (any (imag (x1)))) 36 if (any (any (imag (x1))))
37 x1 = real (x1); 37 x1 = real (x1);
38 endif 38 endif
39 if (any (any (imag (x2)))) 39 if (any (any (imag (x2))))
40 x2 = real (x2); 40 x2 = real (x2);
41 endif 41 endif
42 if (is_scalar (x1)) 42 if (is_scalar (x1))
43 if (is_scalar (x2)) 43 if (is_scalar (x2))
44 plot_2_s_s (x1, x2, fmt); 44 __plt2ss__ (x1, x2, fmt);
45 endif 45 endif
46 elseif (is_vector (x1)) 46 elseif (is_vector (x1))
47 if (is_vector (x2)) 47 if (is_vector (x2))
48 plot_2_v_v (x1, x2, fmt); 48 __plt2vv__ (x1, x2, fmt);
49 elseif (is_matrix (x2)) 49 elseif (is_matrix (x2))
50 plot_2_v_m (x1, x2, fmt); 50 __plt2vm__ (x1, x2, fmt);
51 endif 51 endif
52 elseif (is_matrix (x1)) 52 elseif (is_matrix (x1))
53 if (is_vector (x2)) 53 if (is_vector (x2))
54 plot_2_m_v (x1, x2, fmt); 54 __plt2mv__ (x1, x2, fmt);
55 elseif (is_matrix (x2)) 55 elseif (is_matrix (x2))
56 plot_2_m_m (x1, x2, fmt); 56 __plt2mm__ (x1, x2, fmt);
57 endif 57 endif
58 endif 58 endif
59 59
60 endfunction 60 endfunction