Mercurial > octave-nkf

annotate scripts/plot/__make_using_clause__.m @ 6012:7c048a800ebe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-09-29 19:01:06 by jwe]
author jwe
date Fri, 29 Sep 2006 19:01:06 +0000
parents
children 17f25cd588b2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6012
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
1 function usingstr = __make_using_clause__ (x)
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
2 cols = columns (x);
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
3 if (cols > 0)
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
4 usingstr = strcat (gnuplot_command_using, " ($1)");
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
5 for k = 2:cols
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
6 usingstr = sprintf ("%s:($%d)", usingstr, k);
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
7 endfor
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
8 else
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
9 usingstr = "";
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
10 endif
7c048a800ebe [project @ 2006-09-29 19:01:06 by jwe]
jwe
parents:
diff changeset
11 endfunction