Mercurial > hg > octave-nkf
diff scripts/plot/__errplot__.m @ 4007:31448e09d38e
[project @ 2002-07-26 01:47:32 by jwe]
author | jwe |
---|---|
date | Fri, 26 Jul 2002 01:47:32 +0000 |
parents | efac4b97bb09 |
children | 0493a367de6f |
line wrap: on
line diff
--- a/scripts/plot/__errplot__.m +++ b/scripts/plot/__errplot__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2002 Teemu Ikonen +## Copyright (C) 2000, 2001, 2002 Teemu Ikonen ## ## This file is part of Octave. ## @@ -20,7 +20,7 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} __errplot__ (@var{args}) ## Really plot errorbar plots. User interface in function errorbar. -## +## ## @example ## __errplot__ (@var{arg1}, @var{arg2}, ..., @var{fmt}) ## @end example @@ -52,12 +52,12 @@ fstr = a; endif endwhile - + fmt = __pltopt__ ("__errplot__", fstr); - + nplots = size (arg1, 2); len = size (arg1, 1); - + if (ndata == 2) for i = 1:nplots, tmp = [(1:len)', arg1(:,i), arg2(:,i)]; @@ -94,8 +94,8 @@ eval (tstr); cmd = sprintf ("gplot tmp %s", fmt(min(i, rows(fmt)), :) ); eval (cmd); - endfor - else + endfor + else for i = 1:nplots, tstr = "tmp = [arg1(:,i)"; for j = 2:ndata, @@ -107,9 +107,5 @@ eval (cmd); endfor endif - -endfunction - - - +endfunction