|
4
|
1 function plot_2_v_m (x, y) |
|
|
2 |
|
|
3 if (nargin != 2) |
|
|
4 error ("usage: plot_2_v_m (x, y)"); |
|
|
5 endif |
|
|
6 |
|
|
7 [x_nr, x_nc] = size (x); |
|
|
8 [y_nr, y_nc] = size (y); |
|
|
9 |
|
|
10 if (x_nr == 1) |
|
|
11 x = x'; |
|
|
12 tmp = x_nr; |
|
|
13 x_nr = x_nc; |
|
|
14 x_nc = tmp; |
|
|
15 endif |
|
|
16 |
|
|
17 if (x_nr == y_nr) |
|
|
18 1; |
|
|
19 elseif (x_nr == y_nc) |
|
|
20 y = y'; |
|
|
21 tmp = y_nr; |
|
|
22 y_nr = y_nc; |
|
|
23 y_nc = tmp; |
|
|
24 else |
|
|
25 error ("plot_2_v_m: matrix dimensions must match"); |
|
|
26 endif |
|
|
27 |
|
|
28 if (y_nc > 0) |
|
|
29 tmp = [x, y]; |
|
|
30 command = sprintf ("gplot tmp(:,%d:%d:%d)", 1, x_nc, x_nc+1); |
|
|
31 for i = 2:y_nc |
|
|
32 command = sprintf ("%s, tmp(:,%d:%d:%d)", command, 1, i, i+1); |
|
|
33 endfor |
|
|
34 eval (command); |
|
|
35 else |
|
|
36 error ("plot_2_v_m: arguments must be a matrices"); |
|
|
37 endif |
|
|
38 |
|
|
39 endfunction |
