Mercurial > hg > octave-nkf
diff scripts/plot/__plt2vv__.m @ 4:b4df021f796c
[project @ 1993-08-08 01:26:08 by jwe]
Initial revision
author | jwe |
---|---|
date | Sun, 08 Aug 1993 01:26:08 +0000 |
parents | |
children | 16a24e76d6e0 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/plot/__plt2vv__.m @@ -0,0 +1,31 @@ +function plot_2_v_v (x, y) + + if (nargin != 2) + error ("usage: plot_2_m_m (x, y)"); + endif + + [x_nr, x_nc] = size (x); + [y_nr, y_nc] = size (y); + + if (x_nr == 1) + x = x'; + tmp = x_nr; + x_nr = x_nc; + x_nc = tmp; + endif + + if (y_nr == 1) + y = y'; + tmp = y_nr; + y_nr = y_nc; + y_nc = tmp; + endif + + if (x_nr != y_nr) + error ("plot_2_v_v: vector lengths must match"); + endif + + tmp = [x, y]; + eval ("gplot tmp"); + +endfunction