Mercurial > octave

comparison scripts/plot/__plt2mv__.m @ 3426:f8dde1807dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-13 08:40:00 by jwe]
author jwe
date Thu, 13 Jan 2000 08:40:53 +0000
parents 9610d364e444
children 858695b3ed62
comparison
equal deleted inserted replaced
3425:8625164a0a39 3426:f8dde1807dee
55 k = 1; 55 k = 1;
56 fmt_nr = rows (fmt); 56 fmt_nr = rows (fmt);
57 if (x_nc > 0) 57 if (x_nc > 0)
58 tmp = [x, y]; 58 tmp = [x, y];
59 cmd = sprintf ("gplot tmp(:,%d:%d:%d) %s", 1, x_nc, x_nc+1, 59 cmd = sprintf ("gplot tmp(:,%d:%d:%d) %s", 1, x_nc, x_nc+1,
60 deblank (fmt (k, :))); 60 deblank (fmt (k, :)));
61 if (k < fmt_nr) 61 if (k < fmt_nr)
62 k++; 62 k++;
63 endif 63 endif
64 for i = 2:x_nc 64 for i = 2:x_nc
65 cmd = sprintf ("%s, tmp(:,%d:%d:%d) %s", cmd, i, x_nc-i+1, x_nc+1, 65 cmd = sprintf ("%s, tmp(:,%d:%d:%d) %s", cmd, i, x_nc-i+1, x_nc+1,
66 deblank (fmt (k, :))); 66 deblank (fmt (k, :)));
67 if (k < fmt_nr) 67 if (k < fmt_nr)
68 k++; 68 k++;
69 endif 69 endif
70 endfor 70 endfor
71 eval (cmd); 71 eval (cmd);
72 else 72 else
73 error ("__plt2mv__: arguments must be a matrices"); 73 error ("__plt2mv__: arguments must be a matrices");