Mercurial > octave-nkf

annotate scripts/plot/__plt2__.m @ 7016:93c65f2a5668

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-12 06:40:56 by jwe]
author jwe
date Fri, 12 Oct 2007 06:41:26 +0000
parents 76e3d985ae56
children a1dbe9d80eee
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2847
8b262e771614 [project @ 1997-03-27 16:18:26 by jwe]
jwe
parents: 2315
diff changeset
1 ## Copyright (C) 1996, 1997 John W. Eaton
2313
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
6 ## under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6895
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6895
diff changeset
8 ## your option) any later version.
2313
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2303
diff changeset
15 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6895
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6895
diff changeset
17 ## <http://www.gnu.org/licenses/>.
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
18
6895
76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe]
jwe
parents: 6795
diff changeset
19 ## Undocumented internal function.
3402
9610d364e444 [project @ 2000-01-05 04:36:38 by jwe]
jwe
parents: 2847
diff changeset
20
2314
949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe]
jwe
parents: 2313
diff changeset
21 ## Author: jwe
949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe]
jwe
parents: 2313
diff changeset
22
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
23 function retval = __plt2__ (h, x1, x2, options, properties)
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
24
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
25 if (nargin < 3 || nargin > 5)
6046
34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe]
jwe
parents: 5741
diff changeset
26 print_usage ();
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
27 endif
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
28
6264
cc2bee854d23 [project @ 2007-02-01 10:00:05 by jwe]
jwe
parents: 6257
diff changeset
29 if (nargin < 4 || isempty (options))
cc2bee854d23 [project @ 2007-02-01 10:00:05 by jwe]
jwe
parents: 6257
diff changeset
30 options = __default_plot_options__ ();
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
31 endif
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
32
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
33 if (nargin < 5)
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
34 properties = {};
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
35 endif
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
36
6264
cc2bee854d23 [project @ 2007-02-01 10:00:05 by jwe]
jwe
parents: 6257
diff changeset
37 if (! isstruct (options))
cc2bee854d23 [project @ 2007-02-01 10:00:05 by jwe]
jwe
parents: 6257
diff changeset
38 error ("__plt1__: options must be a struct array");
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
39 endif
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
40
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
41 if (any (any (imag (x1))))
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
42 x1 = real (x1);
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
43 endif
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
44
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
45 if (any (any (imag (x2))))
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
46 x2 = real (x2);
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
47 endif
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
48
6302
a5cd8b77e892 [project @ 2007-02-13 08:08:33 by jwe]
jwe
parents: 6264
diff changeset
49 h_set = false;
4030
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
50 if (isscalar (x1))
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
51 if (isscalar (x2))
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
52 retval = __plt2ss__ (h, x1, x2, options, properties);
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
53 else
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
54 error ("__plt2__: invalid data for plotting");
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
55 endif
4030
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
56 elseif (isvector (x1))
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
57 if (isvector (x2))
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
58 retval = __plt2vv__ (h, x1, x2, options, properties);
4030
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
59 elseif (ismatrix (x2))
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
60 retval = __plt2vm__ (h, x1, x2, options, properties);
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
61 else
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
62 error ("__plt2__: invalid data for plotting");
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
63 endif
4030
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
64 elseif (ismatrix (x1))
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
65 if (isvector (x2))
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
66 retval = __plt2mv__ (h, x1, x2, options, properties);
4030
22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe]
jwe
parents: 3449
diff changeset
67 elseif (ismatrix (x2))
6459
5dc550e1f419 [project @ 2007-03-26 18:11:58 by jwe]
jwe
parents: 6302
diff changeset
68 retval = __plt2mm__ (h, x1, x2, options, properties);
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
69 else
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
70 error ("__plt2__: invalid data for plotting");
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
71 endif
5741
07421c4e0312 [project @ 2006-04-05 19:28:35 by jwe]
jwe
parents: 5443
diff changeset
72 elseif (isempty (x1) && isempty (x2))
6795
acf80f494427 [project @ 2007-07-25 15:20:53 by jwe]
jwe
parents: 6459
diff changeset
73 retval = zeros (0, 1);
5115
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
74 else
57372235194b [project @ 2005-01-24 18:38:45 by jwe]
jwe
parents: 4030
diff changeset
75 error ("__plt2__: invalid data for plotting");
933
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
76 endif
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
77
598a3aa40360 [project @ 1994-11-17 04:23:41 by jwe]
jwe
parents:
diff changeset
78 endfunction